Basic mouse hover support and sprite auto work more properly
This commit is contained in:
+30
-6
@@ -1,23 +1,47 @@
|
||||
|00 @System/vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|
||||
|20 @Screen/vector $2 &width $2 &height $2 &auto $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||||
|
||||
|100
|
||||
|0000
|
||||
@counter $2
|
||||
|
||||
|0100
|
||||
@on-reset ( -> )
|
||||
set-theme
|
||||
#0020 .Screen/x DEO2
|
||||
;on-screen .Screen/vector DEO2
|
||||
#0000 .counter STZ2
|
||||
( draw-sprite )
|
||||
BRK
|
||||
|
||||
@on-screen ( -> )
|
||||
clear-screen
|
||||
draw-sprite
|
||||
BRK
|
||||
|
||||
@draw-sprite ( -> )
|
||||
#0020 .counter LDZ2 ADD2 .Screen/x DEO2
|
||||
#0040 .Screen/y DEO2
|
||||
( ;sprite-icn .Screen/addr DEO2 )
|
||||
( #01 .Screen/sprite DEO )
|
||||
#00 .Screen/auto DEO
|
||||
|
||||
#21 .Screen/auto DEO
|
||||
;sprite2-icn .Screen/addr DEO2
|
||||
#c1 .Screen/sprite DEO
|
||||
BRK
|
||||
|
||||
.counter LDZ2 INC2 .counter STZ2
|
||||
JMP2r
|
||||
|
||||
@set-theme ( -- )
|
||||
#f07f .System/r DEO2
|
||||
#f0d6 .System/g DEO2
|
||||
#f0b2 .System/b DEO2
|
||||
JMP2r
|
||||
|
||||
|
||||
@clear-screen ( -- )
|
||||
#0000 .Screen/x DEO2
|
||||
#0000 .Screen/y DEO2
|
||||
#00 .Screen/auto DEO
|
||||
#80 .Screen/pixel DEO
|
||||
#c0 .Screen/pixel DEO
|
||||
JMP2r
|
||||
|
||||
@sprite-icn
|
||||
00 66 ff ff ff 7e 3c 18
|
||||
|
||||
Reference in New Issue
Block a user