anchor.diff:  (defmethod medium-draw-rectangle* ((medium postscript-medium) x1 y1 x2 y2 filled)
     (let ((stream (postscript-medium-file-stream medium)))
       (with-graphics-state (stream)
  +      (postscript-actualize-graphics-state stream medium :line-style :color)
  +      (format stream "newpath~%")
         (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
                            "fill~%"
                            "stroke~%")))))
  
positive.code:     (format file-stream "showpage~%")
      (format file-stream "%%Page: ~D ~:*~D~%" (incf current-page))))
  
  (defconstant +postscript-line-joints+ '(:miter 0
                                          :round 1
                                          :bevel 2
  
negative.code: 
  (defconstant +postscript-default-line-dashes+ '(3 3))
  
  (defmethod postscript-set-graphics-state (stream medium
                                            (kind (eql :line-style)))
    (let ((line-style (medium-line-style medium)))
      (format stream "~A setlinewidth ~A setlinejoin ~A setlinecap~%"
              (line-style-thickness line-style)
  