[racket] Opacity of borders in slideshow/pict

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))
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Opacity of disk.png
Type: image/png
Size: 1872 bytes
Desc: not available
URL: <http://lists.racket-lang.org/users/archive/attachments/20120610/a8a97959/attachment-0001.png>