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

images.gif: the Graphics Control Block is OPTIONAL in the GIF spec.

db4
John Benediktsson 2011-01-26 17:23:30 -08:00
parent 6ddc56cc60
commit b4ca9daf27
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,7 +140,8 @@ ERROR: unimplemented message ;
: sort? ( image -- ? ) flags>> 5 bit? ; inline
: color-table-size ( image -- ? ) flags>> 3 bits 1 + 2^ 3 * ; inline
: transparency? ( image -- ? )
graphic-control-extensions>> first flags>> 0 bit? ; inline
graphic-control-extensions>>
[ f ] [ first flags>> 0 bit? ] if-empty ; inline
: color-resolution ( image -- ? ) flags>> -4 shift 3 bits ; inline