Math-Trig Sweep by Perim and Radius

From Vectorlab

Given PERIMETER and RADIUS of an arc, returns the SWEEP. By Orso B. Schmid

{ Orso ***************************** }
{ given arc perimeter and radius, result is an arc sweep }
FUNCTION M_Trig_ArcSweepByLenRadius(arcLen, radius: REAL): REAL;
    BEGIN
        { arc perim / radius) }
        M_Trig_ArcSweepByLenRadius := Rad2Deg(arcLen / radius);
    END;