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

camera {
  location <2, 4, -12>
  look_at  <-1, 1.9, 2>
}

#declare Saddle = quadric { <0.5, 0, -1>, <0,0,0>, <0,-5,0>, 0 }
#declare DeepSea = 0.32
#declare ShoreLine = 0.37
#declare TreeStart = 0.38

// Play at trying to draw large [...)
object { // Character .
  sphere {<-0.5,-0.5,-0.3>, 0.75}
  texture { T_Stone13 }
}
object { // Character .
  sphere {<1,1,0>, 0.75}
  texture { T_Stone13 }
}
object { // Character .
  sphere {<2.5,2.5,0.3>, 0.75}
  texture { T_Stone13 }
}
object
{
      //#declare fontMode = 0
      //#declare Letter = "["
      //#declare Align = 0
      //#include "font.inc"
      //scale 6

      union {
        box{<-0.3,0,0>,<0,5,1>}
        box{<-0.001,0,0>,<1,0.5,1>}
        box{<-0.001,4.5,0>,<1,5,1>}
      }
      scale 1.1

      texture { T_Stone13 }
      //no_shadow
      rotate <0, 0, 32>
      rotate <0, 0, 0>
      rotate <0, -29, 0>
      translate <-2, -2, -1.75>
}

object
{
      //#declare fontMode = 0
      //#declare Letter = ")"
      //#declare Align = 0
      //#include "font.inc"
      //scale 6

      intersection{
        cylinder{<-7,2.5,0>,<-7,2.5,1>, 7.5}
        cylinder{<-7,2.5,-0.1>,<-7,2.5,1.1>, 6.5 inverse}
        box{<-2,0,-0.1>,<2,5,1.1>}
        bounded_by{box{<-1,0,0>,<1,5,1>}}
      }
      scale 0.9

      texture { T_Stone13 }
      rotate <0, 0, 42>
      rotate <0, 0, 0>
      rotate <0, -19, 0>
      translate <4.6, 3.7, 0.15>
}


sky_sphere {
    pigment {
      gradient y
      color_map {
        [0.000 0.0001 color rgb <1.0, 1.0, 0.9>
                      color rgb <1.0, 1.0, 0.9>]
        [0.0001 0.015 color rgb <0.9, 0.90, 0.9>
                     color rgb <0.03, 0.030, 0.030>]
        [0.015, 0.20  color rgb <0.03,   0.03,    0.03>
                     color rgb <0.1, 0.1, 0.45>]
      }
      scale 2
      translate -1
    }
    rotate -85*x
} 



// The big hyperbola with a fractal surface
object {
  Saddle
  translate <-4, -2, 0>
  no_shadow
  texture {
    pigment {
      granite
      color_map {
        [0.00      color MediumSeaGreen]
        [0.10      color CadetBlue]
        [0.10      color Goldenrod]
        [0.11      color ForestGreen]
        [1.00      color Brown]
      }
    }
    scale 2
    finish { ambient 0.27 crand 0.05 }
    normal { wrinkles 0.7 }
  }
  texture {
    pigment {
      granite
      color_map {
        [0.00      color MediumSeaGreen]
        [DeepSea   color CadetBlue]
        [ShoreLine color MediumTurquoise]
        [ShoreLine color Goldenrod]
        [TreeStart color ForestGreen]
        [TreeStart color Clear]
        [1.00      color Clear]
      }
      scale 19
      translate <200,200,200>
    }
    finish { phong 0.9 phong_size 30 ambient 0.4 }
    normal { ripples 0.4 }
  }
  hollow
}

// A second hyperbola, just below
object {
  Saddle
  translate <-4, -2.1, 0>
  hollow
}
  
// Front light source--a bank of nine lights in a row
light_source {
  <-6, 10,-25>
  color SkyBlue
  area_light <1, 0, 0>, <0, 10, 0>, 1, 9
  jitter
}

// light_sources coming roughly from the sun
light_source {
  <0, 5, 5>
  color White
  area_light <0.01, 0, 0>, <0, 2.5, 0>, 2, 2
  jitter
}

// Red light_sources for the right parenthesis
light_source {
  <2.5, 3.5, -2>
  color Red
  spotlight
  point_at <2, 6.5, +2>
  radius 55
  falloff 90
}

// Red light_sources for the left bracket  
light_source {
  <-2.3, -0.5, -1.6>
  color Red      
  spotlight
  point_at <-2.9, -1.5, -1.6>
  radius 85
  falloff 90
}
light_source {
  <-2.3, -0.5, -1.6>
  color Red      
  spotlight
  point_at <-2.9, -0.5, -1.6>
  radius 85
  falloff 90
}
light_source {
  <-2.3, -0.5, -1.6>
  color Red      
  spotlight
  point_at <-3.9, 0.5, -1.6>
  radius 85
  falloff 90
} 
   

// light source from farther away
/*
light_source {
  <-6, 10, 90>
  color White       
  spotlight         
  point_at <6, 5, 0>
  tightness 150
  radius 20
}
*/

// second light source from farther away
/*
light_source {
  <-6, 5, 90>
  color White
  spotlight
  point_at <-1, -1, 100>
  tightness 50
  radius 10
} 
*/
 
// Light source behind the hyperbola, to the upper left
/*
light_source {
  <-6, 6, 10> 
  color White
  spotlight
  point_at <2, 0, 0>
  tightness 50
  radius 1
  falloff 25
} 
*/

/*
// light_source for the first period
light_source {
  <0, 5, 0>
  color White 
  spotlight
  point_at <-0.5, -0.5, -0.3>
  radius 5
  falloff 10
} 

// light_source for the second period
light_source {
  <0, 5, 5>
  color White
  spotlight
  point_at <1, 1, 0>
  radius 5
  falloff 10
} 

// light_source for the third period
light_source {
  <0, 5, 5>
  color White
  spotlight
  point_at <2.5, 2.5, 0.3>
  radius 5
  falloff 10
} 
*/