From 67b32f7254519e27bc7abef4b81c8acda57fbf0e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 4 Dec 2018 18:38:33 -0800 Subject: [PATCH] nitwittery --- pitfall/pitfall/png.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/pitfall/pitfall/png.rkt b/pitfall/pitfall/png.rkt index 216f9aae..74cd6d64 100644 --- a/pitfall/pitfall/png.rkt +++ b/pitfall/pitfall/png.rkt @@ -63,15 +63,15 @@ (cond - [(hash-has-key? (· this image) 'transparency) + [(hash-ref (· this image) 'transparency #f) (cond - [(hash-has-key? (· this image transparency) 'grayscale) + [(hash-ref (hash-ref (· this image) 'transparency) 'grayscale #f) (error 'transparency-grayscale-not-implemented)] - [(hash-has-key? (· this image transparency) 'rgb) + [(hash-ref (hash-ref (· this image) 'transparency) 'rgb #f) (error 'transparency-rgb-not-implemented)] - [(hash-has-key? (· this image transparency) 'indexed) + [(hash-ref (hash-ref (· this image) 'transparency) 'indexed #f) (error 'transparency-indexed-not-implemented)])] - [(hash-has-key? (· this image) 'hasAlphaChannel) + [(hash-ref (· this image) 'hasAlphaChannel #f) ;; For PNG color types 4 and 6, the transparency data is stored as a alpha ;; channel mixed in with the main image data. Separate this data out into an ;; SMask object and store it separately in the PDF.]