From 733b16d714f3ed1070ea5af9bed7da8138807293 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= Date: Thu, 18 Jun 2020 18:49:43 +0200 Subject: [PATCH] Fix alpha blending for gradients See discussion at: https://github.com/racket/pict/issues/2 --- draw-lib/racket/draw/private/dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/draw-lib/racket/draw/private/dc.rkt b/draw-lib/racket/draw/private/dc.rkt index fc59f82..8e262fb 100644 --- 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)