anchor.diff:  
   (def-grecording draw-point (point-x point-y)
     (with-transformed-position (transform point-x point-y)
  -     (values point-x point-y point-x point-y)))
  +     (values (- point-x border)
  +             (- point-y border)
  +             (+ point-x border)
  +             (+ point-y border))))
   
   (def-grecording draw-points (coord-seq)
     (with-transformed-positions (transform coord-seq)
  
positive.code:            minimize y into min-y
             maximize x into max-x
             maximize y into max-y
             finally (return (values min-x min-y max-x max-y)))))
  
  (def-grecording draw-polygon (coord-seq closed filled)
    ;; FIXME !!!
  
negative.code: 		      stream ink clipping-region transform
  		      line-style text-style
  		      ,@args) graphic
             (let ((,border (/ (line-style-effective-thickness
                                line-style (sheet-medium stream))
                               2)))
               (declare (ignorable ,border))
               (multiple-value-setq (x1 y1 x2 y2) (progn ,@body)))
             (setf x x1
                   y y1
                   initial-x1 x1
  