anchor.diff:                                     (+ max-y border))))))
   
   (def-grecording draw-polygon (coord-seq closed filled)
  -  ;; FIXME !!!
  -  ;; If LINE-STYLE-JOINT-SHAPE is :MITTER, then the bb is larger than
  -  ;; these numbers by (LINE-THICKNESS / (sin (angle / 2))),
  -  ;; which is larger than LINE-THICKNESS
     (with-transformed-positions (transform coord-seq)
  -     (loop for (x y) on coord-seq by #'cddr
  +    (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
  
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: ;;;
  ;;; - 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
  