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

don't draw pict at all for 0 alpha

Browse Source 
svn: r7415
This commit is contained in:
Matthew Flatt 2007-09-26 12:49:52 +00:00
parent 308deb925a
commit 4fa78c4298
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/texpict/utils.ss
View File

@ -935,10 +935,11 @@
(let ([new (let ([new
(dc (dc
(lambda (dc x y) (lambda (dc x y)
(let ([a (send dc get-alpha)]) (unless (zero? alpha-factor)
(send dc set-alpha (* a alpha-factor)) (let ([a (send dc get-alpha)])
(drawer dc x y) (send dc set-alpha (* a alpha-factor))
(send dc set-alpha a))) (drawer dc x y)
(send dc set-alpha a))))
(pict-width p) (pict-width p)
(pict-height p) (pict-height p)
(pict-ascent p) (pict-ascent p)