(m291) Fixed redraw artifacts
This commit is contained in:
parent
f34b972602
commit
ff922f79f2
|
@ -466,16 +466,28 @@
|
|||
<draw-progress> !<draw-timestamp>
|
||||
|
||||
@<draw-title> ( -- )
|
||||
( | clear )
|
||||
#0020 .Screen/y DEO2
|
||||
<clear-line>
|
||||
( | draw )
|
||||
#0080 .Screen/x DEO2
|
||||
#0020 .Screen/y DEO2
|
||||
;id3/title #01 !<draw-uf2-center>
|
||||
|
||||
@<draw-artist> ( -- )
|
||||
( | clear )
|
||||
#0030 .Screen/y DEO2
|
||||
<clear-line>
|
||||
( | draw )
|
||||
#0080 .Screen/x DEO2
|
||||
#0030 .Screen/y DEO2
|
||||
;id3/artist #01 !<draw-uf2-center>
|
||||
|
||||
@<draw-album> ( -- )
|
||||
( | clear )
|
||||
#0040 .Screen/y DEO2
|
||||
<clear-line>
|
||||
( | draw )
|
||||
#0080 .Screen/x DEO2
|
||||
#0040 .Screen/y DEO2
|
||||
;id3/album #01 !<draw-uf2-center>
|
||||
|
@ -577,6 +589,15 @@
|
|||
@<draw-dec> ( value -- )
|
||||
#0a DIVk MUL SUB [ LIT "0 ] ADD !<draw-glyph>
|
||||
|
||||
@<clear-line> ( -- )
|
||||
#0000 .Screen/x DEO2
|
||||
;fill-icn .Screen/addr DEO2
|
||||
[ LIT2 f2 -Screen/auto ] DEO
|
||||
[ LIT2 00 -Screen/sprite ] DEOk DEOk #0080 .Screen/x DEO2
|
||||
.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
|
||||
DEOk DEO
|
||||
JMP2r
|
||||
|
||||
@<draw-spacer> ( addr* -- )
|
||||
#0000 .Screen/x DEO2
|
||||
.Screen/addr DEO2
|
||||
|
|
Loading…
Reference in New Issue