SetPt
To assign two coordinates to a point, use theSetPtprocedure.
PROCEDURE SetPt (VAR pt:�Point; h,v:�Integer);
pt- The point to be given new coordinates.
h- The horizontal value of the new coordinates.
v- The vertical value of the new coordinates.
DESCRIPTION
TheSetPtprocedure assigns the horizontal coordinate specified in thehparameter and the vertical coordinate specified in thevparameter to the point returned in theptparameter.