don't draw pict at all for 0 alpha

svn: r7415
2007-09-26 12:49:52 +00:00 · 2007-09-26 12:49:52 +00:00 · 4fa78c4298
commit 4fa78c4298
parent 308deb925a
1 changed files with 5 additions and 4 deletions
--- a/collects/texpict/utils.ss
+++ b/collects/texpict/utils.ss
@ -935,10 +935,11 @@
 	(let ([new
 	       (dc
 		(lambda (dc x y)
+                  (unless (zero? alpha-factor)
                    (let ([a (send dc get-alpha)])
                      (send dc set-alpha (* a alpha-factor))
                      (drawer dc x y)
-		    (send dc set-alpha a)))
+                      (send dc set-alpha a))))
 		(pict-width p)
 		(pict-height p)
 		(pict-ascent p)