anchor.diff:                    s1 s2))
                (start-angle (untransform-angle tr start-angle))
                (end-angle (untransform-angle tr end-angle)))
  -        (with-graphics-state (stream)
  -          (postscript-actualize-graphics-state stream medium :line-style :color)
  -          (format stream "matrix currentmatrix~%")
  -          (format stream "~A ~A translate~%"
  -                  (format-postscript-number center-x)
  -                  (format-postscript-number center-y))
  -          (format stream "~A rotate~%"
  -                  (format-postscript-angle angle))
  -          (format stream "~A ~A scale~%"
  -                  (format-postscript-number s1) (format-postscript-number s2))
  -          (format stream "newpath~%")
  -          (format stream "0 0 1 ~A ~A arc~%"
  -                  (format-postscript-angle start-angle)
  -                  (format-postscript-angle end-angle))
  -          (when filled
  -            (format stream "0 0 lineto~%"))
  -          (format stream "setmatrix~%")
  -          (format stream (if filled
  -                             "fill~%"
  -                           "stroke~%")))))))
  +        (postscript-actualize-graphics-state stream medium :line-style :color)
  +        (format stream "matrix currentmatrix~%")
  +        (format stream "~A ~A translate~%"
  +                (format-postscript-number center-x)
  +                (format-postscript-number center-y))
  +        (format stream "~A rotate~%"
  +                (format-postscript-angle angle))
  +        (format stream "~A ~A scale~%"
  +                (format-postscript-number s1) (format-postscript-number s2))
  +        (format stream "newpath~%")
  +        (format stream "0 0 1 ~A ~A arc~%"
  +                (format-postscript-angle start-angle)
  +                (format-postscript-angle end-angle))
  +        (when filled
  +          (format stream "0 0 lineto~%"))
  +        (format stream "setmatrix~%")
  +        (format stream (if filled
  +                           "fill~%"
  +                           "stroke~%"))))))
   
   (defconstant +postscript-fonts+ '(:fix (:roman "Courier"
                                           :bold "Courier-Bold"
  
positive.code: 
  (defmethod postscript-set-graphics-state (stream medium
                                            (kind (eql :clipping-region)))
    (postscript-set-clipping-region stream
                                    (medium-clipping-region medium)))
  
  
negative.code:                                region))
  
  (defmethod postscript-add-path (stream (region standard-region-intersection))
    (format stream "gsave~%")
    #+nil (format stream "initclip~%")
    (loop for subregion in (region-set-regions region)
          do (format stream "newpath~%")
          (postscript-add-path stream subregion)
          (format stream "clip~%"))
    (format stream "clippath false upath~%")
    (format stream "grestore~%")
    (format stream "uappend~%"))
  
  ;;; Primitive paths
  (defmethod postscript-add-path (stream (polygon polygon))
    (let ((points (polygon-points polygon)))
      (format stream "~A ~A moveto~%"
  