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

images.gif: fixed image-descriptor parse bug

db4
Keith Lazuka 2009-09-23 12:06:25 -04:00
parent b0f87fd6a0
commit 8b5871e9d8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,7 +42,7 @@ packed delay-time color-index
block-terminator ; block-terminator ;
TUPLE: image-descriptor TUPLE: image-descriptor
separator left top width height flags ; left top width height flags lzw-min-code-size ;
TUPLE: plain-text-extension TUPLE: plain-text-extension
introducer label block-size text-grid-left text-grid-top text-grid-width introducer label block-size text-grid-left text-grid-top text-grid-width
@ -92,12 +92,12 @@ M: input-port stream-peek1
: read-image-descriptor ( -- image-descriptor ) : read-image-descriptor ( -- image-descriptor )
\ image-descriptor new \ image-descriptor new
1 read le> >>separator
2 read le> >>left 2 read le> >>left
2 read le> >>top 2 read le> >>top
2 read le> >>width 2 read le> >>width
2 read le> >>height 2 read le> >>height
1 read le> >>flags ; 1 read le> >>flags
1 read le> >>lzw-min-code-size ;
: read-graphic-control-extension ( -- graphic-control-extension ) : read-graphic-control-extension ( -- graphic-control-extension )
\ graphics-control-extension new \ graphics-control-extension new