Cycling Spiral

STOS programming section.

Moderator: troed

Post Reply
miggymog
Posts: 13
Joined: Sun Sep 09, 2018 6:37 pm

Cycling Spiral

Post by miggymog »

:oops: Spiral, uses a slightly modified version of my cycling star rout to give a spiral instead

Code: Select all

10 key off : curs off : hide on : click off : mode 0 : auto back off : update off : mouseoff 
20 rem
30 rem
40 rem
50 rem
60 rem
70 rem
80 rem
90 palette 0,$777,$666,$555,$444,$333,$222,$111,$111,$111,$222,$333,$444,$555,$666,$777
100 OX=159 : OY=99 : S=0 : C=0 : M=1 : CLR=1 : shift 1,1
110 X=sin(rad(S))*M+159
120 Y=cos(rad(C))*M+99
130 dot physic,X,Y,CLR
140 S=S+2
150 C=C+2
160 if S>360 then M=M+2 : S=0 : C=0
170 inc CLR
172 if CLR>15 then CLR=1
190 rem
200 if hardkey<>57 then goto 110
Post Reply

Return to “STOS”