]> gitweb.factorcode.org Git - factor.git/commitdiff
Merge branch 'gif' of git://github.com/klazuka/factor
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Wed, 30 Sep 2009 10:15:21 +0000 (05:15 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Wed, 30 Sep 2009 10:15:21 +0000 (05:15 -0500)
1  2 
basis/images/tiff/tiff.factor

index f0a8bb4891a37927e0abc8b1d3695d1da1c15b5a,d8f7b09ed7d36378ee4038aa2f5622c49ae25119..4a82545d79c1681cd7e99c293c2b822885a00d8c
@@@ -7,7 -7,6 +7,7 @@@ io.encodings.string io.encodings.utf8 i
  math.bitwise math.order math.parser pack prettyprint sequences
  strings math.vectors specialized-arrays locals
  images.loader ;
 +FROM: alien.c-types => float ;
  SPECIALIZED-ARRAY: float
  IN: images.tiff
  
@@@ -438,7 -437,7 +438,7 @@@ ERROR: unhandled-compression compressio
  : (uncompress-strips) ( strips compression -- uncompressed-strips )
      {
          { compression-none [ ] }
-         { compression-lzw [ [ lzw-uncompress ] map ] }
+         { compression-lzw [ [ tiff-lzw-uncompress ] map ] }
          [ unhandled-compression ]
      } case ;
  
@@@ -556,7 -555,7 +556,7 @@@ ERROR: unknown-component-order ifd 
  : process-tif-ifds ( loading-tiff -- )
      ifds>> [ process-ifd ] each ;
  
 -: load-tiff ( path -- loading-tiff )
 +: load-tiff ( stream -- loading-tiff )
      [ load-tiff-ifds dup ]
      [
          [ [ 0 seek-absolute ] dip stream-seek ]