CODE SNIPPET - SIMPLE TAN/COS SPRITE MOVEMENT

STOS programming section.

Moderator: troed

Post Reply
User avatar
exxos
Site Admin
Site Admin
Posts: 23497
Joined: Wed Aug 16, 2017 11:19 pm
Location: UK
Contact:

CODE SNIPPET - SIMPLE TAN/COS SPRITE MOVEMENT

Post by 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
(3.54 KiB) Downloaded 247 times
https://www.exxosforum.co.uk/atari/ All my hardware guides - mods - games - STOS
https://www.exxosforum.co.uk/atari/store2/ - All my hardware mods for sale - Please help support by making a purchase.
viewtopic.php?f=17&t=1585 Have you done the Mandatory Fixes ?
Just because a lot of people agree on something, doesn't make it a fact. ~exxos ~
People should find solutions to problems, not find problems with solutions.
Post Reply

Return to “STOS”