Category : Printer + Display Graphics
Archive   : POV2DOC.ZIP
Filename : SHAPES.OLD

// Persistence Of Vision Raytracer 2.0
// Historical include file.

// Old standard shapes include file
// Included for historical comparison.
// Some shapes were changed
// for POV-Ray Version 1.0.

#declare Shapes_Old_Temp = version

#version 2.0

#declare Sphere =
quadric
{<1, 1, 1>,
<0, 0, 0>,
<0, 0, 0>, -1
}

#declare Cylinder_X =
quadric
{<0, 1, 1>,
<0, 0, 0>,
<0, 0, 0>, -1
}

#declare Cylinder_Y =
quadric
{<1, 0, 1>,
<0, 0, 0>,
<0, 0, 0>, -1
}

#declare Cylinder_Z =
quadric
{<1, 1, 0>,
<0, 0, 0>,
<0, 0, 0>, -1
}

#declare Cone_X =
quadric
{<-1, 1, 1>,
< 0, 0, 0>,
< 0, 0, 0>, 0
}

#declare Cone_Y =
quadric
{<1, -1, 1>,
<0, 0, 0>,
<0, 0, 0>, 0
}

#declare Cone_Z =
quadric
{<1, 1,-1>,
<0, 0, 0>,
<0, 0, 0>, 0
}

// The Plane_nn objects were formerly defined as quadrics but now can
// be redefined as plane because of v1.5 no longer requires object identifiers
// to be a specific type.

#declare Plane_YZ = plane {x,0}

#declare Plane_XZ = plane {y,0}

#declare Plane_XY = plane {z,0}

/* y^2 + z^2 - x = 0 */
#declare Paraboloid_X =
quadric
{< 0, 1, 1>,
< 0, 0, 0>,
<-1, 0, 0>, 0
}

/* x^2 + z^2 - y = 0 */
#declare Paraboloid_Y =
quadric
{<1, 0, 1>,
<0, 0, 0>,
<0, -1, 0>, 0
}

/* x^2 + y^2 - z = 0 */
#declare Paraboloid_Z =
quadric
{<1, 1, 0>,
<0, 0, 0>,
<0, 0, -1>, 0
}

/* y - x^2 + z^2 = 0 */
#declare Hyperboloid =
quadric
{<-1, 0, 1>,
< 0, 0, 0>,
< 0, 1, 0>, 0
}

#declare Hyperboloid_Y =
quadric /* Vertical hyperboloid */
{<1, -1, 1>, /* */
<0, 0, 0>, /* \ / */
<0, 0, 0>, -1 /* Like this: ) ( */
} /* / \ */

// This primitive used to be an intersection of six planes. For speed,
// it is now a box and nothing else.

#declare Cube = box { <-1, -1, -1>, <1, 1, 1> }

#declare Tetrahedron =
intersection
{plane {-y,1}
plane { z,1 rotate <-30, 0, 0>}
plane { x,1 rotate < 0, 30, 30>}
plane {-x,1 rotate < 0,-30,-30>}
}

#declare X_Disk = /* Capped cylinder, Length in x axis */
intersection
{object {Cylinder_X}
plane { x,1}
plane {-x,0}
}

#declare Y_Disk = /* Capped cylinder, Length in y axis */
intersection
{object {Cylinder_Y}
plane { y,1}
plane {-y,0}
}

#declare Z_Disk = /* Capped cylinder, Length in z axis */
intersection
{object {Cylinder_Z}
plane {-z,1}
plane { z,0}
}
#declare Hexagon = /* Hexagonal Solid, axis along x */
intersection /* Rotate 90 in z axis to stand up */
{plane {z,1}
plane {z,1 rotate < 60, 0, 0>}
plane {z,1 rotate <120, 0, 0>}
plane {z,1 rotate <180, 0, 0>}
plane {z,1 rotate <240, 0, 0>}
plane {z,1 rotate <300, 0, 0>}
plane {x,1}
plane {-x,1}
}

#declare Rhomboid = /* Three Dimensional 4-Sided Diamond */
intersection
{plane {-x,1 rotate <0, 0, -30>}
plane { x,1 rotate <0, 0, -30>}
plane { z,1}
plane {-z,1}
plane { y,1}
plane {-y,1}
}

#declare Square_X = /* Scale-able plane in x */
union
{triangle {<0, 1, -1>, <0, -1, 1>, <1, 1, 1>}
triangle {<0, 1, -1>, <0, -1, 1>, <0,-1,-1>}
}

#declare Square_Y = /* Scale-able plane in y */
union
{triangle {<-1, 0, 1>, <1, 0, -1>, < 1, 0, 1>}
triangle {<-1, 0, 1>, <1, 0, -1>, <-1, 0, -1>}
}

#declare Square_Z = /* Scale-able plane in z */
union
{triangle {<-1, 1, 0>, <1, -1, 0>, <-1, -1, 0>}
triangle {<-1, 1, 0>, <1, -1, 0>, < 1, 1, 0>}
}

#declare Pyramid =
union
{triangle {<-1, 0, -1>, <+1, 0, -1>, <0, 1, 0>}
triangle {<+1, 0, -1>, <+1, 0, +1>, <0, 1, 0>}
triangle {<-1, 0, +1>, <+1, 0, +1>, <0, 1, 0>}
triangle {<-1, 0, +1>, <-1, 0, -1>, <0, 1, 0>}
object {Square_Y}
}

#version Shapes_Old_Temp