anchor.diff:    (multiple-value-bind (font size)
         (text-style->postscript-font
          (merge-text-styles text-style
  -                          (medium-text-style medium)))
  +                          (medium-merged-text-style medium)))
       (text-size-in-font font size
                          string start (or end (length string)))))
  
positive.code:           ;; untransform them again and simply tell the postscript interpreter
            ;; our transformation matrix. --GB
            ;;
            ;; It should be updated. -- APD, 2002-05-27
            (multiple-value-setq (x y)
              (untransform-position (medium-transformation medium) x y))
            (multiple-value-bind (mxx mxy myx myy tx ty)
  
negative.code: 
  (defconstant +normal-line-width+ (/ 2.0 3.0))
  
  (defun line-style-scale (line-style)
    (let ((unit (line-style-unit line-style)))
      (ecase unit
        (:normal +normal-line-width+)
        (:point 1)
        (:coordinate (error ":COORDINATE line unit not implemented.")))))
  
  (defmethod line-style-effective-thickness
      (line-style (medium postscript-medium))
    (* (line-style-thickness line-style)
       (line-style-scale line-style)))
  
  (defun medium-line-thickness (medium)
    (line-style-effective-thickness (medium-line-style medium) medium))
  
  (defmethod postscript-set-graphics-state (stream medium
                                            (kind (eql :line-style)))
    (let* ((line-style (medium-line-style medium))
           (scale (line-style-scale line-style)))
      (format stream "~D setlinewidth ~A setlinejoin ~A setlinecap~%"
              (format-postscript-number
               (* scale (line-style-thickness line-style)))
  