anchor.diff:                                  :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))
  
positive.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)
                            (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)
  
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
  