// Persistence Of Vision Raytracer version 2.0 sample file.

// Drums, the new improved version  Feb. 1992
// Copyright Dan Farmer 1992
// Time: a little over 3 hours no anti-aliasing, 640,480 on 33/486
//       7 hrs, 22 min +a0.05

/*  Fractint 17 parameter file to reconstruct REDNEWT.GIF:
Clip the Red Newton block below and save to a file named REDNEWT.PAR.
Run FRACTINT, press @ to get to the par file screen, press F6 to select
REDNEWT.PAR. Make it as large as you think your memory will afford... I used
1024x768 myself.


Red Newton         { ; Used as backdrop in DRUMS2.GIF
  reset type=complexnewton passes=1
  corners=-4.316552/-6.725229/9.54158/9.251383/-5.04438/10.512019
  params=8/0/4/8 maxiter=32767 inside=0 periodicity=0
  colors=000700<13>000000000000000<124>y00z00y00<108>800
  }

*/

#include "colors.inc"
#include "shapes.inc"
#include "textures.inc"
#include "drums.inc"

max_trace_level 20

/*----------------------------- Viewer and lights -----------------------------*/
camera {
   location <0.0, 3.0, -90.0>
   direction <0.0, 0.0, 2.0>
   //   direction <0.0, 0.0,  3.0>  (Close up view, nice, too.)
   up  <0.0,  1.0,  0.0>
   right <4/3, 0.0, 0.0>
   look_at <0.0, 8.0, 0.0>
}


#declare Spacing = 15
#declare Brightness = 0.5

// Light source #1
union {
   light_source { <-Spacing, 0.0, 0.0> color red Brightness }
   light_source { <0.0, Spacing, 0.0>  color green Brightness }
   light_source { <Spacing, 0.0, 0.0>  color blue Brightness }

   pigment { White } // Doesn't do anything but suppresses a warning

   translate -100*z
   rotate 80*x
}

// Light source #2
union {
   light_source { <-Spacing, 0.0, 0.0> color red Brightness }
   light_source { <0.0, Spacing, 0.0>  color green Brightness }
   light_source { <Spacing, 0.0, 0.0>  color blue Brightness }

   pigment { White }

   translate -100*z
   rotate <30, 30, 0>
}

// Light source #3
union {
   light_source { <-Spacing, 0.0, 0.0> color red Brightness }
   light_source { <0.0, Spacing, 0.0> color green Brightness }
   light_source { <Spacing, 0.0, 0.0> color blue Brightness }

   pigment { White }

   translate -100*z
   rotate <30, -30, 0>
}

sphere {
   <0, 0, 0>, 1000

   pigment {
      image_map { gif "rednewt.gif" interpolate 4 }
      translate <-0.5, -0.5, 0.0>
      scale 800
   }
   finish {
      ambient 1
      diffuse 0.5
   }
}

// Floor
plane {
   y, -10.0

   pigment { Black }
   finish {
      ambient 0.2
      diffuse 0.8
      reflection 0.25
   }
}


// Left drumset

object {
   HalfSet
   rotate 20.0*y
   translate -13.0*x
}


// Right drumset
object {
   HalfSet
   rotate -20.0*y
   translate 13.0*x
}