;; Q: How to determine the relative (paper/model space)
;; scale factor of the current model space viewport.
;; 

(defun xpfact ()
   (- (car (trans '(1 0 0) 2 3))
      (car (trans '(0 0 0) 2 3))
   )
)