// Last edited on 2019-04-13 01:22:50 by stolfilocal
// COORDINATE AXIS

#macro axis_arrow(tip,rad,cor,name)
  #local ctudo = vlength(tip);
  #local cseta = 10*rad;
  #local bseta = ((ctudo - cseta)/ctudo)*tip;
  union{
    sphere{ <0,0,0>, rad }
    cylinder{ <0,0,0>, 1.01*bseta, rad }
    cone{ bseta, 3*rad, tip, 0.00 }
    texture{ pigment{ color rgb cor } finish{ ambient 0.5 diffuse 0.5 } }
  }
#end

#macro axes(xlen,ylen,zlen)
  #local rad = 0.005*vlength(<xlen,ylen,zlen>)/sqrt(3);
  union{ 
    object{ axis_arrow( <xlen,0,0>, rad, <1.0,0.2,0.2>, "X") }
    object{ axis_arrow( <0,ylen,0>, rad, <0.0,0.8,0.0>, "Y") }
    object{ axis_arrow( <0,0,zlen>, rad, <0.3,0.3,1.0>, "Z") }
  }
#end