Handbook
Glossary
fix-bitmap-endianness ( ifd -- ifd )
Vocabulary
images
.
tiff
Inputs
ifd
an
object
Outputs
ifd
an
object
Definition
USING:
accessors
combinators
endian
kernel
;
IN:
images.tiff
:
fix-bitmap-endianness
( ifd -- ifd )
dup
[
bitmap>>
]
[
bits-per-sample
find-tag
]
bi
{
{
{
32 32 32 32
}
[
4
seq>native-endianness
]
}
{
{
32 32 32
}
[
4
seq>native-endianness
]
}
{
{
16 16 16 16
}
[
2
seq>native-endianness
]
}
{
{
16 16 16
}
[
2
seq>native-endianness
]
}
{
{
8 8 8 8
}
[
]
}
{
{
8 8 8
}
[
]
}
{
8
[
]
}
[
unknown-component-order
]
}
case
>>bitmap
;