Sunday, December 25, 2005
Saturday, December 24, 2005
all made from POV-RAY code//copyright Aparup 2000
#include "colors.inc"#include "textures.inc"#include "glass.inc"#include "consts.inc"
global_settings { max_trace_level 40 } //glass refracts/reflects a lot
camera { location <-10, 0, -70> right <4/3,> up <0,> //sky <0,> direction <0,> look_at <0,> }
light_source { <50,> colour Gray70 }light_source { <-20, 40, -30> colour Gray90 }light_source { <100,> colour Gray70 }light_source { <0,> colour White }
background { color Gray50 }
#declare pie=3.14159#declare ballrad=11difference{ plane { y, -10 pigment { onion turbulence 2 octaves 2 color_map { [0.0 0.10 color YellowGreen color GreenYellow ] [0.10 0.60 color GreenYellow color ForestGreen ] [0.60 1.00 color ForestGreen color DarkGreen ] } } finish { ambient 0.3 diffuse 0.8 } scale <500,0,1000> } cylinder{<-30,-9,-30>,<-30,-25,-30>,22 pigment{ White} finish{Shiny} } }
/*plane { y,900 texture { pigment { SkyBlue } finish { ambient 0.4 diffuse 0} } texture { pigment { bozo turbulence .5 color_map { [0 White] [1 White filter 1] } } finish { ambient 1 diffuse 1 } scale <250,> rotate <0,0> }}*/
#macro Spot_Surface (thing,rad,dv) #local Count=1-dv; #local Countyz=1-dv; #while (Count
#macro shiftx_scale (thing,step) #local Count=0; #while (Count<=2*pie) union{Spot_Surface (thing ,ballrad*sin(Count),(1/step)*pie*sin(Count)) translate
#declare diffball=sphere { <0,>,1.25 pigment{ White } //finish {phong 1}}
#declare diffballg=sphere { <0,>,2.5//1.25 texture { T_Glass1 } interior { ior Diamond_Ior } //const -Diamond_Ior -Flint_Glass_Ior -Crown_Glass_Ior}
#declare diffballm=sphere { <0,>,1.25 texture {New_Brass }}
// the real drawing starts here*********** #declare golfball=difference{ object { diffball scale <8,8,8> } shiftx_scale(diffball,pie/18) } #declare golfballg=difference{ object { diffballg scale <8,8,8> } shiftx_scale(diffballg,pie/18) } #declare golfballm=difference{ object { diffballm scale <8,8,8> } shiftx_scale(diffballm,pie/18) } /*object{ golfballg translate <2,0,-40>} object{ golfball translate <15,0,30>}
object{ golfballm translate <-25,0,70>}
difference{ cylinder{<0,0,0>,<0,15,0>,3 texture { T_Glass1} interior { ior Crown_Glass_Ior } } torus { 40.2, 40.0 // tube radius/2 , tube thickness texture { T_Glass1 } interior { ior Crown_Glass_Ior } } translate <-45,-11,0> //into ground like in reality!} */intersection{object{union{shiftx_scale(diffballg,pie/6)} translate <0,>} object{union{shiftx_scale(diffballg,pie/6)} translate <0,>}}
text { ttf "crystal.ttf", "2", 2, 0 pigment { color rgb <1,> } finish { ambient 0.2 diffuse 0.6 phong 0.3 phong_size 100 } scale <40,40,> translate <0,> rotate <0,>}






















