1 665c255d 2023-08-04 jrmu (defun make-center-percent (c p)
2 665c255d 2023-08-04 jrmu   (let ((w (abs (* p (/ c 100)))))
3 665c255d 2023-08-04 jrmu     (make-center-width c w)))
4 665c255d 2023-08-04 jrmu (defun percent (i)
5 665c255d 2023-08-04 jrmu   (* 100 (/ (width i) (abs (center i)))))