00000000: 00 20 54 4F 20 41 52 43 52 49 47 48 54 31 20 3A |. TO ARCRIGHT1 :|
00000010: 53 49 5A 45 20 3A 44 45 47 52 45 45 53 0D 20 52 |SIZE :DEGREES. R|
00000020: 45 50 45 41 54 20 3A 44 45 47 52 45 45 53 20 5B |EPEAT :DEGREES [|
00000030: 46 44 20 3A 53 49 5A 45 20 52 54 20 31 5D 0D 45 |FD :SIZE RT 1].E|
00000040: 4E 44 0D 0D 54 4F 20 43 49 52 43 4C 45 20 3A 52 |ND..TO CIRCLE :R|
00000050: 41 44 49 55 53 0D 20 43 49 52 43 4C 45 32 20 3A |ADIUS. CIRCLE2 :|
00000060: 52 41 44 49 55 53 20 2A 20 30 2E 30 31 37 34 0D |RADIUS * 0.0174.|
00000070: 45 4E 44 0D 0D 54 4F 20 43 49 52 43 4C 45 32 20 |END..TO CIRCLE2 |
00000080: 3A 53 49 5A 45 0D 20 52 45 50 45 41 54 20 33 36 |:SIZE. REPEAT 36|
00000090: 30 20 5B 46 44 20 3A 53 49 5A 45 20 52 54 20 31 |0 [FD :SIZE RT 1|
000000A0: 5D 0D 45 4E 44 0D 0D 54 4F 20 43 49 52 43 4C 45 |].END..TO CIRCLE|
000000B0: 31 0D 20 52 45 50 45 41 54 20 33 36 30 20 5B 46 |1. REPEAT 360 [F|
000000C0: 44 20 31 20 52 54 20 31 5D 0D 45 4E 44 0D 0D 54 |D 1 RT 1].END..T|
000000D0: 4F 20 50 45 54 41 4C 20 3A 53 49 5A 45 0D 20 41 |O PETAL :SIZE. A|
000000E0: 52 43 52 49 47 48 54 20 3A 53 49 5A 45 20 36 30 |RCRIGHT :SIZE 60|
000000F0: 0D 20 52 54 20 31 32 30 20 41 52 43 52 49 47 48 |. RT 120 ARCRIGH|
00000100: 54 20 3A 53 49 5A 45 20 36 30 20 52 54 20 31 32 |T :SIZE 60 RT 12|
00000110: 30 0D 45 4E 44 0D 0D 54 4F 20 46 4C 4F 57 45 52 |0.END..TO FLOWER|
00000120: 20 3A 53 49 5A 45 0D 20 52 45 50 45 41 54 20 36 | :SIZE. REPEAT 6|
00000130: 20 5B 50 45 54 41 4C 20 3A 53 49 5A 45 20 52 54 | [PETAL :SIZE RT|
00000140: 20 36 30 5D 0D 45 4E 44 0D 0D 54 4F 20 41 52 43 | 60].END..TO ARC|
00000150: 4C 45 46 54 31 20 3A 53 49 5A 45 20 3A 44 45 47 |LEFT1 :SIZE :DEG|
00000160: 52 45 45 53 0D 20 52 45 50 45 41 54 20 3A 44 45 |REES. REPEAT :DE|
00000170: 47 52 45 45 53 20 5B 46 44 20 3A 53 49 5A 45 20 |GREES [FD :SIZE |
00000180: 4C 54 20 31 5D 0D 45 4E 44 0D 0D 54 4F 20 41 52 |LT 1].END..TO AR|
00000190: 43 52 49 47 48 54 20 3A 52 41 44 49 55 53 20 3A |CRIGHT :RADIUS :|
000001A0: 44 45 47 52 45 45 53 0D 20 41 52 43 52 49 47 48 |DEGREES. ARCRIGH|
000001B0: 54 31 20 3A 52 41 44 49 55 53 20 2A 20 30 2E 30 |T1 :RADIUS * 0.0|
000001C0: 31 37 34 20 3A 44 45 47 52 45 45 53 0D 45 4E 44 |174 :DEGREES.END|
000001D0: 0D 0D 54 4F 20 41 52 43 4C 45 46 54 20 3A 52 41 |..TO ARCLEFT :RA|
000001E0: 44 49 55 53 20 3A 44 45 47 52 45 45 53 0D 20 41 |DIUS :DEGREES. A|
000001F0: 52 43 4C 45 46 54 31 20 3A 52 41 44 49 55 53 20 |RCLEFT1 :RADIUS |
00000200: 2A 20 30 2E 30 31 37 34 20 3A 44 45 47 52 45 45 |* 0.0174 :DEGREE|
00000210: 53 0D 45 4E 44 0D 0D 54 4F 20 52 41 59 20 3A 53 |S.END..TO RAY :S|
00000220: 49 5A 45 0D 20 41 52 43 4C 45 46 54 20 3A 53 49 |IZE. ARCLEFT :SI|
00000230: 5A 45 20 39 30 0D 20 41 52 43 52 49 47 48 54 20 |ZE 90. ARCRIGHT |
00000240: 3A 53 49 5A 45 20 39 30 0D 20 41 52 43 4C 45 46 |:SIZE 90. ARCLEF|
00000250: 54 20 3A 53 49 5A 45 20 39 30 0D 20 41 52 43 52 |T :SIZE 90. ARCR|
00000260: 49 47 48 54 20 3A 53 49 5A 45 20 39 30 0D 45 4E |IGHT :SIZE 90.EN|
00000270: 44 0D 0D 54 4F 20 53 55 4E 20 3A 53 49 5A 45 0D |D..TO SUN :SIZE.|
00000280: 20 52 45 50 45 41 54 20 39 20 5B 52 41 59 20 3A | REPEAT 9 [RAY :|
00000290: 53 49 5A 45 20 52 54 20 31 36 30 5D 0D 45 4E 44 |SIZE RT 160].END|
000002A0: 0D 0D |.. |
. TO ARCRIGHT1 :SIZE :DEGREES. REPEAT :D
EGREES [FD :SIZE RT 1].END..TO CIRCLE :R
ADIUS. CIRCLE2 :RADIUS * 0.0174.END..TO
CIRCLE2 :SIZE. REPEAT 360 [FD :SIZE RT 1
].END..TO CIRCLE1. REPEAT 360 [FD 1 RT 1
].END..TO PETAL :SIZE. ARCRIGHT :SIZE 60
. RT 120 ARCRIGHT :SIZE 60 RT 120.END..T
O FLOWER :SIZE. REPEAT 6 [PETAL :SIZE RT
60].END..TO ARCLEFT1 :SIZE :DEGREES. RE
PEAT :DEGREES [FD :SIZE LT 1].END..TO AR
CRIGHT :RADIUS :DEGREES. ARCRIGHT1 :RADI
US * 0.0174 :DEGREES.END..TO ARCLEFT :RA
DIUS :DEGREES. ARCLEFT1 :RADIUS * 0.0174
:DEGREES.END..TO RAY :SIZE. ARCLEFT :SI
ZE 90. ARCRIGHT :SIZE 90. ARCLEFT :SIZE
90. ARCRIGHT :SIZE 90.END..TO SUN :SIZE.
REPEAT 9 [RAY :SIZE RT 160].END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL