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

images.bitmap: respect upside-down? flag when encoding

db4
Keith Lazuka 2009-10-07 15:36:26 -04:00
parent 392531b179
commit 3a13c59da2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,6 +16,13 @@ SINGLETON: bmp-image
: write2 ( n -- ) 2 >le write ; : write2 ( n -- ) 2 >le write ;
: write4 ( n -- ) 4 >le write ; : write4 ( n -- ) 4 >le write ;
: output-width-and-height ( image -- )
[ dim>> first write4 ]
[
[ dim>> second ] [ upside-down?>> ] bi
[ neg ] unless write4
] bi ;
: output-bmp ( image -- ) : output-bmp ( image -- )
B{ CHAR: B CHAR: M } write B{ CHAR: B CHAR: M } write
[ [
@ -25,8 +32,7 @@ SINGLETON: bmp-image
40 write4 40 write4
] [ ] [
{ {
! width height [ output-width-and-height ]
[ dim>> first2 [ write4 ] bi@ ]
! planes ! planes
[ drop 1 write2 ] [ drop 1 write2 ]