anchor.diff:        (loop with points = (apply #'vector coord-seq)
               for i below (length coord-seq) by 4
               do
  -            (format stream "~,15G ~,15G moveto ~,15G ~,15G lineto~%"
  -                    (aref points i) (aref points (1+ i))
  -                    (aref points (+ i 2)) (aref points (+ i 3)))
  +            (format stream "~A ~A moveto ~A ~A lineto~%"
  +                    (format-postscript-number (aref points i))
  +                    (format-postscript-number (aref points (1+ i)))
  +                    (format-postscript-number (aref points (+ i 2)))
  +                    (format-postscript-number (aref points (+ i 3))))
               finally (format stream "stroke~%")))))
   
   (defmethod medium-draw-polygon* ((medium postscript-medium) coord-seq closed filled)
     (assert (evenp (length coord-seq)))
     (let ((stream (postscript-medium-file-stream medium)))
       (with-graphics-state (stream)
  -      (format stream "~,15G ~,15G moveto~%" (car coord-seq) (cadr coord-seq))
  +      (format stream "~A ~A moveto~%"
  +              (format-postscript-number (car coord-seq))
  +              (format-postscript-number (cadr coord-seq)))
         (loop for (x y) on (cddr coord-seq) by #'cddr
  -            do (format stream "~,15G ~,15G lineto~%" x y)
  +            do (format stream "~A ~A lineto~%"
  +                       (format-postscript-number x) (format-postscript-number y))
               finally (format stream "~%"))
         (when closed
           (format stream "closepath~%"))
  
positive.code: 				 radius1-dx radius1-dy radius2-dx radius2-dy
  				 start-angle end-angle filled)
    (let ((stream (postscript-medium-file-stream medium))
  	(mod1 (sqrt (+ (* radius1-dx radius1-dx)
                         (* radius1-dy radius1-dy))))
  	(mod2 (sqrt (+ (* radius2-dx radius2-dx)
                         (* radius2-dy radius2-dy)))))
      (with-graphics-state (stream)
        (format stream "matrix currentmatrix~%")
        (format stream "~,15G ~,15G translate~%" center-x center-y)
        (format stream "~,15G ~,15G scale~%" mod1 mod2)
        (format stream "0 0 1 ~,15G ~,15G arc~%" (* 180 (/ start-angle pi)) (* 180 (/ end-angle pi)))
        (format stream "setmatrix~%")
        (postscript-line-style-and-color stream medium)
        (format stream (if filled
                           "fill~%"
                           "stroke~%")))))
  
  (defconstant +postscript-fonts+ '(:fix (:roman "Courier"
                                          :bold "Courier-Bold"
  
negative.code: (defmethod medium-draw-rectangle* ((medium postscript-medium) x1 y1 x2 y2 filled)
    (let ((stream (postscript-medium-file-stream medium)))
      (with-graphics-state (stream)
        (format stream "~A ~A moveto ~A ~A lineto ~A ~A lineto ~A ~A lineto~%"
                (format-postscript-number x1) (format-postscript-number y1)
                (format-postscript-number x2) (format-postscript-number y1)
                (format-postscript-number x2) (format-postscript-number y2)
                (format-postscript-number x1) (format-postscript-number y2))
        (format stream "closepath~%")
        (postscript-line-style-and-color stream medium)
        (format stream (if filled
  