equal
deleted
inserted
replaced
1635 |
1635 |
1636 |pos1 pos| |
1636 |pos1 pos| |
1637 |
1637 |
1638 outStream := FileStream newFileNamed:aFileName. |
1638 outStream := FileStream newFileNamed:aFileName. |
1639 outStream isNil ifTrue:[ |
1639 outStream isNil ifTrue:[ |
1640 'TIFFReader [warning]: create error' errorPrintCR. |
1640 ^ Image fileCreationErrorSignal |
1641 ^ nil |
1641 raiseWith:image |
|
1642 errorString:('file creation error: ' , aFileName asString). |
|
1643 ]. |
|
1644 |
|
1645 image mask notNil ifTrue:[ |
|
1646 Image informationLostQuerySignal |
|
1647 raiseWith:image |
|
1648 errorString:('TIFF writer does not (yet) support an imageMask'). |
1642 ]. |
1649 ]. |
1643 |
1650 |
1644 "save as msb" |
1651 "save as msb" |
1645 |
1652 |
1646 byteOrder := #msb. |
1653 byteOrder := #msb. |
1715 self writeTag:320 "colorMap" |
1722 self writeTag:320 "colorMap" |
1716 ]. |
1723 ]. |
1717 self writeLong:0. "end of tags mark" |
1724 self writeLong:0. "end of tags mark" |
1718 outStream close |
1725 outStream close |
1719 |
1726 |
1720 "Modified: 10.1.1997 / 18:13:38 / cg" |
1727 "Modified: 27.2.1997 / 12:46:26 / cg" |
1721 ! ! |
1728 ! ! |
1722 |
1729 |
1723 !TIFFReader class methodsFor:'documentation'! |
1730 !TIFFReader class methodsFor:'documentation'! |
1724 |
1731 |
1725 version |
1732 version |
1726 ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.49 1997-02-20 17:17:46 cg Exp $' |
1733 ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.50 1997-02-27 11:50:14 cg Exp $' |
1727 ! ! |
1734 ! ! |
1728 TIFFReader initialize! |
1735 TIFFReader initialize! |