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/test09.rkt

21 lines
498 B
Racket

#lang racket/base
(require pitfall/pdftest)
8 years ago
(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")
8 years ago
(make-doc that #t proc)