|
![](/i/fill.gif) |
Ken wrote:
> HEY !! Mr. Tyler has it. It shall return.
It returneth.
Next person !
--
Ken Tyler
tyl### [at] pacbell net
camera {
location <-100, 10, -100>
sky <0, 1, 0>
look_at <0, 0, 0>
}
light_source {
<-1000, 800, -2000>
color rgb<1, 1, 1>
}
plane {
<0, 1, 0>, 0
pigment {
color rgb<1, 1, 1>
}
}
//bobs part one
#declare C=1;
#while (C<9)
sphere {0,1
pigment {rgb C/10 filter C/9}
normal {waves .4 turbulence .2 scale .1 phase clock}
finish {ambient .6-(C/11) diffuse .2+(C/15) specular .6 roughness .01
reflection .25
irid {.6 thickness .3 turbulence .2} brilliance -.15 metallic .4}
interior {ior 1.05 caustics 4 fade_distance 1.5 fade_power 1}
scale <C/3,C/4,C/5>*7 rotate C*45*y rotate clock*360*y
translate <3,5,-7>*4
}
#declare C=C+1;
#end
//bobs part one
//Johannes' part 1
union {
superellipsoid { <0.1, 0.1> }
superellipsoid { <1.0, 0.1> translate 0.93*y }
superellipsoid { <1.0, 0.1> translate 0.93*x }
material{
texture{
pigment { color rgb <0.8, 0.0, 0.0> }
finish {
ambient 0.2
diffuse 0.3
brilliance 0.099
phong 1.0
phong_size 4.3
specular 0.22
roughness 0.001
}
}
}
scale <2.5, 2.5, 1.25>
rotate <0, 0, 45>
translate <-80, 3.3, -70>
}
//End Johannes' part 1
// Start Ken 3of3
#declare Obelisk =
intersection{intersection{intersection{
plane{x,0 rotate 5*z translate 9*x }
plane{x,0 rotate 5*z translate 9*x rotate 90*y }
plane{x,0 rotate 5*z translate 9*x rotate 180*y }
plane{x,0 rotate 5*z translate 8*x rotate 270*y}}
plane{x,0 rotate 30*z translate 5*x translate 60*y}
plane{x,0 rotate 30*z translate 5*x translate 60*y rotate 90*y}
plane{x,0 rotate 30*z translate 5*x translate 60*y rotate 180*y}
plane{x,0 rotate 30*z translate 5*x translate 60*y rotate 270*y}
plane{y,0 inverse}}
cylinder{z*-10,z*10,6 scale<1,1.75,1>inverse pigment{rgb 0}}}
#declare OBTex =
texture{pigment{granite turbulence 5 color_map{
[.25 rgb<.70,.67,.64>][.50 rgb<.65,.63,.59>]
[.75 rgb<.70,.67,.64>][1.0 rgb<.65,.63,.59>]}}
finish{ambient .4 diffuse .35}}
#declare Obelisk_Set =
union{
object{Obelisk scale<1.5,1.25,1>translate<-100,0,50>texture{OBTex scale 10}}
object{Obelisk scale<1.5,1.25,1>translate< 100,0,50>texture{OBTex scale 10}}}
union{
#declare A = 0;
#while (A<10)
object{Obelisk_Set translate 250*z*A}
#declare A=A+1; #end rotate 45*y}
fog{distance 150 color rgb<.70,.67,.63>fog_type 2 fog_offset 15 fog_alt 1}
// End Ken 3of3
Post a reply to this message
|
![](/i/fill.gif) |