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

images.gif: renamed loading-gif>image to gif>image to match the TIFF vocab

db4
Keith Lazuka 2009-09-26 13:15:58 -04:00
parent c1fbca1509
commit 474ecac48f
2 changed files with 5 additions and 5 deletions

6
extra/images/gif/gif-tests.factor
View File

@ -32,7 +32,7 @@ IN: images.gif.tests
gif-example1 gif-example2 gif-example3 gif-example4 gif-example5
gif-example6
}
[ execute( -- gif ) loading-gif>image image. ] each ;
[ execute( -- gif ) gif>image image. ] each ;
: declared-num-colors ( gif -- n ) flags>> 3 bits 1 + 2^ ;
: actual-num-colors ( gif -- n ) global-color-table>> length ;
@ -71,7 +71,7 @@ IN: images.gif.tests
0 0 0 255 255 255 255 255 0 0 0 255 0 0 0 255 255 255 255 255 0 0 0 255
0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 255
}
] [ gif-example3 loading-gif>image bitmap>> ] unit-test
] [ gif-example3 gif>image bitmap>> ] unit-test
[
BV{
@ -85,7 +85,7 @@ IN: images.gif.tests
255 000 000 255 000 000 000 000
000 000 000 000 255 000 000 255
}
] [ gif-example5 loading-gif>image bitmap>> ] unit-test
] [ gif-example5 gif>image bitmap>> ] unit-test
[ 100 ] [ gif-example1 >index-stream length ] unit-test
[ 870 ] [ gif-example2 >index-stream length ] unit-test

4
extra/images/gif/gif.factor
View File

@ -243,7 +243,7 @@ ERROR: unhandled-data byte ;
[ graphic-control-extensions>> first transparent-color-index>> ]
[ drop f ] if ;
: loading-gif>image ( loading-gif -- image )
: gif>image ( loading-gif -- image )
[ <image> ] dip
[ dimensions >>dim ]
[ drop RGBA >>component-order ubyte-components >>component-type ]
@ -258,4 +258,4 @@ ERROR: loading-gif-error gif-image ;
dup loading?>> [ loading-gif-error ] when ;
M: gif-image stream>image ( path gif-image -- image )
drop load-gif ensure-loaded loading-gif>image ;
drop load-gif ensure-loaded gif>image ;