anchor.diff:  
   (defmethod medium-draw-point* ((medium postscript-medium) x y)
     (let ((stream (postscript-medium-file-stream medium))
  -        (*transformation* (sheet-native-transformation (medium-sheet medium))))
  +        (*transformation* (sheet-native-transformation (medium-sheet medium)))
  +        (radius (format-postscript-number (/ (medium-line-thickness medium) 2))))
       (postscript-actualize-graphics-state stream medium :color)
       (with-graphics-state (medium) ; FIXME: this is because of setlinewidth below
         (format stream "newpath~%")
         (write-coordinates stream x y)
  -      (format stream "~A 0 360 arc~%"
  -              (format-postscript-number
  -               (/ (line-style-thickness (medium-line-style medium)) 2)))
  +      (format stream "~A 0 360 arc~%" radius)
         (format stream "0 setlinewidth~%")
         (format stream "fill~%"))))
   
   (defmethod medium-draw-points* ((medium postscript-medium) coord-seq)
     (let ((stream (postscript-medium-file-stream medium))
           (*transformation* (sheet-native-transformation (medium-sheet medium)))
  -        (radius (/ (line-style-thickness (medium-line-style medium)) 2)))
  +        (radius (format-postscript-angle (/ (medium-line-thickness medium) 2))))
       (postscript-actualize-graphics-state stream medium :color)
       (with-graphics-state (medium) ; FIXME: this is because of setlinewidth below
         (format stream "0 setlinewidth~%")
  
positive.code:                     (format-postscript-number myy)
                      (format-postscript-number tx)
                      (format-postscript-number ty))))
          (multiple-value-bind (font size)
              (text-style->postscript-font (medium-text-style medium))
            (pushnew font document-fonts :test #'string=)
            (format file-stream "/~A findfont ~D scalefont setfont~%" font size)
            (moveto file-stream x y)
            (format file-stream "(~A) show~%" (postscript-escape-string string)))))))
  
  ;; The following four functions should be rewritten: AFM contains all
  ;; needed information
  
negative.code: (defvar *postscript-graphics-states*
    '((:line-style . medium-line-style)
      (:color . medium-ink)
      (:clipping-region . medium-clipping-region)
      (:text-style . medium-text-style)))
  
  (defun postscript-current-state (medium kind)
    (funcall (cdr (assoc kind *postscript-graphics-states*))
  