images.gif: renamed loading-gif>image to gif>image to match the TIFF vocab
parent
c1fbca1509
commit
474ecac48f
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue