Fix alpha blending for gradients

See discussion at: racket/pict#2
racket · Jun 18, 2020 · 733b16d · 733b16d
1 parent ec86a7e
commit 733b16d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/draw-lib/racket/draw/private/dc.rkt b/draw-lib/racket/draw/private/dc.rkt
@@ -899,7 +899,7 @@
                  [r (norm (color-red c))]
                  [g (norm (color-green c))]
                  [b (norm (color-blue c))]
-                 [a (color-alpha c)])
+                 [a (* (color-alpha c) (get-alpha))])
             (cairo_pattern_add_color_stop_rgba p offset r g b a)))
       (install-transformation transformation cr)
       (cairo_set_source cr p)