write-binary-bits ( bitmap width -- )

Vocabulary

images.pbm.private

Inputs

bitmap	an object
width	an object

Outputs

None

Definition

USING: arrays bit-arrays byte-arrays grouping io kernel math
sequences ;

IN: images.pbm.private

:: write-binary-bits ( bitmap width -- )
    bitmap width <groups> [
        width 8 align 255 pad-tail 8 <groups> [
            [ 255 = not ] { } map-as
            >bit-array reverse bit-array>integer 1array
            >byte-array write
        ] each
    ] each ;