CODE SNIPPET - SIMPLE TAN/COS SPRITE MOVEMENT

STOS programming section.
Post Reply
User avatar
exxos
Site Admin
Site Admin
Posts: 4506
Joined: Wed Aug 16, 2017 11:19 pm
Location: UK
Contact:

CODE SNIPPET - SIMPLE TAN/COS SPRITE MOVEMENT

Post by exxos » Sun Aug 19, 2018 10:29 pm

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 14 times
4MB STFM 1.44 FD- VELOCE+ 020 STE - 4MB STE 32MHz - STFM 16MHz - STM - MEGA ST - Falcon 030 CT60 - Atari 2600 - Atari 7800 - Gigafile - SD Floppy Emulator - PeST - HxC - CosmosEx - Ultrasatan - various clutter

https://www.exxoshost.co.uk/atari/ All my hardware guides - mods - games - STOS
https://www.exxoshost.co.uk/atari/last/storenew/ - All my hardware mods for sale - Please help support by making a purchase.

Post Reply