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

View File

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

View File

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