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