anchor.diff:                :reader label-pane-label-alignment)
      (background :initform *3d-normal-color*)
      )
  +  (:default-initargs
  +   :text-style (make-text-style :sans-serif nil nil))
     (:documentation ""))
   
   (defmacro labelling ((&rest options) &body contents)
  
positive.code: 
  ;;; LABEL PANE
  
  (defclass label-pane (single-child-composite-pane permanent-medium-sheet-output-mixin)
    ((label :type string :initarg :label :accessor label-pane-label)
     (alignment :type (member :bottom :top)
                :initform :top
  
negative.code:              (let ((sum (reduce #'+ (mapcar (lambda (x) (elt x j)) qvector))))
                 (unless (zerop sum)
                   (setf allot
                         (mapcar (lambda (allot q)
                                   (let ((q (elt q j)))
                                     (let ((delta (ceiling (if (zerop sum) 0 (/ (* excess q) sum)))))
                                       (decf excess delta)
                                       (decf sum q)
                                       (+ allot delta))))
                                 allot qvector))
                   #+NIL
                   (format *debug-io* "~&;;   new excess = ~F, allotment = ~S.~%" excess allot)
                   )))
  