From 1fb6b43ac3b25e4f908fc6682b47088f00a6d4a2 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sat, 12 Jul 2025 18:52:30 +0100
Subject: [PATCH] progress coding function to create an export string

---
 dotscape            | Bin 1049192 -> 1049192 bytes
 fcore/quad-tree.sml | 298 +++++++++++++++++++++++++-------------------
 2 files changed, 172 insertions(+), 126 deletions(-)

diff --git a/dotscape b/dotscape
index a7fc07a1e16830e6cfae4cb6c7e145465b96c4da..5feee0da5516bb1534e844fbde16c9803adbfa84 100755
GIT binary patch
delta 11044
zcmbuE4_H*yw!qKc`!FygjDQG;HOveOh=ziSh>8Q<6tPf=P|<K^%zvb)+?$$}4%jv0
zcFFN5+q#AW{vBSKI@K||mxp$rnWZIl%j@g;%}i!oGZO46)7Q1P_L(!sBd^};eQ&;R
z*mL%8@3q%nd+oK?K6E~7>3r65xCqCMu+|^C{?&JtZ)_NJa%as&16r{CYtMYVHB;k%
zslF7i^7M@Az}TB5oElw@t=WQMOb6bh6MDu}L*cQHEydWFExa|Zg4M?6ZbD;(#@rmn
z&gFit#Sz4FpwNs_u5jizRJ(<ATRtUalV9*uJy3_Rd8nsr%36d!B*K!SX6#QBbkn9H
zvrsyX!r!aY_Q2nU;seMe<V=U(o{Q5LA|`S2Lm8|T9xo|GZwQA<#)U_a?i2C2OlWt;
z9i6cc<E2<QFl+zV5snVcv#7VZk#pM|3wljI7JM>!KJIp8;j+nA+<oFcT(*$21Pb7L
zgW%TxBwVXKOQ<W&H@Gy84j1ME)+9^7#5p<;#|6A3uJwgvwB45{Tq=#%nWG#XEp^!K
z?JwLe9X)6%?k<SLWf){x$3o}&Ft^K(oGqzB@x%8sg<gEPF)O6dw!0Pb#sw8>j+GVS
zErH9R%;GGeyet#D@;sZ%@(?zT^PGI7A3}-3x$-2vDb>;8({TZt#uD(S3OCCq7*>&P
z;|N@q3}w+kD3_9Mml2nx4};%UBFvbb9|LMO7vVAlYF;TsPS<FmX?BL*4s*eYoLgh$
zoc>th;-8Z6zBJ+HpA5Qv>5h&tBkx``LNM&g7v{`a^gu4@c1#C}6Ja$=ahVa6wSaj{
zAkqj{=D^CyJnpuXK^rI|9)a>l)NP!F%S@3Lx0eiT-D?sW_oNExa~*oC5sanh+!pA*
zaJ2B&+#GC+61wI-rx>g6>e+(EDp+u5_1MZS$`aN;YWAG2sKvk3wcQfzTAMF-O|%4p
zT|Mg`%|UqRNa1K@J`|pw%1jjN8|~<5#+=(_=bY9IaE2%$+sb@fsIpeFJ#og`gU#7O
zo2>%dvV|o3ZC07I@FMnS2{#u?TcY%_7g4O>f2@WXw0u!EZb=jB7hS?bMhaDnFJf<w
zFlEVcyl9Ysmlm>JGi9j;u@Op^v8~jxY&IgEjH-ByZ9_eU%k>DiV4-wHrrw8xy0wFY
z+IXR1MKU77p%p2J7dlp?!S5fSh8L2m>##RkXsR|dp(m>=aq}qQ+{$<%cV)B+RIjYW
zJ_Zu*BjD^2oEuv?r;nF@2W)yv07ZhQWm*CRJOo8zw=KgGNC^{SSD9gZj$M_8eR@yj
zs!uS=6G}D~#<!2d<4|bJ!M1nJ2Ft(TssHU2gzZCxhT0_Ig(pTao!Xv|OleqC%ARW0
z9A`!5+M~>r{<W;qle4Y`vH4$ovI;Xg<!Ooj@N@~I#m``jT`8WDjrlkzyO=e)SS!oT
z7M9l;SxrNoB)fQ%)cf`(Np|V8l5FAPlVgS9o1b9I*|K>GlY4cuh|mO~Wy?uy9O_y8
z{1u|J>A~pWtEL=J`5)(D6eb*fF$4R?c`m)!pXea6Sch;dvUqN7dmrh&L+^wE*r4aO
z4<7_gIE~b#+Y-)6yU<JcR<lWn-61joUd)v(uwvnp9cOiWlN}vA52Klc*2eu98kN#<
z(kLj{NT9FiTA&dQHfq=(@0q!C2hy!0-PXZeS@P3F`0k|!w&i^zgM<BwEuXB-3hwx!
zlcXJA^rvY|!ii!32MH-b3H!_-VI^J;v2WK8Oi01>ppedB<mqb4$go1>F&a5He4U-K
zj*fH=xl^KHuZ4lHK}blshYO^DFCI)2x?V}b#t}m0?o?q^lTp_Kfy0~_=C+R(4(-mw
zi=u=}yOV^yP2<@}wT1t`kp`oQFwhj8`DX@c+2{qMd+T}kl{)0~o<z>8FdsVv3x8{v
z+n2)yHr)Ox0rL>*{+D*gzWsIWUI%#`7(?Ds3DPOXfvd1n%tE*_2Ek3@n<p^;unZ0Q
z$Gql$!r38Iw0yuEubl^%fcD-nu8hTM7Kc+zLjIm|JY*t-W68C+2(D}+IPm9tmLc6f
zP(Li>TdAH^`{Mf4RmJ<Di4QE%36}7IC9X-95cCI9e*t-l4=hHpF19sdgOPQgnR8xF
z6;2*pf>MPH_k=9wZJ;ANNt=O5=LHy-=TUEqh6_k%6=*fk#W^u}jW1ScbT`B^Te~!z
zyBUJDtA%qiv5$@R<h3qlF~igHYOEAj-+E0-Tv87$mL3~k&qG$v`>*doxH-*JedLrB
zU~=BLf?e2Sc+<?Yz)|@2Eh%*w0S14;Q+QlMn8f10P=azj{`LhpV+cgJhq$r`*qD>=
zf!+5Ylt!q7k}XYp658JJ(@zPL(~0Ntcb{M*d;EW$D)loO?)3BC6YOWaH`wpgAhi9w
z-0$J{7D*F1{{AP3jc3)~>1TvhW8+z&WaGV-h_+vr`-vaqkmxY^AcJ&)nbRcv^W0!;
zn&e6P=v|_PUAGrbIqN9Tm5wTc{R2FupJ_1m#RwG_DzPb7IDVm+6`H^Q5V1!Gn+}cz
z!SYU==bnq#ASuc9=)Qn63(DC45D41k+3%fz&@RF6TaQf{o=X23#LCaUgpBXYVV;Vw
zpz-Blg8fP!t8Tgy#POYf;8B{V<=RLDMaQ?Z2^1OKw;}LP6f$n)vEtH=k;0A}Q{kuQ
z(v3ZlDDBNUbcTRxVhNAtVLTJlf6<`(Ko#+#2Ej1qT<Q-;=b(ZfjX;g8EY_mWpa(VU
zP#g9qh<+XV14g@Obrh;&yeA5=Ig6!w^a0F5G(@9J$bS>Wl2|kuqcOB04%u;YHtmT+
z0z7UW2<?5@;+26YALf}WrY4}lEIXz5C!(XQyp@O`O{IB*&{Oazii6Ob%&Wv|11jOc
zB4V2v<@bk4iMO**eSe1P3(#;BI}`RS92Ut?cCxYvi|-YpY0L}6*auJwW-W|zi!H$x
zbm~;p16e4YP=s<Y^!RNNdMFY%V|ua-Wx$C~yUIX6y{LNxm1As;745UpR5B1weKTar
zINcIhz;SP*F<ihGL)$7)HXE&{0+k@_Pp5_Rp`tm4u9=UfU^^Du=A%nI15Gwm1ud!0
z4x{Xiqd9hDz~(ry+>Uf8!#cpx;lPkU<U@)G*|ZVTMV3sM*%lw}=%@w1TnNl(r1cBY
zXcR}=7NT*8h&LCa9+oiBtBX(zq&~D^F*57Dko!1btJ|_6*XC*4Vg$(#y|fr5%mvpp
z^W619Zj!SWGVt0u&e;NUtF70#9d+SuBXGwQF0i{0k7tVb7^~B|Yfob5CJ14E;B^f;
zcU>WS#?HEie(pLya;AjQk|oH1%yh*PG#vZ&;>%0W8kErt6RU-Z;ok(W2?a1QJi-#V
zA0}ppiPgcxcwl}b&07W&BeZ%MipS<yx_KG+l|52?YZ)vDGd}|J+iEO<$zXo#8ZO|9
zq*tn-jW?3UKaPq~3bj3so{s4c69mP<V(vPKaK5p$>v5EVQfcgRa70*vn&oIZ($Kc$
zXex@Jnia^*Ry|_{N<&()bOowlNs@SIC4#)iIGUEO20yW-iuJ2eB~-+VS8LF5aO8M#
z|L<VYV@>gFhRAKJvjl1}+;#?1%^Fx+YdlR|gIK0TYu3PyFlE!v)_}v?vT6NV*h)~Z
zUx%i|`=WzWJAq4k+0@$cfL?0^ty%|eY6_>7PogC3O{D8tX&giwpF~aA7*2E6!*&IJ
zZavgn!|7EhbG{6BbZm+R*V%l>jcWaz(^k&~T7cCh0jp<>3)GsC)3yz6B@s05DO8PJ
z5w!Iw)M0Lhlccr+PLciW-sk9GD`tZnq}Cp+^TpDpr@@C?(!?`QvlwDZpdHVk25cHY
z?Hj=BtqHVs1FFHUcxu>)^5VU5%s`QDYn~<Gz)|kn7UDDxq}3bQc8eEZ-iW#ob|s4S
zwdh?m5DqEkFSb~)COgY=!08jIeG^#FHC{Zm33aecm%jXabQK$ii<>v2c}UAHTxa9T
zCQqbSpM&Le<x%|>^a;D<gn`r4!DZ46sdgdUyB5GX@Ay29rI6hPe~XjOd3(Gi@IBm*
z9?PQnM^K75_IWe|>7_Y?Cd>{n=WX?%ZgZO0R*y0XbC9k-q9sxooBd)ijP=`!HnaF8
zY(?38Oc@+D??;y<L+L&V<sACib_giOaWr!Wn#Zu?NSuU=UWf8Q`tlBl!`|UyRU_=5
zp`EzfRWqRM^b-ThCVN5El>^vu?_T(<#l4ZU{3Rd0rU~Nlo#-b>!Nub*gXnl0T**-`
z7jS^vTML8NabJR%`U+|V11E?bO(>iFpc)q#56T`F>SCq88CB<d;ox#G|0o6j;JL$`
zCCSPB!~uR{EeC1f10XqID_8lJ9efCU#S}>!T439nGU@&nv;o^PseUgSP3P``BcWM-
zILjV<(nBM5WzhY5K?`pN-L?-VZp{$w`_bnZ0!W@4>^UTjcDd2Ks81n)&y6eFQVy&8
zp;+FE-eGS;=zv$zGuS#z-1aKO9O?9W4XwehFq&})4IVTRd<f!-trC2w4!IpC!5((V
znETPnL&#um?g!ie+|G6^?>54-BLiZd9gT;b>@+6QCML$rLS4Aq4!J>XeS{k}x6`p%
z>-J6*I}Skz846x!xu1C*>Gn;IlkO__a$MXeh3LF<Ih1B{9z3z|F#6yZJ@Fyg6Q|3b
z2qFHCCr*tT35tOW+F%oS4YYhFG0?+D(C^r3n|c(L5S<@fT)NyOKeypcByM;U|N9n{
zCRXGVzXp55#QX<H0{%HMj;Un1-gTcWAC3uQGHoa#Ni?qLzX1^dtgaE<%jih%mD~#!
zoxSY=_nJ~n@=&~07G(udaPmkh8<WMx>7=Po&l;s?@k1o%mwM915>nq+!OR(CbKg2i
z=`Uuel?H3UY`|LedhcB`6uV}UHgK2w=%G>q(KMN!DJAs=V@P-C$aI(H!2G9>2@-1_
zCV5!j42=+M2NsY_$@KUmWFfwWXmUBpM(wn;oRnajnO4mq2C==IxDgu99z0MO=8{Tm
zGtdol$!;`WG*pnc5Z-H`pUoo&w7qZ{@xaahN4j}F`NO?Q@`6;|*<&mn?VZnUHyLQ=
zqa+@CwRFm(#87U6{VI8Jb<m4l+Pl5j%J#DcPIcI$jy#yvVoQL7E7ztL<TQ^Dy0)L~
z1eI$WM~KHCCDWyV>it^70;+xiSPI-YV*&X^H}>{uq=4FdT@wtb5b5u@aSEMgB}O(=
z*FQkyk7A9L3`S@YZLpD2G?e;m<XILsm)ObQS>i7iK1Rk7$Zggy0q0>ANy|tfTt6_a
ztRl%Mnr^5fBM~nisv>73zJ58GilF}F3c|86dUFM-PV&RK>Vv4xvbKc~2{yvnYJ(_X
zilG~-Nh-F-(EZgg*D<uGn*4-v#h#Vm$arY3n7NwNz_FG`TWZK{Y#c*deoH2!F`^#|
z4AIuShQK?<b}@4;`G~**-(FAZu|I`gdYZ(GuBXUE$OKbFc*-C+C0*1xh#$nI)2>=_
z5=!xC9ofusRGRmD!twyI?f0aR-IzrDJZv<)Z<x5ho|Ge<Ro-!~EUI~dw6GSfFAxKP
zfG3`Lk)%qK@7YRPk=_WwN(vPfknyF9t=pI&XkW6OQLjl&DNwVR-bl7XemhQV+eyBZ
z?l_wuWwMVFTX&JsQs!)h7ceZh-oi@Al)q~t`#|VG+UO$1c;P_mXC(}h*-X}Ac1zkM
z-IC~`J>;9aA5+ECd&v-Kj$H@HB@Bxxo@*tuvF1Uz1cq^R_YO3WT3#bs{i|?5>$tLm
zQE+41i^bWmk*^4TY=oG91gs|+=?yS99x_R6c#FX6uAT(?!!a;uPl8zYHi0Z0Dmspn
zZ4e~s;&;esEd<fJI*l6wXv;g$;rj$p|7Ye;-zU&R?W95U{)K#qSv5R?NrTmm;_{Q^
zpd>8*uP`1+Z}}@RBYZ1?p87YkAm$k8Ex=m@D2phRhsB&zWCn^#VY?3A)<EXeY^K}Z
zBUL&RycDa2mtwXYsyR&#fX5s<O-gagIEvpVx3e$9CgkCTBD_=#Y~;D_6E}Y<YlfG~
z?1iFz3Pc+ag?a3bGa@H(a8COOG5ZV=ur^9c_S}1N#B(1)6v9T0h|iHJ%p_v*$K)K(
zYLfm&PGNi#4*Ac?6-LfnAZw8p)aD*VWeff+7GET5#|?w5ndR4ZcxlPTV@aPi6LM^*
zZ--E5g}Vrgey*|fY79RbrHY1FJ{%2%n1i0>df7cg%GMez0o!<*H-OK_rf9l;0H2ZM
z9Rst+;ci<JL{~F%*5cq%>Pi*c2Jm)iNzL*6sc^QoSMTLpQLGVCRhEkE&g0(R-NTJH
zj-~sP`OG92q^1r{xVzR5DGAKpp#f25?DWRcu4EqazBDn`2-=z8rMh(Ehq9C1{Nd#~
zI9VBjm+O8wwOl4zk;|vh=S}=p_BzN2SHsCxOcTcQX8M4cABl|<gDqY%^8>KaL=Tzy
z$<m9(;43A1%gnzWeEkRuXEuq)Q}|mLy&)b=<#m#mw+-X}6`?uehT(iY{<#SyW&Y0-
zvS;$CkZ;oZOui=AA9AnV#bA(Z#0;Vzsq_yTA!rb|so5oil#c|1K>zh4L;c}iusZ|#
zAC(Mx`%Zriq~sxk28{~_oia-5FIJ7>MIK!c&13ll^6L!i>0{Gb%$!x@`5f7jY4n*~
zKAe6$o{y1Q$~OIGJby%GQwlasqi6H@&R;ib3Jpy7ndN+QqG~y{lY+}>m=s)2uRQdU
zN&Nfjq4V<jciEBjQ$GKS6swvF_~X*LRy@Erg=3RO{NX_!4kvFIeYu2(Lqa3IJOd2I
ze7J2EA1lS)j#6GH{kZfne^L5z{1Lt-4Ey>$S2>S|Zy0<v@C_F$=S7Th(<WZ4qcg*_
zk@TMa@aJH-R!>icYfEXTR+~s23|!{5M%u2?^3KCNjSh#JFL-SPEeeMQ-Y{)G)kkSH
z)Df;V(Bg1y2K%L<I@a@IxHg^|!?gF%RpHPBq)nuw*a(?nFsdZn%A~-rIJ#8>-7>ZC
z=Zi2lU>Ni;>a{$*rh&#sBeZ6EIszJ>W|E;>G_~lUiS*d`&;HSLIRlm`s9PGLO`=z|
z@Fy|?>gH>-iHN6v)M!`IIOrJ0aTYF&c86(`*#r_B!(fzMOg2m`nx5vN4`{<PMfB95
z)qY5CM}e@9b<kvHr1l{7MrwyhkBxdz%b<Z~KlX#FQA`DBF_C(;@VH8+&7;S)K);9r
zu#3@&dYDb7UYkm{_JhYzk0GpEq-xgDQQA>-s~$u_yF_}8EeFWUq)Fi*;BY_fgVYfT
zbs;Ib;Do`@k`YGHdvx$CTBogK8bs1AJv6Rj6OwcRqejvZk)WR>FS@@ro$l%fk}LYd
zOhK0+;^F?<QJ<n6!g-W{cF^u{T>?5wV=ikG2A$=CAG=&GeQ%od>ntr$W1EbRDR{LS
z*T|SV9qQez#>FzWDEPb@KO<v@g3(th)t1P(UBOvuyi~@~?}x^=sqtJH&rz^bjn~WA
zrQj24te3G@!QE=STE@mRp|MR@RGP!fV(GI~!L!tum+@f**Qzo2w)DBK;3H~0P{yM^
z2#xJi<3t&+QgF=ID%C1vd|1H+YCJ^7*A={4jTg%}_ruWG&1ww)Op!hg1)o>rNiuF%
zFzQsPhGop14GGUu<DoLPDA=aPkur8D*r~?zLt`uWgc`#uH0cv@E;M$x8mG#*NWrFm
zs5Fn0@fHQoQsX%?KCR$dH6A46h>t>JA5r54p|KV0Q)9@lq|a6b$6QsZHdV$SE4V<7
z=gBzn<Ivcv)z~0otAd-=n8?_r;PYynFJrHQ(Kjm9!ewkc9~wJLjr)bhR<Mm>lRV+2
z-voPw=5L}-HO`gsPPsJE6KWhGSD#jJw;Er#8Wi5EVAD0#*au~tel6I{L}#h-IvLMV
zaIG2_$#{!`kEn5?jE^bUr^cQC2#(pQ;Fxb!svVPY;<q8y3e<RujEfY!T8-z(c%6cq
z)i_<o2Nir?je9$TV_r}&>Qbq8TE-DwA=R?fc&ChW6>L-Er7~WsV5b`A%6O-OPpEN(
zj87}LTa7P#9aO1T!KUw2nje&L`gbACXQ}Zz8P8F0tr{1}c#DFMsBxl<k15!v#+_G!
zV|FSy=DJF?V=_*>9#XA9jkn0SNWrVsc#e$MDY#jU(`9^6!ROVu_p9KT7Zi-TRjQqq
zaYT1WwJbH>DdSuP+thfejF&3dsm8f7-l^adY8)Zs(+ciZ;|rIAD)lPZ)T7e;pp4Ud
zLYmJ~<8?Bgqu^RKE|T#U1t00rjzk|(A8YlI9M*JDvh2zxpQ#_wm>Ylx%keDnMsVm*
zcpFR$7~Ug4htA3n-a}WbakM<hI$6pd+N{P786TAKNP7N;b_N<wP2X!1&;qH*S}Du+
z%F_tQo#uQW)a;i0d`E>^=uKySuZ@W5tKJEE1el^dn>+j5>FQ&6ll<KI<=u1NL}UI_
zo3QMJj6XhqHy$e2Uzh9C<Y!|?uw953^?6>}=XtCAe1bY*xQ(H17y2}d{^V}4mOjs`
z`aJLK^W5I&`Ffvc<EN7RBrY`HqF{w$t)aBwrZyR6QQJ*zTFlq-Y}4gsv57A+Iw;h8
zXP@3D==oc!rLaf~ac3z`P}B=Pu;;l!y;}I{;M)(rk>a4<s3no;k>_f8y;#fle`~a6
zjBVAF>^b73-2Q6@4w<&TVqw+t%<RmC+~Q@+7nQCl9Y1GnW|sW;K$h*Xf-3Rzhx$9;
F_%E(g`@H}F

delta 11063
zcmbuE4_H%2w!rVqTmp#@0r_tmLJ&k$6jVg47-*{$TU1I>(P9$(OO-0SRqI*}*tL}H
zQsY&|?OIIY-|$+irg|-X%R{@*THCsn?zXP4&zI0@S#7Cc*Am~ZeP?cN;w`&<uiy9h
zzGO1<n?GmHoH=u5=y~4Q^StqBF^+LO5c@%{weiHf|2mE?4BMZP`r)}Z-HY({ELDT;
z)iS))-9NqyV^fB3c0vXAWC*&6UHEfe=$}{%iQ6)%3}btSaB^}bD~-<EilzxIdAW>T
z$oo`{AI0uNMFxzf2<IQ7>fNNz_(xJceUH25;Rb}ebKJc%)+0O-3(Jcg*rF3OkIY2r
zLfIn}zOO&B55AjA4x!0H?kxE2zC5cMu^y*CmdR4#snQ~JNjOqEIrLH7cRCK23!S!@
z<FgN7+(?8&a}Q1$VeL{qj|LnqoXc!oJdpCY!jGpfA$`_tTt0mT={r3ZmsfK}Um<*M
z5#07y!nGN4god&LohQ!PWyhS)lw|a!aMmuwaXt@;X?rOd?KGzdSIXivmN09VvjMy8
zVZz<A35kuQuP_{!W9Z8>9vU}=xa{4?=FAgH9)FMt^z!2^*#Uue{7@iIj9(x}v@8&B
z^nC%sq~{0~<ylxi*}bhiA7PW;eddWF2!#q4Dw4F0Tx*wC!}-iAqpv$pxLq+-$KyWz
z7+jtVX>ly1e?xtCJuc4}1;4*V!t8kkQ6Q$H7?&du^I8$InWhS@^D?zgZ0*7coJ*zW
zY~5J6{M#g)HchzwTb*WUnzbuL&%4qx1>K$kVgCH355EZ-oCQ6eg4Ha;<$4g-2<l0J
zF7=>g4z!%yiTjM@PzTbmCs<vOY%VTO2{*btB(`mTy3n#OUC3Bq)#}H9vb3Db2+dQc
z3MUujVh0v_7rYQu*5K7M`;}F=_}=QVl}pPJHa=-^pR26LKi0I<=x<tIAU91g`ut7Z
z8=uTY_`n3=cvS%;?*6JQ6z!O5?Q&qwWw&rPQzqxLV<E@HY+I-?Rk1yB-qeqs8A6A-
z5_>a*B+Fe^m{ffkTQY>()zX$ITk<l(Lidt7rqGI|IoL2wXj*y&@1G#lEW3>LdSS-$
zcAS<V;1xw|*UVU<LTrT6m24|@t(=EK+?h3T7^h5d7p>C5rim8HR%dBbhWTad1Oqk4
z2+gaL(J<l2>QodXbgdo<zwbavjF42@fbBzs)>;GW^h|9P_KpxPJRK+GJsqh4wNF>!
zlr#YGW1(LZ#<{SGvw35r-#)X}=tJRPX<0@e0SiIl*k#T%`l{oE=rso95GJh|iBn?T
zRck)R=mDX0OHo|sWIP!Kwj6AG`#jM69(U8vt|4rgAT-w}2`@b}p2^hljHF84x-yol
zTi4E#to6s4D!bRSLU-;4C&DoQ%g@$eMrUl2=$%cajFvoyG1lj~OScqYf8Qmn(&c)&
z-yC68gPxT%H%NV#Y?WHy-7586_Po@$aQWFu!su<!u;p}ao5A|MzD-0ZUvM^_!JZuV
zvKOxrO-d3d9c<N{?5_CrLW~lH<1c68loa=smxmG!cox$Lj(HaMcRSugS`%#0fE$1f
zdSU12M5w~4q$+*JP)^!~9>TYEXA04~MAm@^bLERy5aHupA8NkHvUc%2=kjI>Z7l~e
zR4SvBrBRT-l0aY8bVDWVuhe`n&OK-ME~E*^eWu}Dd2%EczWGfv+w$IV{=t6ImcN?q
z-|`1ir7d6l+ecUzr$_zdE|S$F<sP!3ho|vN;QaR7VVxAt@^{kXcRjtWnVEKQJ$gOo
zf{(2SerIsVl^O}2Hw280`Gos8Un&@5#x$Y#)g<g0B~<NA7sj{hH5Tw3hJ+B8VXAOs
zZx%j)g)4iLg#E2k*huw7|KE{JsW8$EP50=39L2fC4yB$Z-gT`3**s^E?K(`z0Pdo@
zEyU%`<$Rm(ejkr{qwD{wck1h(R__hyj{|MUdn#T!$2c$+c8(bdSI!_9N}OXVvk+sN
z-$E8T{tl;yQ0aW1nO-LkMgjFbAzV50*31)so+%XUtH4Xff<u;!iwon*w}1(Mx^E@Y
zTm|b230POUd(DBEL1i^@4$y=bG|>Z^@Pa13k~AS`52gPIa+e%hhNAUsb42@n>j492
z`yx*`b9gz*6Ea;>vtj*CgN*DfbpT^>E&=88JQ{GSIG=P{fmE?}&W6EkyjW;)HODbs
z+f|&)0q)xF<ZP_l5mVjyZOfR~a64a%mOSgp*QL-U{m3#Y+x$j8(!1Y#V;{JfY3|x%
zXC)Vt`{p(5iFWHw7<lG7ir)H83SP#5!uPm~+Es-0Sn@kc&=hxf=VF}s67I7<#+8S`
z)|~!4?7v4LZG<vN+0t|-p`Bgde;+@6J9a<y&NFOeclYmSO6~Nzd+j{;`P=F5_qRKn
zh<09-+dcm7QfVUX?|qEecqa9|c6wMfHl7JmHs0$AXy+GlJMsNo5}7C;We_khb$W%r
zUl@)ZsqUmdyhGFw?CghgPM_tz)>T8WQ{yiCM1`><M5w$}g&k=^`=t_=sQ!E>>~kLW
z1AGMI+cEC@E`NovJ<YB83{EXbqyJMN$mBlgnTn7}==N^J=5%*e_d3MVPd<m3FE!m=
zc@-*;NEa;E@>y}~H9wB)`4x{wyPaQ+Ly&ZRJ&!<=*>@LV?^Gf4Rz6Fv+!`nBx-}Di
zy06^Y7mh}sXh7!)h$fcuXd%X92>llo8VjO`msJRcai-DkP;>zb=<zVr!qO5o`UF}~
zg9deAXQbGzLBGPtL~A1uoRw*`KLW8ii)C8$KFmVYMWQSSawEmkXfz$8X|y>8S#ZiI
z+8=`i$Zm^;`sPvMwOCYuSi|&qG@Qk!^uYvloTc9-AP7`xej@q>WJNI%onTfa*6L6x
z4;m3W45(lzOiH|)jhcos)KrK@qv$cPXW_U=hO~#JBZ&BJ5qgAKff)TTO2w>(UaryT
zuR&+dME!U?p;L=dE`}CAD@KonV{bG)Q;ss>%%{EOAYZhoc>-0y!Ko50^UzEZ8v@G;
zu`<pu`WAECTWBKZbA-^2N|eJ!>#szm2wU=K(IO}?htPG4&<yM(V#gwMg=e7EjB21J
z)mUJZFNV-u3)10kjaXqp8kDIYV(qeG2q6j}NQ8J=4*??!Ck$Y#-m%uMda%oCVCD(5
zsTxf{Luf}env6ok+tsL_g$(riQsji-hc+)m2CW{V6f10XbB@txilH6L5QIPU$}$wc
z0Adyc&)qEIrrGKt2Cr}6Y)+_M-=uO`8$w-r;MN(OZ*LKv!UXX$)}VIPpTV}R;KI6r
zH#BQp4Mi-EZ4J#sTn*jGRvkx6mm?i=($&k+Xl#fTUs;aUp-gW$w1<h|hx`|XLYNpH
zWAr@;6LZ4E8en2PFv|p*zY-=ELTgu|INTjVx2*)ba)yd0SHf~I^&?Qfxz6aD4(d0p
zgMAuGuhl>ueHe{<3YDO0YJLiBii(8^g5aPrR|9xBb2jaL3Z<ev8ode(5mumX6`F+z
z?O26oqA03bjSOtnGgqULu<B*2Q6&qL#3N55h<rSgY1vw^la$e7(^^yo1rg%)I@AuE
zE<!x`b6E6fZv>kma+w>9zIqJzod~L02WzX>()4wR#ags(9qb542K{6m7`!)wHm!%P
z1m)TdXhxg^mYz-RG%g!pQ|rXT2J{+QvjNQ1jA_-gC<)u+=|+}%;%UpXs1=(q&D{vw
z75IgXP_9?g>yYN|Q(L>XMuX{WyJtrA-Jpaf&SwGEkOZuWG0s<SKsNIZ&gWIr{9mA2
zY|_xSU!X378BUV=N~nL3-TbUwY{eW9c+^|`WnN5MH-QZsrite_F(2a9(yr%FGd71)
z%Vw~8{ZQJr8P#Evmg=^k{5ZX20^u%GzR_pJ5w3bCvDw3E?H0D(wBjpUP%r2;Ol+!0
z@1R(?0y29sM}s!uEVJao85d72TS0>!gLrl;>SD1jedU+vI`&Kww{1fUk(yn(K8z`!
zeu`dy0hUugnQ9x+$LyLD0-9}r>!bmK?IO5&ErxU6`e_UcBKr#e6eFGUmN=vDTeu;O
z$e{(tP^viTMKl{}r8$EnOb;;U9Zeu^$~3W~31tyxAicjv%Oy89?`6Lm8?qg3WByCn
zj&k^@aENx_i!4uu)O7~ZNczc6a404{&Dw<)GHg8-BjMsVAm!;RyTA|YQ^lGV*gt7{
zI2-GRm7jZNSo!n>+*kPYFm~L#s-HKyws6MZ6~HGYUu@rvzK0-OY<~s1j&s1VgYr0^
z70ljL#168UHb<nG{wit%1rHUwT2T)BK~;99yrHz;j(S<z?Lf5!`bgOM%s$G%K6vgZ
zXH2p&JF$YDm@43QHx#%5c!k2YEMP-mE9OYr?1XLWNTCOvXfyVvQ0;y+fiBnwM?#9h
zpZSnw%u=QWn<mkN`#}o(B)a1OoA@Nrau9urQ8vwYfj*Z^q`fY*Fk%2M#tUM~8!KRS
zZ;BOd=xz2MLWjMEp2POZ;*QtA=SZj5>u4R;$J5LsXn3LlYzX{{xe9Ek0lBPaKpz&E
zfr?fgK{|t11zZQ*!geh0GC|&&2|mw)roc|N=|gEN>n5GKx=@z|VuSjoFc)lYn{}Jo
zWl9yhj(`hE1FJJW$gB=75YuC%+sgeM7xQrux@cPksexPsODsBy-v3ccd`z~)S+XU9
zi@#@yGb7-hAe{=Z3G5ST#T=reM~|VOv(q;HI4UI?!#MeRGx3GZCy==L1pbdkG+L}I
zAl)jg=f#4DNj&~%-B@RmRay_UmimWd!ZVRJ7n39!Q~VD=1OTgR0`t;alLsX8f<>3j
zYeoslM{#z!D-(1DCy&nzB6}u^Ewf1Lpq6#PmL-po+#hR6TS`gOU;(pclWl{`B%wc>
ztrS`snrW*^tB0qidovV!=a3F~CmKhOlo9Zz6Y2Rf(xfv5WQT@Kc4-dGeu|_y)ICn}
zvDOQf5NrqLkh~LV`xB%Z7ZaLXL2}R@T2?_yaf*)C%qKdrvx2w~8p|?nNOTJbydF%X
zn-`G1XsoEKBqt%hdw_njkQ`EPfQKMA-2FGvZHvgS?uSTI61V2w9%JF?z#?v^Ba3D|
zN#d|Riq3eF=qk)nvK80*t=Pl%ufmG$z^y7c)nSiX^I=xYj6M#oTw9%R6=NqaGwt{v
znzm<@*#0D$B{@{jmn!B^wTnShV8)q?$&Z?`r(Y#GRL4z~-=Tu1zh}m&^br%$vzgle
z0$pwr>r7-gLRqxgOv=y!>NS(+ncrM)A%A9pzgV<{OePT9Y+Me;!wQmCk|H=~qG?qP
zNk$2Da}61XV#Fgg<h;Z;t|BuLl%H8mSTsg&uO_ugPB>S+?8OpJfNJmrTi|RpgBS2Z
z`&yEY4T<z%EzDI%`)kSfXo}eXG#D~IkS1oWC3P@d8g<r@yV#RToj)VfkxuM}1cSFV
ztRwKsxJS%dPyRsA7<zXjX~Kpn^vWg@C)$5O9)N&siU_$(xCZG&jg@pmcRJczPtHIp
z9&aGqSd2>Ze@R#zAa?wc6tNqVh+l+_hSQS8gH5CYY3%Zj(`QiCOT@`)w7o=h1RS1t
z{$-LbO}>9SX+v6jrffNt;3~$5Z97;;P``91qoyBF3e+HGw2++;x9i1@-Q;uWj<Xd)
zCPS9kwuelRB4-mk!LZo6k);qRf7411AY2_mTkNC+r$*3jmck%e4zeDzThdnPmPC*2
zBR77SO&8DYCnKae_8uZvFf68cp^ePLDjpucLO8m27mB6E*NIv?A5KOMSAIAGZftXi
zIPZ0GmEaMXV!<)co}{EVLEU(Ns@Qyzz=PNENP6cKDD-%w*zgvCC>#p9+Q|-Zl62YI
zWCD9^X=qTnz=1m7h6Zm&irRl=_Vi{XJ<>^<MbGcZ2bdK@4pizdZV^|VA%~^T;(ia~
zLGRAr69d9xBt84@WO3ACkXwLP1W1c1q;@g)ESZfYUki~pi=7?WbjQ1-M&o4%2t129
zlBwz(IRq}@$T?DmyY&>mNABh<flbK6lOjAT`nK>~-|5@mmz&{PnLR05X86Nq%wt!K
z9@&VMvl%kQobyD$YUmb%J=f>S;)M^u3t<x&&;>GssYERKh+N=VNz$LlS&UCc((X^m
zHAc=~BI}VF#O9tv<%?evOD>c3lSe_+%z{u0JX^B&d=~VXvf#*s@=kDtCb)|*@2AhE
z*Q59eC{NTy^Pwm<nl<AF*gZpv)|$aNLL@(oFTmbdx^WnvnPdVNT#rLt<|Od024t(p
z{-e~MCw2_uEz*)2;`p<nY;CXK&$ppy6NH;A6xo~4y|uTWn_?eN4<_?jNhSzQt*TI0
zeK)e%SsfL0WxzHMroG8L#C_AmXgx@m0?+EwjUUn;cJn_4z6Tym5InDULr`Q-r<Hkp
zDt$49-_D+c^l&wVhawt3g*VWL4g5H48tbp|8v{QKdot+}13z7QTJ%3D(eDiWTmA<~
zSh(&?u|1Xl4x>xr@pN7zS$W4O{@)Oa6gQ9NoA5uIP*T?aJ|RmMpAPXRZOY>7{Ouw3
z+FJq&$w5pZ+Ht}5ekJ%70yi~_q>zenpb%)kaa^E1+za+*Li^*ALhs&duY!;~pisYZ
zL7_9oOYOy)@w~{RzlnxPd_4JSiggdt>0GAHnkjs)tjUq|xja6Uel&%Tl4{C2y)lJ9
zrqC$`osOg*=JP#2ZPZlioBB_d^TY#+<y24eFQ;yre>pw!(95Us?<t4QFW}!{N7DBN
z{Hv0$YAxj3rFE@*m~RcmW?sDWC=Z8|9^&>=9{#Vvi?7TEg)tlMn9D~?zPGE4*GNCE
zJkDR1ezZTqJ43KJ{)MWAJbXgnqk>PUShX;0qKlS<s>A7>5Oo5*Ed2^oM^k%<TIJ8?
zhp2Vb6r$!s5C?ma7KW;0S?wfxU#L2aZf8yQ@bG0+sZG=a6=`RP3|c~=Q@cu?!HP7j
zzc_j{L>)<AQbAT4w+%&VsYea%AJD=VfJk~%1%n&H)XONZhH+}ukZt6lZB+<Vc_j?m
z7Kf^}v|Xh(&`1^h(x{;f#@5m+DyY)RD&LF%Q8q<D_9I^X5G`ioZfCPx!o;{Y)j3Ss
zNH&e5Ds>E9qk?9yp~!GLUJIRWjDSv!p#V&*iZzT;4a~?G23ZqRlTNMvfc2L|i?!++
z+Nx0(u(siJQMh_MwQJN5urC9>GX$!9#<Fw5q37NIJv5wkUqVeoK&mwiz%S`b%9gXT
zaHhIQI!6N%K(hqDnl>?6V2lJN%ZQdC>hUcs6V9}JJzSl`8ii9m8-ET{2y~>Ol|!LQ
zsR|}PUIU}HGo^R1W|Aa(n8c++K}0J9&?1i3v8*uydie|n6ps#7kN+b&AzVc9=mhNx
z)x@Jj8uf)bJ~5H=|5@a8#k-G4zY=Mo5}RdwDu~xAah;60bAi?lB`%S%F^DfJ@pCe^
z1~Iy-5N)}PJA*h|iC4%t^1Z;=W+h%A<M}~sQ{s&>wg>TPCDzK=6U2Q=yjI5g^MSEb
zt|=skr(@}FMG((bVqV5agScLaLu7n2h>t08tc=IM9~j%K#0fH96U0$pDnzRcj2*;<
zN<1Pkb`Y;s;$<?<`yep3Ly6&EE7G4eh%YMfG#PgWG3rr>hGoos80b7(iPL0k3}Ukq
zhs)R+#5N^f6c{^*Pb)Dzs7Zfe7XoAVDRH`ti-S1jFAB+HWZW3UbCr0$jL!vey%Gnu
zV%Q%7V;@uE#euPd*sH|g;ibRrK^%2mA=*qCe-y-pO1x0U2_FT<UaQ198JmLGp~OVS
z_8`8f#04_;1Tngy5G_>3`ip_Fvz2&AVC*0^GyJ7I;T1RhtpfA^lG>CwPsY3D^h<hL
ziNoaLb3xpv#Fwu7J0A$*l&=(HAC_^(SN>{W(z!~!LB{igxL%2iW!xCV$CNlh#;1bV
ztHeEj@sHUP#8F=>L^~zpgs%gl6)JI~jEjSKtrE|d@rEFFC~=024+rr@B_8PUk9jGG
zQLjR@b21L=4TzSl#Jgpj7sO^IULoTZL2OgvJQ?o};?qhTCgXEK+^58szVwSU5X33p
zC?r2D<BV?tlFwD*4Kkh|#Pv#CEaS!?KBmM8GCmc=UM23i<{z^sh@);QL^~zpgqs1;
z3YEA~#>GLrR*C1!cta37lsH4ihlBW{5)WMUk9jGGQJ+Gzb21L=3y7Aj#Jgpj7sO^I
zULoTZL2OgvJQ?o};?qhTCgXEK+^58szVM4Q5X33{3ds-4IHNxx`CKL5AmjN#T(88%
zGHwjwWBuxJXgKw<TEk_xrh$}2S7!N49ZsWe0lq5xvxHmzp#$#iDlKIAhMW(al>vN%
zu2teld5{fqFE^+|iLEj|EaMb<@s@fvdY`6ztByx+OG$RU+_y)b#vwUB|69Lg2ju)c
z5$d6JqA2GFOE{JuV>mDYHhuPYueF!qwQ|1a^B+!sEsgrCI)3F?8Gm%~hgguyZ_4Gn
z<h;JiUoXIm2jy1`%5RtRW2p^>+Y)GYX;8JukAK*$aZrBEp#1JZ`OZQ4n}hQDKT7>4
zae?_3`wN2F5@_LVbuvn&=G*F#QN!igX2>fuTl@{9iGkL;2elqcFMg+33Zt|T_m*NT
zMFU_4H(p2_P{T(9pCRxG7ZV2}mWQK}FVyo|v7R4#a)N61L*v&zv0R*%H*{U>h$Sm4
p%a#^p<z!WJ%T}&h`tzrj70oTp%9gWJ*38{FVWRlyV?%9k{tvIEE<gYP

diff --git a/fcore/quad-tree.sml b/fcore/quad-tree.sml
index d4d30a0..fc5d429 100644
--- a/fcore/quad-tree.sml
+++ b/fcore/quad-tree.sml
@@ -1,104 +1,104 @@
-structure BinTree =
-struct
-  datatype 'a bintree =
-    NODE of
-      { x: int
-      , y: int
-      , ex: int
-      , ey: int
-      , data: 'a
-      , left: 'a bintree
-      , right: 'a bintree
-      }
-  | LEAF
-
-  val empty = LEAF
-
-  fun insert (newItem as {x, y, ex, ey, data}, tree) =
-    case tree of
-      LEAF =>
-        NODE
-          { x = x
-          , y = y
-          , ex = ex
-          , ey = ey
-          , data = data
-          , left = LEAF
-          , right = LEAF
-          }
-    | NODE {x = ox, y = oy, ex = oex, ey = oey, data = oldData, left, right} =>
-        let
-          val dir =
-            if x < ox then
-              LESS
-            else if x > ox then
-              GREATER
-            else
-              (if y < oy then
-                 LESS
-               else if y > oy then
-                 GREATER
-               else
-                 (if ex < oex then
-                    LESS
-                  else if ex > oex then
-                    GREATER
-                  else
-                    (if ey < oey then LESS
-                     else if ey > oey then GREATER
-                     else EQUAL)))
-        in
-          case dir of
-            LESS =>
-              NODE
-                { left = insert (newItem, left)
-                , right = right
-                , x = ox
-                , y = oy
-                , ex = oex
-                , ey = oey
-                , data = oldData
-                }
-          | GREATER =>
-              NODE
-                { right = insert (newItem, right)
-                , left = left
-                , x = ox
-                , y = oy
-                , ex = oex
-                , ey = oey
-                , data = oldData
-                }
-          | EQUAL =>
-              NODE
-                { left = left
-                , right = right
-                , x = x
-                , y = y
-                , ex = ex
-                , ey = ey
-                , data = data
-                }
-        end
-
-  fun foldr (f, tree, acc) =
-    case tree of
-      NODE {x, y, ex, ey, data, left, right} =>
-        let
-          val acc = foldr (f, right, acc)
-          val item = {x = x, y = y, ex = ex, ey = ey, data = data}
-          val acc = f (item, acc)
-        in
-          foldr (f, left, acc)
-        end
-    | LEAF => acc
-
-  fun toList tree =
-    foldr (fn (item, acc) => item :: acc, tree, [])
-end
-
 structure CollisionTree =
 struct
+  structure BinTree =
+  struct
+    datatype 'a bintree =
+      NODE of
+        { x: int
+        , y: int
+        , ex: int
+        , ey: int
+        , data: 'a
+        , left: 'a bintree
+        , right: 'a bintree
+        }
+    | LEAF
+
+    val empty = LEAF
+
+    fun insert (newItem as {x, y, ex, ey, data}, tree) =
+      case tree of
+        LEAF =>
+          NODE
+            { x = x
+            , y = y
+            , ex = ex
+            , ey = ey
+            , data = data
+            , left = LEAF
+            , right = LEAF
+            }
+      | NODE {x = ox, y = oy, ex = oex, ey = oey, data = oldData, left, right} =>
+          let
+            val dir =
+              if x < ox then
+                LESS
+              else if x > ox then
+                GREATER
+              else
+                (if y < oy then
+                   LESS
+                 else if y > oy then
+                   GREATER
+                 else
+                   (if ex < oex then
+                      LESS
+                    else if ex > oex then
+                      GREATER
+                    else
+                      (if ey < oey then LESS
+                       else if ey > oey then GREATER
+                       else EQUAL)))
+          in
+            case dir of
+              LESS =>
+                NODE
+                  { left = insert (newItem, left)
+                  , right = right
+                  , x = ox
+                  , y = oy
+                  , ex = oex
+                  , ey = oey
+                  , data = oldData
+                  }
+            | GREATER =>
+                NODE
+                  { right = insert (newItem, right)
+                  , left = left
+                  , x = ox
+                  , y = oy
+                  , ex = oex
+                  , ey = oey
+                  , data = oldData
+                  }
+            | EQUAL =>
+                NODE
+                  { left = left
+                  , right = right
+                  , x = x
+                  , y = y
+                  , ex = ex
+                  , ey = ey
+                  , data = data
+                  }
+          end
+
+    fun foldr (f, tree, acc) =
+      case tree of
+        NODE {x, y, ex, ey, data, left, right} =>
+          let
+            val acc = foldr (f, right, acc)
+            val item = {x = x, y = y, ex = ex, ey = ey, data = data}
+            val acc = f (item, acc)
+          in
+            foldr (f, left, acc)
+          end
+      | LEAF => acc
+
+    fun toList tree =
+      foldr (fn (item, acc) => item :: acc, tree, [])
+  end
+
   fun shouldIgnoreData {a, r = _, g = _, b = _} = a = 0
 
   local
@@ -457,33 +457,6 @@ struct
       toBintree tree
     end
 
-  fun toTrianglesMerged
-    ( windowWidth
-    , windowHeight
-    , squares
-    , size
-    , canvasWidth
-    , canvasHeight
-    , xClickPoints
-    , yClickPoints
-    ) =
-    let
-      val qtree = buildTree (0, 0, size, squares)
-      val bintree = merge (qtree, squares)
-
-      val f = folder
-        ( windowWidth
-        , windowHeight
-        , canvasWidth
-        , canvasHeight
-        , xClickPoints
-        , yClickPoints
-        )
-      val vec = BinTree.foldr (f, bintree, [])
-    in
-      Vector.concat vec
-    end
-
   fun toStringFolder ({x, ex, y, ey, data = {r, g, b, a}}, acc) =
     let
       val item = String.concat
@@ -524,4 +497,77 @@ struct
     in
       String.concat acc
     end
+
+  fun intToRealString num =
+    let
+      val result = Real32.fromInt num
+      val result = Real32.toString result
+    in
+      if String.isSubstring "." result then result else result ^ ".0"
+    end
+
+  fun colToRealString col =
+    let
+      val result = Real32.fromInt col / 255.0
+      val result = Real32.toString result
+    in
+      if String.isSubstring "." result then result else result ^ ".0"
+    end
+
+  fun toExportStringFolder ({x, ex, y, ey, data = {r, g, b, a}}, acc) =
+    let
+      val x = intToRealString x
+      val y = intToRealString y
+      val ex = intToRealString ex
+      val ey = intToRealString ey
+      val r = colToRealString r
+      val g = colToRealString g
+      val b = colToRealString b
+
+      val x = String.concat ["((", x, " - halfWidth) / halfWidth)"]
+      val y = String.concat ["(~(", y, " - halfHeight) / halfHeight)"]
+
+      val ex = String.concat
+        [ "((((("
+        , ex
+        , " - "
+        , x
+        , ") "
+        , "* scale) + "
+        , x
+        , ") - halfWidth) / halfWidth)"
+        ]
+
+      val ey = String.concat
+        [ "("
+        , "("
+        , "("
+        , "("
+        , "("
+        , ey
+        , " - "
+        , y
+        , ")"
+        , "* scale) + "
+        , y
+        , ") - halfHeight) / halfHeight)"
+        ]
+    in
+      x :: y :: ex :: ex :: y :: ey :: r :: g :: b :: acc
+    end
+
+  fun toExportString (squares, canvasWidth, canvasHeight) =
+    let
+      val size = Int.max (canvasWidth, canvasHeight)
+      val qtree = buildTree (0, 0, size, squares)
+      val bintree = merge (qtree, squares)
+
+      val coords = BinTree.foldr (toExportStringFolder, bintree, [])
+      val coords = String.concatWith "," coords
+
+      val header = ""
+      val footer = ""
+    in
+      String.concat [header, coords, footer]
+    end
 end