anchor.diff:          (draw-rosette stream 300 300 200 18
                         :ink +steel-blue+ :line-thickness 2)
   
  -        ))))
  +        )))
  
positive.code:                            :line-thickness (random 50)))
          (new-page stream)
  
          (draw-text* stream "(Test Page)" 170 30
                      :text-style (make-text-style :fix :bold :huge))
          (loop for a = 70 then (incf a 50)
             for i from 1 to 15
             do (progn
                  (draw-point* stream 100 a :line-thickness i)
                  (draw-line* stream 150 a 350 a :line-thickness i
                              :line-dashes (list (* i 2) (round i 2)))
                  (draw-text* stream (format nil "~D" i) 400 a
                              :text-style (make-text-style
                                           :sans-serif :bold :huge))))
          (new-page stream)
  
          (with-translation (stream 540 75)
  
negative.code:     (with-output-to-postscript-stream
          (stream file-stream
                  :header-comments '(:title "PostScript Medium Test Output"))
  
          (loop repeat 200
             do (draw-line* stream (random 600) (random 900)
  