main
Matthew Butterick 6 years ago
parent a66814cfd7
commit 07a470a0ac

@ -21,8 +21,8 @@
save save
restore restore
closePath closePath
lineCap line-cap
lineJoin line-join
line-width line-width
dash dash
move-to move-to
@ -72,7 +72,7 @@
(->m object?) (->m object?)
(send this addContent "h")) (send this addContent "h"))
(define/contract (lineCap this [c #f]) (define/contract (line-cap this [c #f])
((or/c 'butt 'round 'square #f) . ->m . object?) ((or/c 'butt 'round 'square #f) . ->m . object?)
(define cap-styles (hasheq 'butt 0 'round 1 'square 2)) (define cap-styles (hasheq 'butt 0 'round 1 'square 2))
(send this addContent (send this addContent
@ -81,7 +81,7 @@
"")))) ""))))
(define/contract (lineJoin this [j #f]) (define/contract (line-join this [j #f])
((or/c 'miter 'round 'bevel #f) . ->m . object?) ((or/c 'miter 'round 'bevel #f) . ->m . object?)
(define cap-styles (hasheq 'miter 0 'round 1 'bevel 2)) (define cap-styles (hasheq 'miter 0 'round 1 'bevel 2))
(send this addContent (send this addContent

Loading…
Cancel
Save