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 medium-draw-point* ((medium postscript-medium) x y)
    (let ((stream (postscript-medium-file-stream medium))
          (*transformation* (sheet-native-transformation (medium-sheet medium)))
          (radius (format-postscript-number (/ (medium-line-thickness medium) 2))))
      (postscript-actualize-graphics-state stream medium :color)
      (format stream "newpath~%")
      (write-coordinates stream x y)
      (format stream "~A 0 360 arc~%" radius)
      (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 (format-postscript-number (/ (medium-line-thickness medium) 2))))
      (postscript-actualize-graphics-state stream medium :color)
      (map-repeated-sequence 'nil 2
                             (lambda (x y)
                               (format stream "newpath~%")
                               (write-coordinates stream x y)
                               (format stream "~A 0 360 arc~%" radius)
                               (format stream "fill~%"))
                             coord-seq)))
  
  
negative.code: (defmethod postscript-set-graphics-state (stream medium (kind (eql :color)))
    (multiple-value-bind (r g b)
        (medium-color-rgb medium (medium-ink medium))
      (write-number stream r)
      (write-number stream g)
      (write-number stream b)
      (format stream "setrgbcolor~%")))
  
  ;;; Clipping region
  (defgeneric postscript-set-clipping-region (stream region))
  