Math-Trig Y by X and Ang

From Vectorlab

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

{ Orso ************************************************ }
{ given a WIDTH (x) and an ANGLE, returns the HEIGHT }
FUNCTION M_Trig_YbyXandAng(x, ang: REAL): REAL;
    BEGIN
        M_Trig_YbyXandAng := Sin(Deg2Rad(ang)) * M_Trig_DbyXandAng(x, ang);
    END;