Cycling stars

STOS programming section.

Moderator: troed

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

Cycling stars

Post by miggymog »

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
KyleB
Posts: 87
Joined: Tue Jul 31, 2018 7:08 pm

Re: Cycling stars

Post by KyleB »

Thought this was going to be about eddy merckx...
miggymog
Posts: 13
Joined: Sun Sep 09, 2018 6:37 pm

Re: Cycling stars

Post by miggymog »

That was wheelie funny :lol:

For info Extensions I have installed are:-

BLITTER.EXG COMPACT.EXA COMPILER.EXC LINK1.EXQ LINK2.EXR
LINK3.EXS MISTY.EXM STARS.EXH STE_EXTN.EXF TRACKER.EXT
Post Reply

Return to “STOS”