//the pendulum //started december 27, 2001 //finished ... 2002 #version 3.5; #declare Radiosity = off; #default {finish {ambient 0 diffuse 1 brilliance 1}} global_settings { noise_generator 2 ambient_light 0 assumed_gamma 1 #if (Radiosity = on) radiosity { pretrace_start 1 pretrace_end 1 count 300 nearest_count 4 error_bound 0.05 recursion_limit 1 low_error_factor 0.05 gray_threshold 0 minimum_reuse 0.015 brightness 1 max_sample 1 adc_bailout 0.01 normal off } #end } #declare Width = 300; camera { up y*1.2 right x location <0,0,0> look_at z rotate -z*5 rotate -x*35 rotate -y*15 rotate -x*12 translate <0,-50000,-10200> angle 70 } sky_sphere {pigment {rgb 1}} light_source {<0,-50000,-10200> 1 shadowless} #declare VGranite = pigment { wrinkles color_map {[0 rgb 0][1 rgb 1]} warp {turbulence <1,0.5,1>/3 octaves 3} scale <1,3,1>*100 } #declare VLines = function { pigment { pigment_pattern { cylindrical scale 0.75*140/140 translate z warp {repeat z*2} warp {turbulence <1,0,1>/25 octaves 2} color_map {[0 rgb 0][1 rgb 1]} scale 140 } pigment_map {[0 rgb 0][1 VGranite]} } } #declare HLines = function { pigment { pigment_pattern { cylindrical scale 0.75*140/154 translate z warp {repeat z*2} warp {turbulence <1,0,1>/25 octaves 2} color_map {[0 rgb 0][1 rgb 1]} scale 154 } pigment_map {[0 rgb 0][1 VGranite]} } } //left isosurface { function {x + (0.5^(VLines(x,y,z).gray^4) * 0.5^(HLines(x,z,y).gray^4))} contained_by {box {<-100,-1000000,-100000>,<0,1000,100000>}} accuracy 1 max_gradient 0.75 pigment {rgb 1} scale <45,1,1> translate -x*Width } //right /*isosurface { function {x + (0.5^(VLines(x,y,z).gray^4) * 0.5^(HLines(x,z,y).gray^4))} contained_by {box {<-100,-1000,-100000>,<0,1000000,100000>}} accuracy 1 max_gradient 0.75 pigment {rgb 1} scale <45,1,1> rotate z*180 translate x*Width } //left box { <0,-1000000,-2000000>, <0, 1000, 2000000> pigment { function {0.5^(VLines(x,y,z).gray^4) * 0.5^(HLines(x,z,y).gray^4)} color_map {[0 rgb 1][1 rgb 0]} } finish {brilliance 0} translate -x*Width }*/ //right box { <0, -1000,-2000000>, <0,1000000, 2000000> pigment { function {0.5^(VLines(x,y,z).gray^4) * 0.5^(HLines(x,z,y).gray^4)} color_map {[0 rgb 1][1 rgb 0]} } finish {brilliance 0} rotate z*180 translate x*Width }