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

(screen.tal) Centered

This commit is contained in:
neauoire 2022-03-15 09:57:33 -07:00
parent 8ec8c7c1f4
commit 5057dd160a
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.build.yml
View File

@ -30,7 +30,7 @@ tasks:
cp bin/asma.rom ../out/ cp bin/asma.rom ../out/
mv bin ../build/uxn-lin64/uxn mv bin ../build/uxn-lin64/uxn
- build-essentials: | - build-essentials: |
for F in uxn/projects/software/calc.tal uxn/projects/software/launcher.tal uxn/projects/examples/demos/piano.tal uxn/projects/examples/demos/clock.tal catclock/src/main.tal dexe/src/main.tal donsol/src/main.tal left/src/main.tal nasu/src/main.tal noodle/src/main.tal orca-toy/src/main.tal:orca.rom turye/src/main.tal; do for F in uxn/projects/software/calc.tal uxn/projects/software/launcher.tal uxn/projects/examples/demos/piano.tal uxn/projects/examples/software/clock.tal catclock/src/main.tal dexe/src/main.tal donsol/src/main.tal left/src/main.tal nasu/src/main.tal noodle/src/main.tal orca-toy/src/main.tal:orca.rom turye/src/main.tal; do
PROJECT="${F%%/*}" PROJECT="${F%%/*}"
if [ "${F}" = "${F%:*}" ]; then if [ "${F}" = "${F%:*}" ]; then
ROMNAME="${F##*/}" ROMNAME="${F##*/}"

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

@ -16,10 +16,10 @@
#f07f .System/r DEO2 #f07f .System/r DEO2
#f0e0 .System/g DEO2 #f0e0 .System/g DEO2
#f0c0 .System/b DEO2 #f0c0 .System/b DEO2
( gba screen size 00c0 x 00a0 ) ( gba screen size 00f0 x 00a0 )
( nds screen size 0100 x 00c0 ) ( nds screen size 0100 x 00c0 )
#0100 .Screen/width DEO2 #00f0 .Screen/width DEO2
#00c0 .Screen/height DEO2 #00a0 .Screen/height DEO2
( find screen center ) ( find screen center )
.Screen/width DEI2 #01 SFT2 .center/x STZ2 .Screen/width DEI2 #01 SFT2 .center/x STZ2
.Screen/height DEI2 #01 SFT2 .center/y STZ2 .Screen/height DEI2 #01 SFT2 .center/y STZ2
@ -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 #0040 ADD2 .Screen/x DEO2 .center/x LDZ2 #0028 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,7 +43,7 @@ BRK
@draw-sprites ( -- ) @draw-sprites ( -- )
.center/x LDZ2 #0060 SUB2 .Screen/x DEO2 .center/x LDZ2 #0068 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
@ -54,7 +54,7 @@ BRK
#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 #0060 SUB2 ADD2 .Screen/x DEO2 .center/x LDZ2 #0068 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 +71,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 #0020 SUB2 ADD2 ] [ .center/x LDZ2 #0018 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 +86,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 #0020 SUB2 ADD2 ] [ .center/x LDZ2 #0018 SUB2 ADD2 ]
STH2r STHr #80 ,draw-circle JSR STH2r STHr #80 ,draw-circle JSR
INC GTHk ,&loop JCN INC GTHk ,&loop JCN
POP2 POP2