// Frame / Pipe // Please use freely for non comercial purpose. // All rights reserved by Tsutomu HIGO, Nov. 13, 1998 #version 3.0 global_settings { assumed_gamma 2.2 } #include "colors.inc" camera { location <3,3,-7.5>//<-0.2,0,5.1> angle 95 look_at <-6, -8, 0> } light_source {<50, 100, 50> color rgb <1, 1, 1>} light_source {<20, 30, 18> color rgb <1, 1, 1>} #declare Sphere = sphere {<0, 0, 0>,1} #declare Textur = texture { pigment {colour Clear} halo { linear max_value 1 spherical_mapping emitting turbulence 0.1 colour_map { [0 color rgbt <1,0,0,1>] [1 color rgbt <1,1,1,0>] } samples 10 } } #declare Ns = 48 #declare Pn0 = 0 #declare Pn1 = 2000 #declare Nt = 24 #declare Dt = 0.2/Nt #declare Rt = pi*2/(Nt-0.5) #declare Yt = 0.156*5.5*5.5/(Nt-0.5)/(Nt-0.5) union { object{Sphere hollow texture{ Textur } scale <1,20,1> translate y*(Yt*Pn1/4)} #declare Pn =Pn0 #while (Pn < Pn0+Pn1) cylinder {, , Dt} #if( Pn>Pn0+Nt-2) cylinder {, , Dt} #end #if( Pn>Pn0+Nt-3) cylinder {, , Dt} #end #declare Pn =Pn +1 #end texture { pigment {color rgb <0, 0, 0>} finish { ambient 0 phong 0.5 reflection 0.3 specular 1.0 brilliance 1.0 } } translate y*-(Yt*Pn1/2) rotate x*90 } sky_sphere { pigment { gradient y color_map { [ 0.2 color rgb <0.3,0.3,1> ] [ 1.00 color rgb <1,1,1> ] } scale 1 rotate y*0 translate 0 } }