anchor.diff:      (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)
                             (random 600) (random 900)
                             :ink (make-random-color)))
           (new-page stream)
  -
           (loop repeat 1000
              do (draw-point* stream (random 600) (random 900)
                              :ink (make-random-color)
                              :line-thickness (random 50)))
           (new-page stream)
  -
           (formatting-table (stream :x-spacing 50
                                     :y-spacing 20)
             (formatting-row (stream)
  
positive.code:                                 :text-style (make-text-style
                                               :sans-serif :bold :huge))))))
          (new-page stream)
  
          (with-translation (stream 540 75)
            (with-scaling (stream 3)
              (with-rotation (stream (/ pi 2))
  
negative.code:                       :align-y :baseline)
            (draw-line* stream 50 200 535 200
                        :ink +red+))
          (new-page stream)
          (formatting-table (stream)
            (flet ((draw (angle line-joint-shape)
                     (let ((record
  