(defun print-magnification (imager-size print-size)
"Returns the magnification required between an imager and print sizes
while taking crop into consideration."
(setf imager-size (sort-size imager-size))
(setf print-size (sort-size print-size))
(float (max (/ (car print-size) (car imager-size))
(defun print-magnification (imager-size print-size)
"Returns the magnification required between an imager and print sizes
while taking crop into consideration."
(setf imager-size (sort-size imager-size))
(setf print-size (sort-size print-size))
(float (max (/ (car print-size) (car imager-size))