diff --git a/projects/software/left.usm b/projects/software/left.usm index c11920d..9bf5065 100644 --- a/projects/software/left.usm +++ b/projects/software/left.usm @@ -713,4 +713,4 @@ RTN |FF60 ;File { pad 8 name 2 length 2 load 2 save 2 } |FFF0 .RESET .FRAME .ERROR ( vectors ) -|FFF8 [ 30ff e0f3 b0f3 ] ( palette ) +|FFF8 [ ed0f 3d0f 3d0f ] ( palette ) diff --git a/projects/software/noodle.usm b/projects/software/noodle.usm index 8075552..bb847a1 100644 --- a/projects/software/noodle.usm +++ b/projects/software/noodle.usm @@ -11,7 +11,6 @@ - Only draw-canvas when mouse has changed - Only draw-canvas target tile - Resize buttons - - Clear all button - Limit size - Draw point inbetween - Pixel cleanup brush @@ -161,10 +160,12 @@ BRK #00 NEQ ,draw-canvas ROT JSR2? ,$no-keys ~Keys #00 EQU JMP2? - ,$no-keys-toogle-zoom ~Keys #20 NEQ JMP2? - ~zoom.active #00 EQU =zoom.active - ,redraw JSR2 - $no-keys-toogle-zoom + ~Keys + DUP #20 NEQ ,$no-space ROT JMP2? + ( toggle zoom ) ~zoom.active #00 EQU =zoom.active ,redraw JSR2 $no-space + DUP #08 NEQ ,$no-backspace ROT JMP2? + ( erase ) ,clear JSR2 $no-backspace + POP ( release ) #00 =Keys $no-keys @@ -173,6 +174,19 @@ BRK BRK +@clear + + ( from ) ,data + ( to ) ~canvas.w ~canvas.h MUL2 #0008 MUL2 ,data ADD2 + $loop NOP + OVR2 #00 ROT ROT STR + ( incr ) SWP2 #0001 ADD2 SWP2 + OVR2 OVR2 LTH2 ^$loop SWP JMP? + POP2 POP2 + ,redraw JSR2 + +RTN + @load-file ( path ) =File.name ~canvas.w ~canvas.h MUL2 #0008 MUL2 =File.length ,data =File.load