// ======================================================================
// COORDINATE AXES 

#macro axes_arrow(tip,col,name)
  #local rad = 0.0075*vlength(tip);
  union{
    sphere{ <0,0,0>, rad }
    cylinder{ <0,0,0>, 0.91*tip, rad }
    cone{ 0.90*tip, 3*rad, tip, 0.00 }
    texture{ pigment{ color rgb col } finish{ ambient 0.5 diffuse 0.5 } }
  }
#end

#macro axes(sz)
  union{ 
    object{ axes_arrow( <sz,0,0>, <1.0,0.2,0.2>, "X") }
    object{ axes_arrow( <0,sz,0>, <0.0,0.8,0.0>, "Y") }
    object{ axes_arrow( <0,0,sz>, <0.3,0.3,1.0>, "Z") }
  }
#end