// MANDELBROT_FRACTAL / Whirl_Frame '00.09 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1; global_settings { assumed_gamma 2.2 } light_source {<-50, -50, -50> color <1,1,1>} camera { location <0,-7,-10> angle 7 look_at <-0.55, -0.7, 0> } // #macro Selfsq(Rpmax,Pht, Sprit, Stre,Stim, Edre,Edim, Cnre,Cnim, Powt) #declare Dfre=(Edre-Stre)/Sprit; #declare Spriti=int((Edim-Stim)/Dfre); #declare Cp=array[Sprit+1][Spriti+1][4] #declare Dfrp=Pht*(Edre-Stre)/Rpmax; #declare Nre=0; #while (Nre4) #declare Rp=Rpmax; #else #declare Re=Pre; #declare Im=Pim; #end #declare Rp=Rp+1; #end #declare Cp[Nre][Nim][3]=Rpo; #declare Cp[Nre][Nim][2]=pow(Rpo*Dfrp,Powt); #declare Cp[Nre][Nim][0]=Stre+Dfre*Nre; #declare Cp[Nre][Nim][1]=Stim+Dfre*Nim; #declare Nim=Nim+1; #end #declare Nre=Nre+1; #end // #macro Framep (Pre,Pim, Cylr, Colr,Colg,Colb) union { cylinder { , , Cylr } cylinder { , , Cylr } cylinder { , , Cylr } pigment {color rgb } } #end union { #declare Nre=1; #while (Nre } #end Selfsq (80,1, 50, -0.2,-0.85, 1.5,1, -0.76,0.2, 0.2)