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.
21 lines
498 B
Racket
21 lines
498 B
Racket
#lang racket/base
|
|
(require pitfall/pdftest)
|
|
|
|
(define (proc doc)
|
|
(send* doc
|
|
[moveTo 0 20]
|
|
[lineTo 100 160]
|
|
[quadraticCurveTo 130 200 150 120]
|
|
[bezierCurveTo 190 -40 200 200 300 150]
|
|
[lineTo 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 that "test09crkt.pdf")
|
|
(make-doc that #t proc)
|