;; | ----------------------------------------------------------------------------
;; | GE_PointInWindow
;; | ----------------------------------------------------------------------------
;; | Function : Check whether a point is within a window or not
;; | Arguments:
;; |            'pt'  - Point to be checked.
;; |            'pt1' - Lower Left Corner of Window
;; |            'pt2' - Upper Right Corner of Window
;; | Action   : Returns T if point is within the boundary and nil otherwise.
;; |            If the point is on the window boundary, T will be returned.
;; | Updated  : March 24, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_PointInWindow(pt pt1 pt2 / tmp )

(setq
	tmp (GE_Corners pt1 pt2)
	pt1 (car tmp)
	pt2 (cadr tmp)
)
(if (and
		(>= (car pt) (car pt1))
		(>= (cadr pt) (cadr pt1))
		(<= (car pt) (car pt2))
		(<= (cadr pt) (cadr pt2))
	)
	T
	nil
)
)