commit c71842aa8472f26c0ea7fbf92624659313c038ba parent f8c7e44ea1f64dab202fbd7bf162b44dc8b4377f Author: neauoire <aliceffekt@gmail.com> Date: Fri, 29 Sep 2023 14:01:13 -0400 (dvd.tal) Optimized Diffstat:
| M | projects/examples/demos/dvd.tal | | | 56 | ++++++++++++++++++++++++-------------------------------- |
1 file changed, 24 insertions(+), 32 deletions(-)
diff --git a/projects/examples/demos/dvd.tal b/projects/examples/demos/dvd.tal @@ -5,59 +5,51 @@ |0000 - @dvd &x $2 &y $2 &dx $1 &dy $1 + @dvd &x $2 &y $2 -|0100 ( -> ) +|0100 - ( theme ) +@on-reset ( -> ) + ( | theme ) #4cfd .System/r DEO2 #4cf3 .System/g DEO2 #dcf2 .System/b DEO2 - ( vectors ) + ( | vectors ) ;on-frame .Screen/vector DEO2 - ( starting position ) + ( | starting position ) .Screen/width DEI2 #01 SFT2 .dvd/x STZ2 .Screen/height DEI2 #01 SFT2 .dvd/y STZ2 - ( set collisions ) + ( | set collisions ) .Screen/width DEI2 #0020 SUB2 ;on-frame/hit-hor STA2 .Screen/height DEI2 #0010 SUB2 ;on-frame/hit-ver STA2 - ( drawing mode ) + ( | drawing mode ) [ LIT2 36 -Screen/auto ] DEO - #01 draw-dvd - -BRK + #01 draw-dvd BRK @on-frame ( -> ) - #00 draw-dvd - ( x ) + ( | x ) .dvd/x LDZ2 - DUP2 #0000 EQU2 ?&flip-x - DUP2 [ LIT2 &hit-hor $2 ] EQU2 ?&flip-x - &no-x - [ LIT2 00 -dvd/dx ] LDZ DUP2 ADD2 ADD2 #ffff ADD2 .dvd/x STZ2 - ( y ) + ( left ) DUP2 #0000 NEQ2 ?{ #0001 ,&x STR2 } + ( right ) DUP2 [ LIT2 &hit-hor $2 ] NEQ2 ?{ #ffff ,&x STR2 } + [ LIT2 &x 0001 ] ADD2 .dvd/x STZ2 + ( | y ) .dvd/y LDZ2 - DUP2 #0000 EQU2 ?&flip-y - DUP2 [ LIT2 &hit-ver $2 ] EQU2 ?&flip-y - &no-y - [ LIT2 00 -dvd/dy ] LDZ DUP2 ADD2 ADD2 #ffff ADD2 .dvd/y STZ2 - #01 draw-dvd - -BRK - &flip-x .dvd/dx LDZk #00 EQU SWP STZ !&no-x - &flip-y .dvd/dy LDZk #00 EQU SWP STZ !&no-y + ( top ) DUP2 #0000 NEQ2 ?{ #0001 ,&y STR2 } + ( bottom ) DUP2 [ LIT2 &hit-ver $2 ] NEQ2 ?{ #ffff ,&y STR2 } + [ LIT2 &y 0001 ] ADD2 .dvd/y STZ2 + #01 draw-dvd BRK @draw-dvd ( color -- ) - - ;dvd_icn .Screen/addr DEO2 + ;dvd-icn .Screen/addr DEO2 .dvd/x LDZ2 .Screen/x DEO2 .dvd/y LDZ2 .Screen/y DEO2 - .Screen/sprite DEOk DEO - -JMP2r + .Screen/sprite DEOk + DEO + JMP2r -@dvd_icn ( 4 x 2 ) [ +@dvd-icn ( 4 x 2 ) + [ 001f 3f38 3838 787f 00fe fe7e 7777 e3c3 000f 1f3b 7b77 e7c7 00fc fe8f 8707 0efc 7f00 000f ff7f 0700 0301 00ff f0f8 ff00