remove XXX from bitmaps
parent
813b0cb803
commit
d7e10c3072
|
@ -3,7 +3,7 @@
|
||||||
USING: accessors alien alien.c-types arrays byte-arrays columns
|
USING: accessors alien alien.c-types arrays byte-arrays columns
|
||||||
combinators fry grouping io io.binary io.encodings.binary io.files
|
combinators fry grouping io io.binary io.encodings.binary io.files
|
||||||
kernel macros math math.bitwise math.functions namespaces sequences
|
kernel macros math math.bitwise math.functions namespaces sequences
|
||||||
strings images endian summary annotations ;
|
strings images endian summary ;
|
||||||
IN: images.bitmap
|
IN: images.bitmap
|
||||||
|
|
||||||
TUPLE: bitmap-image < image ;
|
TUPLE: bitmap-image < image ;
|
||||||
|
@ -105,7 +105,6 @@ ERROR: unknown-component-order bitmap ;
|
||||||
{
|
{
|
||||||
[ [ width>> ] [ height>> ] bi 2array ]
|
[ [ width>> ] [ height>> ] bi 2array ]
|
||||||
[ bitmap>component-order ]
|
[ bitmap>component-order ]
|
||||||
[ drop little-endian ] !XXX
|
|
||||||
[ buffer>> ]
|
[ buffer>> ]
|
||||||
} cleave bitmap-image boa ;
|
} cleave bitmap-image boa ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue