func OnLineHeader () {
        output(LH);
}
func OnTrace () {
        sx = Tr.SrPtXC;
        sy = Tr.SrPtYC;
        rx = Tr.SrRcMX;
        ry = Tr.SrRcMY;
	offset = abs(Tr.DstSgn);
        denom = rx - sx;
        if (abs (denom ) > 1 ) {
                anum = ry - sy;
                value = anum/denom;
                az = atan(value);
                ay = 10000*az;
                Tr.SrRcAz = ay;
	aaz = abs(az);
	xw=1;
	yw=1;
	if ( denom < 1 ) xw = -1;
	if ( anum  < 1 ) yw = -1;
		Tr.RcPtXC = sx +  xw * offset * cos(aaz);
		Tr.RcPtYC = sy +  yw * offset * sin(aaz);
                }
	xw=1;
	yw=1;
        output(Tr);
}
func End(){
print (" end of azimuth ufh \n");
}