Math-Trig Ang by X and Diag

From Vectorlab

Given a WIDTH (x) and a DIAGONAL (diag), returns the ANGLE. This needs the routines M_Trig_AngByXandY and M_Trig_YbyXandD to be loaded first. By Orso B. Schmid

{ Orso ************************************************ }
{ Pitagora: given a WIDTH (x) and a DIAGONAL (diag), returns the ANGLE }
FUNCTION M_Trig_AngByXandD(x, d: REAL): REAL;
    BEGIN
        M_Trig_AngByXandD := M_Trig_AngByXandY(x, M_Trig_YbyXandD(x, d));
    END;