From 2945393965491c23d614a43d531639a8f5be4fa4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 8 Oct 2009 19:37:14 -0500
Subject: [PATCH] dont scale 8,16 bit greyscale pngs.  greyscale-alpha pngs are
 8,16 bit already, so don't scale them either.

---
 basis/images/png/png.factor | 22 ++++++----------------
 1 file changed, 6 insertions(+), 16 deletions(-)

diff --git a/basis/images/png/png.factor b/basis/images/png/png.factor
index 469c060776..254ec40f51 100755
--- a/basis/images/png/png.factor
+++ b/basis/images/png/png.factor
@@ -180,24 +180,14 @@ ERROR: unknown-component-type n ;
         { 1 [ 255 ] }
         { 2 [ 127 ] }
         { 4 [ 17 ] }
-        { 8 [ 1 ] }
     } case ;
 
 : scale-greyscale ( byte-array loading-png -- byte-array' )
-    [ bit-depth>> ] [ color-type>> ] bi {
-        { greyscale [
-            dup 16 = [
-                drop
-            ] [
-                scale-factor '[ _ * ] B{ } map-as
-            ] if
-        ] }
-        { greyscale-alpha [
-            [ 8 group ] dip '[
-                [ [ 0 5 ] dip <slice> [ _ * ] change-each ] keep
-            ] map B{ } concat-as
-        ] }
-    } case ;
+    bit-depth>> dup 8 >= [
+        drop
+    ] [
+        scale-factor '[ _ * ] B{ } map-as
+    ] if ;
 
 : decode-greyscale ( loading-png -- byte-array )
     [ raw-bytes ] keep scale-greyscale ;
@@ -235,7 +225,7 @@ ERROR: invalid-color-type/bit-depth loading-png ;
             validate-indexed-color unimplemented-color-type
         ] }
         { greyscale-alpha [
-            validate-greyscale-alpha decode-greyscale LA
+            validate-greyscale-alpha raw-bytes LA
         ] }
         { truecolor-alpha [
             validate-truecolor-alpha raw-bytes RGBA