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

added a keyword argument to filled-rectangle to make it avoid using a pen

Browse Source 
svn: r18527
This commit is contained in:
Robby Findler 2010-03-12 20:50:26 +00:00
parent 9035e2e584
commit 861c494693
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/scribblings/slideshow/picts.scrbl
View File

@ -223,9 +223,16 @@ override settings supplied by the context.}
Unfilled and filled ellipses.}
@defproc*[([(rectangle [w real?] [h real?]) pict?]
[(filled-rectangle [w real?] [h real?]) pict?])]{
[(filled-rectangle [w real?]
[h real?]
[#:draw-border? draw-border? any/c #t])
pict?])]{
Unfilled and filled rectangles.}
Unfilled and filled rectangles.
If @scheme[draw-border?] is @scheme[#f], then the pen is set to be transparent
before drawing the rectangle.
}
@defproc*[([(rounded-rectangle [w real?] [h real?]
[corner-radius real? -0.25]

12
collects/texpict/utils.ss
View File

@ -257,15 +257,19 @@
(define (pip-arrows-line dx dy size)
(arrows-line dx (- dy) size))
(define (filled-rectangle w h)
(define (filled-rectangle w h #:draw-border? [draw-border? #t])
(dc
(lambda (dc x y)
(let ([b (send dc get-brush)])
(let ([b (send dc get-brush)]
[p (send dc get-pen)])
(send dc set-brush (send the-brush-list find-or-create-brush
(send (send dc get-pen) get-color)
(send p get-color)
'solid))
(unless draw-border?
(send dc set-pen "black" 1 'transparent))
(send dc draw-rectangle x y w h)
(send dc set-brush b)))
(send dc set-brush b)
(send dc set-pen p)))
w
h))