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

fix bitmap drawing

db4
Doug Coleman 2009-02-10 18:48:10 -06:00
parent a1e521b54e
commit 1d5f6901c1
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/images/backend/backend.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel grouping fry sequences combinators ; USING: accessors kernel grouping fry sequences combinators
images.bitmap math ;
IN: images.backend IN: images.backend
SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR ; SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR ;
@ -37,8 +38,17 @@ GENERIC: >image ( object -- image )
] } ] }
} case RGBA >>component-order ; } case RGBA >>component-order ;
GENERIC: normalize-scan-line-order ( image -- image )
M: image normalize-scan-line-order ;
M: bitmap-image normalize-scan-line-order
dup
[ bitmap>> ] [ dim>> first 4 * ] bi <sliced-groups> reverse concat
>>bitmap ;
: normalize-image ( image -- image ) : normalize-image ( image -- image )
normalize-component-order ; normalize-component-order
normalize-scan-line-order ;
: new-image ( dim component-order bitmap class -- image ) : new-image ( dim component-order bitmap class -- image )
new new