main
Matthew Butterick 6 years ago
parent 7cd96d5cac
commit 2a783a6f00

@ -1,15 +0,0 @@
#lang debug br
(require racket/runtime-path pitfall/document)
(define-runtime-path fira "fira.ttf")
(define PS "typewriter-raw.pdf")
(define doc (make-object PDFDocument
(hasheq 'compress #t
'autoFirstPage #t
'size '(300 200))))
(time (send* doc
[pipe (open-output-file PS #:exists 'replace)]
[registerFont "Fira" (path->string fira)]
[font "Fira"]
[fontSize 12]
[text "Hello world" 36 36]))
(send doc end)
Loading…
Cancel
Save