|
|
|
@ -12,11 +12,11 @@
|
|
|
|
|
;; Set the font, draw some text
|
|
|
|
|
[font doc "the-font"]
|
|
|
|
|
[font-size doc 25]
|
|
|
|
|
[text doc "In Xanadu did Kubla Khan" 100 100 (hash 'width #f)]
|
|
|
|
|
[text doc "A stately pleasure dome decree:" 100 140 (hash 'width #f)]
|
|
|
|
|
[text doc "Where Alph, the sacred river, ran" 100 180 (hash 'width #f)]
|
|
|
|
|
[text doc "Through caverns measureless to man" 100 220 (hash 'width #f)]
|
|
|
|
|
[text doc "Down to a sunless sea." 100 260 (hash 'width #f)])
|
|
|
|
|
[text doc "In Xanadu did Kubla Khan" 100 100]
|
|
|
|
|
[text doc "A stately pleasure dome decree:" 100 140]
|
|
|
|
|
[text doc "Where Alph, the sacred river, ran" 100 180]
|
|
|
|
|
[text doc "Through caverns measureless to man" 100 220]
|
|
|
|
|
[text doc "Down to a sunless sea." 100 260])
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define-runtime-path this "test18rkt.pdf")
|
|
|
|
|