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

(screen.tal) Improved layout

This commit is contained in:
neauoire 2022-03-26 18:29:38 -07:00
parent f2c644f680
commit 1f7a15d05b
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,7 +35,7 @@ BRK
#01 .Screen/auto DEO
.count LDZ2 INC2 [ DUP2 ] .count STZ2
.center/x LDZ2 #0028 ADD2 .Screen/x DEO2
.center/x LDZ2 #0050 ADD2 .Screen/x DEO2
.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
;draw-short JSR2
@ -43,18 +43,26 @@ BRK
@draw-sprites ( -- )
.center/x LDZ2 #0068 SUB2 .Screen/x DEO2
( horizontal )
.center/x LDZ2 #0060 SUB2 .Screen/x DEO2
.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
;font-hex .Screen/addr DEO2
#f6 .Screen/auto DEO
#01 .Screen/sprite DEO
( vertical )
.center/x LDZ2 #0070 SUB2 .Screen/x DEO2
.center/y LDZ2 #0038 SUB2 .Screen/y DEO2
;font-hex .Screen/addr DEO2
#f5 .Screen/auto DEO
#01 .Screen/sprite DEO
#00 .Screen/auto DEO
( table )
;preview_icn .Screen/addr DEO2
#00 #00
&loop
( move ) DUP #0f AND #40 SFT #01 SFT #00 SWP
.center/x LDZ2 #0068 SUB2 ADD2 .Screen/x DEO2
.center/x LDZ2 #0060 SUB2 ADD2 .Screen/x DEO2
( move ) DUP #f0 AND #01 SFT #00 SWP
.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2
( draw ) DUP .Screen/sprite DEO
@ -71,7 +79,7 @@ JMP2r
( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
[ .center/y LDZ2 #0038 SUB2 ADD2 ] STH2
( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
[ .center/x LDZ2 #0018 SUB2 ADD2 ]
[ .center/x LDZ2 #0010 SUB2 ADD2 ]
STH2r STHr #00 ,draw-circle JSR
INC GTHk ,&loop JCN
POP2
@ -86,7 +94,7 @@ JMP2r
( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
[ .center/y LDZ2 #0008 ADD2 ADD2 ] STH2
( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
[ .center/x LDZ2 #0018 SUB2 ADD2 ]
[ .center/x LDZ2 #0010 SUB2 ADD2 ]
STH2r STHr #80 ,draw-circle JSR
INC GTHk ,&loop JCN
POP2