// ************************************************************************************************************************
// Creates Height_Field-Based Unit Shape Based-Centered at <0,0,0>
//    Input:  Shapes_On (0/1)  
//    Output: Unit HF_Object <-.5,0,-.5> to <.5,1,.5>
//            Object has no pigment or texture. 
//
// Usage: #declare Wagon_Wheel = Make_Form (1) ;
//    object {Wagon_SWheel texture{Wood_Texture} }
//
// ************************************************************************************************************************
// Object List
//    1. Wagon Wheel
//    2. New Object
//
// Written 08/07/2004 by James Coons
//    This was designed to simplify the creation of objects based on Height_Fields. Each object created is referenced
//    by number. This Macro should either be customized for each Project or it should refer to objects that are in the
//    PovRay Path. 
// ************************************************************************************************************************
#macro Make_Form (pnShapeNo)
   object {
      #if (Shapes_On=1)
         height_field {
            #if (pnShapeNo = 1) jpeg "_Wheel2.jpg" #end         // Wagon Wheel
            #if (pnShapeNo = 2) jpeg "_Sign.jpg" #end   // New Object
            //
            smooth water_level 15/255}
      #else
         box { <0,0,0> <1,1,1> }
      #end
      translate <-0.5,0,-0.5>
      }
   
#end

// ************************************************************************************************************************

