suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

with-color and with-thickness now preserve pen cap and join

Browse Source
This commit is contained in:
Jens Axel Søgaard 2013-08-11 16:47:51 +02:00
parent ac37ccb79c
commit 4c8b32fbcf
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/pict-pkgs/pict-lib/texpict/private/mrpict-extra.rkt
View File

@ -492,7 +492,9 @@
[b (get-brush)] [b (get-brush)]
[fg (get-text-foreground)]) [fg (get-text-foreground)])
(let ([color (resolve-color (cadr x))]) (let ([color (resolve-color (cadr x))])
(set-pen (find-or-create-pen color (send p get-width) (send p get-style))) (set-pen (find-or-create-pen color
(send p get-width) (send p get-style)
(send p get-cap) (send p get-join)))
(set-brush (find-or-create-brush color 'solid)) (set-brush (find-or-create-brush color 'solid))
(set-text-foreground color)) (set-text-foreground color))
(loop dx dy (caddr x)) (loop dx dy (caddr x))
@ -513,7 +515,9 @@
(case (cadr x) (case (cadr x)
[(#f) 'transparent] [(#f) 'transparent]
[(thicklines thinlines) (send p get-style)] [(thicklines thinlines) (send p get-style)]
[else (cadr x)])))) [else (cadr x)]))
(send p get-cap)
(send p get-join)))
(loop dx dy (caddr x)) (loop dx dy (caddr x))
(set-pen p))] (set-pen p))]
[(prog) [(prog)