>Ŕ?"""""!""""""""""""""""""""""""""""""""""""""""""""""""""""""""!"""""""""""""""""""""""""""""""""""""""""""""""""""""""!""""""""""""""""""""""""""""""""!""""""""""""""""""""""""""""""""""!""""""""""""""""""""""""""""""""""""!"""""""""""""""""""""""""2333"""""""""!"""""""""""""""""""""""""233333"""""""""!""""""""""""""""""""""""""33E433#"""""""""""""""""""""""""""""""""""233C4333""""""""""""""""""""""""""""""""""""333C4333#"""""""""!""""""""""""""""""""""""""2333CE3333""""""""""!"""""""""""""""""""""""""""3333CE43C3#"""""""""""""""""""""""""""""""""""""23333CDDDT03""""""""""!"""""""""""""""""""""""""""233333DETE33"""""""""""!""""""""""""""""""""""""""""333333DTD433#"""""""""""""""""""""""""""""""""""""""2333333DTD4333"""""""""""!""""""""""""""""""""""""""""333333CDUD4333#"""""""""""""""""""""""""""""""""""""""233333CTUUT43333#""""""""""!""""""""""""""""""""""""""""33333CDDdpVD33333"""""""""""""""""""""""""""""""""""""""233333DETeFDD3333#""""""""""!""""""""""""""""""""""""""""33333CEVdgpUEE33333#""""""""""""""""""""""""""""""""""""""233333CDeUe433333""""""""""!"""""""""""""""""""""""""""23333333DvE4333333""""""""""!"""""""""""""""""""""""""""33333333T…`D4333333#""""""""""""""""""""""""""""""""""""333333333TvPU33333333#""""""""!""""""""""""""""""""""""""233333333CDuE433333333"""""""""""""""""""""""""""""""""""233333333CDDPD433333333#"""""""""""""""""""""""""""""""""23333C433CDDDdYDDD43333343""""""""!""""""""""""""""""""""""2333cDEE4DDEDDTFDDDT43333D3"""""""""""""""""""""""""""""""""33333CFeDDDdFdeUePUUuDfE333CF3#"""""""""""""""""""""""""""""""333333CTVDFDUv… vgdeF43CDF33""""""""!"""""""""""""""""""""23333333CUeUWDt€phpDDTEDE43""""""""""""""""""""""""""""""233333333CDht…`dDDEDU43#""""""""""""""""""""""""""""3333333333CT…€U•DUgVU43#""""""""!"""""""""""""""""""33333333333CT`pW`E533"""""""""!"""""""""""""""""2333333333333CD…PPD333""""""""""""""""""""""""""23333333333333DDTePE333"""""""""""""""""""""""""23333333333333DEDuE4333"""""""""!"""""""""""""""23333333333333CDE„UD4333#"""""""""!""""""""""""""233333333333333DVe…pD4333#"""""""""!"""""""""""""2333333333333333DfF4333#"""""""""""""""""""""""33D4333333333333DdvE333#""""""""""""""""""""""333D4333333333333DDfpDDD3#"""""""""""""""""""""2333S43333D333333CTdDEE3#"""""""""!"""""""""""23333TD433CE433333DeWEE3#""""""""""!"""""""""""33333DDDDDDEDD333CDU`F3#""""""""""!""""""""""233333SUUDDDdDDEDDDDTF53#"""""""""""""""""""""333333CDdFFDTfTDDDDDUPD33#""""""""""""""""""""2333333CDTVFEe`TFDDDDPD33#""""""""""""""""""""3333333CDTWuf`VWFDDDu€D43#"""""""""""""""""""23333333CDUPPeDDTE53#"""""""""""""""""""33333333DDTiEDTP43#""""""""""!""""""""233333333DDU`DTPe43#"""""""""""!""""""""33333333CEUEupD33#"""""""""""!"""""""233333C3CDDVepD33#"""""""""""!"""""""333333CDDDDePeF33#"""""""""""!""""""2333333CFDDTp@433#"""""""""""!""""""3333333CTDET`333#"""""""""""!"33""33333333DTUUUD333#"""""""""""!333333333333CDDuwXP4333#"""""""""""13333C433333DDDTp@3333#"""""""""""13333CEDCDDDDEDePD3333#"""""""""""PDD3333#"""""""""""13333CEDCDDDDEDePD3333#"""""""""""13333C433333DDDTp@3333#"""""""""""!333333333333CDDuwXP4333#"""""""""""!"33""33333333DTUUUD333#"""""""""""!""""""3333333CTDET`333#"""""""""""!""""""2333333CFDDTp@433#"""""""""""!"""""""333333CDDDDePeF33#"""""""""""!"""""""233333C3CDDVepD33#"""""""""""!""""""""33333333CEUEupD33#"""""""""""!""""""""233333333DDU`DTPe43#""""""""""""""""""""33333333DDTiEDTP43#"""""""""""""""""""23333333CDUPPeDDTE53#""""""""""""""""""""3333333CDTWuf`VWFDDDu€D43#""""""""""""""""""""2333333CDTVFEe`TFDDDDPD33#"""""""""""""""""""""333333CDdFFDTfTDDDDDUPD33#""""""""""!""""""""""233333SUUDDDdDDEDDDDTF53#""""""""""!"""""""""""33333DDDDDDEDD333CDU`F3#""""""""""!"""""""""""23333TD433CE433333DeWEE3#""""""""""""""""""""""2333S43333D333333CTdDEE3#""""""""""""""""""""""333D4333333333333DDfpDDD3#"""""""""""""""""""""""33D4333333333333DdvE333#"""""""""!"""""""""""""2333333333333333DfF4333#"""""""""!""""""""""""""233333333333333DVe…pD4333#"""""""""!"""""""""""""""23333333333333CDE„UD4333#"""""""""""""""""""""""""23333333333333DEDuE4333""""""""""""""""""""""""""23333333333333DDTePE333"""""""""!"""""""""""""""""2333333333333CD…PPD333"""""""""!"""""""""""""""""""33333333333CT`pW`E533"""""""""""""""""""""""""""""3333333333CT…€U•DUgVU43#"""""""""""""""""""""""""""""233333333CDht…`dDDEDU43#""""""""!"""""""""""""""""""""23333333CUeUWDt€phpDDTEDE43""""""""""""""""""""""""""""""""333333CTVDFDUv… vgdeF43CDF33""""""""""""""""""""""""""""""""33333CFeDDDdFdeUePUUuDfE333CF3#""""""""!""""""""""""""""""""""""2333cDEE4DDEDDTFDDDT43333D3""""""""""""""""""""""""""""""""""23333C433CDDDdYDDD43333343""""""""""""""""""""""""""""""""""233333333CDDPD433333333#""""""""!""""""""""""""""""""""""""233333333CDuE433333333""""""""""""""""""""""""""""""""""""333333333TvPU33333333#""""""""!"""""""""""""""""""""""""""33333333T…`D4333333#"""""""""!"""""""""""""""""""""""""""23333333DvE4333333""""""""""""""""""""""""""""""""""""""233333CDeUe433333""""""""""!""""""""""""""""""""""""""""33333CEVdgpUEE33333#""""""""""""""""""""""""""""""""""""""233333DETeFDD3333#""""""""""!""""""""""""""""""""""""""""33333CDDdpVD33333"""""""""""""""""""""""""""""""""""""""233333CTUUT43333#""""""""""!""""""""""""""""""""""""""""333333CDUD4333#"""""""""""""""""""""""""""""""""""""""2333333DTD4333"""""""""""!""""""""""""""""""""""""""""333333DTD433#"""""""""""!"""""""""""""""""""""""""""233333DETE33""""""""""""""""""""""""""""""""""""""23333CDDDT03""""""""""!"""""""""""""""""""""""""""3333CE43C3#""""""""""!""""""""""""""""""""""""""2333CE3333"""""""""""""""""""""""""""""""""""""333C4333#"""""""""""""""""""""""""""""""""""233C4333"""""""""!""""""""""""""""""""""""""33E433#"""""""""!"""""""""""""""""""""""""233333"""""""""!"""""""""""""""""""""""""2333"""""""""!""""""""""""""""""""""""""""""""""""!""""""""""""""""""""""""""""""""""!"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""!""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""!"""""""""""""""""""Ç-- title: madelbrot set generation -- author: potato imaginator -- desc: Madlebrot Set Generation -- script: lua function BOOT() n=50 count=0 a={} for i=-120,120 do a[i]={} for j=-68,68 do a[i][j]={x=i/n,y=j/n,v=1} end end col={[0]=12,4,3,2,1,0} end function upd(x,y,vx,vy) return x^2-y^2+vx,2*x*y+vy end function dist(x,y) return (x^2+y^2)^0.5 end function upd2() count=count+1 for i=-120,120 do for j=-68,68 do if dist(a[i][j].x,a[i][j].y)<=100 then if dist(a[i][j].x,a[i][j].y)<=2 then flag=true else flag=false end a[i][j].x,a[i][j].y =upd(a[i][j].x,a[i][j].y,i/n,j/n) if dist(a[i][j].x,a[i][j].y)>2 and flag then a[i][j].v =math.log(count)/math.log(2)+1 end if dist(a[i][j].x,a[i][j].y)<=2 then a[i][j].v=0 end end end end end function TIC() cls(10) upd2() for i=-120,120 do for j=-68,68 do pix(120+i,68+j,a[i][j].v) end end end