0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-12-04 11:37:25 +00:00
uxn/projects/examples/demos/dvd.tal

65 lines
1.5 KiB
Tal
Raw Normal View History

2022-03-14 16:55:31 +00:00
( DVD Bounce )
2021-05-24 21:36:15 +00:00
2022-03-25 16:49:51 +00:00
|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
2021-04-21 19:00:31 +00:00
|0000
2021-04-21 19:00:31 +00:00
2022-03-14 16:55:31 +00:00
@dvd &x $2 &y $2 &dx $1 &dy $1
2021-04-21 19:00:31 +00:00
|0100 ( -> )
2022-03-25 16:49:51 +00:00
( theme )
#4cfd .System/r DEO2
#4cf3 .System/g DEO2
#dcf2 .System/b DEO2
2021-04-21 19:00:31 +00:00
( vectors )
;on-frame .Screen/vector DEO2
2021-04-21 19:00:31 +00:00
( starting position )
2022-03-14 16:55:31 +00:00
.Screen/width DEI2 #01 SFT2 .dvd/x STZ2
.Screen/height DEI2 #01 SFT2 .dvd/y STZ2
2022-03-25 16:49:51 +00:00
( set collisions )
.Screen/width DEI2 #0020 SUB2 ;on-frame/hit-hor STA2
.Screen/height DEI2 #0010 SUB2 ;on-frame/hit-ver STA2
( drawing mode )
2022-03-14 16:55:31 +00:00
#36 .Screen/auto DEO
#01 ,draw-dvd JSR
2021-04-21 19:00:31 +00:00
BRK
@on-frame ( -> )
2022-03-14 16:55:31 +00:00
#00 ,draw-dvd JSR
2022-03-25 16:49:51 +00:00
( x )
.dvd/x LDZ2
STH2k #0000 EQU2 ,&flip-x JCN
STH2kr [ LIT2 &hit-hor $2 ] EQU2 ,&flip-x JCN
&no-x
2022-07-14 21:57:56 +00:00
STH2r [ #00 .dvd/dx LDZ ] DUP2 ADD2 ADD2 #ffff ADD2 .dvd/x STZ2
2022-03-25 16:49:51 +00:00
( y )
.dvd/y LDZ2
STH2k #0000 EQU2 ,&flip-y JCN
STH2kr [ LIT2 &hit-ver $2 ] EQU2 ,&flip-y JCN
&no-y
2022-07-14 21:57:56 +00:00
STH2r [ #00 .dvd/dy LDZ ] DUP2 ADD2 ADD2 #ffff ADD2 .dvd/y STZ2
2022-03-14 16:55:31 +00:00
#01 ,draw-dvd JSR
2021-04-21 19:00:31 +00:00
BRK
2022-03-25 16:49:51 +00:00
&flip-x .dvd/dx LDZk #00 EQU SWP STZ ,&no-x JMP
&flip-y .dvd/dy LDZk #00 EQU SWP STZ ,&no-y JMP
2021-04-21 19:00:31 +00:00
@draw-dvd ( color -- )
;dvd_icn .Screen/addr DEO2
2022-01-09 21:07:48 +00:00
.dvd/x LDZ2 .Screen/x DEO2
.dvd/y LDZ2 .Screen/y DEO2
2022-03-14 16:55:31 +00:00
.Screen/sprite DEOk DEO
2021-04-21 19:00:31 +00:00
JMP2r
2022-01-09 21:07:48 +00:00
@dvd_icn ( 4 x 2 )
2021-04-21 19:00:31 +00:00
001f 3f38 3838 787f 00fe fe7e 7777 e3c3
000f 1f3b 7b77 e7c7 00fc fe8f 8707 0efc
7f00 000f ff7f 0700 0301 00ff f0f8 ff00
8700 00ff 7f7f ff00 f000 00e0 fcfc 8000