anchor.diff:  
   ;;; Line style
   (defconstant +pdf-line-joints+ '(:miter 0
  -                                        :round 1
  -                                        :bevel 2
  -                                        :none 0))
  +                                 :round 1
  +                                 :bevel 2
  +                                 :none 0))
   
   (defconstant +pdf-line-caps+ '(:butt 0
  -                                      :round 1
  -                                      :square 2 ; extended butt caps
  -                                      :No-end-point 0))
  +                               :round 1
  +                               :square 2 ; extended butt caps
  +                               :No-end-point 0))
   
   (defconstant +pdf-default-line-dashes+ '(30 30))
   
  
positive.code:     (pdf:set-line-join (getf +pdf-line-joints+
                               (line-style-joint-shape line-style)))
      (pdf:set-line-cap (getf +pdf-line-caps+
                    (line-style-cap-shape line-style)))
      ;; FIXME!!! dashes not yet implemented!
      ))
  
  
negative.code:          (size (clim-postscript-font:font-name-size font-name))
           (metrics-key (clim-postscript-font:font-name-metrics-key font-name)))
      (clim-postscript-font:text-size-in-font metrics-key size
                                              string start (or end (length string)))))
  
  (defun medium-font (medium)
    (text-style-mapping (port medium) (medium-merged-text-style medium)))
  