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

80 lines
1.5 KiB
Racket

#lang racket/base
(require pitfall/pdftest)
(define (proc doc)
;; curved path as bezier
(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])
;; triangle
(send* doc
[polygon '(100 0) '(50 100) '(150 100)]
[stroke])
;; dashed circle
(send* doc
[save]
[translate 200 0]
[circle 100 50 50]
[dash 5 (hash 'space 10)]
[stroke]
[restore])
;; filled circle
(send* doc
[save]
[translate 400 0]
[circle 100 50 50]
[line-width 3]
[fill-opacity 0.8]
[fill-and-stroke "red" "#900"]
[restore])
(send* doc [translate 0 200])
;; these examples are easier to see with a large line width
(send* doc [line-width 25])
;; line cap settings
(send* doc [lineCap 'butt]
[move-to 50 20]
[line-to 100 20]
[stroke]
[lineCap 'round]
[move-to 150 20]
[line-to 200 20]
[stroke])
;; square line cap shown with a circle instead of a line so you can see it
(send* doc [lineCap 'square]
[move-to 250 20]
[circle 275 30 15]
[stroke])
;; line join settings
(send* doc [lineJoin 'miter]
[rect 50 100 50 50]
[stroke]
[lineJoin 'round]
[rect 150 100 50 50]
[stroke]
[lineJoin 'bevel]
[rect 250 100 50 50]
[stroke]))
(define-runtime-path this "test2rkt.pdf")
(make-doc this #f proc)
(define-runtime-path that "test2crkt.pdf")
(make-doc that #t proc)