>?CxjEDTWDDDhvhDD33""""33TUvWDD33"""R725""3C%̼ plUVUeqLDTugED433""33CfvVDD33#""S^"""Z433TW4̻ M4DTgUvgUUv zfEDDD3333DT̉VDD43#""!"b43("cGDTvF3̻#"3TxwgVUvxfUDDDDDDDDTv hVDDD33""!"2TET9"SXUF#̼!2CxffxgUUUUUDDDUvgVEDD33""""23Tg5""Cu~flU7"̼!3exwKxgVUUeFghUUUvygVUDD43#""""""33D k3"!2CeɁXD#̻2TxgVUUelVUUvxgVUEDD43"""""33CTzV3"!2CdGyW43"̻"T,ZwfVevyfVfwfUUUDD33"""333DTigE3#""3CdgU3#"̻"t;Ꮡ_xgffwxgfvwfUUUUvE333333CDuhE3#"""23DuVE3#"̼"鼚xwwww쫉xfVUUeVD4333CTU\D43"""""33TV43#"̼"Sea4ͪ*‰٫㬙gfUeffEDDDDtifWD43#"""23Te~E43""̼!2CUs_ *<&xfffwhWDDDTuwpWDD43#"23C'wlE43"̼"3DUvQ--м̉wwwnEDDUey)fEDD4333DTvgE43"̼ 23Dev ![/򼚩 @k#wwhVUUUfxfUDDDDDDDTugED3"̻14CDf.,ɁD1̫̼@/K񽚈ܚgVUUUv[xfUUTUUEDUuȌgUD3"̻AUev^z3=Pp:wfUUevwgVUUexoUUvgUE4"̻2w AG  WOͪwfVUfw=xgVUUehfeKyVU4"̻2ђ o7Pr463xgffv,xwfUUvxgfߑwwN#̻RfwQ,'1.1- K"7!q󽪉wgfwޚwfffww{F#"̻0%VDTxA+vd6RY%1VkּwwwfwΉJLM4"̻PE3DD{wwSHVpUTzΌY:μ x˺  xF4#"̻ "233fffPx="1h_%Rμ ΫϧxVD33"""̻!"23CUUe.B>,V"gNt:W Xi;̫ΫP߽Ϋ`RzVU433#C̼"33DUUv1#f-geAݼ=p« qWVUf43D̼!"3DTUvCACS  yѼObBΫ m+ߋxw|EDe[̼"2CDev c>$q,Dn !GQ̻_02ߛfe6̼!2CDewc00`P*A/GI /=RU\5̼!"CDfwO PFdZ? @zE0x}<86̼!"3T.T|$A#t0IH!89<\#ϭwwVu̼!"2T/9 `8W$!bUV@Ki3UQTMPSvTxgVD4C̼!"2T%;X5"#tx&f[$sw* P2R8yVED3#̼!"3t5$EYygDU`<@zubbXhUD43"̼""3􉈘!][zUw 2ꍗugUD4#̻?!""3dfww-1[wYmp 0XQ ͲegUE3"̻0""23TUvw!Sߚ( @6 >]xVE3"̻_g$!""3CTUew dه If?#}gV3"̻!FE!""23CDUUv.3dqP'=lp>{3"̻4!"""33CDUUfZ 63*X3"̻qeI"!"""233DDUUf2#@{@ͼW4"̻ CS#"""""""233CDDUUfS _ͫZ4"̻"84"2C3C43333CDDUev P1}SwFD#"!"̻!tF33tFTH433CDDTUfvGYK'𭙈gUD3#""""C̻1thEDuXEDDDDDUffw!u| I`Y༚gUD43#""2u,̻2ŸfٙzVUEDUffv/SB06j4ͫfUED3333dH̻!tYUhfUUUffvw z?̑gUUU433D<!"4̻p3E3ShWUu˪gfwڎf2ag6#" gVUv]DDT6"cCT̻1{4"2DEDTwǏwܭ B'B2߫xwwhEDUE"̼F3""""C433Tv*Ī ;'&͛xhfevzE#"!̼14!"23Tu܍Zk O<ͫE33"2#̼ESj#!"2Cuwwxw U%TY/u r+"ʰf43T3""2&̼aU#""CqfUUfsjA9lКg VED=3S#̼#3b!"CXEDTezww2<q4ϚxwwfUvyvw^DE<̼+"BVDDDTfff teQ$`ϊxfVETUj=x$̼@!sVD33CVUev /U FgVEDD3Deh[Uf\#̼!SG3333DUUUvAU: 4MLgUDD333TFdG3Cw$̻!W333333DTUfAu@  gUD43332335""7̻!4"""233CDUvt`.0q5gUD33#"""!""BP%̻#"""""33DTv u2e#BʡӛgUD3#"""2?̻R"!""3DTw j0yV43"""C̻!"2CT@ZD֝N \x4#"!3X"̻""3Tλ,2!c Ъi4""#̻!"2TCeSqoW#"̼"2SwCv=;ygE#"̼"2Cfww/P%gVD#̼"2CeffwT:@G!gUD#̼"23TUUfw2vILଉWUD#̼"23DUUev!dFЬgUD#̼!"23DUUefJ!{ 'wVE3̻!"23DTUUfCk!C IXdygG3"̻""3CDTUUfK"T] ϊX3#̻"23CDTUefa v V43"̻!"23CDTUefRN VD3#̻!"33DDTUfvQyӚwED4"̼"23CDDUefwl( yxw gUf̼B33DDTefvwc ƈwfƹe̼!UUETUffww1o xfffj4̼!d\UUfvwwnBQP᧽gUUDTvY#̼!3|fx4S.ögUEDDem#̻!2dx򡛙fn œgUDD3C#̻!2T  ˻A J .P=gUD433̻!2dˈ҃+hU433""̻!B{fvyw ];ͪV43""̼2}VUUefOR J`ɫ@3""̼ElEDDTfG*n}xh5#"̼ ӊXDDDTe٪Nf y2wwY4""̼ eD3333DUywwR9Rڴ廮xfVD3"̻5""2333TffvwB) kLFgVED#"̻!"""333CfVUfv/Rh8ݬfUED#"̻!"""333TUUUf 60 zޫxfUED#"̻!""33CTUUe@g lTxfUED3"̼!"23CDTUev1eMt#S弪ygUED3"̼""33DTUev d _ {gVUD3"̼!"23DDUevc?ljwfVE3#̻""3CDUfw2DŐ@ PxgfI3#"̻!"2CDefwFΛG33"̻!"2CDevRͻV43#"̼!""CDw SD&iU433"""̼""3Tȝ@x .0]hVD33#""2̼""3Tݻ0_ gΫgVDD3332C)̻""3Tۯcբ4@6͛ɽwVEDDDDD#̻!""3T׬1Sȇ5`ywUDDT$̻!""3tډ?C2w@꫉xwwۚgUUUE̼""23gw^0V|Hn͉wwwwxfVuȜ4̼""23Tffw qܭxgffv8+bxwV#̻!""23TUevTXnŪgffffw5"_̻"""33DUUfw0ᬙxffffffpU4"̼!""23CDUUewcnu⬉xfUUUUUfywgE4"̼"""23CDTUev! 4b#gVUUUDDUevWE4" (̻!"""33CDTUevA> ͊gVUUDDDDUffE3"",̻"""233DDTUev@pm0 ` ƝgUUEDDDDTevgE3#"B̼!"""333DDTUevʏ/   rފgUUDDDDDDUvxG33"̼"""233CDDTUfv{O12- RpmSLLwVEDDDDDDTu,V43#b"2̻!"""333CDDUef 1; &wXڐxVEDD333CDe gD33"r4"Ee̻"""2333DDTefvH'R `Xw v.!5CP.̺VDD33333CT:UDC42Y3t3YU̼ !""2333CDDUffwTd˞PP^e6x!xkD3333333CVEDe#!2iE#̻!"23333CDDTefw*eG )O"SXxvɰ6欪yww{fE33333333CTvfUe4"!2&t4̻!G"3CgDDDTUUewJ@_;U7c#d.⛉gffgU4333333333Texk4#""CHp%̼!\!23T'UUUUUf.0G ˆJpRV XӛxfUUDD3#"""""233De芘YD3"""!2C&2x$"2Edgv|zfv }pSP\e, 2#dˑcxVUDD3#""""""""3CeﺐET#"""""23T7m[^!2%5!""!""Sf wx=Ty6Z"4Z?SoÀ wVUD43"""""""""2C|?Sh5#"""2CEeyE3)"""C4"""B#2#!"""2C!ޓ ϩg|eC UT = tͪ,wVED3#""""""""""2Uv E3333eey l$3C4TE#"2Ch4C:#""""3Cngv{rvVUlf'I40VJͪϻ!ꔿ,xVED3""""""""""SDT4|U433Cg#EvfVE33S^uI3"""23D\fUUUe{fETWU ]髙]ルfE4#""!""""2CDpzfE3CDXDt&{yGDd"WD3"33CTUD4DUzEDDDDTu ˻ ߫ήP澰̪yE3#"""""3CgfǩXEDdLH33̺gvVUXU͈ieED33TeuE433DcE4333D虺DѪ}Vﳙwwݺ53"""2CgUUflVeg8#"UD3CTWwףgeiFDTvf}D333CiE33333d|fv Сw^˳gfwxV43"!"3EDDe'iF#hD33#2CKUUlKWU#ے53""3iE3""""CXUfЉywfvwxVffgU43"!2D33Dv;U4jD3"""2UY4DTgjDU6""""5""!"2DUeiwfwgffvw]̜gUUfgE33"!"3333TfyF4#̼gD#""""D3tF333dUzUY43"""""S$"!"CDejxgevɊwVUefwxgvWUUU&hE3#!"333DUhE4#@yE"!"s8#""CTvgED4#"CQ#"3DexVUegUUUfw/gVeVEDTu[lD3#""23CT^E3"̰6"$"""2DjU33"RY#"2Cu mUDTwVUUUfv͈gUUvWDDDejD4#!""2CTYE3"{w#"2CiD3""!#!2CfyEDDUVUUUevVUDDDD3DDTjE4#"""3ThE#"y5"3Z4#"!!2SUE433DTEDDUef,VED43333CTuV4#!""2TyG#"q4!3W4#"!2e[D333333DDDDUfhD43""233TYE#"""C I#"̉52W4"R F43#"""33DDDTvwvX43""""23S؇h#!""CF#">2k5"rTE3#""""233DDTvSgVE3#"""""2SsU$""CwG#"-- title: Mandelbrot set -- author: infurity -- license: MIT License -- version: 1.0 -- script: lua function func(cr,ci,n) local _zr,_zi local zr,zi=cr,ci for i=1,n do if zr^2+zi^2>4 then return i end _zr,_zi=zr^2-zi^2+cr,2*zr*zi+ci zr,zi=_zr,_zi end return 1 end function render() for x=0,239 do for y=0,135 do local u=(x-119)/136*1/scale+xoff local v=(y-67)/136*1/scale+yoff local col=(func(u,v,iter)-1)%16 pix(x,y,col) end end end --defaults cls() xoff,yoff=-0.75,0 scale=0.4 iter=100 t=true render() print("click to zoom in at the mouse",0,0,12) function TIC() local mx,my,mb=mouse() if mb then if t then xoff=(mx-119)/136*1/scale+xoff yoff=(my-67)/136*1/scale+yoff scale=scale*2 render() t=false end else t=true end end