write-image-cells ( image cell-size order -- )

Vocabulary

bootstrap.image.private

Inputs

image	an object
cell-size	an object
order	an object

Outputs

None

Definition

USING: alien.accessors byte-arrays endian.private grouping io
kernel math sequences ;

IN: bootstrap.image.private

:: write-image-cells ( image cell-size order -- )
    65536 <byte-array> :> bytes image 65536 cell-size /i
    <groups> [| cells |
        cells [| value i |
            value order cell-size f ?byte-reverse
            bytes i cell-size * cell-size 4 =
            [ set-alien-signed-4 ] [ set-alien-signed-8 ] if
        ] each-index bytes cells length cell-size * head-slice
        write
    ] each ; inline