// Persistence Of Vision raytracer version 2.0 sample file.

// By Drew Wells

// Title-"Tomb" 
// a haunted tomb on a hill, gravestones, rusty fence, pumpkin patch. 
// - Drew Wells cis 73767,1244 
// 11/90 rev 7/92
#include "shapes.inc"
#include "colors.inc"
#include "textures.inc"
#include "stones.inc"

/* Camera */
camera {
   direction <0.0, 0.0,  1.5>
   up  <0.0,  1.0,  0.0>
   right <-4/3, 0.0, 0.0>
   translate < -15.0,  5.0,  120.0>
   look_at <10.0, 12.0, 55.0>
}
#declare TombTex = texture { Stone8 finish { ambient .1 } scale 0.5 }
#declare HeadTex = texture { Stone3  }
#declare ColTex  = texture { Stone13 finish { phong .3 } scale .2 }
#declare Rust2 = texture { Stone1 }


#declare Yellow_Clouds = pigment {
   bozo
   turbulence 0.6
   colour_map {
      [0.0 0.3   colour red 0.9 green 0.5  blue 0.3
                 colour red 0.6 green 0.4  blue 0.0]  
      [0.3 0.6   colour red 0.6 green 0.4  blue 0.0
                 colour red 0.4 green 0.4  blue 0.0 filter 1.0]  
      [0.6 0.8   colour red 0.4 green 0.4  blue 0.0 filter 1.0
                 colour Clear]  
      [0.8 1.001 colour Clear
                 colour Clear]
   }
}

#declare Sunset_Sky = pigment {
   gradient y
   
   colour_map {
      [0.0 0.4   colour red 0.8 green 0.0 blue 0.0
                 colour red 0.4 green 0.0 blue 0.4]
      [0.4 0.6   colour red 0.4 green 0.0 blue 0.4
                 colour red 0.0 green 0.0 blue 0.2]
      [0.6 1.001 colour red 0.0 green 0.0 blue 0.2
                 colour red 0.0 green 0.0 blue 0.1]
   }
   scale 700.0
}


/*************************************************/
/* Define objects for use in scene               */
/*************************************************/

#declare Cross = union {
   /* Tried to make celtic cross, but vga resolution is too coarse */
/*
      intersection {
         object {
            Cylinder_Z
            scale 0.4
            translate <0.0, 0.45, 0.0>
         }
         plane { -z, 0.02 }
         plane { z, 0.02 }
      }
 */

   /*vertical part*/
   intersection {
      /*top & bottom*/
      plane { y, 1.0 }
      plane { -y, 2.0 }
      /*front & back*/
      plane { z, 0.12 }
      plane { -z, 0.12 }
      /*left & right*/
      plane { x, 0.15 }
      plane { -x, 0.15 }
   }

   /*horizontal part*/
   intersection {
      /*top & bottom*/
      plane { y, 0.6 }
      plane { -y, -0.3 }
      /*front & back*/
      plane { z, 0.12 }
      plane { -z, 0.12 }
      /*left & right walls*/
      plane { x, 0.7 }
      plane { -x, 0.7 }
   }

   bounded_by { box { <-.8, -2.1, -.2>,  <.8, 1.1, .8> } }

   texture {
      HeadTex
      scale 0.1
      finish {
         ambient 0.1
         diffuse 0.7   
      }
   }
}

#declare Headstone = union {
   intersection {      
      object { Cylinder_Z }
      plane { -z, 0.1 }
      plane { z, 0.1 }
   }            

   intersection {
      /*top & bottom*/ 
      plane { y, 0.0 }
      plane { -y, 2.0 }
      /*front & back*/
      plane { z, 0.1 }
      plane { -z, 0.1 }
      /*left & right */
      plane { x, 1.0 }
      plane { -x, 1.0 }
   }

   texture { 
      HeadTex
      scale <0.1, 0.2, 0.1>

      finish {
         ambient 0.1
         diffuse 0.7   
      }
   }
}


#declare Pole = object { Cylinder_Y scale <0.1, 1.0, 0.1> }


#declare Xpole = object { Cylinder_X scale <0.1, 0.1, 0.1> }

/* Rusty iron gate & fence - object should have been composite to avoid the */
/*                           "carved from one piece" look. */
#declare Gate = union {
   intersection {
      object { Xpole }
      plane { x, 8.0 }
      plane { -x, 2.0 }
      translate 6.5*y
   }
   intersection {
      object { Xpole }
      plane { x, 8.0 }
      plane { -x, 2.0 }
      translate 1.9*y
   }
   intersection {
      object { Pole }
      plane { y, 7.5 }
      plane { -y, 0.0 }
      translate 1.0*x
   }
   sphere { <1.0, 7.5, 0.0>, 0.3 }
   intersection {
      object { Pole }
      plane { y, 7.75 }
      plane { -y, 0.2 }
      translate 2.5*x
   }
   sphere { <2.5, 7.75, 0.0>, 0.3 }
   intersection {
      object { Pole }
      plane { y, 8.0 }
      plane { -y, 0.2 }
      translate 4.0*x
   }
   sphere { <4.0, 8.0, 0.0>, 0.3 }
   intersection {
      object { Pole }
      plane { y, 7.75 }
      plane { -y, 0.2 }
      translate 5.5*x
   }
   sphere { <5.5, 7.75, 0.0>, 0.3 }
   intersection {
      object { Pole }
      plane { y, 7.5 }
      plane { -y, 0.2 }
      translate 7.0*x
   }
   sphere { <7.0, 7.5, 0.0>, 0.3 }

   bounded_by { box { <0.0, 0.0, -1.0>, <8.0, 9.0, 1.0> } }

   texture { 
      Rust2
      finish {
         ambient 0.2
         diffuse 0.9   
      }
   }    
}

/* a rectangular pad to serve as a footing for the column */
#declare BasePad = box {
   <-1.2, -0.25, -1.2>, <1.2, 0.25, 1.2>
   pigment { colour red 0.6 green 0.6 blue 0.4 }
}

#declare ColTop = union {
   box { <-1.5, -.1, -1.5>, <1.5, .2, 1.5> }
   box { <-1.25, .2, -1.25> <1.25, .4, 1.25> }
   box { <-1, .4, -1> <1, .6, 1> }

   pigment { color red .6 green .6 blue .4 }
}

#declare Beam = object { Cylinder_Y }

#declare Beam2 = object {
   Cylinder_Y
   inverse
   scale  <.3, 1, .3>
   translate 1.4*x
}

#declare Beam3 = intersection {
   object { Beam  scale <1.2, 1, 1.2> }
   object { Beam2 }
   object { Beam2 rotate  -45*y }
   object { Beam2 rotate  -90*y }
   object { Beam2 rotate -135*y }
   object { Beam2 rotate  180*y }
   object { Beam2 rotate   45*y }
   object { Beam2 rotate   90*y }
   object { Beam2 rotate  135*y }
   plane { y, 8 }
   plane { -y, 0 }

   pigment { color red .8 green 0 blue .0 }
}

#declare Column = union {
   object { Beam3   texture { ColTex } }
   //object { BasePad texture { ColTex finish {phong 0} } translate <0, 0, 0> }
   object { ColTop texture { ColTex finish {phong 0} } translate <0, 8, 0> }
}


#declare Tomb = union {
   difference {
      box { <-10, -5, -7.5>, <10, 10, 7.5> } // bulk
      box { <-3, -5, -7.0>, <3, 7, 7.6> } // door
   }
   /* Foundation */
   box { <-11, -2, -10.5>, <11, -1, 10.5> }
   box { <-12, -3, -11>,   <12, -2, 11> }
   box { <-13, -4, -12>,   <13, -3, 12> }
   box { <-14, -5, -13>,   <14, -4, 13> }

   bounded_by { box { <-14.1, -5.1, -13.1>, <14.1, 10.1, 18.6> } }
}

#declare InnerBeams = union {
   intersection {
      object { Beam }
      plane { y, 8.0 }
      plane { -y, 2.0 }
      translate < 5.0, 0.0, 7.5>
   }
   intersection {
      object { Beam }
      plane { y, 8.0 }
      plane { -y, 2.0 }
      translate < -5.0, 0.0, 7.5>
   }

   pigment { Blue }
}


#declare Pointy = object {
   /*pointy part*/
   intersection {
      plane { -y, 1 }
      plane { -z, 1 }
      plane { z, 1 rotate  27*y  rotate 40*x }
      plane { z, 1 rotate -27*y  rotate 40*x }
      plane { +x, 0 rotate   70*z }
      plane { -x, 0 rotate  -70*z }
      scale <3, 4, 1>
      translate < 0, 12, 8.5>
   }

   pigment { Blue }
}


#declare CornerBeams = union {
   intersection {
      object { Beam scale <1.5, 1.0, 1.5>}
      plane { y, 10.0 }
      plane { -y, 2.0 }
      translate < 10.0, 0.0, 7.5>
   }
   intersection {      
      object { Beam scale <1.5, 1.0, 1.5> }
      plane { y, 10.0 }
      plane { -y, 2.0 }
      translate <-10.0, 0.0, 7.5>
   }
   sphere { <-10.0, 10.0, 7.5>, 1.5 }
   sphere { < 10.0, 10.0, 7.5>, 1.5 }

   pigment { Blue }
}

/* Ghost in tomb doorway */
#declare Figure = intersection {
   object { Beam scale <2.3, 1.0, 2.3> }
   plane { y, 8.0 }
   plane { -y, 2.0 }
   translate 4.3*z

   texture {
      pigment {
         granite
         /* Use any ghost image you like for the tomb doorway or comment */
         /* out the Figure in TombAll */
         /*imagemap { gif "ghost.gif" once interpolate 2.0 } */
         scale < 6.5, 8.0, 6.5 >
         translate < -1.0, 7.5, 4.3 >
         quick_color Black
      }
      finish {
         ambient 0.10
         diffuse 0.3
      }
   }
}

/* TombAll is the completed tomb */
#declare TombAll = union {
   object { Tomb texture { TombTex } }
   object { InnerBeams texture { Stone21 } }
   object { Pointy texture { Stone4 } }
   object { CornerBeams texture { Stone18 scale <.5, .5, .5> } }   
}

/* Pumpkin parts */
#declare Stem = intersection {
   object { Pole }
   plane { y, 0.04 rotate <0.0, -10.0, -10.0> }
   plane { -y, 1.0 }
   translate <0.0, 0.3, 0.0>

   texture {
      pigment { color red 0.04 green 0.33 blue 0.05 }
      normal {
         bumps 0.5
         scale 0.2
      }
      finish {
         ambient 0.1
         diffuse 0.9   
      }
   }
}

#declare Slice = sphere {
   <0, 0, 0>, 1
   translate <0.0, 0.0, 0.5>
   scale <0.28, 0.30, 0.40>
}

#declare Pumpkin = union {
   object { Slice }
   object { Slice  rotate  -20.0*y }
   object { Slice  rotate  -40.0*y }
   object { Slice  rotate  -60.0*y }
   object { Slice  rotate  -80.0*y }
   object { Slice  rotate -100.0*y }
   object { Slice  rotate -120.0*y }
   object { Slice  rotate -140.0*y }
   object { Slice  rotate -160.0*y }
   object { Slice  rotate -180.0*y }
   object { Slice  rotate -200.0*y }
   object { Slice  rotate -220.0*y }
   object { Slice  rotate -240.0*y }
   object { Slice  rotate -260.0*y }
   object { Slice  rotate -280.0*y }
   object { Slice  rotate -300.0*y }
   object { Slice  rotate -320.0*y }
   object { Slice  rotate -340.0*y }

   bounded_by { sphere { <0, 0, 0>, 1.5 } }

   texture {
      pigment { color red 0.5 green 0.22 blue 0.1 }
      normal {
         bumps 0.3
         scale 0.1
      }
      finish {
         ambient 0.1
         diffuse 0.9
         phong 0.75
         phong_size 30.0
      }
   }
}


/*******************************************/
/* Scene description     */
/*******************************************/

object {
   Cross
   scale <1.7, 2.0, 1.0>
   rotate -15.0*x
   translate <-16.0, 7.7, 61.5>    
}

object {
   Headstone
   scale <1.0, 1.0, 1.0>
   rotate 15.0*x
   translate <-14.0, 4.0, 76.0>
}

object {
   Headstone
   scale <1.0, 1.0, 1.0>
   translate <12.0, 4.0, 74.0>
}

object {
   Headstone
   scale <1.0, 1.0, 1.0>
   rotate -10.0*x
   translate <18.0, 8.0, 70.0>
}

object {
   Cross
   scale <1.5, 2.0, 1.0>
   rotate -15.0*x
   translate <17.0, 10.0, 60.0>
}

object {
   Cross
   scale <1.5, 2.0, 1.0>
   rotate -15.0*x
   translate <26.0, 10.0, 70.0>
}

object {
   Cross
   scale <1.5, 2.0, 1.0>
   rotate <-15.0, 0.0, -10.0>
   translate <31.0, 10.0, 78.0>
}


/* Little Pumpkin Patch */
object {
   Pumpkin
   scale <1.5, 2.0, 1.5>
   translate <5.0, 1.55, 95.0>
}

object {
   Stem
   scale <1.5, 2.5, 1.5>
   translate < 5.0, 1.55, 95.0>
}

object {
   Pumpkin
   scale <1.5, 2.5, 1.5>
   translate < 11.0, 1.6, 90.0>
}

object {
   Stem
   scale <1.5, 2.5, 1.5>
   translate < 11.0, 1.6, 90.0>
}


/* Ghastly Tomb!*/
object {
   TombAll
   rotate <7.0, 15.0, 0.0>
   translate <0.0, 16.0, 38.0>
}

/*left entry gate*/
object {
   Gate
   translate <-9.0, 0.0, 88.0>
}

/*right entry gate*/
object {
   Gate
   rotate <-10.0, -160.0, 0.0>
   translate <7.0, 0.0, 87.5>
}

/*Use gate object to make left & right fence*/
object {
   Gate
   translate <-19.0, 0.0, 88.0>
}

object {
   Gate
   translate <-31.0, 0.0, 88.0>
}

object {
   Gate
   translate <9.0, 0.0, 88.0>
}

object {
   Gate
   translate <19.0, 0.0, 88.0>
}

/* Columns to hold the fence and gates up */
object { Column translate <-20.0, 0.0, 88.0> }
object { Column translate <-10.0, 0.0, 88.0> }
object { Column translate < 8.0, 0.0, 88.0> }
object { Column translate < 18.0, 0.0, 88.0> }

/*hill under tomb*/
object {
   Paraboloid_Y
   scale <40.0, 10.0, 77.0>
   rotate <0.0, 0.0, 180.0>
   translate <0.0, 21.0, -28.0>

   texture {
      pigment { color red 0.5 green 0.6 blue 0.2 }
      normal {
         bumps 0.8
         scale 5.0
      }
      finish {
         ambient 0.1
         diffuse 0.7    
      }
   }                                         
}

/*hill to right of tomb*/
object {
   Paraboloid_Y
   scale <30.0, 10.0, 40.0>
   rotate 180.0*z
   translate <40.0, 14.0, 50.0>

   texture {
      pigment { color red 0.6 green 0.6 blue 0.1 }
      normal {
         bumps 0.8
         scale < 7.0, 5.0, 5.0>
      }
      finish {
         ambient 0.1
         diffuse 0.7
      }
   }
}

/* Ground */
plane {
   y, 1.0

   texture {
      pigment { color red 0.6 green 0.6 blue 0.1 }
      normal {
         bumps 0.7
         scale < 1.0, 1.0, 1.0>
      }
      finish {
         ambient 0.1
         diffuse 0.7
      }
   }
}

/*The Sun*/
light_source { <150.0, 30.0, 1200.0> color red 1 green .8 blue .65 }

/* Sky - gradient sunset*/
sphere {
   <0.0, 0.0, 0.0>, 2000.0
   inverse

   texture {
      pigment {
         Sunset_Sky
         translate 200.0*y
         scale 1.2
         quick_color Green
      }
      finish {
         ambient 0.6
         diffuse 0.0
      }
   }
}

/* Clouds - uses a sky texture with the sky portion defined as transparent */
/*          so the gradient behind it is visible  */
sphere {
   <0.0, 0.0, 0.0>, 1997.0
   inverse
   texture {
      pigment {
         Yellow_Clouds
         scale <1000.0 30.0 100.0>
         quick_color Green
      }
      finish {
         ambient 0.7
         diffuse 0.0
      }
   }
}