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

loading an image doesnt hang now, not quite right yet..

db4
Slava Pestov 2009-03-14 23:23:49 -05:00
parent 845158fffd
commit 9eab2a7d71
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 )
read4 >>header-length
read4 >>width
read4 >>height
read4 32 >signed >>height
read2 >>planes
read2 >>bit-count
read4 >>compression
@ -101,7 +101,7 @@ ERROR: unknown-component-order bitmap ;
[ bitmap-image new ] dip
{
[ raw-bitmap>seq >>bitmap ]
[ [ width>> ] [ height>> ] bi 2array >>dim ]
[ [ width>> ] [ height>> abs ] bi 2array >>dim ]
[ bitmap>component-order >>component-order ]
} cleave ;