// "Hieros Gamos"
// 1998 Anders Sandberg

#include "colors.inc"
#include "textures.inc"
#include "stones.inc"

camera {
   location <-5, 0,  -7>
   look_at <0, 0, 0>
}

object {
   light_source {
     <-50000, 50000, -50000>
     color White
   }
}

#declare Logic = 
texture {
  pigment {
    White
  }
  finish {
    metallic
    brilliance 6.0
    reflection 0.75
    phong 0.75
    irid {
      0.3
      thickness .5
      turbulence .35
    }
  }
}


#declare R=seed(3)

#declare Z=-5
#while (Z<20)

blob {
  threshold 0.5
#declare X=0
#while (X<60)
  sphere {<1,0,0>,0.5,0.5 
    rotate <rand(R)*360,rand(R)*360,rand(R)*360> 
    rotate <rand(R)*360,rand(R)*360,rand(R)*360> 
    translate <0,0,Z>}
#declare X=X+1
#end
  texture {Silver3}
}

sphere {<0,0,Z>,0.5 texture {Logic}}

#declare Z=Z+2
#end


sphere {
  <0,0,0>,10000

  texture {
    pigment {
      image_map {
	tga "/tmp/mars.tga"
	interpolate 2
	map_type 1
      }
      rotate <-50,30,0>
    }
  }
  translate <10000,-5000,10000>
}