I think it does, actually. What's happening is that it is drawing the interior with the specified alpha value and then drawing the border with the specified alpha, which means that pixels near the border are drawn twice and so appear twice as dark.
I've just pushed a change so that you can pass the #:draw-border? argument to disk and filled-ellipse to avoid drawing the border. Robby On Sun, Jun 10, 2012 at 8:46 AM, Jens Axel Søgaard <[email protected]> wrote: > It seems the "borders" of disks and filled ellipses doesn't respect > the opacity given by cellophane. > > This draws an yellow disk overlapping a gren disc. > The opacity of the border of the disk is different than > the interior. > > Is this the intended behaviour? > If so how can set the opacity of the border? > > /Jens Axel > > > #lang racket > (require slideshow/pict > racket/draw) > > (define (find-color color-symbol) > (let ([color-name > (string-downcase > (symbol->string color-symbol))]) > (send the-color-database find-color color-name))) > > (pin-over (colorize (disk 50) (find-color 'green)) > 25 0 > (cellophane > (colorize (disk 50) (find-color 'yellow)) 0.7)) > > ____________________ > Racket Users list: > http://lists.racket-lang.org/users > ____________________ Racket Users list: http://lists.racket-lang.org/users
