remove force-brush-to-black in MrPict rendering

svn: r841
This commit is contained in:
Matthew Flatt 2005-09-12 20:35:44 +00:00
parent 7c147ecaec
commit 4a6814388c
3 changed files with 5 additions and 15 deletions

View File

@ -247,11 +247,11 @@ Basic Constructors:
optional line width
[MrEd only, in utils.ss]
> (round-frame pict) -> pict
> (color-round-frame pict color-string) -> pict
> (color-round-frame pict color-string line-w) -> pict
> (round-frame pict radius-w) -> pict
> (color-round-frame pict radius-w color-string) -> pict
> (color-round-frame pict radius-w color-string line-w) -> pict
Rounded frames
Rounded frames, given a radius for the corners
[MrEd only, in utils.ss]
> (circle diameter) -> pict

View File

@ -305,8 +305,6 @@
[find-or-create-pen (the-pen-list find-or-create-pen)]
[find-or-create-brush (the-brush-list find-or-create-brush)])
(set-brush (find-or-create-brush "black" 'solid))
(let loop ([dx dx][dy dy][l l])
(unless (null? l)
(let ([x (car l)])

View File

@ -862,20 +862,12 @@
(let ([new
(dc
(lambda (dc x y)
(define (reset-pen)
(let ([p (send dc get-pen)])
(send dc set-pen (send the-pen-list
find-or-create-pen
"white" 1 'transparent))
(send dc set-pen p)))
(let-values ([(xs ys) (send dc get-scale)])
(send dc set-scale (* xs x-factor) (* ys y-factor))
(reset-pen)
(drawer dc
(/ x x-factor)
(/ y y-factor))
(send dc set-scale xs ys)
(reset-pen)))
(send dc set-scale xs ys)))
(* (pict-width p) x-factor)
(* (pict-height p) y-factor)
(* (pict-ascent p) y-factor)