Math-Set arc radius

From Vectorlab
Jump to: navigation, search


Procedure to set the radius of an arc or round wall. By Orso B. Schmid


{ Orso ***************************** }
PROCEDURE M_SetArcRadius(h: HANDLE; cen: VECTOR; startAngle, arcAngle, arcRadius: REAL);
	BEGIN
		HCenter(h, cen.X, cen.Y);
		SetArc(h, startAngle, arcAngle);
		
		IF GetType(h) = 89 THEN { round walls }
			SetObjectVariableReal(h, 571, arcRadius);
	END;