From e44c81cd9a47e804c15b7bd6845fdab7be2f427b Mon Sep 17 00:00:00 2001
From: Charles Childers <crc@forthworks.com>
Date: Sat, 6 Jul 2024 12:23:47 -0400
Subject: [PATCH] remove old drawing blocks

---
 drawing.blocks       | Bin 65536 -> 0 bytes
 exported/drawing.txt | 272 -------------------------------------------
 2 files changed, 272 deletions(-)
 delete mode 100644 drawing.blocks
 delete mode 100644 exported/drawing.txt

diff --git a/drawing.blocks b/drawing.blocks
deleted file mode 100644
index a9e710007f9aae30b719f7202aa2ffe6b5ed35c1..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 65536
zcmeI4-H#kc6~+Ch+|eS)f{DR#5a0*eagc(96v>H15b!W@l652ui4(}~Oa6AwPxO&0
zm9FlYou1w9nfq|m)%DeN?>+T(t7g7@@ZiBeg?|en{Gxwe>G?+33SSAYgfE4c!Z$()
zp9|N*w|)3udXh#y>hpUjoLHs~u$ArqNMY=bt%$ds;Q+P_q0G<wcYPcjfFmJL?mq&&
z0dN5>ktc*N1jq4i&b(Hb{Imydg+QFS#1sDU9qQwqbmyJo?Ayv4i67|TW9h?v+xEr=
z*6)86#^#?1=-GL;3Wu<(eIEAtKh=}^-~wf-hwp{JH_SWpfb<(7ggLlIJtfRrbLcIl
z6URF`ppCQ%{?nFAAq4bdJ`#^ya31dRPFdP*&RNg?4$oc3PVD3Mxcr!nLiuR}Pjp5*
zX%G613Uyy34|yqXeIvWa1-^?uXgh5|UN~X<QjYxomi1BUG?Y%8O5O8K;;9RHsfTaz
z4dSfFP&hH44&WuWK&RM>FuKQnzZW8L7CQKOZ)fIL`XW#4KQ$hN@+49R$${iRav(X7
z97ql%2a*HHf#g7PAUTj6NDd?ik^{+s<Un#@c^u%pYagGl&%Y?=bFuPlhw~)P52%x~
zn_mi~bFM&`be}JAwniSGoskBJBagoo3MY=E1AP2LXL{%x8*|RbIVSeRezwVl!teA5
zJ>i1Sk)A3{+!}!VoNdB6c#4d>=!1Odq}In1#f7j|ebDxE0`_Mdg1emGbJh$OLV*9+
z*?oX<s<!vLiVGp_eO|o5=84onav(X797ql%2a*G8<iH{Of7Z&Zds#oTXX5@KYiHKX
zgh}HrC~@TV+Bp<XEJFwE<A2@T<7aw47uXB=E~xM2a^HC?@Q!`4Yn%Ys|9Q{n{XhHq
zAsx_HkQ@2U<&DBEovq0a5|ZN_f&E_z^>~FYu($XA+=VagPWma~Z@oO+_w{dgke6|N
zD=?OOEa((&alYj{`>D#%chI-z1^QVCe3LlJhVYO6Nq;2%wct4<6!x8D`Y2^u?acl+
z%~9;Z*gnO7`bhHs|N88ti+%au;(l^{nxi3o9}DoG@ucSe-}`Tta{zfxwGZ6q`0w8Y
zcD>HCPaKc$(d*dH7XKgh`I7(huYVYCSkHL<GqyHz-|+9V=I$HVmv*qW<7qzd&bqJu
z4d|ufLZBRZEC*{fr-j0ab?AUS|0lh@$~`{zBkivvX&;QF{iTr>eSAKb!4LX--H)+N
zIqtvGd%geND9$z}Y%UNsX9$~Hq41K?seNuMVaq_+a-xTNofwKUI)z(xSU=teY?YUJ
z0EEy9yMBlKbE8w8Q*CeU6Wx}&4$CtpbE#+RXzDxu-W<>L5zNn}IqZ^kq+OB&$${iR
zav(WyJPy3|;P(4}`~{rP*muC%*yl9q3pk$5LVBJH-v2-E>umV|#?rlSXqBa{b=q9*
z&w38y0{ef?QR&P0@Yt8KUn3j><HNN;`a|KS2ovwPwfFapWbs~<usQ8`^WSNH59K`t
zbdm#^EtlUzaZ~&EvW#^&R)+jT_iI{r2WZ2w(dipg@^ep!yAk;0L+AwLJs0`6lC}0(
zP02r`vvacln&sc6FW2_>xOocwzm|W<mggk@F8#l@|B%ks(*NhM{~YqCkNWuYe`szy
zN96whJne3--`D=1@4nynx!N~C+KWb7^zr$ehqvtiUkXEhJap{+|Bb@<`A+rz<3_TX
zbA-!v9q;AdF!X*Q{7N9~bi$w$T$k@vlE>=_-{C6L+!vh29uu3y9ih{AN*Q@Cb>Q?+
zJYmZ+<~t(qT3}mn7td>0#wGd(c3?k4KZz4ZC;7}p@8MX(;t!<%qYL!FJO2I~!N0$N
z3*;pa={(UPX99l^Vg)F9V2+yy_&$8!5m`FHTp{fIrQT|Pk;et+d98BfL6;#gt~~C;
ztvsF5Ya4A9NBcks8^L)zrVu{`%U`ymQ@N>jlgGN4yWQ~Zl>ooYG3*dWK&Lv-aU4W$
z^Vd2E#a#*XW%T{E;C^gQeWy5VLtlr(w#!q6Bau2t4lJ4jhwT69@AP}dd;0yQ5Q$ak
z!25sOZD=p<d4W7b>8vw6_qWnr$58r56Xi)CE6>{GL*Zi~g!&uAwSfFCN1nPY>3p9w
zFqHnRPiv+BaU%V_k#y=jCTxHI2gHzk=zc66+k4I0D&I;!rfgaFG<VqFelM_ZV+?1l
z=imQ_!lnP`q28~B8{yRaKpV*f&&^ZbOI|zO{lMvd59ROrGLCZ|(m*GaeaUr_cHijK
zhEiU?TNdx>;7Pfsb^KQGp9-XhfNbTwKpg0VQqO)r^gGlU2Y_}QB0qAo7P=D9NeJlR
zBY}Ej;po)9L+mmp|Dm?I3*8|<e05v>Zrfp3#zyad$9P|_M?&S6j!tc?+ihPEX=PuA
z*IqL@&3ZHELwW2YsOu^7*7aE5L-icf4}=_U3%)OpNATMI4gQ-P4lwuG*WtKO9BqCk
z5H>o69Y>h)AO!P=`pfZjqxW*XNZz|Zr|(#P!c*-$L`Uzb{t(hfbT_s|*Dd7!zpa~=
z&Q2+w^?&WhK|Zhh83$SS-v|z0E6h6C@r2jD9~j#Mb&}8X5@F9@gr5tXNuWcXZ-fx;
z^DZ;r-xr<Ac+B^Fy>A_-kRLsG{`DM<Eq(698lN=)PkbHhnY|{o-a5s3jvHD7JyUuJ
zP8(a-bjnw^XREl+dW4=E!FhN;1f9yeu6^aFY`umo`$VZ9xaNLjJvg1Uh3{54ZAwS3
z%WWRgk@JM=Z=qA#obuBibO2|f4||NTyq)6FhsPMp?DX5{!*z}6!+ApAHadkJPuMym
z{9HhmwU2cn8ERPP?%SNpe=dB}=Y85gBcDIgUFzh=d`g|9PLc!3fu(ccko`Y%C2JYh
z!drp027Xf32h5$9LL?Tg1NQ$@cEpDJ`UCI{Tnq0Agm3!rQvC#+gTrCYu-I#`zk<W~
zcS9IUugj62enENfe_Wr}{`3+04Sj}uanBf&kG74aTTj*-`A=DX%Zr>X+(!P~W3=_z
z(sRbA&XNPkf#g7PAUTj6NDl1Bfua3B`$6ucu!bd^`}zHJ8q(QXz`oAsJ*~Uj$TF11
zc~C2j`(mxM7mYOXC+=1U_W$stzi$Qn5}bS4FL9x;&to?V+wP~ZUoGWloWozkZyJ#u
zeT0Dgz7Ke6@+03lqqe_&JIs6N#b@wC{|jKB-pf9(&yeAW$G@fbky3v6PT#*0UJ1MC
zz&^~i>Y$Xr{M}1wci(|v4kZ66*gYf%DCI{kkAL{3Ngvb0+HH?~rTkmHoAW;J;M}4-
zv!HLA4}`sTT6#YZwRH%k{G4_8yn;CpeK01#ixAKWyeRcyesqerE(lvkguPy9-H9ZR
z$4kZ$zRO$;Lh!hXZQxwq%^9{Oy4n{PD#IDwW5H`Y;&^{j#G!k*f^FPK9M@VmIlVQn
zgz8G%uMTqmf4};_Z~m9#e?9**&bRum$9>kt9_zh6s@DZWYv($T$M}uv^IUKjbLy1*
zjBR6kg4@WBo~e_$E`<A%oo|=&d;N>u_m#VrX~^bvp8J#=*+EPG+wi`YZ%7AA;l1TQ
z_b2|(7Xs^E)+^ioiJgdJz3V&R*cZOgZ{Y`h*!c;Ez}o4zeVBaI!Fm;tHx>%Gy6<|e
zC0|(=IztESC%kuP^{v~~7pk{JtBx|yP<X1%L*rrVTV-8C<%Ygb+%EM^jnS<-THkbh
z*=B#kX{~4LTSIk?ttDK4t3Ida^M_oYLm%b*N58DcL62*5d~3;dz**)2+Spphc1m-e
z3xz$-qoc2d`gefj@t%64u*-Vg!yNO45Q4v7>wjn->XhGgZ576b)I&QM!|6x(Z=(;B
zhj9pma2M-pzLQwK4p{%-1NgJ>q3}$2Unti(@X6x@bHf_}o_TJ&R5%i=)Pe1fjj`*l
zwq`BIcmr7Dd5s(jCsGH=f#g7PAUTj6NDd?ik^{+s<Un#@c^qKxkB^DHJiez#!nKfl
z`sLXwWS6;dp*kN6_EY*?pLoaBVeSi&R;Jf+e^Pn~l;!TU^Wrzam&AD(z9jo39giP@
zcz%Z;0_pJ6{s!Vo|0(hKAMiuKTl*t8Z@@=IS-wU5kdI<a{@<t!a{W#S;gt1&eCG&k
zT65Q&c%n4(mN@g+aW54Izw9@&KQt7VNF5{xk^{+s<Un#DIglJk4lI!ax&J?JUJmVl
zxD)V+0AINawH4Uou%~9f9fJ2r?1j7^qFi|&zE$qss>}<$htT>KX~%-^wb(y^&)`_!
zT4KHS_pp~m7gqwhupY3p?Ti1!X>fru_zdkkgd?$1bZWObPuM&rY<?o|sqXjjq2YJ?
zN(kX60`d~Z=0o=zxwB}U`Oc($aV}f>>U`IcI+una`P~Qhk>9?`Q;^?xNXO)NKRHGF
zd#>9@{!_C5+kHQ6$<KIC8uJ2uWh)TpeiI6>x&M1CY{~CC+sJADpOXD=Bp0&nBmbJm
zf4Iwf#&*9@7@vO#yRLmY<@KCM*yAJNUDgrqFU*y+#eEEZVF%u0M&xe+=GEt%wz-SC
zcD?&gzlM8^@%)z0;~e{iOCb`g)B$^TIKX-p`|@NTxQo46A2B8Y@-s$8B6W})NDd?i
Xk^{+s<Un#DIglJk4kQN_$$|d?BXOPf

diff --git a/exported/drawing.txt b/exported/drawing.txt
deleted file mode 100644
index b58ea77..0000000
--- a/exported/drawing.txt
+++ /dev/null
@@ -1,272 +0,0 @@
- 0 ilo + graphics extensions                                       
- 1                                                                 
- 2 ilo/g is an ilo with support for simple monochrome graphics.    
- 3                                                                 
- 4 This provides a monochrome, bitmap display with support for     
- 5 the (termina) vocabulary. The extensions here provide a word    
- 6 for drawing pixels, and later other shapes.                     
- 7                                                                 
- 8 To load:                                                        
- 9                                                                 
-10   * crc:drawing                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0                                                                 
- 1                                                                 
- 2                                                                 
- 3                                                                 
- 4                                                                 
- 5                                                                 
- 6                                                                 
- 7                                                                 
- 8                                                                 
- 9                                                                 
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (crc:drawing) (interface-to-framebuffer)                        
- 1                                                                 
- 2 :pixel (xyc-) #33 io ;                                          
- 3 :get-pixel (xy-c) #34 io ;                                      
- 4                                                                 
- 5 :mouse (-xyb) #35 io ;                                          
- 6                                                                 
- 7                                                                 
- 8                                                                 
- 9                                                                 
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (crc:drawing) (simple-lines)                                    
- 1                                                                 
- 2 #1 'Color var-n                                                 
- 3 :set-color (n-) !Color ;                                        
- 4                                                                 
- 5 :hline (xyw-)                                                   
- 6   [ dup-pair @Color pixel &n:inc dip ] times drop-pair ;        
- 7                                                                 
- 8 :vline (xyh-)                                                   
- 9   [ dup-pair @Color pixel n:inc ] times drop-pair ;             
-10                                                                 
-11 :dline\ (xyl-)                                                  
-12   [ dup-pair @Color pixel &n:inc bi@ ] times drop-pair ;        
-13                                                                 
-14 :dline/ (xyl-)                                                  
-15   [ dup-pair @Color pixel &n:dec &n:inc bi* ] times drop-pair ; 
-save next new
- 0 (crc:drawing) (rect)                                            
- 1                                                                 
- 2 'X var 'Y var 'H var 'W var                                     
- 3                                                                 
- 4 :rect (xyhw-) !W !H !Y !X                                       
- 5   @X @Y @W hline   @X @Y @H n:add @W hline                      
- 6   @X @Y @H vline   @X @W n:add @Y @H vline                      
- 7 ;                                                               
- 8                                                                 
- 9                                                                 
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (crc:drawing) (circles)                                         
- 1                                                                 
- 2 'XC var 'YC var 'X var 'Y var                                   
- 3                                                                 
- 4 :octant (xc,yc,x,y)                                             
- 5   !Y !X !YC !XC                                                 
- 6   @XC @X n:add @YC @Y n:add @Color pixel                        
- 7   @XC @X n:sub @YC @Y n:add @Color pixel                        
- 8   @XC @X n:add @YC @Y n:sub @Color pixel                        
- 9   @XC @X n:sub @YC @Y n:sub @Color pixel                        
-10   @XC @Y n:add @YC @X n:add @Color pixel                        
-11   @XC @Y n:sub @YC @X n:add @Color pixel                        
-12   @XC @Y n:add @YC @X n:sub @Color pixel                        
-13   @XC @Y n:sub @YC @X n:sub @Color pixel ;                      
-14                                                                 
-15                                                                 
-save next new
- 0 (crc:drawing) (circles)                                         
- 1                                                                 
- 2 'XC var 'YC var 'X var 'Y var 'D var 'R var                     
- 3                                                                 
- 4 :circle (xyr-)                                                  
- 5   !R !YC !XC  #0 !X  @R [ !Y ] [ !D ] bi                        
- 6   @XC @YC @X @Y octant                                          
- 7   [ &X v:inc                                                    
- 8     @D n:strictly-positive?                                     
- 9     [ &Y v:dec @X @Y n:sub @R n:mul #2 n:mul @D n:add !D ]      
-10     [ #2 @R n:mul @X n:mul @D n:add !D ] choose                 
-11     @XC @YC @X @Y octant                                        
-12   @Y @X gteq? ] while ;                                         
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (crc:drawing) (line)                                            
- 1                                                                 
- 2 'X  var 'Y  var 'DX var 'DY var 'SX var 'SY var 'ROT var        
- 3 'T  var 'S  var 'A  var 'E  var 'B  var                         
- 4 'X1 var 'Y1 var 'X2 var 'Y2 var                                 
- 5                                                                 
- 6 :~setup (xy,xy-)                                                
- 7   !Y2 !X2 !Y1 !X1  @X1 !X  @Y1 !Y                               
- 8   @X2 @X1 n:sub n:abs !DX   @Y2 @Y1 n:sub n:abs !DY             
- 9   @X2 @X1 n:sub n:sign !SX                                      
-10   @Y2 @Y1 n:sub n:sign !SY                                      
-11   @DY @DX gt? n:abs !ROT                                        
-12   @ROT [ @DX !T @DY !S ] [ @DY !T @DX !S ] choose               
-13   @T #1 shift-left !A   @A @S n:sub !E                          
-14   @T @S n:sub #1 shift-left !B ;                                
-15                                                                 
-save next new
- 0 (crc:drawing) (line)                                            
- 1                                                                 
- 2 :line (x1,y1,x2,y2-)                                            
- 3   ~setup @X @Y @Color pixel                                     
- 4   @S [                                                          
- 5     @E n:positive? [ @B ] [ @A ] choose @E n:add !E             
- 6     @E n:positive? @ROT or [ @SY ] [ #0 ] choose @Y n:add !Y    
- 7     @E n:positive? @ROT not or [ @SX ] [ #0 ] choose @X n:add !X
- 8     @X @Y @Color pixel                                          
- 9   ] times ;                                                     
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (crc:drawing) (triangle)                                        
- 1                                                                 
- 2 :triangle (x1,y1,x2,y2,x3,y3-)                                  
- 3   'abcdef 'abcdefabcd reorder line                              
- 4   'abcdef 'abcdefefcd reorder line                              
- 5   'abcdef 'abef       reorder line ;                            
- 6                                                                 
- 7                                                                 
- 8                                                                 
- 9                                                                 
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (crc:turtle)                                                    
- 1                                                                 
- 2 'X var 'Y var 'C var 'D var 'R var                              
- 3                                                                 
- 4 :t:raise #0 !C ;                                                
- 5 :t:lower #1 !C ;                                                
- 6                                                                 
- 7 :t:left [ &X v:dec ] !D ;                                       
- 8 :t:right [ &X v:inc ] !D ;                                      
- 9 :t:up [ &Y v:dec ] !D ;                                         
-10 :t:down [ &Y v:inc ] !D ;                                       
-11 :t:at (xy-) !Y !X ;                                             
-12 :t:forward (n-) [ @X @Y @C pixel @D call ] times ;              
-13                                                                 
-14 #320 #240 t:at t:lower t:right                                  
-15                                                                 
-save next new
- 0 (crc:turtle)                                                    
- 1                                                                 
- 2 :t:down-right [ &Y v:inc &X v:inc ] !D ;                        
- 3 :t:down-left [ &Y v:inc &X v:dec ] !D ;                         
- 4 :t:up-left [ &Y v:dec &X v:dec ] !D ;                           
- 5 :t:up-right [ &Y v:dec &X v:inc ] !D ;                          
- 6                                                                 
- 7 'Rotations d:create #8 comma                                    
- 8   &t:right     comma &t:down-right comma &t:down    comma       
- 9   &t:down-left comma &t:left       comma &t:up-left comma       
-10   &t:up        comma &t:up-right   comma                        
-11                                                                 
-12 :t:rotate                                                       
-13   &R v:inc @R #8 eq? [ #0 !R ] if &Rotations @R a:fetch call ;  
-14                                                                 
-15                                                                 
-save next new
- 0 '(LOAD:crc:turtle)                                              
- 1                                                                 
- 2 '(crc:turtle) needs                                             
- 3                                                                 
- 4                                                                 
- 5                                                                 
- 6                                                                 
- 7                                                                 
- 8                                                                 
- 9                                                                 
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (ilo/x)                                                         
- 1                                                                 
- 2 #20 [ #0 #0 #300 #300 I #10 n:mul n:sub line ] indexed-times    
- 3 #20 [ #639 #0 #300 #300 I #10 n:mul n:sub line ] indexed-times  
- 4                                                                 
- 5 #300 #240 #100 circle                                           
- 6                                                                 
- 7                                                                 
- 8                                                                 
- 9                                                                 
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new
- 0 (ilo/x)                                                         
- 1                                                                 
- 2 #300 'X var-n #200 'Y var-n #50 'R var-n                        
- 3 :test                                                           
- 4 [ c:get #0 set-color                                            
- 5   @X @Y @R circle                                               
- 6   dup $c eq? [ &X v:dec ] if                                    
- 7   dup $t eq? [ &X v:inc ] if                                    
- 8   dup $h eq? [ &Y v:dec ] if                                    
- 9   dup $n eq? [ &Y v:inc ] if                                    
-10   dup $. eq? [ restart  ] if                                    
-11   dup $p eq? [ &R v:inc ] if                                    
-12   dup $y eq? [ &R v:dec ] if                                    
-13   drop #1 set-color @X @Y @R circle ] forever                   
-14 ;                                                               
-15                                                                 
-save next new
- 0 (LOAD:crc:drawing)                                              
- 1                                                                 
- 2 '(crc:drawing) needs                                            
- 3                                                                 
- 4                                                                 
- 5                                                                 
- 6                                                                 
- 7                                                                 
- 8                                                                 
- 9                                                                 
-10                                                                 
-11                                                                 
-12                                                                 
-13                                                                 
-14                                                                 
-15                                                                 
-save next new