typesetting/pitfall/ptest/test5.rkt

#lang racket/base
(require pitfall/pdftest)

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

(define (proc doc)
  [font doc "Times-Italic"]
  [font-size doc 25]
  [text doc "Some fantastic text!" 100 100]
  [image doc death 100 160 #:width 412])

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

(define-runtime-path that "test5crkt.pdf")
(make-doc that 'compress proc)
buildable not testable 6 years ago			`#lang racket/base`
			`(require pitfall/pdftest)`
start test5 8 years ago
test7 works 8 years ago			`(define-runtime-path death "assets/death.png")`
update alltest 8 years ago
consolidate test files 8 years ago			`(define (proc doc)`
step5 6 years ago			`[font doc "Times-Italic"]`
			`[font-size doc 25]`
delete obsolete options 6 years ago			`[text doc "Some fantastic text!" 100 100]`
keyword args for `image` 5 years ago			`[image doc death 100 160 #:width 412])`
consolidate test files 8 years ago
			`(define-runtime-path this "test5rkt.pdf")`
test 6 7 8 6 years ago			`(make-doc this #f proc)`
start test5 8 years ago
successful png test in test5 8 years ago			`(define-runtime-path that "test5crkt.pdf")`
test 6 7 8 6 years ago			`(make-doc that 'compress proc)`