m(meas_point)=macro/x,y,zf(po01)=feat/point,cart,x,y,z,0,0,1meas/point,f(po01),1ptmeas/cart,x,y,z,0,0,1endmesoutput/fa(po01)endmacDECL/INTGR,i decl/double,x,y,z decl/double,Rz,e,rz,k1Rz=25e=1.25k1=0.5do/i,0,360,0.1 x=Rz*sin(i/180*3.1415926)-e*sin(Zb*i/180