Math-Linear coordinates

From Vectorlab
Jump to: navigation, search


Shortcut for getting start and end point of lines, walls, arcs and any other object responding to the "GetSegPt" routines. By Orso B. Schmid


{ Orso ***************************** }
{ given any object responding to the GetSegPt calls, returns the coordinates of the arc start and end }
PROCEDURE M_LinearCoordinates(linearOrArcObj: HANDLE; VAR begObj, endObj: VECTOR);
	BEGIN
		GetSegPt1(linearOrArcObj, begObj.x, begObj.y); { start }
		GetSegPt2(linearOrArcObj, endObj.x, endObj.y); { end }
	END;