22 lines
768 B
Plaintext
22 lines
768 B
Plaintext
100 SCREEN 2
|
|
110 COLOR 15
|
|
120 CLS
|
|
130 X = COS(T)*20
|
|
140 Y = SIN(T)*18
|
|
150 R = SIN(T+T)
|
|
160 LINE (( X+40),( Y+40-R))-((-Y+40),( X+40-R))
|
|
170 LINE ((-Y+40),( X+40-R))-((-X+40),(-Y+40-R))
|
|
180 LINE ((-X+40),(-Y+40-R))-(( Y+40),(-X+40-R))
|
|
190 LINE (( Y+40),(-X+40-R))-(( X+40),( Y+40-R))
|
|
200 LINE (( X+40),( Y+20+R))-((-Y+40),( X+20+R))
|
|
210 LINE ((-Y+40),( X+20+R))-((-X+40),(-Y+20+R))
|
|
220 LINE ((-X+40),(-Y+20+R))-(( Y+40),(-X+20+R))
|
|
230 LINE (( Y+40),(-X+20+R))-(( X+40),( Y+20+R))
|
|
240 LINE (( X+40),( Y+40-R))-(( X+40),( Y+20+R))
|
|
250 LINE ((-Y+40),( X+40-R))-((-Y+40),( X+20+R))
|
|
260 LINE ((-X+40),(-Y+40-R))-((-X+40),(-Y+20+R))
|
|
270 LINE (( Y+40),(-X+40-R))-(( Y+40),(-X+20+R))
|
|
280 FOR I = 1 TO 40 : NEXT I
|
|
290 T = T+0.15
|
|
300 GOTO 120
|