@@ 45,7 45,7 @@
( name ) "Oekaki 0a
( desc ) "Drawing 20 "Program 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
- ( date ) "20 20 "Aug 20 "2023 $1
+ ( date ) "22 20 "Aug 20 "2023 $1
( exts ) 00
(
@@ 495,7 495,7 @@
,&filter STR2
;tga/w LDA2 ,&w STR2
( | paint )
- #01 .Screen/auto DEO
+ [ LIT2 01 -Screen/auto ] DEO
#0000 [ LIT2r 0000 ]
&stream ( -- )
;&pixel feof ?&end
@@ 550,7 550,7 @@
@<redraw-all> ( -- )
#0000 DUP2 .Screen/y DEO2
.Screen/x DEO2
- #83 .Screen/pixel DEO
+ [ LIT2 83 -Screen/pixel ] DEO
.canvas/x LDZ2 .canvas/y LDZ2
( >> )
@@ 674,8 674,8 @@
;patts-icns/spray .Screen/addr DEO2
#0002 .Screen/x DEO2
#007a .Screen/y DEO2
- #00 .Screen/auto DEO
- #06 .Screen/sprite DEO
+ [ LIT2 00 -Screen/auto ] DEO
+ [ LIT2 06 -Screen/sprite ] DEO
JMP2r
@<clear-guide> ( -- )
@@ 687,7 687,7 @@
@<clear-menu> ( -- )
#000c .Screen/x DEO2
#0000 .Screen/y DEO2
- #93 .Screen/pixel DEO
+ [ LIT2 93 -Screen/pixel ] DEO
.canvas/height LDZ2 #0000
&y ( -- )
#0000 OVR2 <redraw-tile>