0xf4dc91a5…4d2esent to0xa7d8d9ef…d270·#15,336,814·view on Etherscan
,beginShape(),icmp=-1;icmp<2;icmp+=2)for(jcmp=-1;jcmp<2;jcmp+=2)beginShape(),vertex(icmp*n4*CR,jcmp*n4*CR),vertex(icmp*n3*CR,jcmp*n2*CR),vertex(icmp*n2*CR,jcmp*n2*CR),vertex(icmp*n2*CR,jcmp*n3*CR),endShape(CLOSE);noFill(),strokeWeight(1.5*M),arc(0,0,r*CR,r*CR,-.89*HALF_PI,.97*TAU),arc(0,0,r*CR,r*CR,-.97*TAU,.89*HALF_PI),arc(0,0,r*CR,r*CR,1.055*PI,2.895*HALF_PI),arc(0,0,r*CR,r*CR,-2.895*HALF_PI,-1.0556*PI),pop()}function plotscale(dx,dy,CR){for(push(),translate(dx,dy),stroke(sclcol),jj=0;jj<5;jj++)jj%2==1?fill(sclcol):fill(1,.73),rect(20*jj*M,0,20*M,5*M);pop()}function FindMinMax(Val){for(MnnC=1e9,MxxC=1e-9,ix=0;ix<Q;ix++)for(iy=0;iy<Q;iy++)Val[ix][iy]<MnnC&&(MnnC=Val[ix][iy]),Val[ix][iy]>MxxC&&(MxxC=Val[ix][iy])}function FindMinMaxCities(){for(MxxCities=1e-9,MxxCities2=1e-9,ix=0;ix<Q;ix++)for(iy=0;iy<Q;iy++)CLgts[ix][iy]>MxxCities&&(MxxCities=CLgts[ix][iy]),CLgts2[ix][iy]>MxxCities2&&(MxxCities2=CLgts2[ix][iy])}function createPaper(){Paper=createGraphics(Qfull,Qfull),ht=.1,st=.075,vt=.8,at=.2,at2=.2,Paper.colorMode(HSB,1),Paper.fill(ConCol3),4==MAPTYPE&&Paper.fill(ConCol),6==MAPTYPE&&Paper.fill(ConCol2),Paper.noStroke(),Paper.square(0,0,Qfull),createTexture(),createFibers(),6!=MAPTYPE&&Paper.square(xstart,ystart,Q)}function ScaleHeights(){for(ix=0;ix<Q;ix++)for(iy=0;iy<Q;iy++)H[ix][iy]=hsm*H[ix][iy]+1.1*hsb-hsb*fas*famap[ix][iy]}function Normaliseheights(){for(ix=0;ix<Q;ix++)for(iy=0;iy<Q;iy++)H[ix][iy]=(H[ix][iy]-Mnn)/(Mxx-Mnn)}function ScaleHeightsIsland(){for(ix=0;ix<Q;ix++)for(iy=0;iy<Q;iy++)H[ix][iy]=hsb+hsm*H[ix][iy]-fas*famap[ix][iy]}function plotborders(){for(Borderimage=createGraphics(Q,Q),Borderimage.colorMode(HSB,1),1==MAPTYPE||2==MAPTYPE||3==MAPTYPE?Borderimage.stroke(0,1):Borderimage.stroke(0),Borderimage.strokeWeight(1*M),i=0;i<IX.length;i++)H[round(IX[i])][round(IY[i])]>0&&Borderimage.point(IX[i],IY[i])}function FindMinMaxMeanCentre(Val){for(CNTL=0,CNTS=0,Mnn=1e9,Mxx=1e-9,MNLH=0,MNSH=0,ix=0;ix<Q;ix++)for(iy=0;iy<Q;iy++)Val[ix][iy]<Mnn&&(Mnn=Val[ix][iy]),Val[ix][iy]>Mxx&&(Mxx=Val[ix][iy]),Val[ix][iy]>0&&(MNLH+=Val[ix][iy],CNTL++),Val[ix][iy]<0&&(MNSH+=Val[ix][iy],CNTS++)}function CheckForLand(Val){for(MXLD=-1e9,ix=0;ix<Q;ix++)for(iy=0;iy<Q;iy++)Val[ix][iy]>MXLD&&(MXLD=Val[ix][iy])}function RS(){return RN.RNc([-1,1])}