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;
		ang := Deg2Rad(ang);
		OvalN(cenPtX - diam/2, cenPtY - diam/2, cos(ang)*diam, sin(ang)*diam, diam, diam);
		H_Circle := LNewObj;