XProfan

nProc AngleByLine(long x,y,xx,yy)

    sub y,yy
    sub x,xx

    si x

        xx=int(57295.77951 * arctan(float(y)/float(x)))
        cas x>0 : return 270000 + xx
        return 90000 + xx

    endif

    cas y<0 : return 180000
    return 0

endproc

Proc AngleByLine

    parameters x&,y&,xx&,yy&
    dec y&,yy&
    dec x&,xx&

    si x&

        xx& = int(57295.77951 * arctan(y& / x&))
        cas x&>0 : return 270000 + xx&
        return 90000+ xx&

    endif

    cas y&<0 : return 180000
    return 0

endproc