// Frame / Ring // 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,-10> angle 56 look_at <0, 0, 0> } light_source {<50, 100, 50> color rgb <1,1,1>} #declare Nt = 12 #declare Pne = 4*Nt*Nt #declare Pn0 = 0 #declare Ro = 4 #declare Dt = 0.2/Nt #declare Rt = pi*2/(Nt-0.5) #declare Yt = 2.0035*pi/Nt/4/Nt //Nt=4 2.0317 Nt=6 2.014 Nt=9 2.006 Nt=12 2.0035 union { #declare Pn =Pn0 #while (Pn < Pne) cylinder {, , Dt} cylinder {, , Dt} cylinder {, , Dt} #declare Pn =Pn +1 #end texture { pigment {color rgb <1, 0.5, 0.3>} finish { ambient 0.0 phong 0.2 reflection 1.6 specular 0.2 brilliance 1.0 } } rotate <90,30,-20>//scale <2,1,2> no_shadow } #declare Cn =2 #while (Cn < 5) torus { 4, Cn/5 texture { pigment { granite color_map { [ 0.2 color rgbt <1,1,1,0.9> ] [ 0.8 color rgbt <1.5-Cn/3, Cn/5, 2,0.7> ] } scale 4-Cn/2 } finish { ambient 1.5-Cn/4 phong 0 reflection 0 specular 0 } } rotate <0,30,-20> } #declare Cn =Cn+1 #end #declare Sphere = sphere {<0, 0, 0>,1} #declare Textur = texture { pigment {colour Clear} halo { linear max_value 1 spherical_mapping emitting turbulence 0.3 colour_map { [0 color rgbt <1,0,0,1>] [1 color rgbt <1,1,1,0>] } samples 10 } } object {Sphere hollow texture{ Textur } scale <2,15,2> rotate <0,30,-20>}