Handbook
Glossary
parse-color-data* ( loading-bitmap header -- loading-bitmap )
Vocabulary
images
.
bitmap
Inputs
loading-bitmap
an
object
header
an
object
Outputs
loading-bitmap
an
object
Definition
IN:
images.bitmap
GENERIC:
parse-color-data*
( loading-bitmap header -- loading-bitmap )
Methods
USING:
accessors
images.bitmap
io
kernel
math
;
M:
object
parse-color-data*
dup
image-size>>
[
0
]
unless*
dup
0
>
[
nip
]
[
drop
color-index-length
]
if
read
>>color-index
;
USING:
accessors
images.bitmap
io
;
M:
os2v1-header
parse-color-data*
color-index-length
read
>>color-index
;