Math-Trig X by Y and Ang

From Vectorlab

Given a HEIGHT (y) and an ANGLE (ang), returns the WIDTH (x). You need to load the routine M_Trig_DbyYandAng before this. By Orso B. Schmid

{ Orso ************************************************ }
{ given a HEIGHT (y) and an ANGLE, returns the WIDTH }
FUNCTION M_Trig_XbyYandAng(y, ang: REAL): REAL;
    BEGIN
        M_Trig_XbyYandAng := Cos(Deg2Rad(ang)) * M_Trig_DbyYandAng(y, ang);
    END;