From cf02d57e22ef8d3f9d21ad3f57209c6498d98070 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Tue, 7 Dec 2021 21:06:09 -0800
Subject: [PATCH] Updated README

---
 README.md    |  2 +-
 src/main.tal | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 5feead4..0ca4d0f 100644
--- a/README.md
+++ b/README.md
@@ -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
diff --git a/src/main.tal b/src/main.tal
index f651f76..0a4ed99 100644
--- a/src/main.tal
+++ b/src/main.tal
@@ -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