steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-03-14 23:24:31 -05:00
parent 87db3ae85e 9eab2a7d71
commit 0a2038f435
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/images/bitmap/bitmap.factor
View File

@ -57,7 +57,7 @@ ERROR: bmp-not-supported n ;
: parse-bitmap-header ( loading-bitmap -- loading-bitmap ) : parse-bitmap-header ( loading-bitmap -- loading-bitmap )
read4 >>header-length read4 >>header-length
read4 >>width read4 >>width
read4 >>height read4 32 >signed >>height
read2 >>planes read2 >>planes
read2 >>bit-count read2 >>bit-count
read4 >>compression read4 >>compression
@ -101,7 +101,7 @@ ERROR: unknown-component-order bitmap ;
[ bitmap-image new ] dip [ bitmap-image new ] dip
{ {
[ raw-bitmap>seq >>bitmap ] [ raw-bitmap>seq >>bitmap ]
[ [ width>> ] [ height>> ] bi 2array >>dim ] [ [ width>> ] [ height>> abs ] bi 2array >>dim ]
[ bitmap>component-order >>component-order ] [ bitmap>component-order >>component-order ]
} cleave ; } cleave ;