Dariaceli's Git
Browse code

(screen.tal) Centered

neauoire authored on 15/03/2022 16:57:33
Showing 2 changed files
.build.yml
History View file @ 5057dd1
... ... 
@@ -30,7 +30,7 @@ tasks:
30 30 
         cp bin/asma.rom ../out/
31 31 
         mv bin ../build/uxn-lin64/uxn
32 32 
     - build-essentials: |
33 
-        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
33 
+        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
34 34 
             PROJECT="${F%%/*}"
35 35 
             if [ "${F}" = "${F%:*}" ]; then
36 36 
                 ROMNAME="${F##*/}"
projects/examples/devices/screen.tal
History View file @ 5057dd1
... ... 
@@ -16,10 +16,10 @@
16 16 
 	#f07f .System/r DEO2
17 17 
 	#f0e0 .System/g DEO2
18 18 
 	#f0c0 .System/b DEO2
19 
-	( gba screen size 00c0 x 00a0 )
19 
+	( gba screen size 00f0 x 00a0 )
20 20 
 	( nds screen size 0100 x 00c0 )
21 
-	#0100 .Screen/width DEO2
22 
-	#00c0 .Screen/height DEO2
21 
+	#00f0 .Screen/width DEO2
22 
+	#00a0 .Screen/height DEO2
23 23 
 	( find screen center )
24 24 
 	.Screen/width DEI2 #01 SFT2 .center/x STZ2
25 25 
 	.Screen/height DEI2 #01 SFT2 .center/y STZ2
... ... 
@@ -35,7 +35,7 @@ BRK
35 35
36 36 
 	#01 .Screen/auto DEO
37 37 
 	.count LDZ2 INC2 [ DUP2 ] .count STZ2
38 
-	.center/x LDZ2 #0040 ADD2 .Screen/x DEO2
38 
+	.center/x LDZ2 #0028 ADD2 .Screen/x DEO2
39 39 
 	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
40 40 
 	;draw-short JSR2
41 41
... ... 
@@ -43,7 +43,7 @@ BRK
43 43
44 44 
 @draw-sprites ( -- )
45 45
46 
-	.center/x LDZ2 #0060 SUB2 .Screen/x DEO2
46 
+	.center/x LDZ2 #0068 SUB2 .Screen/x DEO2
47 47 
 	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
48 48 
 	;font-hex .Screen/addr DEO2
49 49 
 	#f6 .Screen/auto DEO
... ... 
@@ -54,7 +54,7 @@ BRK
54 54 
 	#00 #00
55 55 
 	&loop
56 56 
 		( move ) DUP #0f AND #40 SFT #01 SFT #00 SWP
57 
-			.center/x LDZ2 #0060 SUB2 ADD2 .Screen/x DEO2
57 
+			.center/x LDZ2 #0068 SUB2 ADD2 .Screen/x DEO2
58 58 
 		( move ) DUP #f0 AND #01 SFT #00 SWP
59 59 
 			.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2
60 60 
 		( draw ) DUP .Screen/sprite DEO
... ... 
@@ -71,7 +71,7 @@ JMP2r
71 71 
 		( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
72 72 
 			[ .center/y LDZ2 #0038 SUB2 ADD2 ] STH2
73 73 
 		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
74 
-			[ .center/x LDZ2 #0020 SUB2 ADD2 ]
74 
+			[ .center/x LDZ2 #0018 SUB2 ADD2 ]
75 75 
 		STH2r STHr #00 ,draw-circle JSR
76 76 
 		INC GTHk ,&loop JCN
77 77 
 	POP2
... ... 
@@ -86,7 +86,7 @@ JMP2r
86 86 
 		( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
87 87 
 			[ .center/y LDZ2 #0008 ADD2 ADD2 ] STH2
88 88 
 		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
89 
-			[ .center/x LDZ2 #0020 SUB2 ADD2 ]
89 
+			[ .center/x LDZ2 #0018 SUB2 ADD2 ]
90 90 
 		STH2r STHr #80 ,draw-circle JSR
91 91 
 		INC GTHk ,&loop JCN
92 92 
 	POP2