@ -5,6 +5,7 @@
pitfall/test/test2
pitfall/test/test3
pitfall/test/test4
pitfall/test/test5
pitfall/test/test6
pitfall/page-test
(submod pitfall/zlib test)))
@ -1,11 +1,13 @@
#lang pitfall/pdftest
(define-runtime-path death "death.png")
(define (proc doc)
(send* doc
[font "Times-Italic"]
[fontSize 25]
[text "Some fantastic text!" 100 100 (hash 'lineBreak #f)]
[image "death.png" 100 160 (hash 'width 412)]))
[image death 100 160 (hash 'width 412)]))
(define-runtime-path this "test5rkt.pdf")
(make-doc this #f proc #:test #t)