typesetting/pitfall/ptest/test5.rkt

#lang racket/base
(require pitfall/pdftest)

(define-runtime-path death "assets/death.png")

(define (proc doc)
  (send* doc
  [font "Times-Italic"]
  [font-size 25]
  [text "Some fantastic text!" 100 100 (hash 'lineBreak #f)]
  [image death 100 160 (hash 'width 412)]))

(define-runtime-path this "test5rkt.pdf")
(make-doc this #f proc)

(define-runtime-path that "test5crkt.pdf")
(make-doc that 'compress proc)