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

improve Redex's arrow drawing

Browse Source
This commit is contained in:
Robby Findler 2011-03-27 14:49:10 -05:00
parent 4b4d7f5f0b
commit 7a427be2fd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/redex/private/arrow.rkt
View File

@ -58,7 +58,9 @@
(dc (dc
(λ (dc dx dy) (λ (dc dx dy)
(let ([old-pen (send dc get-pen)] (let ([old-pen (send dc get-pen)]
[old-brush (send dc get-brush)]) [old-brush (send dc get-brush)]
[old-smoothing (send dc get-smoothing)])
(send dc set-smoothing 'smoothed)
(send dc set-pen (send old-pen get-color) (* h pen-width-factor) 'solid) (send dc set-pen (send old-pen get-color) (* h pen-width-factor) 'solid)
;; main line of arrow ;; main line of arrow
@ -120,6 +122,7 @@
(+ dx w (- head-width)) (+ dx w (- head-width))
(+ dy line-pos (+ (/ head-height 2)))) (+ dy line-pos (+ (/ head-height 2))))
(send dc set-smoothing old-smoothing)
(send dc set-pen old-pen) (send dc set-pen old-pen)
(send dc set-brush old-brush))) (send dc set-brush old-brush)))
w h (- h d) d) w h (- h d) d)