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

(snake) Optimizations

This commit is contained in:
Devine Lu Linvega 2024-03-24 10:29:34 -07:00
parent 641872fe21
commit c9b691448b
1 changed files with 88 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

222
projects/examples/demos/snake.tal
View File

@ -4,200 +4,154 @@
|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
|80 @Controller &vector $2 &button $1 &key $1 |80 @Controller &vector $2 &button $1 &key $1
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
|000 |000
( program ) @arena &w $1 &h $1
@apple &x $1 &y $1
@snake &direction $1 &length $1 &dead $1 &x $1 &y $1 &tail $40
@arena |100
&w $1 &h $1 &timer $1
@apple
&x $1 &y $1
@snake
&direction $1 &length $1 &dead $1
&x $1 &y $1
&tail
|100 @on-reset ( -> )
@on-reset ( -> )
( | theme ) ( | theme )
#0f7e .System/r DEO2 #0f7e .System/r DEO2
#0fe6 .System/g DEO2 #0fe6 .System/g DEO2
#0f62 .System/b DEO2 #0f62 .System/b DEO2
( | vectors ) ( | vectors )
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-button .Controller/vector DEO2 ;on-button .Controller/vector DEO2
( | resize ) ( | resize )
#00c8 .Screen/width DEO2 #00c8 .Screen/width DEO2
#0100 .Screen/height DEO2 #0100 .Screen/height DEO2
( | set arena ) ( | set arena )
.Screen/width DEI2 #03 SFT2 NIP .arena/w STZ .Screen/width DEI2 #03 SFT2 NIP .arena/w STZ
.Screen/height DEI2 #03 SFT2 NIP .arena/h STZ .Screen/height DEI2 #03 SFT2 NIP .arena/h STZ
[ LIT2 01 -Screen/auto ] DEO
reset reset BRK
BRK
@on-frame ( -> ) @on-frame ( -> )
[ LIT &f $1 ] INCk ,&f STR
.arena/timer LDZ INC DUP .arena/timer STZ #04 GTH ?{ BRK }
#06 ( difficulty - lower value produces faster gameplay ) [ LIT2 00 _&f ] STR
EQU JMP BRK #00 <draw-snake>
<move>
( clear ) #00 draw-snake #02 .snake/dead LDZ ADD <draw-snake>
( update ) move #83 <draw-apple>
( draw ) #02 .snake/dead LDZ ADD draw-snake <draw-score>
#83 draw-apple BRK
( score ) .snake/length LDZ #41 draw-score
( reset ) #00 .arena/timer STZ
BRK
@on-button ( -> ) @on-button ( -> )
.Controller/button DEI .Controller/button DEI
DUP #08 NEQ ?{ ( ) DUP #f0 AND ?&arrow
reset } ( ) #0f AND ?&button
#04 SFT DUP #00 EQU ?{ BRK
DUP .snake/direction STZ &arrow ( button -> )
} #04 SFT .snake/direction STZ
POP BRK
&button ( -> )
BRK reset BRK
@reset ( -- ) @reset ( -- )
#00 <draw-snake>
#00 draw-snake #00 <draw-apple>
#00 draw-apple [ LIT2 00 -snake/dead ] STZ
[ LIT2 00 -snake/length ] STZ
[ LIT2 00 -snake/direction ] STZ
.arena/w LDZ #01 SFT #01 SUB .snake/x STZ .arena/w LDZ #01 SFT #01 SUB .snake/x STZ
.arena/h LDZ #01 SFT #01 SUB .snake/y STZ .arena/h LDZ #01 SFT #01 SUB .snake/y STZ
#00 .snake/dead STZ #03 <draw-snake>
#00 .snake/length STZ !<add-apple>
#00 .snake/direction STZ
#03 draw-snake
!add-apple
@move ( -- ) @<move> ( -- )
( | tail )
( tail )
.snake/x LDZ2 STH2 .snake/x LDZ2 STH2
.snake/length LDZ #00 .snake/length LDZ #00
&>loop ( -- ) &>loop ( -- )
( pop ) DUPk ADD .snake/tail ADD LDZ2 STH2 SWP2r ( pop ) DUPk ADD .snake/tail ADD LDZ2 STH2
SWP2r
( push ) DUPk ADD .snake/tail ADD STH2r ROT STZ2 ( push ) DUPk ADD .snake/tail ADD STH2r ROT STZ2
INC GTHk ?&>loop INC GTHk ?&>loop
POP2 POP2 POP2r .snake/dead LDZ #00 EQU JMP
POP2r JMP2r
.snake/direction LDZ DUP #01 NEQ ?&no-up
.snake/dead LDZ #00 EQU JMP JMP2r .snake/y LDZ #01 SUB .arena/h LDZ LTHk JMP
SWP POP .snake/y STZ
.snake/direction LDZ &no-up DUP #02 NEQ ?&no-down
DUP #01 NEQ ?&no-up .snake/y LDZ INC .arena/h LDZ DIVk MUL SUB .snake/y STZ
.snake/y LDZ #01 SUB &no-down DUP #04 NEQ ?&no-left
.arena/h LDZ LTHk JMP SWP POP .snake/x LDZ #01 SUB .arena/w LDZ LTHk JMP
.snake/y STZ SWP POP .snake/x STZ
&no-up &no-left DUP #08 NEQ ?&no-right
DUP #02 NEQ ?&no-down .snake/x LDZ INC .arena/w LDZ DIVk MUL SUB .snake/x STZ
.snake/y LDZ INC &no-right POP
.arena/h LDZ DIVk MUL SUB ( detect collision with apple ) .snake/x LDZ2 .apple/x LDZ2 NEQ2 ?{
.snake/y STZ #00 <draw-apple>
&no-down
DUP #04 NEQ ?&no-left
.snake/x LDZ #01 SUB
.arena/w LDZ LTHk JMP SWP POP
.snake/x STZ
&no-left
DUP #08 NEQ ?&no-right
.snake/x LDZ INC
.arena/w LDZ DIVk MUL SUB
.snake/x STZ
&no-right
POP
( detect collision with apple )
.snake/x LDZ2 .apple/x LDZ2 NEQ2 ?{
#00 draw-apple
.snake/length LDZ INC .snake/length STZ .snake/length LDZ INC .snake/length STZ
add-apple <add-apple>
move <move> }
}
.snake/length LDZ #01 .snake/length LDZ #01
&loop-body ( -- ) &loop-body ( -- )
( pop ) DUPk ADD .snake/tail ADD LDZ2 ( pop ) DUPk ADD .snake/tail ADD LDZ2 .snake/x LDZ2 NEQ2 ?{
.snake/x LDZ2 NEQ2 ?{ #01 .snake/dead STZ
#01 .snake/dead STZ #03 <draw-snake> }
#03 draw-snake INC GTHk ?&loop-body
} POP2 JMP2r
INC GTHk ?&loop-body
POP2
JMP2r @<add-apple> ( -- )
.DateTime/hour DEI2 .DateTime/minute DEI2 MUL2
( ) DUP2 #1234 MUL2 ADD .arena/w LDZ DIVk MUL SUB .apple/x STZ
( ) #abcd MUL2 ADD .arena/h LDZ DIVk MUL SUB .apple/y STZ
JMP2r
@add-apple ( -- ) (
@|drawing )
.DateTime/hour DEI2 .DateTime/minute DEI2 MUL2 #1234 MUL2 ADD
.arena/w LDZ DIVk MUL SUB .apple/x STZ
.DateTime/hour DEI2 .DateTime/minute DEI2 MUL2 #abcd MUL2 ADD
.arena/h LDZ DIVk MUL SUB .apple/y STZ
JMP2r
@draw-snake ( color -- )
@<draw-snake> ( color -- )
STH STH
( draw tail ) ( | draw tail )
;snake-icns .Screen/addr DEO2 ;snake-icns .Screen/addr DEO2
.snake/length LDZ #00 .snake/length LDZ #00
&>loop ( -- ) &>loop ( -- )
DUPk ADD .snake/tail ADD LDZ #0005 SFT2 .Screen/x DEO2 DUPk ADD .snake/tail ADD LDZ #0005 SFT2 .Screen/x DEO2
DUPk ADD .snake/tail ADD INC LDZ #0005 SFT2 .Screen/y DEO2 DUPk ADD .snake/tail ADD INC LDZ #0005 SFT2 .Screen/y DEO2
STHkr .Screen/sprite DEO STHkr .Screen/sprite DEO
INC GTHk ?&>loop INC GTHk ?&>loop
POP2 POP2
( draw head ) ( | draw head )
.snake/x LDZ #0005 SFT2 .Screen/x DEO2 .snake/x LDZ #0005 SFT2 .Screen/x DEO2
.snake/y LDZ #0005 SFT2 .Screen/y DEO2 .snake/y LDZ #0005 SFT2 .Screen/y DEO2
;snake-icns/face .Screen/addr DEO2 ;snake-icns/face .Screen/addr DEO2
STHr .Screen/sprite DEO STHr .Screen/sprite DEO
JMP2r
JMP2r @<draw-apple> ( color -- )
@draw-apple ( color -- )
.apple/x LDZ #0005 SFT2 .Screen/x DEO2 .apple/x LDZ #0005 SFT2 .Screen/x DEO2
.apple/y LDZ #0005 SFT2 .Screen/y DEO2 .apple/y LDZ #0005 SFT2 .Screen/y DEO2
;apple-chr .Screen/addr DEO2 ;apple-chr .Screen/addr DEO2
.Screen/sprite DEO .Screen/sprite DEO
JMP2r
JMP2r @<draw-score> ( -- )
#0010 DUP2 .Screen/x DEO2
.Screen/y DEO2
.snake/length LDZ
( x0 ) DUP #04 SFT <draw-num>
( 0x ) !<draw-num>
@draw-score ( score color -- ) @<draw-num> ( num -- )
#00 SWP #0f AND #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
[ LIT2 41 -Screen/sprite ] DEO
JMP2r
STH (
#0010 .Screen/x DEO2 @|assets )
#0010 .Screen/y DEO2
DUP #04 SFT #0005 SFT2 ;font-hex ADD2 .Screen/addr DEO2
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
( draw ) STHkr .Screen/sprite DEO
#0f AND #0005 SFT2 ;font-hex ADD2 .Screen/addr DEO2
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
( draw ) STHr .Screen/sprite DEO
JMP2r @snake-icns [ 7eff ffff ffff ff7e ]
&face [ 7eff ffdb ffe7 ff7e ]
( assets )
@snake-icns [
7eff ffff ffff ff7e ]
&face [
7eff ffdb ffe7 ff7e ]
@apple-chr [ @apple-chr [
0000 76ff ffff 7e3c 0000 76ff ffff 7e3c 1008 0000 0000 0000 ]
1008 0000 0000 0000 ]
@font-hex [ @font-hex [
007c 8282 8282 827c 0030 1010 1010 1010 007c 8282 8282 827c 0030 1010 1010 1010
007c 8202 7c80 80fe 007c 8202 1c02 827c 007c 8202 7c80 80fe 007c 8202 1c02 827c