CODE SNIPPET - SIMPLE TAN/COS SPRITE MOVEMENT

[exxos]

Scrolls a "STOS" logo across the screen in a bit of a fancy way.

Code: Select all

10 key off : curs off : hide on 
20 X=hunt(start(1) to start(1)+length(1),"PALT") : X=X+4 : for A=0 to 15 : colour A,deek(X) : X=X+2 : next A
30 colour 0,$0 : A=100 : B=170
40 sprite 1,100+tan(A/21.7)*50,90+sin(A/21.7)*90,3
45 sprite 2,100+tan(B/21.7)*50,90+sin(B/21.7)*90,3 : wait vbl 
50 inc A : inc B : goto 40

DOWNLOAD BAS

STOSSCR.zip