read-binary-bits ( width height -- )

Vocabulary

images.pbm.private

Inputs

width	an object
height	an object

Outputs

None

Definition

USING: grouping io kernel make math math.functions sequences ;

IN: images.pbm.private

:: read-binary-bits ( width height -- )
    width 8 align 8 / height * read width 8 align 8 / <groups> 
    [| row |
        width <iota> [| n |
            n 8 / floor row nth n 8 mod 7 swap - bit?
            [ 0 ] [ 255 ] if ,
        ] each
    ] each ;