improve cursor offsets
This commit is contained in:
parent
8db2f9d4ac
commit
e618a8010a
BIN
kodiak.rom
BIN
kodiak.rom
Binary file not shown.
|
@ -753,14 +753,14 @@
|
|||
|
||||
@clear-prev-mouse ( -> )
|
||||
;blank .Screen/addr DEO2
|
||||
.prev/mouse-x LDZ2 #0006 SUB2 .Screen/x DEO2
|
||||
.prev/mouse-y LDZ2 #0006 SUB2 .Screen/y DEO2
|
||||
.prev/mouse-x LDZ2 #0004 SUB2 .Screen/x DEO2
|
||||
.prev/mouse-y LDZ2 #0005 SUB2 .Screen/y DEO2
|
||||
[ LIT2 12 -Screen/auto ] DEO
|
||||
#41 .Screen/sprite DEOk DEO JMP2r
|
||||
|
||||
@draw-curr-mouse ( -> )
|
||||
.Mouse/x DEI2 DUP2 .prev/mouse-x STZ2 #0006 SUB2 .Screen/x DEO2
|
||||
.Mouse/y DEI2 DUP2 .prev/mouse-y STZ2 #0006 SUB2 .Screen/y DEO2
|
||||
.Mouse/x DEI2 DUP2 .prev/mouse-x STZ2 #0004 SUB2 .Screen/x DEO2
|
||||
.Mouse/y DEI2 DUP2 .prev/mouse-y STZ2 #0005 SUB2 .Screen/y DEO2
|
||||
.dragging LDZ ?&skip
|
||||
( | draw )
|
||||
[ LIT2 16 -Screen/auto ] DEO
|
||||
|
|
Loading…
Reference in New Issue