hiGetCurrentEnterFunPoints

hiGetCurrentEnterFunPoints() 
=> l_points

Description

Returns the list of points entered in the active enterfunction of the current window.

Arguments

None.

Value Returned

l_points

List of points entered in the active enterfunction of the current window.

Examples

In this example, the last point in the list of points is used along with the current pointer location to determine the general direction of the current segment being entered for a line or path.

(procedure GetCurrentSegmentDirection()

 (let ((currPt (hiGetPoint (hiGetCurrentWindow)))

   (errMsg "Unable to determine direction")

   (fnName "GetCurrentSegmentDirection") prevPt

   (efunPts (hiGetCurrentEnterFunPoints)))

 prevPt = (caar (last efunPts))

 (cond

     (!efunPts (warn "%s: No enterfun points.  %s" fnName errMsg))

     (!currPt (warn "%s: No current point.  %s" fnName errMsg))

     ((2 * (abs (car prevPt) - (car currPt)))

       < (abs (cadr prevPt) - (cadr currPt)) "vertical")

     ((abs (car prevPt) - (car currPt))

      > (2 * (abs (cadr prevPt) - (cadr currPt))) "horizontal")

     (t "diagonal")

 )

    )

)

Related Topics

Window Functions

Return to top