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

22 lines
555 B
Racket

#lang racket/base
(require pitfall/pdftest)
8 years ago
(define (proc doc)
6 years ago
[move-to doc 0 20]
[line-to doc 100 160]
[quadratic-curve-to doc 130 200 150 120]
[bezier-curve-to doc 190 -40 200 200 300 150]
[line-to doc 400 90]
[stroke doc]
8 years ago
6 years ago
[translate doc 0 200]
8 years ago
6 years ago
[path doc "M 0,20 L 100,160 Q 130,200 150,120 C 190,-40 200,200 300,150 L 400,90"]
[stroke doc])
8 years ago
6 years ago
(define-runtime-path this "test9rkt.pdf")
(make-doc this #false proc)
(define-runtime-path that "test9crkt.pdf")
8 years ago
(make-doc that #t proc)