mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-12-21 01:29:59 +00:00
30 lines
495 B
Plaintext
30 lines
495 B
Plaintext
|
10 HGR2
|
||
|
|
13 R = 4.76
|
||
|
|
15 HCOLOR= 3
|
||
|
|
20 GOSUB 300
|
||
|
|
25 HCOLOR= 3
|
||
|
|
30 LX = 140 + 93 * COS (R)
|
||
|
|
40 LY = 96 + 93 * SIN (R)
|
||
|
|
45 HCOLOR= 3
|
||
|
|
48 GOSUB 200
|
||
|
|
49 FOR W = 1 TO 100
|
||
|
|
50 NEXT W
|
||
|
|
51 R = R + 0.02
|
||
|
|
52 SX = 140 + 93 * COS (R)
|
||
|
|
53 SY = 96 + 93 * SIN (R)
|
||
|
|
55 HCOLOR = 0
|
||
|
|
57 GOSUB 200
|
||
|
|
60 LX = SX
|
||
|
|
65 LY = SY
|
||
|
|
70 GOTO 45
|
||
|
|
200 HPLOT 140,96 TO LX,LY
|
||
|
|
210 RETURN
|
||
|
|
300 FOR D = 1 TO 30
|
||
|
|
310 CX = 140 + 95 * COS (C)
|
||
|
|
320 CY = 96 + 95 * SIN (C)
|
||
|
|
330 HPLOT CX,CY
|
||
|
|
335 C = C + 0.21
|
||
|
|
336 FOR Q = 1 TO 100
|
||
|
|
337 NEXT Q
|
||
|
|
340 NEXT D
|
||
|
|
350 RETURN
|