From a6090e717d25f3acf6c105314dc97122a55a1ef3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 8 Oct 2009 20:37:00 -0500 Subject: [PATCH] fix byte swapping on greyscale-alpha --- basis/images/png/png.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/images/png/png.factor b/basis/images/png/png.factor index c41a1956cd..595bb62ed4 100755 --- a/basis/images/png/png.factor +++ b/basis/images/png/png.factor @@ -215,7 +215,7 @@ ERROR: invalid-color-type/bit-depth loading-png ; : decode-greyscale-alpha ( loading-image -- byte-array' ) [ raw-bytes ] [ bit-depth>> ] bi 16 = [ - 3 group [ first3 swapd 3array ] map B{ } concat-as + 4 group [ first4 [ swap ] 2dip 4array ] map B{ } concat-as ] when ; : loading-png>bitmap ( loading-png -- bytes component-order )