anchor.diff:                                  (getf +postscript-font-sizes+ :normal)))))
         (values font-name size-number))))
   
  +(defun medium-font (medium)
  +  (text-style->postscript-font (medium-text-style medium)))
  +
  +(defmethod postscript-set-graphics-state (stream medium
  +                                          (kind (eql :text-style)))
  +  (multiple-value-bind (font size)
  +      (medium-font medium)
  +    (pushnew font (slot-value medium 'document-fonts) :test #'string=)
  +    (format stream "/~A findfont ~D scalefont setfont~%" font size)))
  +
   (defun postscript-escape-char (char)
     (case char
       (#\Linefeed "\\n")
  
positive.code: ;;; - - more regions to draw
  ;;; - (?) blending
  ;;; - check MEDIUM-DRAW-TEXT*
  ;;; - check START,END-ANGLE in M-D-ELLIPSE*
  ;;; - check line style
  ;;; - POSTSCRIPT-ACTUALIZE-GRAPHICS-STATE: fix CLIPPING-REGION reusing logic
  ;;; - MEDIUM-DRAW-... should not duplicate code from POSTSCRIPT-ADD-PATH
  ;;; - structure this file
  
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*))
  