INCLUDE "BasicShapes.data"

VIEW_POINT
   LOCATION <0.0  20.0  -100.0>
   DIRECTION <0.0 0.0  1.0>
   UP  <0.0  1.0  0.0>
   RIGHT <1.33333 0.0 0.0>
END_VIEW_POINT

{ Put down the beloved famous raytrace checkered floor }
OBJECT
   PLANE <0.0 1.0 0.0> -10.0 END_PLANE

   AMBIENT 0.3
   DIFFUSE 0.7
   TEXTURE
{     0.05	}
     CHECKER COLOUR Yellow COLOUR Blue
     TURBULENCE 0.0
     SCALE < 20.0 20.0 20.0 >
   END_TEXTURE
   COLOUR Yellow
END_OBJECT

{ Now a gradient coloured candy cane! }

OBJECT
   INTERSECTION
      QUADRIC Cylinder_Y
	SCALE < 10.0 10.0 10.0 >
      END_QUADRIC
      PLANE <0.0 1.0 0.0> 60.0 END_PLANE
   END_INTERSECTION

   COLOR White
   AMBIENT 0.2
   DIFFUSE 0.7
   BRILLIANCE 3.0
   SPECULAR 1.0
   ROUGHNESS 0.01

  TEXTURE
     GRADIENT < 1.0 1.0 0.0 >
     COLOUR_MAP
          [0.00 0.25  COLOUR RED 1.0 GREEN 0.0 BLUE 0.0
                  COLOUR RED 1.0 GREEN 0.0 BLUE 0.0]
          [0.25 0.75  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
                  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
          [0.75 1.001 COLOUR RED 1.0 GREEN 0.0 BLUE 0.0
                  COLOUR RED 1.0 GREEN 0.0 BLUE 0.0]
      END_COLOUR_MAP
      SCALE <30.0 30.0 30.0>
      TRANSLATE <30.0 -30.0 0.0>
  END_TEXTURE
END_OBJECT

OBJECT
   SPHERE <0.0 0.0 0.0> 2.0 END_SPHERE

   TRANSLATE <100.0  120.0  -130.0>
   COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
   AMBIENT 1.0
   DIFFUSE 0.0
   LIGHT_SOURCE
END_OBJECT