1 files changed, 0 insertions(+), 54 deletions(-)

M src/main.tal

@@ 324,10 324,6 @@ 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


@@ 1440,56 1436,6 @@ 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