// TUBE / Male's Eye '99.02 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1; global_settings { assumed_gamma 2.2 } #macro Texture_c ( Cred, Cgreen,Cblue ) texture { pigment {color rgbt } finish { ambient 0.3 phong 3 reflection 0.8 specular 0.8 brilliance 1 } } #end #macro Bobo_ring (Ro, Nt) #declare Pne = 4*Nt*Nt; #declare Rt = pi*2/(Nt-0.5); #declare Yt = 2*pi/Nt/4/Nt; //Nt=4 2.0317 Nt=6 2.014 Nt=9 2.006 Nt=12 2.0035 #macro Ka (P) (200*(1+sin(2*P/(Pne-Nt)*180-30)*pi/180)+2*P/(Pne-Nt)*180)*pi/180 #end #macro Rs (P) Ro*(-P/(Pne-Nt)*180*(P/(Pne-Nt)*180-10)*(P/(Pne-Nt)*180-180)/300000+0.3)*0.4 #end #macro Rl (P) Ro #end #macro Ptri (P) , #end #macro Triangle_units (P1,P2,P3) smooth_triangle { Ptri(P1), Ptri(P2), Ptri(P3) Texture_c ( Ka(P1)/pi*180/450,0,0 )} #end union { #declare Pne = 4*Nt*Nt; #declare Pn =0; #while (Pn < Pne-Nt) Triangle_units (Pn,Pn-1,Pn-Nt) Triangle_units (Pn,Pn-Nt+1,Pn-Nt) #declare Pn =Pn +1; #end } #end camera { location <0,0,-100> angle 6.8 look_at <0, -0.3, 0> } light_source {<500, 1000, -200> color rgb <1,1,1>} object { Bobo_ring (3, 16) rotate <0,0,210> translate <-0,0,0> } background { color rgb <0,0,0.2> }