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

Reverted changes to screen.tal

This commit is contained in:
neauoire 2021-08-01 11:28:37 -07:00
parent 90acf9ceec
commit c3be359163
1 changed files with 2 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,6 @@
|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 ]
|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
( variables )
@ -29,21 +28,13 @@
( draw )
;draw-table JSR2
;on-frame .Screen/vector DEO2
;draw-sprites JSR2
;draw-1bpp JSR2
;draw-2bpp JSR2
;draw-pixels JSR2
BRK
@on-frame ( -> )
;draw-background JSR2
;draw-sprites JSR2
BRK
@draw-table ( -- )
#00 #10
@ -111,18 +102,6 @@ RTN
LTHk ,&loop JCN
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
@draw-circle ( x* y* color depth -- )
@ -160,9 +139,6 @@ RTN
@preview_icn [
0f38 675f dfbf bfbf 0007 1820 2344 4848
@solid
ffff ffff ffff ffff
@font-hex
007c 8282 8282 827c 0030 1010 1010 1010
007c 8202 7c80 80fe 007c 8202 1c02 827c