From ee8dc67b3f89874005437d3c4ad93299af3577a1 Mon Sep 17 00:00:00 2001 From: neauoire Date: Tue, 7 Dec 2021 21:07:33 -0800 Subject: [PATCH] Removed GLY implementatin --- src/main.tal | 54 ---------------------------------------------------- 1 file changed, 54 deletions(-) diff --git a/src/main.tal b/src/main.tal index 0a4ed99..f651f76 100644 --- a/src/main.tal +++ b/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