Cycling stars
Posted: Tue Sep 11, 2018 11:13 pm
Colour cycle stars:-
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,0,0,0,0,0,0,0,0,0,0,0,0,0,0
100 OX=159 : OY=99 : S=0 : C=0 : M=1 : CLR=1 : shift 1,1
110 X=sin(S)*M+159
120 Y=cos(rad(C))*M+99
130 if Y>=0 and Y<200 and X<320 and X>=0 then spot physic,X,Y,CLR
140 inc S
150 inc C
160 if S>180 then M=M+3 : S=0 : C=0
170 inc CLR
172 if CLR>15 then CLR=1
190 rem
200 if hardkey<>57 then goto 110
