Improved gradient sprite
This commit is contained in:
parent
0c7a4fd713
commit
dbaef55ef8
|
@ -73,7 +73,7 @@
|
||||||
@|drawing )
|
@|drawing )
|
||||||
|
|
||||||
@<redraw> ( -- )
|
@<redraw> ( -- )
|
||||||
( <draw-border> <draw-bar> ) JMP2r
|
<draw-bar> !<draw-border>
|
||||||
|
|
||||||
@<redraw-bar> ( -- )
|
@<redraw-bar> ( -- )
|
||||||
;fill-icn .Screen/addr DEO2
|
;fill-icn .Screen/addr DEO2
|
||||||
|
@ -102,17 +102,16 @@
|
||||||
POP2 POP2 POP2r JMP2r
|
POP2 POP2 POP2r JMP2r
|
||||||
|
|
||||||
@<draw-border> ( -- )
|
@<draw-border> ( -- )
|
||||||
#0000 DUP2 .Screen/x DEO2
|
|
||||||
.Screen/y DEO2
|
|
||||||
#82 .Screen/pixel DEO
|
|
||||||
;tick-icn .Screen/addr DEO2
|
;tick-icn .Screen/addr DEO2
|
||||||
#e1 .Screen/auto DEO
|
[ LIT2 f1 -Screen/auto ] DEO
|
||||||
#0028 .Screen/x DEO2
|
#0030 .Screen/x DEO2
|
||||||
#0008 .Screen/y DEO2
|
#0010 .Screen/y DEO2
|
||||||
#08 .Screen/sprite DEOk #f1 .Screen/auto DEO
|
[ LIT2r 05 -Screen/sprite ] DEOkr
|
||||||
#0028 .Screen/x DEO2
|
[ LIT2 d1 -Screen/auto ] DEO
|
||||||
#0080 .Screen/y DEO2
|
#0030 .Screen/x DEO2
|
||||||
DEO
|
#0090 .Screen/y DEO2
|
||||||
|
DEOr
|
||||||
|
JMP2r
|
||||||
( | labels )
|
( | labels )
|
||||||
#0030 .Screen/x DEO2
|
#0030 .Screen/x DEO2
|
||||||
#0004 .Screen/y DEO2
|
#0004 .Screen/y DEO2
|
||||||
|
@ -168,7 +167,7 @@
|
||||||
|
|
||||||
@arrow-icn [ 80c0 e0f0 f8fc f0c0 ]
|
@arrow-icn [ 80c0 e0f0 f8fc f0c0 ]
|
||||||
|
|
||||||
@tick-icn [ f000 0000 0000 0000 ]
|
@tick-icn [ 7e00 0000 7000 0000 ]
|
||||||
|
|
||||||
@blank-icn [ 0000 0000 0000 0000 ]
|
@blank-icn [ 0000 0000 0000 0000 ]
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue