Here is the source code of the image.
My englich is not so good, sorry...now i write in German :

<German>
Die linke Kugel war nicht schwierig. Mit der rechten hatte ich schon
schwierigkeiten.



der Kugel subtrahiert.

noch nicht getestet.
</German>


//Code -----------------------------------------------------
#include "colors.inc"
#include "stones1.inc"
#include "golds.inc"
#include "skies.inc"


camera{
 location <0,5,-40>
 look_at <0,3,-10>
 angle 35
 }
  light_source {<-1,40,-50> color White spotlight point_at <-6,0.5,1> radius
3 falloff 5 tightness 0}
  light_source { <10, 20, -50> color White spotlight point_at <10,2,1>
radius 9 falloff 10 tightness 0}
  light_source { <5,20,-10> color White }
  sky_sphere { S_Cloud1 }


 #declare st=texture{pigment{color rgb<0.83,0.82,0.87>*1.2}
  finish{diffuse 0.75 ambient 0 specular 0.9 roughness 0.03 phong 0.5
brilliance 8 phong_size 80  metallic 0.8 reflection{0.4,0.9 metallic}}
  }

 #declare rh=texture{ T_Grnt20
  finish{diffuse 0.75 ambient 0 specular 0.9 roughness 0.03 phong 0.5
brilliance 1 phong_size 180  }
  }

plane{<0, 1,0>,-4
//pigment {
//checker White, Black}
texture{
//T_Stone11
pigment { LightSteelBlue }
finish { specular 0.5 reflection .35  }
normal { ripples 5.35 turbulence .5 scale 2.25 }}
 }



 #declare Kugel =
  difference {
  sphere { <0,2,0>,5 }
  sphere { <0,2,0>,4.9 texture { st }}
  //pigment { color White }}
  }



 #declare rillen =

 union {
 #declare  i=0;
  #while (i<1)
  torus { 8,1 rotate x*i*360 }
  #declare i=i+1/5;
 #end
        }

 #declare Kugel2 =

  union {
  difference {

  object { Kugel texture { rh } }

  object { rillen  rotate <20,120,25> translate y*3.5 scale 0.6}

   }

  sphere { <0,2,-1>,2 texture { T_Gold_2B } }

  }


#declare T2=
 texture{
   pigment{White}
   normal{
     agate 0.6
     scale 0.24
   }
   finish{phong 0.8 phong_size 200}
 }


#declare Spirale =
 union {
#declare i=0;
#while(i<1)
   //sphere{1,0.12,6
   cylinder { 0, x*0.3,0.05 rotate y*i*1180 translate y*i*0.45 }
   //rotate x+i*30}

   //translate z*0.5 rotate y*i*10*360 rotate x*0 translate y*3*i
   //rotate z*360*6*i translate x*0.9
   //rotate y*i*360


   #declare i=i+1/150;
#end

   }

 #declare KugelB =
 union {
 difference {
 sphere { <0,2,0>,4 texture { T2 } }
 sphere { <0,2,0>,3.9 texture { st } }
 object { Spirale  texture { st }scale 15 translate <0,-1,0> }
  }
  sphere { <0,2,0>,2 texture { T_Gold_2E }}

  }

 object {KugelB translate <7,0,0> }
 object { Kugel2 translate <-4,-1, 4 >}

//-----------------------------------------------------------------

Post a reply to this message