d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Animated screen.tal to demonstrate transparent sprites

This commit is contained in:
Andrew Alderwick 2021-08-01 17:44:27 +01:00
parent 6d8e06e879
commit 90acf9ceec
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
projects/examples/devices/screen.tal
View File

@ -6,6 +6,7 @@
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ] |00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ] |20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
( variables ) ( variables )
@ -28,15 +29,21 @@
( draw ) ( draw )
;draw-table JSR2 ;draw-table JSR2
;draw-sprites JSR2 ;on-frame .Screen/vector DEO2
;draw-1bpp JSR2 ;draw-1bpp JSR2
;draw-2bpp JSR2 ;draw-2bpp JSR2
;draw-pixels JSR2 ;draw-pixels JSR2
BRK BRK
@on-frame ( -> )
;draw-background JSR2
;draw-sprites JSR2
BRK
@draw-table ( -- ) @draw-table ( -- )
#00 #10 #00 #10
@ -103,7 +110,19 @@ RTN
SWP #01 ADD SWP SWP #01 ADD SWP
LTHk ,&loop JCN LTHk ,&loop JCN
POP2 POP2
@draw-background ( -- )
;solid .Screen/addr DEO2
#00 #00
&loop
( move ) OVR #0f AND #40 SFT #02 DIV #00 SWP
.center/x LDZ2 #0040 SUB2 ADD2 .Screen/x DEO2
( move ) OVR #f0 AND #02 DIV #00 SWP
.center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2
( draw ) OVR #40 AND .DateTime/second DEI #03 DIV #03 AND ORA .Screen/sprite DEO
( incr ) SWP #01 ADD SWP
NEQk ,&loop JCN
POP2
RTN RTN
@draw-circle ( x* y* color depth -- ) @draw-circle ( x* y* color depth -- )
@ -141,6 +160,9 @@ RTN
@preview_icn [ @preview_icn [
0f38 675f dfbf bfbf 0007 1820 2344 4848 0f38 675f dfbf bfbf 0007 1820 2344 4848
@solid
ffff ffff ffff ffff
@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