Han-Create Circle

From Vectorlab
Jump to: navigation, search


Creates a circle and returns a handle to it. This should make using that damn new call easier. By Orso B. Schmid


{ Orso *********************************************** }		
FUNCTION H_Circle(cenPtX, cenPtY, diam, ang: REAL): HANDLE;
	BEGIN
		ang := Deg2Rad(ang);
		OvalN(cenPtX - diam/2, cenPtY - diam/2, cos(ang)*diam, sin(ang)*diam, diam, diam);
		
		H_Circle := LNewObj;
	END;