DECLARE Sphere = QUADRIC
       <1.0 1.0 1.0>
       <0.0 0.0 0.0>
       <0.0 0.0 0.0>
       -1.0
END_QUADRIC

DECLARE Cylinder_X = QUADRIC
       <0.0 1.0 1.0>
       <0.0 0.0 0.0>
       <0.0 0.0 0.0>
       -1.0
END_QUADRIC

DECLARE Cylinder_Y = QUADRIC
       <1.0 0.0 1.0>
       <0.0 0.0 0.0>
       <0.0 0.0 0.0>
       -1.0
END_QUADRIC

DECLARE Cylinder_Z = QUADRIC
       <1.0 1.0 0.0>
       <0.0 0.0 0.0>
       <0.0 0.0 0.0>
       -1.0
END_QUADRIC

DECLARE Cone_X = QUADRIC
       <0.0 1.0 1.0>
       <0.0 0.0 0.0>
       <1.0 0.0 0.0>
       0.0
END_QUADRIC

DECLARE Cone_Y = QUADRIC
       <1.0 0.0 1.0>
       <0.0 0.0 0.0>
       <0.0 1.0 0.0>
       0.0
END_QUADRIC

DECLARE Cone_Z = QUADRIC
       <1.0 1.0 0.0>
       <0.0 0.0 0.0>
       <0.0 0.0 1.0>
       0.0
END_QUADRIC

DECLARE Plane_YZ = QUADRIC
       <0.0 0.0 0.0>
       <0.0 0.0 0.0>
       <1.0 0.0 0.0>
       0.0
END_QUADRIC
       
DECLARE Plane_XZ = QUADRIC
       <0.0 0.0 0.0>
       <0.0 0.0 0.0>
       <0.0 1.0 0.0>
       0.0
END_QUADRIC
       
DECLARE Plane_XY = QUADRIC
       <0.0 0.0 0.0>
       <0.0 0.0 0.0>
       <0.0 0.0 1.0>
       0.0
END_QUADRIC


{ y^2 + z^2 - x = 0 }
DECLARE Paraboloid_X = QUADRIC
       <0.0  1.0  1.0>
       <0.0  0.0  0.0>
       <-1.0 0.0  0.0>
       0.0
END_QUADRIC


{ x^2 + z^2 - y = 0 }
DECLARE Paraboloid_Y = QUADRIC
       <1.0  0.0  1.0>
       <0.0  0.0  0.0>
       <0.0 -1.0  0.0>
       0.0
END_QUADRIC


{ x^2 + y^2 - z = 0 }
DECLARE Paraboloid_Z = QUADRIC
       <1.0  1.0  0.0>
       <0.0  0.0  0.0>
       <0.0  0.0 -1.0>
       0.0
END_QUADRIC


{ y - x^2 + z^2 = 0 }
DECLARE Hyperboloid = QUADRIC
       < -1.0  0.0  1.0>
       <  0.0  0.0  0.0>
       <  0.0  1.0  0.0>
       0.0
END_QUADRIC


DECLARE Red_Marble = TEXTURE
   MARBLE
   TURBULENCE 1.0
   COLOUR_MAP
        [0.0 0.8  COLOUR RED 0.8 GREEN 0.8 BLUE 0.6
                COLOUR RED 0.8 GREEN 0.4 BLUE 0.4]
        [0.8 1.001 COLOUR RED 0.8 GREEN 0.4 BLUE 0.4
                COLOUR RED 0.8 GREEN 0.2 BLUE 0.2]
    END_COLOUR_MAP
    SCALE <10.0 10.0 10.0>
END_TEXTURE

DECLARE Brown_Agate = TEXTURE
     AGATE
     TURBULENCE 0.3
     COLOUR_MAP
          [0.0 0.5  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
                  COLOUR RED 0.9 GREEN 0.7 BLUE 0.6]
          [0.5 0.6  COLOUR RED 0.9 GREEN 0.7 BLUE 0.6
                  COLOUR RED 0.9 GREEN 0.7 BLUE 0.4]
          [0.6 1.001 COLOUR RED 0.9 GREEN 0.7 BLUE 0.4
                  COLOUR RED 0.7 GREEN 0.4 BLUE 0.2]
      END_COLOUR_MAP
      SCALE <10.0 10.0 10.0>
END_TEXTURE

DECLARE Blue_Marble = TEXTURE
    AGATE
    TURBULENCE 0.3
    COLOUR_MAP
          [0.0 0.5  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
                  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50]
          [0.5 0.55 COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
                  COLOUR RED 0.20 GREEN 0.20 BLUE 0.30]
          [0.55 0.6 COLOUR RED 0.20 GREEN 0.20 BLUE 0.30
                  COLOUR RED 0.25 GREEN 0.25 BLUE 0.35]
          [0.6 0.7  COLOUR RED 0.25 GREEN 0.25 BLUE 0.35
                  COLOUR RED 0.15 GREEN 0.15 BLUE 0.26]
          [0.7 0.8  COLOUR RED 0.15 GREEN 0.15 BLUE 0.26
                  COLOUR RED 0.10 GREEN 0.10 BLUE 0.20]
          [0.8 0.9  COLOUR RED 0.10 GREEN 0.10 BLUE 0.20
                  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50]
          [0.9 1.001  COLOUR RED 0.30 GREEN 0.30 BLUE 0.50
                  COLOUR RED 0.10 GREEN 0.10 BLUE 0.20]
    END_COLOUR_MAP
    SCALE <10.0 10.0 10.0>
END_TEXTURE

DECLARE Dull = TEXTURE
   AMBIENT 0.3
   DIFFUSE 0.7
END_TEXTURE

DECLARE Shiny = TEXTURE
   AMBIENT 0.3
   DIFFUSE 0.7
   PHONG 1.0
   PHONGSIZE 20.0
END_TEXTURE

DECLARE Mirror = TEXTURE
   AMBIENT 0.0
   DIFFUSE 0.0
   REFLECTION 1.0
END_TEXTURE

DECLARE Luminous = TEXTURE
   AMBIENT 1.0
   DIFFUSE 0.0
END_TEXTURE

DECLARE Glass = TEXTURE
   AMBIENT 0.0
   DIFFUSE 0.0
   REFLECTION 0.5
   REFRACTION 0.5
   IOR 1.2
END_TEXTURE

DECLARE Metal = TEXTURE
   AMBIENT 0.3
   DIFFUSE 0.7
   BRILLIANCE 6.0
END_TEXTURE

DECLARE Glass2 = TEXTURE
   AMBIENT 0.0
   DIFFUSE 0.0
   REFLECTION 0.5
   REFRACTION 0.5
END_TEXTURE