You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
typesetting/pitfall/ptest/test4.rkt

68 lines
1.4 KiB
Racket

#lang racket/base
(require pitfall/pdftest)
8 years ago
(define (proc doc)
(send* doc
8 years ago
[font "Courier-Bold"]
6 years ago
[font-size 10]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Courier-BoldOblique"]
6 years ago
[font-size 11]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Courier-Oblique"]
6 years ago
[font-size 12]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Courier"]
6 years ago
[font-size 14]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Helvetica-Bold"]
6 years ago
[font-size 16]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Helvetica-BoldOblique"]
6 years ago
[font-size 18]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Helvetica-Oblique"]
6 years ago
[font-size 20]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Helvetica"]
6 years ago
[font-size 22]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Symbol"]
6 years ago
[font-size 24]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Times-Bold"]
6 years ago
[font-size 26]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Times-BoldItalic"]
6 years ago
[font-size 28]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Times-Italic"]
6 years ago
[font-size 30]
8 years ago
[text "Hello"]
[translate -30 30]
[font "Times-Roman"]
6 years ago
[font-size 32]
8 years ago
[text "Hello"]
[translate -30 30]
[font "ZapfDingbats"]
6 years ago
[font-size 34]
[text "Hello"]))
(define-runtime-path this "test4rkt.pdf")
(make-doc this #f proc)
8 years ago
(define-runtime-path that "test4crkt.pdf")
(make-doc that #t proc)
8 years ago