;; | ----------------------------------------------------------------------------
;; | GE_PntInView
;; | ----------------------------------------------------------------------------
;; | Function : Check if point is in current viewport
;; | Auguments: 'pt'  - The point to be checked
;; | Return   : T or nil depending on 'pt' is in viewport or not
;; | Updated  : April 22, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_PntInView(pt / vc Y_Len ssz X_Pix Y_Pix X_Len ll ur)

(setq
   vc    (getvar "VIEWCTR")
   Y_Len (getvar "VIEWSIZE")
   ssz   (getvar "SCREENSIZE")
   X_Pix (car ssz)
   Y_Pix (cadr ssz)
   X_Len (* (/ X_Pix Y_Pix) Y_Len)
   ll    (polar vc (MI_d2r 180.0) (* 0.5 X_Len))
   ur    (polar ll 0.0 X_Len)
   ll    (polar ll (MI_d2r 270.0) (* 0.5 Y_Len))
   ur    (polar ur (MI_d2r 90.0) (* 0.5 Y_Len))
)

(if (and
		(> (car pt) (car ll))
		(< (car pt) (car ur))
		(> (cadr pt) (cadr ll))
		(< (cadr pt) (cadr ur))
	)
	T
	nil
)
)