commit 7827570

neauoire  ·  2023-11-12 18:45:42 +0000 UTC
parent 67faef3 
Display mirrored sprites in boundary example
2 files changed,  +20, -8
M etc/screen.bounds.tal
M src/devices/screen.c
M etc/screen.bounds.tal
+20, -7 
 1@@ -17,18 +17,31 @@
 2 	.Screen/y DEO2
 3 	#80 .Screen/pixel DEO
 4 	( | cursor )
 5-	#00 ;cursor-icn <update-cursor>
 6+	#41 ;cursor-icn <update-cursor>
 7 	( | draw portrait )
 8-	.Screen/x DEI2k #000c SUB2 ROT DEO2
 9-	.Screen/y DEI2k #000c SUB2 ROT DEO2
10+	.Screen/x DEI2k #0008 ADD2 ROT DEO2
11+	.Screen/y DEI2k #0020 SUB2 ROT DEO2
12 	[ LIT2 36 -Screen/auto ] DEO
13-	;portrait-chr .Screen/addr DEO2
14-	#81 .Screen/sprite DEOk DEOk DEOk DEO
15-	<draw-box>
16+	#81 <draw-portrait>
17+	.Screen/x DEI2k #0010 SUB2 ROT DEO2
18+	.Screen/y DEI2k #0020 SUB2 ROT DEO2
19+	#91 <draw-portrait>
20+	.Screen/x DEI2k #0000 SUB2 ROT DEO2
21+	.Screen/y DEI2k #0020 ADD2 ROT DEO2
22+	#b1 <draw-portrait>
23+	.Screen/x DEI2k #0010 ADD2 ROT DEO2
24+	.Screen/y DEI2k #0020 ADD2 ROT DEO2
25+	#a1 <draw-portrait>
26+	( <draw-box>
27 	.Screen/y DEI2k #0060 SUB2 ROT DEO2
28-	<draw-box>
29+	<draw-box> )
30 	BRK
31 
32+@<draw-portrait> ( color -- )
33+	;portrait-chr .Screen/addr DEO2
34+	.Screen/sprite DEOk DEOk DEOk DEO
35+	JMP2r
36+
37 @<draw-box> ( -- )
38 	;box-icn .Screen/addr DEO2
39 	#05 .Screen/sprite DEOk DEOk DEOk DEO
M src/devices/screen.c
+0, -1 
1@@ -279,7 +279,6 @@ screen_deo(Uint8 *ram, Uint8 *d, Uint8 port)
2 				addr += addr_incr;
3 			}
4 		}
5-
6 		screen_change(x, y, x + dyx * length + 8, y + dxy * length + 8);
7 		if(move & 0x1) {
8 			x = x + dx * fx;