1 (defun make-center-percent (c p)
2   (let ((w (abs (* p (/ c 100)))))
3     (make-center-width c w)))
4 (defun percent (i)
5   (* 100 (/ (width i) (abs (center i)))))