Han-Create Oval

From Vectorlab
Jump to: navigation, search


Creates an oval and returns a handle to it. By Orso B. Schmid


{ Orso *********************************************** }		
FUNCTION H_Oval(strtPtX, strtPtY, theWidth, theHeight, ang: REAL): HANDLE;
	BEGIN
		ang := Deg2Rad(ang);
		OvalN(strtPtX, strtPtY, cos(ang)*theWidth, sin(ang)*theWidth, theWidth, theHeight);
		
		H_Oval := LNewObj;
	END;