Improved left

build.sh

@@ -28,7 +28,7 @@ else
 fi
 
 echo "Assembling.."
-./bin/assembler projects/software/noodle.usm bin/boot.rom
+./bin/assembler projects/software/left.usm bin/boot.rom
 
 echo "Running.."
 if [ "${2}" = '--cli' ]; 

projects/software/left.usm

@@ -2,6 +2,7 @@
 	app/left : text editor
 
 	TODO
+		- Rename icon in titlebar
 		- Save/Load
 		- Double-click select word
 		- Right-click find next instance of selection
@@ -544,13 +545,6 @@ RTN
 
 		~Sprite.y ~Screen.height #0010 SUB2 GTH2 ,$end JNZ2
 
-		( get character )
-		,font #00 ~i PEK2 #20 SUB 8* ADD2 =Sprite.addr
-
-		( draw ) #01 
-		~i ~selection.from -- GTH2 
-		~i ~selection.to LTH2 #0101 EQU2
-		#05 MUL ADD ~i ~selection.from EQU2 ADD =Sprite.color
 
 		~i PEK2 #0a NEQ ~i PEK2 #0d NEQ #0101 EQU2 ,$no-linebreak JNZ2
 			( draw linebreak )
@@ -567,20 +561,30 @@ RTN
 				~Sprite.x ~Screen.width 8- LTH2 ^$fill-clear JNZ
 
 			( draw line number )
-
 			#0000 =Sprite.x
 			~scroll.y ~Sprite.y 8/ ADD2 DUP2 SWP POP =k 
-			~position.y EQU2 #0c MUL =l
+			~position.y EQU2 #03 MUL =l
 			,font_hex #00 ~k #f0 AND #04 SFT #08 MUL ADD2 =Sprite.addr
-			#02 ~l ADD =Sprite.color
+			#06 ~l ADD =Sprite.color
 			#0008 =Sprite.x
 			,font_hex #00 ~k #0f AND #08 MUL ADD2 =Sprite.addr
-			#02 ~l ADD =Sprite.color
+			#06 ~l ADD =Sprite.color
 
 			#0010 =Sprite.x
 			( incr ) ~Sprite.y 8+ =Sprite.y
 		$no-linebreak
 
+
+		( get character )
+		,font #00 ~i PEK2 #20 SUB 8* ADD2 =Sprite.addr
+		( is a special character )
+		~i PEK2 #20 GTH ^$no-tab JNZ ,font =Sprite.addr $no-tab
+
+		( draw ) #01 
+		~i ~selection.from -- GTH2 
+		~i ~selection.to LTH2 #0101 EQU2
+		#05 MUL ADD =Sprite.color
+
 		( incr ) ~i ++ =i
 		( incr ) ~Sprite.x #0007 ADD2 =Sprite.x
 

projects/software/noodle.usm

@@ -10,7 +10,6 @@
 
 	TODO
 		- Pixel cleanup brush
-		- Hide panes > presentation mode
 		- Don't zoom move beyond image width
 )