anchor.diff:  ;;;
   ;;; - Scrolling does not work correctly. Region is given in "window"
   ;;; coordinates, without bounding-rectangle-position transformation.
  +;;; (Is it still valid?)
   ;;;
   ;;; - Redo setf*-output-record-position, extent recomputation for
   ;;; compound records
  
positive.code:                                (values (- min-x border)
                                         (- min-y border)
                                         (+ max-x border)
                                         (+ max-y border)))))))
  
  (def-grecording draw-rectangle (left top right bottom filled)
    ;; FIXME!!! If the rectangle is a line/point, MAKE-RECTANGLE* gives +NOWHERE+,
  
negative.code:                                    (+ max-y border))))))
  
  (def-grecording draw-polygon (coord-seq closed filled)
    (with-transformed-positions (transform coord-seq)
      (if (or filled
              (not (eq (line-style-joint-shape line-style) :miter)))
          (loop for (x y) on coord-seq by #'cddr
             minimize x into min-x
             minimize y into min-y
             maximize x into max-x
  