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

fix a method

db4
Doug Coleman 2009-02-10 19:34:02 -06:00
parent 7d60fcc598
commit 94f6d28f34
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,11 +40,6 @@ GENERIC: >image ( object -- image )
GENERIC: normalize-scan-line-order ( image -- image ) GENERIC: normalize-scan-line-order ( image -- image )
M: image normalize-scan-line-order ; M: image normalize-scan-line-order ;
M: bitmap-image normalize-scan-line-order
dup dim>> '[
_ first 4 * <sliced-groups> reverse concat
] change-bitmap ;
: normalize-image ( image -- image ) : normalize-image ( image -- image )
normalize-component-order normalize-component-order
normalize-scan-line-order ; normalize-scan-line-order ;

5
extra/images/bitmap/bitmap.factor
View File

@ -112,6 +112,11 @@ M: bitmap >image ( bitmap -- bitmap-image )
M: bitmap-image load-image* ( path bitmap -- bitmap-image ) M: bitmap-image load-image* ( path bitmap -- bitmap-image )
drop load-bitmap >image ; drop load-bitmap >image ;
M: bitmap-image normalize-scan-line-order
dup dim>> '[
_ first 4 * <sliced-groups> reverse concat
] change-bitmap ;
MACRO: (nbits>bitmap) ( bits -- ) MACRO: (nbits>bitmap) ( bits -- )
[ -3 shift ] keep '[ [ -3 shift ] keep '[
bitmap new bitmap new