2 files changed, 28 insertions, 4 deletions

diff --git a/gs/Resource/Init/pdf_draw.ps b/gs/Resource/Init/pdf_draw.ps
index bdc02143a..fe788abbe 100644
--- a/gs/Resource/Init/pdf_draw.ps
+++ b/gs/Resource/Init/pdf_draw.ps
@@ -2153,7 +2153,7 @@ end
             pop
             false
           }{
-            (invalid color specified for FreeText annotation /C entry)
+            (invalid color specified for annotation /C entry)
             pdfformaterror false
           } ifelse
         } ifelse
@@ -2776,6 +2776,14 @@ currentdict /set_bc_color undef
 
       dup annotrect rectclip
 
+      dup /CA knownoget {
+        .setopacityalpha
+      } if
+
+      dup /ca knownoget {
+        .setopacityalpha
+      } if
+
       dup /C knownoget {
         dup length 4 eq {
           aload pop setcmykcolor true
@@ -2797,7 +2805,13 @@ currentdict /set_bc_color undef
           } ifelse
         } ifelse
       } if
-      {dup annotrect rectfill} if
+      {dup annotrect
+        %% Somewhat horrifyingly, rectfill maps directly to the device fill_rectangle
+        %% method, which bypasses transparency (!!) So we construct the rectangle,
+        %% and fill it, manually instead....
+        gsave 4 2 roll moveto 1 index 0 rlineto
+        0 exch rlineto neg 0 rlineto closepath fill grestore
+      } if
 
       %% get and process the default appearance string, if we don't have one, use a default
       dup /DA knownoget {
diff --git a/gs/Resource/Init/pdf_main.ps b/gs/Resource/Init/pdf_main.ps
index 3ab2a3c19..c2c7693c6 100644
--- a/gs/Resource/Init/pdf_main.ps
+++ b/gs/Resource/Init/pdf_main.ps
@@ -2194,11 +2194,21 @@ currentdict /PDF2PS_matrix_key undef
              pop pop //true exit  % as transparency.
            } if
          } if
-         /AP knownoget {        % Get appearance dict for the annoation
+         dup /AP knownoget {    % Get appearance dict for the annoation
            /N knownogetdict {   % Get the /N (i.e. normal) appearance stream
-             4 dict exch resourceusestransparency { pop //true exit } if
+             4 dict exch resourceusestransparency { pop pop //true exit } if
            } if
          } if                   % If AP dict known
+         dup /CA knownoget {
+           1 le {
+             pop pop //true exit
+           } if
+         } if
+         /ca knownoget {
+           1 le {
+             pop //true exit
+           } if
+         } if
        } {
          pop
        } ifelse