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

Display mirrored sprites in boundary example

This commit is contained in:
neauoire 2023-11-12 10:45:42 -08:00
parent 67faef3e56
commit 7827570aec
2 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
etc/screen.bounds.tal
View File

@ -17,18 +17,31 @@
.Screen/y DEO2 .Screen/y DEO2
#80 .Screen/pixel DEO #80 .Screen/pixel DEO
( | cursor ) ( | cursor )
#00 ;cursor-icn <update-cursor> #41 ;cursor-icn <update-cursor>
( | draw portrait ) ( | draw portrait )
.Screen/x DEI2k #000c SUB2 ROT DEO2 .Screen/x DEI2k #0008 ADD2 ROT DEO2
.Screen/y DEI2k #000c SUB2 ROT DEO2 .Screen/y DEI2k #0020 SUB2 ROT DEO2
[ LIT2 36 -Screen/auto ] DEO [ LIT2 36 -Screen/auto ] DEO
;portrait-chr .Screen/addr DEO2 #81 <draw-portrait>
#81 .Screen/sprite DEOk DEOk DEOk DEO .Screen/x DEI2k #0010 SUB2 ROT DEO2
<draw-box> .Screen/y DEI2k #0020 SUB2 ROT DEO2
#91 <draw-portrait>
.Screen/x DEI2k #0000 SUB2 ROT DEO2
.Screen/y DEI2k #0020 ADD2 ROT DEO2
#b1 <draw-portrait>
.Screen/x DEI2k #0010 ADD2 ROT DEO2
.Screen/y DEI2k #0020 ADD2 ROT DEO2
#a1 <draw-portrait>
( <draw-box>
.Screen/y DEI2k #0060 SUB2 ROT DEO2 .Screen/y DEI2k #0060 SUB2 ROT DEO2
<draw-box> <draw-box> )
BRK BRK
@<draw-portrait> ( color -- )
;portrait-chr .Screen/addr DEO2
.Screen/sprite DEOk DEOk DEOk DEO
JMP2r
@<draw-box> ( -- ) @<draw-box> ( -- )
;box-icn .Screen/addr DEO2 ;box-icn .Screen/addr DEO2
#05 .Screen/sprite DEOk DEOk DEOk DEO #05 .Screen/sprite DEOk DEOk DEOk DEO

1
src/devices/screen.c
View File

@ -279,7 +279,6 @@ screen_deo(Uint8 *ram, Uint8 *d, Uint8 port)
addr += addr_incr; addr += addr_incr;
} }
} }
screen_change(x, y, x + dyx * length + 8, y + dxy * length + 8); screen_change(x, y, x + dyx * length + 8, y + dxy * length + 8);
if(move & 0x1) { if(move & 0x1) {
x = x + dx * fx; x = x + dx * fx;