00000000: 00 20 54 4F 20 50 4F 4C 59 53 50 49 20 3A 53 49 |. TO POLYSPI :SI|
00000010: 44 45 20 3A 41 4E 47 4C 45 0D 20 46 44 20 3A 53 |DE :ANGLE. FD :S|
00000020: 49 44 45 20 52 54 20 3A 41 4E 47 4C 45 0D 20 50 |IDE RT :ANGLE. P|
00000030: 4F 4C 59 53 50 49 20 28 20 3A 53 49 44 45 20 2B |OLYSPI ( :SIDE +|
00000040: 20 33 20 29 20 3A 41 4E 47 4C 45 0D 45 4E 44 0D | 3 ) :ANGLE.END.|
00000050: 0D 54 4F 20 50 4F 4C 59 53 50 49 52 41 4C 20 3A |.TO POLYSPIRAL :|
00000060: 53 49 20 3A 41 4E 20 3A 49 4E 43 0D 20 50 4F 4C |SI :AN :INC. POL|
00000070: 59 53 54 45 50 20 3A 53 49 20 3A 41 4E 0D 20 50 |YSTEP :SI :AN. P|
00000080: 4F 4C 59 53 50 49 52 41 4C 20 28 20 3A 53 49 20 |OLYSPIRAL ( :SI |
00000090: 2B 20 3A 49 4E 43 20 29 20 3A 41 4E 20 3A 49 4E |+ :INC ) :AN :IN|
000000A0: 43 0D 45 4E 44 0D 0D 54 4F 20 54 57 4F 50 4F 4C |C.END..TO TWOPOL|
000000B0: 59 20 3A 53 49 31 20 3A 41 4E 31 20 3A 53 49 32 |Y :SI1 :AN1 :SI2|
000000C0: 20 3A 41 4E 32 0D 20 50 4F 4C 59 53 54 45 50 20 | :AN2. POLYSTEP |
000000D0: 3A 53 49 31 20 3A 41 4E 31 0D 20 50 4F 4C 59 53 |:SI1 :AN1. POLYS|
000000E0: 54 45 50 20 3A 53 49 32 20 3A 41 4E 32 0D 20 54 |TEP :SI2 :AN2. T|
000000F0: 57 4F 50 4F 4C 59 20 3A 53 49 31 20 3A 41 4E 31 |WOPOLY :SI1 :AN1|
00000100: 20 3A 53 49 32 20 3A 41 4E 32 0D 45 4E 44 0D 0D | :SI2 :AN2.END..|
00000110: 54 4F 20 50 4F 4C 59 20 3A 53 49 20 3A 41 4E 0D |TO POLY :SI :AN.|
00000120: 20 46 44 20 3A 53 49 20 52 54 20 3A 41 4E 0D 20 | FD :SI RT :AN. |
00000130: 50 4F 4C 59 20 3A 53 49 20 3A 41 4E 0D 45 4E 44 |POLY :SI :AN.END|
00000140: 0D 0D 54 4F 20 50 4F 4C 59 53 54 45 50 20 3A 53 |..TO POLYSTEP :S|
00000150: 49 20 3A 41 4E 0D 20 46 44 20 3A 53 49 20 52 54 |I :AN. FD :SI RT|
00000160: 20 3A 41 4E 0D 45 4E 44 0D 0D 54 4F 20 49 4E 53 | :AN.END..TO INS|
00000170: 50 49 20 3A 53 49 20 3A 41 4E 0D 20 50 4F 4C 59 |PI :SI :AN. POLY|
00000180: 53 54 45 50 20 3A 53 49 20 3A 41 4E 0D 20 49 4E |STEP :SI :AN. IN|
00000190: 53 50 49 20 3A 53 49 20 28 20 3A 41 4E 20 2B 20 |SPI :SI ( :AN + |
000001A0: 31 30 20 29 0D 45 4E 44 0D 0D |10 ).END.. |
. TO POLYSPI :SIDE :ANGLE. FD :SIDE RT :
ANGLE. POLYSPI ( :SIDE + 3 ) :ANGLE.END.
.TO POLYSPIRAL :SI :AN :INC. POLYSTEP :S
I :AN. POLYSPIRAL ( :SI + :INC ) :AN :IN
C.END..TO TWOPOLY :SI1 :AN1 :SI2 :AN2. P
OLYSTEP :SI1 :AN1. POLYSTEP :SI2 :AN2. T
WOPOLY :SI1 :AN1 :SI2 :AN2.END..TO POLY
:SI :AN. FD :SI RT :AN. POLY :SI :AN.END
..TO POLYSTEP :SI :AN. FD :SI RT :AN.END
..TO INSPI :SI :AN. POLYSTEP :SI :AN. IN
SPI :SI ( :AN + 10 ).END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL