etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(dvd.tal) Change opcode not value

This commit is contained in:
Devine Lu Linvega 2024-06-05 08:09:40 -08:00
parent 987a3348a6
commit 598846a1b8
1 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
projects/examples/demos/dvd.tal
View File

@ -2,12 +2,11 @@
|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 |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 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|000
|0000
@dvd &x $2 &y $2 @dvd &x $2 &y $2
|0100 |100
@on-reset ( -> ) @on-reset ( -> )
( | theme ) ( | theme )
@ -17,30 +16,35 @@
( | vectors ) ( | vectors )
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
( | starting position ) ( | starting position )
.Screen/width DEI2 #01 SFT2 .dvd/x STZ2 .Screen/width DEI2 DUP2 #01 SFT2 .dvd/x STZ2
.Screen/height DEI2 #01 SFT2 .dvd/y STZ2 #0020 SUB2 ;on-frame/hit-hor STA2
( | set collisions ) .Screen/height DEI2 DUP2 #01 SFT2 .dvd/y STZ2
.Screen/width DEI2 #0020 SUB2 ;on-frame/hit-hor STA2 #0010 SUB2 ;on-frame/hit-ver STA2
.Screen/height DEI2 #0010 SUB2 ;on-frame/hit-ver STA2
( | drawing mode ) ( | drawing mode )
[ LIT2 36 -Screen/auto ] DEO [ LIT2 36 -Screen/auto ] DEO
#01 draw-dvd BRK #01 <draw-dvd>
BRK
@on-frame ( -> ) @on-frame ( -> )
#00 draw-dvd #00 <draw-dvd>
( | x ) ( | x )
.dvd/x LDZ2 .dvd/x LDZ2
( left ) ORAk ?{ #0001 ,&x STR2 } ( left ) ORAk ?{
( right ) DUP2 [ LIT2 &hit-hor $2 ] NEQ2 ?{ #ffff ,&x STR2 } [ LIT2 ADD2 _&x ] STR }
[ LIT2 &x 0001 ] ADD2 .dvd/x STZ2 ( right ) DUP2 [ LIT2 &hit-hor $2 ] NEQ2 ?{
[ LIT2 SUB2 _&x ] STR }
#0001 [ &x ADD2 ] .dvd/x STZ2
( | y ) ( | y )
.dvd/y LDZ2 .dvd/y LDZ2
( top ) ORAk ?{ #0001 ,&y STR2 } ( top ) ORAk ?{
( bottom ) DUP2 [ LIT2 &hit-ver $2 ] NEQ2 ?{ #ffff ,&y STR2 } [ LIT2 ADD2 _&y ] STR }
[ LIT2 &y 0001 ] ADD2 .dvd/y STZ2 ( bottom ) DUP2 [ LIT2 &hit-ver $2 ] NEQ2 ?{
#01 draw-dvd BRK [ LIT2 ADD2 _&y ] STR }
#0001 [ &y ADD2 ] .dvd/y STZ2
#01 <draw-dvd>
BRK
@draw-dvd ( color -- ) @<draw-dvd> ( color -- )
;dvd-icn .Screen/addr DEO2 ;dvd-icn .Screen/addr DEO2
.dvd/x LDZ2 .Screen/x DEO2 .dvd/x LDZ2 .Screen/x DEO2
.dvd/y LDZ2 .Screen/y DEO2 .dvd/y LDZ2 .Screen/y DEO2