             validate-greyscale-alpha decode-greyscale-alpha LA
         ] }
         { truecolor-alpha [
-            validate-truecolor-alpha raw-bytes RGBA
+            validate-truecolor-alpha uncompress-bytes RGBA
         ] }
         [ unknown-color-type ]
     } case ;

        8 bs bs:align
    ] replicate
    #components bit-depth 16 = [ 2 * ] when reverse-png-filter ;

ERROR: unknown-component-type n ;


        png-unfilter-line
    ] map B{ } concat-as ;

:: visit ( row col height width pixel image -- )
    row image nth :> irow
    pixel col irow set-nth ;

ERROR: bad-filter n ;

:: reverse-interlace-none ( byte-array loading-png -- array )
    byte-array bs:<msb0-bit-reader> :> bs
    loading-png width>> :> width
    loading-png height>> :> height
    loading-png png-components-per-pixel :> #components
