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.
24 lines
575 B
Racket
24 lines
575 B
Racket
#lang racket/base
|
|
(require pitfall/pdftest)
|
|
|
|
(define (proc doc)
|
|
(send* doc
|
|
[move-to 0 20]
|
|
[line-to 100 160]
|
|
[quadratic-curve-to 130 200 150 120]
|
|
[bezier-curve-to 190 -40 200 200 300 150]
|
|
[line-to 400 90]
|
|
[stroke])
|
|
|
|
(send* doc [translate 0 200])
|
|
|
|
(send* doc
|
|
[path "M 0,20 L 100,160 Q 130,200 150,120 C 190,-40 200,200 300,150 L 400,90"]
|
|
[stroke]))
|
|
|
|
(define-runtime-path this "test9rkt.pdf")
|
|
(make-doc this #false proc)
|
|
|
|
(define-runtime-path that "test9crkt.pdf")
|
|
(make-doc that #t proc)
|