From 4fa78c4298ecff33df9d85ce178da4d5120bf75c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 26 Sep 2007 12:49:52 +0000 Subject: [PATCH] don't draw pict at all for 0 alpha svn: r7415 --- collects/texpict/utils.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.ss index 29af8288bb..1dfcb72d5b 100644 --- a/collects/texpict/utils.ss +++ b/collects/texpict/utils.ss @@ -935,10 +935,11 @@ (let ([new (dc (lambda (dc x y) - (let ([a (send dc get-alpha)]) - (send dc set-alpha (* a alpha-factor)) - (drawer dc x y) - (send dc set-alpha a))) + (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)))) (pict-width p) (pict-height p) (pict-ascent p)