remove force-brush-to-black in MrPict rendering
svn: r841
This commit is contained in:
parent
7c147ecaec
commit
4a6814388c
|
@ -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
|
||||
|
|
|
@ -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)])
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user