@@ 18,13 18,16 @@
|0000
-@state &timer $2
-@glyph $1
-@cursor &x $2 &y $2
-@src $40
-@pangrams-view &x $2 &y $2 &x2 $2 &y2 $2
-@editor-view &x $2 &y $2 &x2 $2 &y2 $2
-@collection-view &x $2 &y $2 &x2 $2 &y2 $2
+ @state &timer $2
+ @glyph $1
+ @cursor &x $2 &y $2
+ @src $40
+ @pangrams-view &x $2 &y $2 &x2 $2 &y2 $2
+ @editor-view &x $2 &y $2 &x2 $2 &y2 $2
+ @collection-view &x $2 &y $2 &x2 $2 &y2 $2
+
+(
+@|vectors )
|0100 ( -> )
@@ 229,7 232,8 @@ BRK
BRK
-( helpers )
+(
+@|helpers )
@get-width ( glyph -- width )
@@ 297,6 301,9 @@ JMP2r
@move-left ( -- ) .glyph LDZ #01 SUB ;select-glyph JSR2 JMP2r
@move-right ( -- ) .glyph LDZ INC ;select-glyph JSR2 JMP2r
+(
+@|drawing )
+
@redraw-all ( -- )
( dotted line )
@@ 397,6 404,10 @@ JMP2r
.editor-view/y2 LDZ2 #000f SUB2 .Screen/y DEO2
;width-icn .Screen/addr DEO2
#01 .Screen/sprite DEO
+ ( id )
+ .editor-view/x LDZ2 .Screen/x DEO2
+ .editor-view/y LDZ2 #0088 ADD2 .Screen/y DEO2
+ .glyph LDZ ;draw-byte JSR2
JMP2r
@@ 488,7 499,8 @@ JMP2r
JMP2r
-( etc )
+(
+@|etc )
@within-rect ( x* y* rect -- flag )
@@ 672,6 684,9 @@ JMP2r
@mcpy ( src* dst* len* -- ) SWP2 STH2 OVR2 ADD2 SWP2 &loop LDAk STH2kr STA INC2r INC2 GTH2k ,&loop JCN POP2 POP2 POP2r JMP2r
+(
+@|assets )
+
@untitled-txt "untitled.uf2 $1
@dict