! fitplot.mac csys *get,_xmn,node,,mnloc,x *get,_xmx,node,,mxloc,x *get,_ymn,node,,mnloc,y *get,_ymx,node,,mxloc,y _dify=_ymx-_ymn _difx=_xmx-_xmn _eify=_ymx+_ymn _eifx=_xmx+_xmn _rmx=_dify *if,_difx,gt,_dify,then _rmx=_difx *endif /foc,1,_eifx/2,_eify/2 /dis,1,1.05*_rmx/2 /rep