anchor.diff:             (start-angle (or (ellipse-start-angle circle) 0))
              (end-angle (or (ellipse-end-angle circle) (* 2 pi))))
         (write-string (if filled "true " "false ") stream)
  -      (format stream "~A ~A "
  -              (format-postscript-angle (if (< end-angle start-angle)
  -                                           (+ end-angle (* 2 pi))
  -                                           end-angle))
  -              (format-postscript-angle start-angle))
  +      (write-angle stream (if (< end-angle start-angle)
  +                              (+ end-angle (* 2 pi))
  +                              end-angle))
  +      (write-angle stream start-angle)
         (write-transformation* stream ndx2 ndx1 ndy2 ndy1 cx cy)
         (format stream "pe~%"))))
   
  
positive.code: (defmethod postscript-set-graphics-state (stream medium (kind (eql :color)))
    (multiple-value-bind (r g b)
        (medium-color-rgb medium (medium-ink medium))
      (format stream "~A ~A ~A setrgbcolor~%"
              (format-postscript-number r)
              (format-postscript-number g)
              (format-postscript-number b))))
  
  ;;; Clipping region
  (defgeneric postscript-set-clipping-region (stream region))
  
negative.code:                                           (kind (eql :line-style)))
    (let* ((line-style (medium-line-style medium))
           (scale (line-style-scale line-style)))
      (write-number stream (* scale (line-style-thickness line-style)))
      (format stream "setlinewidth ~A setlinejoin ~A setlinecap~%"
              (getf +postscript-line-joints+
                    (line-style-joint-shape line-style))
              (getf +postscript-line-caps+
                    (line-style-cap-shape line-style)))
      (let ((dashes (line-style-dashes line-style)))
        (format stream "[")
        (mapc (lambda (l) (write-number stream (* scale l)))
              (if (eq dashes 't)
                  +postscript-default-line-dashes+
                  dashes))
  