anchor.diff:               (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)
  
positive.code:             finally (format stream "~%"))
        (when closed
          (format stream "closepath~%"))
        (postscript-line-style-and-color stream medium)
        (format stream (if filled
                           "fill~%"
                           "stroke~%")))))
  
negative.code: ;;;  (c) copyright 2001 by
  ;;;           Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
  ;;;           Lionel Salabartan (salabart@emi.u-bordeaux.fr)
  ;;;  (c) copyright 2002 by
  ;;;           Alexey Dejneka (adejneka@comail.ru)
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  