anchor.diff:  	 (coordinate= (slot-value record 'point-y) point-y))))
   
   (def-grecording draw-points ((coord-seq-mixin gs-line-style-mixin) coord-seq)
  -  (let ((transformed-coord-seq (transform-positions coord-seq))
  +  (let ((transformed-coord-seq (transform-positions (medium-transformation medium) coord-seq))
   	(border (graphics-state-line-style-border graphic medium)))
       (setf (slot-value graphic 'coord-seq) transformed-coord-seq)
       (coord-seq-bounds transformed-coord-seq border)))
  
positive.code: 	 (coordinate= (slot-value record 'point-y2) point-y2))))
  
  (def-grecording draw-lines ((coord-seq-mixin gs-line-style-mixin) coord-seq)
    (let ((transformed-coord-seq (transform-positions coord-seq))
  	(border (graphics-state-line-style-border graphic medium)))
      (setf coord-seq transformed-coord-seq)
      (coord-seq-bounds transformed-coord-seq border)))
  
negative.code: 
  (def-grecording draw-polygon ((coord-seq-mixin gs-line-style-mixin)
  			      coord-seq closed filled)
    (let ((transformed-coord-seq (transform-positions (medium-transformation medium) coord-seq))
  	(border (graphics-state-line-style-border graphic medium)))
      (setf coord-seq transformed-coord-seq)
      (polygon-record-bounding-rectangle transformed-coord-seq
  