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

#declare Z_OFFSET=19.5;

/* This scene created by Kwan L. Lowe for the www.flux.org demo.
   Enjoy!
*/

// light_source { <40, 40, -120> color White }

camera {
  location < 22,2+30*clock ,-35 >
//  location < 3, 1, 0>
  look_at  < 0, 4, 0 >
  focal_point <0, 4, 0>
  blur_samples 20
  rotate <0, 720*clock, 0>
}
sky_sphere {
  S_Cloud3
}

plane { y, 0 
  texture { T_Stone25 }
  // pigment { checker Black White }
}

#declare trilith=union {
  box {
    <4, 0, 0 + Z_OFFSET >, <1, 12, 2 + Z_OFFSET>
  }  

  box {
    <-1, 0, 0 + Z_OFFSET >, <-4, 12, 2 +Z_OFFSET>
  }

  box { 
    <4.5, 12, -.2 + Z_OFFSET >, <-4.5, 14.5, 2.1 + Z_OFFSET> 
  }
  texture { 
    T_Crack3
    normal { bumps 0.4 scale 0.2}
  }
  finish {
    ambient .1
    diffuse .6
  }
  pigment { color Gray }
  normal {bumps 0.4 scale 0.2} 
} 

fog {
  distance 150
  color rgb <0.1, 0.1, 0.3>
  fog_type 2
  fog_offset 25
  fog_alt 3
  turbulence 0.1
  turb_depth 0.2
}

object { trilith }
object { trilith rotate -60*y }
object { trilith rotate -90*y }
object { trilith rotate -120*y }
object { trilith rotate -150*y }
object { trilith rotate -180*y }
object { trilith rotate -210*y }
object { trilith rotate -240*y }
object { trilith rotate -270*y }
object { trilith rotate -300*y }
object { trilith rotate -330*y }


#declare glow_bubble=union {
    sphere {
      < 0 , 0, 0 >, 2
      pigment { Blue transmit .75 }
      finish {
        ambient .1
        diffuse .1
        specular .2
        reflection 1
        roughness .001
      }
    }
    
      light_source { 
        < 0, 0, 0> 
        color White 
        area_light <2,0,0>,<0,0,2>, 2, 2
        adaptive 1
        fade_distance 8
        fade_power 1
    }
}


object {glow_bubble translate <0,20*clock,5> rotate <0,-3600*clock,0>}
// object {glow_bubble translate -20+20*clock*y rotate <0,-3600*clock,0>}
/*
union {
  sphere {
    < 4 , -10 + 30*clock, -4 >, 2
    pigment { Red transmit .45 }
  }
  light_source { 
    < 4, -10 + 30*clock, -4> 
    color White 
    area_light <2,0,0>,<0,0,2>, 2, 2
    adaptive 1
  }
  rotate < 0, 1440 * clock, 0>
}

union {
  sphere {
    < 6 , -5 + 50*clock, -4 >, 1
    pigment { Blue transmit .65 }
  }
  light_source { 
    < 6, -5 + 50*clock, -4> 
    color White 
    area_light <2,0,0>,<0,0,2>, 2, 2
    adaptive 1
  }
  rotate < 0, 2880 * clock, 0>
}
*/