// Frame / Coil // Please use freely for non comercial purpose. // All rights reserved by Tsutomu HIGO, Nov. 14, 1998 #version 3.0 global_settings { assumed_gamma 2.2 } #include "colors.inc" camera { location <0,4.5,-20> angle 57 look_at <0, 0, 0> } light_source {<50, 100, 50> color rgb <1,1,1>} #declare Nt = 4 #declare Pne = 4*Nt*Nt #declare Pn0 = 10 #declare Ro = 4 #declare Dt = 0.2/Nt #declare Rt = pi*2/(Nt-0.5) #declare Yt = 2.006*pi/Nt/4/Nt #declare Zc = 4/Pne #declare Zn = 5 union { #declare Pn =Pn0 #while (Pn < Zn*(Pn0+Pne)) cylinder {, , Dt} cylinder {, , Dt} cylinder {, , Dt} #declare Pn =Pn +1 #end texture { pigment {color rgb <0.2, 0.9, 0.4>}//<0.3, 0, 0.1>} finish { ambient 0.4 phong 2.8 reflection 0.2 specular 1.0 brilliance 2.0 } } rotate x*90 translate <-1,12,0>//scale <2,1,2> no_shadow } #declare Nt = 9 #declare Pne = 4*Nt*Nt #declare Pn0 = -60 #declare Ro = 4 #declare Dt = 0.2/Nt #declare Rt = pi*2/(Nt-0.5) #declare Yt = 2.006*pi/Nt/4/Nt //Nt=4 2.0317 Nt=6 2.014 Nt=9 2.006 Nt=12 2.0035 #declare Zc = 6/Pne #declare Zn = 2 union { #declare Pn =Pn0 #while (Pn < Zn*(Pn0+Pne)) cylinder {, , Dt} cylinder {, , Dt} cylinder {, , Dt} #declare Pn =Pn +1 #end texture { pigment {color rgb <0.2, 0.4, 1>}//<0.3, 0, 0.1>} finish { ambient 0.4 phong 2.8 reflection 0.2 specular 1.0 brilliance 2.0 } } rotate x*90 scale 2 translate <0.1,8,0> no_shadow } 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.5 rotate y*0 } } fog { fog_type 2 fog_alt 5 fog_offset 0 distance 20 color rgb <0.9, 0.9, 1> turbulence <0.05, 0.05, 0.05> omega 0.25 lambda 2.5 octaves 6 } #declare Sphere = sphere {<0, 0, 0>,1} #declare Textur = texture { pigment {colour Clear} halo { linear max_value 1. spherical_mapping emitting turbulence 0.2 colour_map { [0 color rgbt <0,0,1,1>] [1 color rgbt <1,1,1,0>] } samples 10 } } object{Sphere hollow texture{ Textur } scale 20}