Math-Trig X by Y and Diag

From Vectorlab

Pitagora: given a HEIGHT (y) and a DIAGONAL (diag), returns the WIDTH (x). By Orso B. Schmid

{ Orso ************************************************ }
{ Pitagora: given a HEIGHT (y) and a DIAGONAL, returns the WIDTH (x) }
FUNCTION M_Trig_XbyYandD(y, diag: REAL): REAL;
    BEGIN
        M_Trig_XbyYandD := Sqrt(diag^2 - y^2);
    END;