home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac
/
dflogo12.zip
/
SPIRAL.DFP
< prev
next >
Wrap
Text File
|
1993-01-27
|
391b
|
38 lines
TO SPIRAL :COUNT :SIDE :INC :ANGLE
HIDETURTLE
PENDOWN
REPEAT :COUNT [FORWARD :SIDE RIGHT :ANGLE MAKE "SIDE :SIDE + :INC]
PENUP
SHOWTURTLE
END
TO GO
SPIRAL 120 10 2 117
END
TO GO2
SPIRAL 47 10 6 117
END
TO GO3
SPIRAL 151 5 2 125
END
TO GO4
SPIRAL 150 5 2 91
END
TO GO5
SPIRAL 150 5 4 181
END