;; | ----------------------------------------------------------------------------
;; | GE_Get9JustPts
;; | ----------------------------------------------------------------------------
;; | Function : Returns the 9 justification points in the following clockwise
;; |            order - TL, TC, TR, MR, BR, BC, BL, ML and MC
;; |
;; |            TL TC TR
;; |            ML MC MR
;; |            BL BC BR
;; |
;; | Arguments: 'LL' - Lower Left Corner  (same as BL)
;; |            'UR' - Upper Right Corner (same as UR)
;; | Comments: The Z value is ignored and set to 0.0
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_Get9JustPts( LL UR / tmp BC BL BR MC ML MR TC TL TR )

(setq
	LL (list (car LL) (cadr LL) 0.0)
	UR (list (car UR) (cadr UR) 0.0)
	BL LL
	TR UR
	MC (MI_MidPoint BL TR)
	TL (list (car BL) (cadr TR) 0.0)
	TC (list (car MC) (cadr TR) 0.0)
	MR (list (car TR) (cadr MC) 0.0)
	BR (list (car TR) (cadr BL) 0.0)
	BC (list (car MC) (cadr BL) 0.0)
	ML (list (car BL) (cadr MC) 0.0)
)
(list TL TC TR MR BR BC BL ML MC)
)