From: Nick Shore <N.R.Shore@newcastle.ac.uk>
Date: Tue, 25 Feb 92 12:28:21 WET


{ Header file for !Model, an application by Pete Goodwin (c) 1991 }

#declare Box = intersection
  plane <0.0 0.0 1.0> 1.0 end_plane
  plane <0.0 0.0 -1.0> 1.0 end_plane
  plane <0.0 1.0 0.0> 1.0 end_plane
  plane <0.0 -1.0 0.0> 1.0 end_plane
  plane <1.0 0.0 0.0> 1.0 end_plane
  plane <-1.0 0.0 0.0> 1.0 end_plane
end_intersection

#declare Cylinder = intersection
  quadric
    <1.0 0.0 1.0>
    <0.0 0.0 0.0>
    <0.0 0.0 0.0>
    -1.0
  end_quadric
  plane <0.0 1.0 0.0> 1.0 end_plane
  plane <0.0 -1.0 0.0> 1.0 end_plane
end_intersection

#declare Cone = intersection
  quadric
    <1.0 -1.0 1.0>
    <0.0 0.0 0.0>
    <0.0 0.0 0.0>
    0.0
  end_quadric
  plane <0.0 1.0 0.0> 0.0 end_plane
  plane <0.0 -1.0 0.0> 1.0 end_plane
end_intersection

#declare Scalable_Sphere = quadric
        <1.0 1.0 1.0>
        <0.0 0.0 0.0>
        <0.0 0.0 0.0>
        -1.0
end_quadric