Display mirrored sprites in boundary example
This commit is contained in:
parent
67faef3e56
commit
7827570aec
|
@ -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
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue