15 lines
364 B
Text
15 lines
364 B
Text
A=320
|
|
VDU 23, 22, A+10; A+10; 8, 16, 16, 128
|
|
ORIGIN @size.x%, @size.y%
|
|
GCOL 7
|
|
FOR I=-(A - A MOD 100) TO A - A MOD 100 STEP 100
|
|
LINE I, -A, I, A : LINE -A, I, A, I
|
|
NEXT
|
|
|
|
MOVE 0, 0
|
|
GCOL 1
|
|
VDU 23, 23, 3|
|
|
FOR I=0 TO 5 * PI STEP .05
|
|
R=A / 16 * I
|
|
DRAW R * COS(I), R * SIN(I)
|
|
NEXT
|