2 files changed, 55 insertions(+), 1 deletions(-)

M README.md
M src/main.tal

@@ 7,7 7,7 @@
 You must have the [Uxn](https://git.sr.ht/~rabbits/uxn/) assembler and emulator.
 
 ```
-uxnasm nasu.tal nasu.rom && uxnemu nasu.rom
+uxnasm src/main.tal bin/nasu.rom && uxnemu bin/nasu.rom
 ```
 
 ## Controls

@@ 324,6 324,10 @@ BRK
 		;clamp-selection JSR2
 		;redraw JSR2 POP BRK
 		&no-expand
+	DUP [ LIT 'g ] ! ,&no-glyph-copy JCN
+		;copy-glyph-snarf JSR2
+		;redraw JSR2 POP BRK
+		&no-glyph-copy
 	DUP [ LIT 'c ] ! ,&no-copy JCN
 		;copy-snarf JSR2
 		;redraw JSR2 POP BRK


@@ 1436,6 1440,56 @@ RTN
 
 RTN
 
+@copy-glyph-snarf ( -- )
+
+	;snarf-txt .File/name DEO2
+	#0001 .File/length DEO2
+
+	#1000
+	&loop
+		#00 OVR STH2
+
+		#80
+		STH2kr #0000 ;get-pixel JSR2 #01 AND +
+		STH2kr #0001 ;get-pixel JSR2 #01 AND #10 SFT +
+		STH2kr #0002 ;get-pixel JSR2 #01 AND #20 SFT +
+		STH2kr #0003 ;get-pixel JSR2 #01 AND #30 SFT +
+		;&write STA
+		;&write .File/save DEO2
+
+		#90
+		STH2kr #0004 ;get-pixel JSR2 #01 AND +
+		STH2kr #0005 ;get-pixel JSR2 #01 AND #10 SFT +
+		STH2kr #0006 ;get-pixel JSR2 #01 AND #20 SFT +
+		STH2kr #0007 ;get-pixel JSR2 #01 AND #30 SFT +
+		;&write STA
+		;&write .File/save DEO2
+
+		#a0
+		STH2kr #0008 ;get-pixel JSR2 #01 AND +
+		STH2kr #0009 ;get-pixel JSR2 #01 AND #10 SFT +
+		STH2kr #000a ;get-pixel JSR2 #01 AND #20 SFT +
+		STH2kr #000b ;get-pixel JSR2 #01 AND #30 SFT +
+		;&write STA
+		;&write .File/save DEO2
+
+		#f0
+		STH2kr #000c ;get-pixel JSR2 #01 AND +
+		STH2kr #000d ;get-pixel JSR2 #01 AND #10 SFT +
+		STH2kr #000e ;get-pixel JSR2 #01 AND #20 SFT +
+		STH2kr #000f ;get-pixel JSR2 #01 AND #30 SFT +
+		;&write STA
+		;&write .File/save DEO2
+
+		POP2r
+
+		INC GTHk ;&loop JCN2
+	POP2
+
+
+RTN
+	&write $1
+
 @paste-snarf ( -- )
 
 	;snarf-txt .File/name DEO2