10 LET R=10
20 LET XC=30
30 LET YC=30
40 LET D=2/R
50 LET X=R
60 LET Y=0
70 LET IM=1+PI*R/8
80 FOR I=0 TO IM
90 PLOT X+(XC),Y+(YC)
100 PLOT -X+(XC),Y+(YC)
110 PLOT X+(XC),-Y+(YC)
120 PLOT -X+(XC),-Y+(YC)
130 PLOT Y+(XC),X+(YC)
140 PLOT -Y+(XC),X+(YC)
150 PLOT Y+(XC),-X+(YC)
160 PLOT -Y+(XC),-X+(YC)
170 LET X=X-D*Y
180 LET Y=Y+D*X
190 NEXT I
Cap0164.jpg (2.24 KiB) Viewed 1018 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
