Improved gradient sprite

This commit is contained in:
Devine Lu Linvega 2024-07-24 11:41:26 -07:00
parent 0c7a4fd713
commit dbaef55ef8
1 changed files with 11 additions and 12 deletions

View File

@ -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 ]