anchor.diff:          (draw-rosette stream 300 300 200 18
                         :ink +steel-blue+ :line-thickness 2)
   
  -        ))))
  +        )))
  
positive.code:     (with-output-to-postscript-stream
          (stream file-stream
                  :header-comments '(:title "PostScript Medium Test Output"))
        (with-output-recording-options (stream :record nil)
  
          (loop repeat 200
             do (draw-line* stream (random 600) (random 900)
  
negative.code:                            :line-thickness (random 50)))
          (new-page stream)
  
          (formatting-table (stream :x-spacing 50
                                    :y-spacing 20)
            (formatting-row (stream)
              (formatting-cell (stream))
              (formatting-cell (stream :align-x :center
                                       :align-y :bottom
                                       :min-height 100)
                (draw-text* stream "(Test Page)" 170 30
                            :text-style (make-text-style :fix :bold :huge))))
            (loop for i from 1 to 15
               do (formatting-row (stream)
                    (formatting-cell (stream :align-x :right
                                             :align-y :center
                                             :min-width 100)
                      (draw-point* stream 0 0 :line-thickness i))
                    (formatting-cell (stream :align-x :center
                                             :align-y :center)
                      (draw-line* stream 0 0 200 0
                                  :line-thickness i
                                  :line-dashes (list (* i 2) (round i 2))))
                    (formatting-cell (stream :align-x :right
                                             :align-y :center)
                      (draw-text* stream (format nil "~D" i) 0 0
                                  :text-style (make-text-style
                                               :sans-serif :bold :huge))))))
          (new-page stream)
  
          (with-translation (stream 540 75)
  