hg/stx-libview2: TIFFRdr.st@4bcb93f5892e (annotated)

0 3f9277473954 Initial revision claus parents: diff changeset	1	"
6 4ac87e6bf82f * empty log message * claus parents: 5 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	3	All Rights Reserved
0 3f9277473954 Initial revision claus parents: diff changeset	4
3f9277473954 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
3f9277473954 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
3f9277473954 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
3f9277473954 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
3f9277473954 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
3f9277473954 Initial revision claus parents: diff changeset	10	hereby transferred.
3f9277473954 Initial revision claus parents: diff changeset	11	"
3f9277473954 Initial revision claus parents: diff changeset	12
3f9277473954 Initial revision claus parents: diff changeset	13	ImageReader subclass:#TIFFReader
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	14	instanceVariableNames:'planarConfiguration subFileType stripOffsets rowsPerStrip
159 327da5085900 fixed saving of 24bit RGB images (forgot samplesPerPixel-TAG) Claus Gittinger <cg@exept.de> parents: 135 diff changeset	15	fillOrder compression group3options predictor stripByteCounts
327da5085900 fixed saving of 24bit RGB images (forgot samplesPerPixel-TAG) Claus Gittinger <cg@exept.de> parents: 135 diff changeset	16	currentOffset stripOffsetsPos stripByteCountsPos bitsPerSamplePos
327da5085900 fixed saving of 24bit RGB images (forgot samplesPerPixel-TAG) Claus Gittinger <cg@exept.de> parents: 135 diff changeset	17	colorMapPos'
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	18	classVariableNames:''
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	19	poolDictionaries:''
259 62b1bbafd9ba category change Claus Gittinger <cg@exept.de> parents: 234 diff changeset	20	category:'Graphics-Images-Support'
0 3f9277473954 Initial revision claus parents: diff changeset	21	!
3f9277473954 Initial revision claus parents: diff changeset	22
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	23	!TIFFReader class methodsFor:'documentation'!
0 3f9277473954 Initial revision claus parents: diff changeset	24
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	25	copyright
66b31c91177f * empty log message * claus parents: 19 diff changeset	26	"
66b31c91177f * empty log message * claus parents: 19 diff changeset	27	COPYRIGHT (c) 1991 by Claus Gittinger
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	28	All Rights Reserved
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	29
66b31c91177f * empty log message * claus parents: 19 diff changeset	30	This software is furnished under a license and may be used
66b31c91177f * empty log message * claus parents: 19 diff changeset	31	only in accordance with the terms of that license and with the
66b31c91177f * empty log message * claus parents: 19 diff changeset	32	inclusion of the above copyright notice. This software may not
66b31c91177f * empty log message * claus parents: 19 diff changeset	33	be provided or otherwise made available to, or used by, any
66b31c91177f * empty log message * claus parents: 19 diff changeset	34	other person. No title to or ownership of the software is
66b31c91177f * empty log message * claus parents: 19 diff changeset	35	hereby transferred.
66b31c91177f * empty log message * claus parents: 19 diff changeset	36	"
66b31c91177f * empty log message * claus parents: 19 diff changeset	37	!
66b31c91177f * empty log message * claus parents: 19 diff changeset	38
0 3f9277473954 Initial revision claus parents: diff changeset	39	documentation
3f9277473954 Initial revision claus parents: diff changeset	40	"
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	41	This class knows how to read TIFF files and how to
66b31c91177f * empty log message * claus parents: 19 diff changeset	42	write uncompressed TIFF files.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	43
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	44	Only single image files are supported.
38 201df32d2377 * empty log message * claus parents: 35 diff changeset	45	Not all formats are implemented, and of those that are, not all are tested.
159 327da5085900 fixed saving of 24bit RGB images (forgot samplesPerPixel-TAG) Claus Gittinger <cg@exept.de> parents: 135 diff changeset	46	It should read with most rgb, mono and 2-plane greyscale
38 201df32d2377 * empty log message * claus parents: 35 diff changeset	47	images, since this is what I have as test material on the NeXT.
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	48	It supports reading of uncompressed, LZW and G3 compressed
66b31c91177f * empty log message * claus parents: 19 diff changeset	49	images; JPEG and packbits are currently not implemented.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	50
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	51	Only writing of uncompressed images is currently implemented.
159 327da5085900 fixed saving of 24bit RGB images (forgot samplesPerPixel-TAG) Claus Gittinger <cg@exept.de> parents: 135 diff changeset	52	It should write (at least) mono, 8-bit palette and 24 bit rgb formats.
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	53	More formats will come ...
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	54
9638bc775850 * empty log message * claus parents: 28 diff changeset	55	TODO: since I dont want to spend all of my life adding more formats here and
9638bc775850 * empty log message * claus parents: 28 diff changeset	56	reinventing the wheel, this code should be changed to use the tiff library.
9638bc775850 * empty log message * claus parents: 28 diff changeset	57	That would give us most formats and also writing capabilities for free.
195 7975a2c4a890 commentary Claus Gittinger <cg@exept.de> parents: 192 diff changeset	58
220 4106d9ce7e02 documentation Claus Gittinger <cg@exept.de> parents: 210 diff changeset	59	[author:]
4106d9ce7e02 documentation Claus Gittinger <cg@exept.de> parents: 210 diff changeset	60	Claus Gittinger
4106d9ce7e02 documentation Claus Gittinger <cg@exept.de> parents: 210 diff changeset	61
195 7975a2c4a890 commentary Claus Gittinger <cg@exept.de> parents: 192 diff changeset	62	[See also:]
234 b6352d13e792 xrefs in documentation Claus Gittinger <cg@exept.de> parents: 220 diff changeset	63	Image Form Icon
197 50812e81d86f checkin from browser Claus Gittinger <cg@exept.de> parents: 195 diff changeset	64	BlitImageReader FaceReader GIFReader JPEGReader PBMReader PCXReader
210 5405de794686 checkin from browser Claus Gittinger <cg@exept.de> parents: 209 diff changeset	65	ST80FormReader SunRasterReader TargaReader WindowsIconReader
209 840ddcf12904 commentary Claus Gittinger <cg@exept.de> parents: 198 diff changeset	66	XBMReader XPMReader XWDReader
0 3f9277473954 Initial revision claus parents: diff changeset	67	"
3f9277473954 Initial revision claus parents: diff changeset	68	! !
3f9277473954 Initial revision claus parents: diff changeset	69
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	70	!TIFFReader class methodsFor:'initialization'!
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	71
8daff0234d2e * empty log message * claus parents: 25 diff changeset	72	initialize
198 6d76856aaa80 checkin from browser Claus Gittinger <cg@exept.de> parents: 197 diff changeset	73	"install myself in the Image classes fileFormat table
6d76856aaa80 checkin from browser Claus Gittinger <cg@exept.de> parents: 197 diff changeset	74	for the `.tiff', `.tif' and '.TIF' extensions."
6d76856aaa80 checkin from browser Claus Gittinger <cg@exept.de> parents: 197 diff changeset	75
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	76	Image fileFormats at:'.tiff' put:self.
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	77	Image fileFormats at:'.tif' put:self.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	78	Image fileFormats at:'.TIF' put:self.
198 6d76856aaa80 checkin from browser Claus Gittinger <cg@exept.de> parents: 197 diff changeset	79
6d76856aaa80 checkin from browser Claus Gittinger <cg@exept.de> parents: 197 diff changeset	80	"Modified: 23.4.1996 / 12:28:57 / cg"
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	81	! !
8daff0234d2e * empty log message * claus parents: 25 diff changeset	82
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	83	!TIFFReader class methodsFor:'testing'!
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	84
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	85	canRepresent:anImage
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	86	"return true, if anImage can be represented in my file format.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	87	Any image is supported."
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	88
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	89	^ true
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	90	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	91
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	92	isValidImageFile:aFileName
78aaa5408119 * empty log message * claus parents: 0 diff changeset	93	"return true, if aFileName contains a GIF image"
78aaa5408119 * empty log message * claus parents: 0 diff changeset	94
78aaa5408119 * empty log message * claus parents: 0 diff changeset	95	\|inStream char1 char2 version\|
78aaa5408119 * empty log message * claus parents: 0 diff changeset	96
11 1d0df18a7049 * empty log message * claus parents: 6 diff changeset	97	inStream := self streamReadingFile:aFileName.
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	98	inStream isNil ifTrue:[^ false].
78aaa5408119 * empty log message * claus parents: 0 diff changeset	99
78aaa5408119 * empty log message * claus parents: 0 diff changeset	100	char1 := inStream next.
78aaa5408119 * empty log message * claus parents: 0 diff changeset	101	char2 := inStream next.
78aaa5408119 * empty log message * claus parents: 0 diff changeset	102
78aaa5408119 * empty log message * claus parents: 0 diff changeset	103	((char1 ~~ char2) or:[(char1 ~~ $I) and:[char1 ~~ $M]]) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	104	inStream close.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	105	^ false
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	106	].
78aaa5408119 * empty log message * claus parents: 0 diff changeset	107
78aaa5408119 * empty log message * claus parents: 0 diff changeset	108	inStream binary.
78aaa5408119 * empty log message * claus parents: 0 diff changeset	109	version := inStream nextShortMSB:(char1 == $M).
78aaa5408119 * empty log message * claus parents: 0 diff changeset	110	inStream close.
78aaa5408119 * empty log message * claus parents: 0 diff changeset	111
78aaa5408119 * empty log message * claus parents: 0 diff changeset	112	(version ~~ 42) ifTrue:[^ false].
78aaa5408119 * empty log message * claus parents: 0 diff changeset	113	^ true
0 3f9277473954 Initial revision claus parents: diff changeset	114	! !
3f9277473954 Initial revision claus parents: diff changeset	115
3f9277473954 Initial revision claus parents: diff changeset	116	!TIFFReader methodsFor:'private'!
3f9277473954 Initial revision claus parents: diff changeset	117
3f9277473954 Initial revision claus parents: diff changeset	118	decodeTiffTag:tagType numberType:numberType length:length
3f9277473954 Initial revision claus parents: diff changeset	119	\|offset value valueArray
40 c2e206361c7b * empty log message * claus parents: 38 diff changeset	120	val scaleFactor rV gV bV
c2e206361c7b * empty log message * claus parents: 38 diff changeset	121	n "{ Class: SmallInteger }"
35 f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	122	i2 "{ Class: SmallInteger }"
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	123	i3 "{ Class: SmallInteger }" \|
0 3f9277473954 Initial revision claus parents: diff changeset	124
3f9277473954 Initial revision claus parents: diff changeset	125	(numberType == 3) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	126	"short"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	127	valueArray := self readShorts:length.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	128	value := valueArray at:1
0 3f9277473954 Initial revision claus parents: diff changeset	129	] ifFalse:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	130	(numberType == 4) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	131	"integer"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	132	valueArray := self readLongs:length.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	133	value := valueArray at:1
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	134	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	135	(numberType == 2) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	136	"character"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	137	value := self readChars:length
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	138	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	139	(numberType == 5) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	140	"fraction"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	141	valueArray := self readFracts:length.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	142	value := valueArray at:1
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	143	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	144	offset := (inStream nextLongMSB:(byteOrder ~~ #lsb))
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	145	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	146	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	147	]
0 3f9277473954 Initial revision claus parents: diff changeset	148	].
3f9277473954 Initial revision claus parents: diff changeset	149
3f9277473954 Initial revision claus parents: diff changeset	150	(tagType == 254) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	151	"NewSubfileType"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	152	"newSubFileType := value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	153	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	154	'newSubfiletype ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	155	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	156	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	157	].
3f9277473954 Initial revision claus parents: diff changeset	158	(tagType == 255) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	159	"SubfileType"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	160	subFileType := value.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	161	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	162	'subfiletype ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	163	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	164	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	165	].
3f9277473954 Initial revision claus parents: diff changeset	166	(tagType == 256) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	167	"ImageWidth"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	168	width := value.
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	169	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	170	'width ' print. width printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	171	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	172	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	173	].
3f9277473954 Initial revision claus parents: diff changeset	174	(tagType == 257) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	175	"ImageHeight"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	176	height := value.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	177	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	178	'height ' print. height printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	179	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	180	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	181	].
3f9277473954 Initial revision claus parents: diff changeset	182	(tagType == 258) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	183	"bitspersample"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	184	bitsPerSample := valueArray.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	185	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	186	'bitspersample ' print. bitsPerSample printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	187	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	188	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	189	].
3f9277473954 Initial revision claus parents: diff changeset	190	(tagType == 259) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	191	"compression"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	192	compression := value.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	193	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	194	'compression ' print. compression printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	195	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	196	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	197	].
3f9277473954 Initial revision claus parents: diff changeset	198	(tagType == 262) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	199	"photometric"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	200
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	201	(value == 0) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	202	photometric := #whiteIs0
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	203	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	204	(value == 1) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	205	photometric := #blackIs0
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	206	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	207	(value == 2) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	208	photometric := #rgb
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	209	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	210	(value == 3) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	211	photometric := #palette
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	212	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	213	(value == 4) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	214	photometric := #transparency
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	215	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	216	(value == 5) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	217	photometric := #separated "/ color separations
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	218	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	219	(value == 6) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	220	photometric := #ycbr "/ CCIR 601
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	221	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	222	(value == 8) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	223	photometric := #cielab "/ 1976 CIE Lab*
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	224	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	225	photometric := nil
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	226	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	227	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	228	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	229	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	230	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	231	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	232	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	233	].
14 20638e830834 * empty log message * claus parents: 11 diff changeset	234	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	235	'photometric ' print. photometric printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	236	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	237	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	238	].
3f9277473954 Initial revision claus parents: diff changeset	239	(tagType == 263) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	240	"Treshholding"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	241	"threshholding := value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	242	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	243	'treshholding ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	244	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	245	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	246	].
3f9277473954 Initial revision claus parents: diff changeset	247	(tagType == 264) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	248	"CellWidth"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	249	"cellWidth:= value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	250	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	251	'cellWidth ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	252	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	253	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	254	].
3f9277473954 Initial revision claus parents: diff changeset	255	(tagType == 265) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	256	"CellLength"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	257	"cellLength:= value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	258	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	259	'cellLength ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	260	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	261	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	262	].
3f9277473954 Initial revision claus parents: diff changeset	263	(tagType == 266) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	264	"fillOrder"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	265	(value == 1) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	266	fillOrder := #msb
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	267	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	268	(value == 2) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	269	fillOrder := #lsb
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	270	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	271	fillOrder := nil
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	272	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	273	].
14 20638e830834 * empty log message * claus parents: 11 diff changeset	274	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	275	'fillorder ' print. fillOrder printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	276	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	277	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	278	].
3f9277473954 Initial revision claus parents: diff changeset	279	(tagType == 269) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	280	"documentName - info only"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	281	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	282	'documentName ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	283	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	284	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	285	].
3f9277473954 Initial revision claus parents: diff changeset	286	(tagType == 270) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	287	"imageDescription - info only"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	288	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	289	'imageDescription ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	290	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	291	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	292	].
3f9277473954 Initial revision claus parents: diff changeset	293	(tagType == 271) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	294	"make - info only"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	295	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	296	'make ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	297	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	298	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	299	].
3f9277473954 Initial revision claus parents: diff changeset	300	(tagType == 272) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	301	"model - info only"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	302	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	303	'model ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	304	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	305	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	306	].
3f9277473954 Initial revision claus parents: diff changeset	307	(tagType == 273) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	308	"stripoffsets"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	309	stripOffsets := valueArray.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	310	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	311	'stripOffsets Array(' print. stripOffsets size print. ')' printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	312	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	313	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	314	].
3f9277473954 Initial revision claus parents: diff changeset	315	(tagType == 274) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	316	"Orientation"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	317	"orientation:= value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	318	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	319	'orientation ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	320	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	321	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	322	].
3f9277473954 Initial revision claus parents: diff changeset	323	(tagType == 277) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	324	"samplesPerPixel"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	325	samplesPerPixel := value.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	326	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	327	'samplesperpixel ' print. samplesPerPixel printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	328	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	329	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	330	].
3f9277473954 Initial revision claus parents: diff changeset	331	(tagType == 278) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	332	"rowsperstrip"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	333	rowsPerStrip := value.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	334	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	335	'rowsperstrip ' print. rowsPerStrip printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	336	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	337	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	338	].
3f9277473954 Initial revision claus parents: diff changeset	339	(tagType == 279) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	340	"stripbytecount"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	341	stripByteCounts := valueArray.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	342	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	343	'stripByteCounts Array(' print.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	344	stripByteCounts size print.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	345	')' printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	346	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	347	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	348	].
3f9277473954 Initial revision claus parents: diff changeset	349	(tagType == 280) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	350	"MinSampleValue"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	351	"minSampleValue:= value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	352	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	353	'minSampleValue ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	354	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	355	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	356	].
3f9277473954 Initial revision claus parents: diff changeset	357	(tagType == 281) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	358	"MaxSampleValue"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	359	"maxSampleValue:= value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	360	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	361	'maxSampleValue ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	362	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	363	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	364	].
3f9277473954 Initial revision claus parents: diff changeset	365	(tagType == 282) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	366	"xResolution"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	367	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	368	'xres ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	369	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	370	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	371	].
3f9277473954 Initial revision claus parents: diff changeset	372	(tagType == 283) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	373	"yResolution"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	374	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	375	'yres ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	376	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	377	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	378	].
3f9277473954 Initial revision claus parents: diff changeset	379	(tagType == 284) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	380	"planarconfig"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	381	(value == 1) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	382	planarConfiguration := 1
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	383	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	384	(value == 2) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	385	planarConfiguration := 2
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	386	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	387	planarConfiguration := nil
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	388	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	389	].
14 20638e830834 * empty log message * claus parents: 11 diff changeset	390	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	391	'planarconfig ' print. planarConfiguration printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	392	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	393	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	394	].
3f9277473954 Initial revision claus parents: diff changeset	395	(tagType == 285) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	396	"pageName"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	397	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	398	'pageName ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	399	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	400	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	401	].
3f9277473954 Initial revision claus parents: diff changeset	402	(tagType == 286) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	403	"xPosition"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	404	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	405	'xPos ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	406	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	407	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	408	].
3f9277473954 Initial revision claus parents: diff changeset	409	(tagType == 287) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	410	"yPosition"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	411	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	412	'yPos ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	413	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	414	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	415	].
3f9277473954 Initial revision claus parents: diff changeset	416	(tagType == 288) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	417	"freeOffsets"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	418	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	419	'freeOffsets ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	420	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	421	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	422	].
3f9277473954 Initial revision claus parents: diff changeset	423	(tagType == 289) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	424	"freeByteCounts"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	425	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	426	'freeByteCounts ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	427	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	428	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	429	].
3f9277473954 Initial revision claus parents: diff changeset	430	(tagType == 290) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	431	"grayResponceUnit"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	432	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	433	'grayResponceUnit' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	434	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	435	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	436	].
3f9277473954 Initial revision claus parents: diff changeset	437	(tagType == 291) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	438	"grayResponceCurve"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	439	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	440	'grayResponceCurve' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	441	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	442	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	443	].
3f9277473954 Initial revision claus parents: diff changeset	444	(tagType == 292) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	445	"group3options"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	446	group3options := value.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	447	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	448	'group3options ' print. group3options printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	449	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	450	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	451	].
3f9277473954 Initial revision claus parents: diff changeset	452	(tagType == 293) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	453	"group4options"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	454	"group4options := value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	455	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	456	'group4options ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	457	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	458	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	459	].
3f9277473954 Initial revision claus parents: diff changeset	460	(tagType == 296) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	461	"resolutionunit"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	462	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	463	(value == 1) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	464	'res-unit pixel' printNewline
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	465	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	466	(value == 2) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	467	'res-unit inch' printNewline
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	468	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	469	(value == 3) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	470	'res-unit mm' printNewline
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	471	] ifFalse:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	472	'res-unit invalid' printNewline
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	473	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	474	]
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	475	].
14 20638e830834 * empty log message * claus parents: 11 diff changeset	476	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	477	"resolutionUnit := value."
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	478	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	479	].
3f9277473954 Initial revision claus parents: diff changeset	480	(tagType == 297) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	481	"pageNumber"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	482	"pageNumber := value."
14 20638e830834 * empty log message * claus parents: 11 diff changeset	483	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	484	'pageNumber ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	485	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	486	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	487	].
3f9277473954 Initial revision claus parents: diff changeset	488	(tagType == 300) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	489	"colorResponceUnit"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	490	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	491	'colorResponceUnit' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	492	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	493	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	494	].
3f9277473954 Initial revision claus parents: diff changeset	495	(tagType == 301) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	496	"colorResponceCurve"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	497	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	498	'colorResponceCurve' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	499	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	500	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	501	].
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	502	(tagType == 305) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	503	"software - info only"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	504	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	505	'software' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	506	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	507	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	508	].
0 3f9277473954 Initial revision claus parents: diff changeset	509	(tagType == 306) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	510	"dateTime - info only"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	511	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	512	'dateTime ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	513	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	514	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	515	].
3f9277473954 Initial revision claus parents: diff changeset	516	(tagType == 315) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	517	"artist - info only"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	518	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	519	'artist ' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	520	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	521	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	522	].
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	523	(tagType == 316) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	524	"host computer - info only"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	525	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	526	'host ' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	527	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	528	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	529	].
0 3f9277473954 Initial revision claus parents: diff changeset	530	(tagType == 317) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	531	"predictor"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	532	predictor := value.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	533	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	534	'predictor ' print. predictor printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	535	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	536	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	537	].
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	538	(tagType == 318) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	539	"whitePoint"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	540	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	541	'whitePoint ' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	542	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	543	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	544	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	545	(tagType == 319) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	546	"primaryChromatics"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	547	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	548	'primaryChromatics ' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	549	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	550	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	551	].
0 3f9277473954 Initial revision claus parents: diff changeset	552	(tagType == 320) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	553	"colorMap"
14 20638e830834 * empty log message * claus parents: 11 diff changeset	554	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	555	'colorMap (size=' print. valueArray size print. ')' printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	556	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	557	"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	558	the tiff colormap contains 16bit values;
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	559	our colormap expects 8bit values
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	560	"
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	561	n := valueArray size // 3.
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	562
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	563	rV := ByteArray uninitializedNew:n.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	564	gV := ByteArray uninitializedNew:n.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	565	bV := ByteArray uninitializedNew:n.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	566	scaleFactor := 255.0 / 16rFFFF.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	567	i2 := n+1.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	568	i3 := 2*n+1.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	569	1 to:n do:[:vi \|
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	570	val := ((valueArray at:vi) * scaleFactor) rounded.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	571	rV at:vi put:val.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	572	val := ((valueArray at:i2) * scaleFactor) rounded.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	573	gV at:vi put:val.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	574	val := ((valueArray at:i3) * scaleFactor) rounded.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	575	bV at:vi put:val.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	576	i2 := i2 + 1.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	577	i3 := i3 + 1.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	578	].
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	579	colorMap := Colormap redVector:rV greenVector:gV blueVector:bV.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	580	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	581	].
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	582	(tagType == 332) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	583	"ink set"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	584	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	585	'ink set' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	586	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	587	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	588	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	589	(tagType == 333) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	590	"ink names"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	591	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	592	'ink names' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	593	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	594	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	595	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	596	(tagType == 336) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	597	"dot range"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	598	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	599	'dot range' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	600	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	601	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	602	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	603	(tagType == 337) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	604	"target printer"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	605	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	606	'target printer' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	607	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	608	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	609	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	610	(tagType == 339) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	611	"sample format"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	612	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	613	'sample format' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	614	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	615	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	616	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	617	(tagType == 340) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	618	"min sample value"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	619	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	620	'min sample value' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	621	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	622	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	623	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	624	(tagType == 341) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	625	"max sample value"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	626	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	627	'max sample value' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	628	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	629	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	630	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	631	(tagType == 512) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	632	"jpeg proc"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	633	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	634	'jpeg proc' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	635	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	636	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	637	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	638	(tagType == 513) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	639	"jpeg proc"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	640	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	641	'jpeg proc' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	642	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	643	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	644	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	645	(tagType == 32995) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	646	"matteing"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	647	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	648	'matteing' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	649	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	650	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	651	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	652	(tagType == 32996) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	653	"datatype"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	654	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	655	'datatype' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	656	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	657	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	658	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	659	(tagType == 32997) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	660	"imagedepth"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	661	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	662	'imagedepth' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	663	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	664	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	665	].
9638bc775850 * empty log message * claus parents: 28 diff changeset	666	(tagType == 32998) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	667	"tiledepth"
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	668	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	669	'tiledepth' print. value printNewline.
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	670	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	671	^ self
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	672	].
0 3f9277473954 Initial revision claus parents: diff changeset	673
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	674	"
25 b44c5b9d9e7d * empty log message * claus parents: 23 diff changeset	675	'TIFFReader: tag:' print. tagType print. ' typ:' print. numberType print.
0 3f9277473954 Initial revision claus parents: diff changeset	676	' len:' print. length print. ' offs:' print. offset print.
3f9277473954 Initial revision claus parents: diff changeset	677	' val:' print. value print. ' valArr:' print. valueArray printNewline.
21 66b31c91177f * empty log message * claus parents: 19 diff changeset	678	"
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	679	'TIFFReader [warning]: unknown tag type ' errorPrint. tagType errorPrintCR
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	680
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	681	"Modified: 10.1.1997 / 18:07:34 / cg"
0 3f9277473954 Initial revision claus parents: diff changeset	682	!
3f9277473954 Initial revision claus parents: diff changeset	683
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	684	readCCITT3RLETiffImageData
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	685	'TIFFReader [warning]: ccitt mod Huffman (rle) compression not implemented' errorPrintCR.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	686
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	687	"Modified: 10.1.1997 / 18:09:02 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	688	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	689
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	690	readCCITT3RLEWTiffImageData
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	691	'TIFFReader [warning]: ccitt mod Huffman (rlew) compression not implemented' errorPrintCR.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	692
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	693	"Modified: 10.1.1997 / 18:09:11 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	694	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	695
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	696	readCCITTGroup3TiffImageData
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	697	"not really tested - all I got is a single
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	698	fax from NeXT step"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	699
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	700	\|bytesPerRow bitsPerRow compressedStrip nPlanes
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	701	stripNr "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	702	offset "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	703	row "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	704	bytesPerStrip "{ Class: SmallInteger }" \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	705
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	706	nPlanes := samplesPerPixel.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	707	(nPlanes == 2) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	708	'TIFFReader [info]: ignoring alpha plane' infoPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	709	nPlanes := 1
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	710	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	711
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	712	(nPlanes ~~ 1) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	713	'TIFFReader [warning]: only monochrome/greyscale supported' errorPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	714	^ nil
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	715	].
0 3f9277473954 Initial revision claus parents: diff changeset	716
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	717	stripByteCounts isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	718	'TIFFReader [warning]: currently require stripByteCounts' errorPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	719	^ nil
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	720	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	721	(rowsPerStrip ~~ 1) isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	722	'TIFFReader [warning]: currently require rowsPerStrip to be 1' errorPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	723	^ nil
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	724	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	725
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	726	"/ 'TIFFReader: decompressing CCITT-3 ...' infoPrintNL.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	727
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	728	bitsPerRow := width * (bitsPerSample at:1).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	729	bytesPerRow := bitsPerRow // 8.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	730	((bitsPerRow \\ 8) ~~ 0) ifTrue:[
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	731	bytesPerRow := bytesPerRow + 1
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	732	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	733
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	734	data := ByteArray new:(bytesPerRow * height).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	735	compressedStrip := ByteArray uninitializedNew:bytesPerRow.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	736
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	737	offset := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	738	stripNr := 0.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	739
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	740	row := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	741	bytesPerStrip := bytesPerRow * rowsPerStrip.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	742	[row <= height] whileTrue:[
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	743	stripNr := stripNr + 1.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	744	inStream position:((stripOffsets at:stripNr) + 1).
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	745	inStream nextBytes:(stripByteCounts at:stripNr) into:compressedStrip.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	746	self class decompressCCITT3From:compressedStrip
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	747	into:data
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	748	startingAt:offset
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	749	count:width.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	750	offset := offset + bytesPerStrip.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	751	row := row + rowsPerStrip
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	752	]
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	753
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	754	"Modified: 10.1.1997 / 18:14:56 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	755	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	756
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	757	readCCITTGroup4TiffImageData
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	758	'TIFFReader [warning]: ccitt group4 fax compression not implemented' errorPrintNL.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	759
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	760	"Modified: 10.1.1997 / 18:09:14 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	761	!
0 3f9277473954 Initial revision claus parents: diff changeset	762
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	763	readChars:n
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	764	"read n characters and return them in a string"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	765
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	766	\|oldPos offset string\|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	767
329 5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	768	n == 0 ifTrue:[^ ''].
5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	769
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	770	string := String new:(n - 1).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	771	(n <= 4) ifTrue:[
329 5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	772	inStream nextBytes:(n - 1) into:string
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	773	] ifFalse:[
329 5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	774	offset := inStream nextLongMSB:(byteOrder ~~ #lsb).
5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	775	oldPos := inStream position.
5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	776	inStream position:(offset + 1).
5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	777	inStream nextBytes:(n - 1) into:string.
5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	778	inStream position:oldPos
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	779	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	780	^ string
329 5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	781
5fb99e0734e4 handle empty character-strings Claus Gittinger <cg@exept.de> parents: 317 diff changeset	782	"Modified: 5.9.1996 / 12:21:08 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	783	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	784
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	785	readFracts:nFracts
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	786	"read nFracts fractions (2 32bit words) and return them in an array"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	787
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	788	\|oldPos offset values numerator denominator msb
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	789	n "{ Class: SmallInteger }" \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	790
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	791	n := nFracts.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	792
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	793	msb := byteOrder ~~ #lsb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	794	values := Array basicNew:n.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	795	offset := inStream nextLongMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	796	oldPos := inStream position.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	797	inStream position:(offset + 1).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	798	1 to:n do:[:index \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	799	numerator := inStream nextLongMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	800	denominator := inStream nextLongMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	801	values at:index put:(Fraction numerator:numerator denominator:denominator)
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	802	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	803	inStream position:oldPos.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	804	^ values
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	805	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	806
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	807	readJPEGTiffImageData
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	808	'TIFFReader [warning]: jpeg compression not implemented' errorPrintNL
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	809
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	810	"Modified: 10.1.1997 / 18:09:17 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	811	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	812
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	813	readLZWTiffImageData
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	814	"read LZW compressed tiff data; this method only
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	815	handles 3x8 rgb and 1x2 or 2x2 greyscale images.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	816	For 2x2 greyscale images, the alpha plane is ignored.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	817	(maybe other formats work also - its simply not
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	818	tested)"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	819
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	820	\|bytesPerRow compressedStrip nPlanes
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	821	bytesPerStrip "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	822	nBytes "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	823	prevSize "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	824	stripNr "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	825	offset "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	826	row "{ Class: SmallInteger }" \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	827
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	828	nPlanes := samplesPerPixel.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	829
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	830	(nPlanes == 3) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	831	(((bitsPerSample at:1) ~~ 8)
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	832	or:[((bitsPerSample at:2) ~~ 8)
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	833	or:[((bitsPerSample at:3) ~~ 8)]]) ifTrue:[
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	834	'TIFFReader [warning]: only 8/8/8 bit/sample are supported' errorPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	835	^ nil
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	836	].
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	837	bytesPerRow := width * samplesPerPixel.
0 3f9277473954 Initial revision claus parents: diff changeset	838	] ifFalse:[
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	839	(nPlanes == 2) ifTrue:[
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	840	(planarConfiguration ~~ 2) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	841	'TIFFReader [warning]: only separate planes are supported' errorPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	842	^ nil
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	843	].
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	844	'TIFFReader [info]: ignoring alpha plane' infoPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	845	nPlanes := 1
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	846	].
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	847	(nPlanes == 1) ifFalse:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	848	'TIFFReader [warning]: only 3-sample rgb / monochrome supported' errorPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	849	^ nil
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	850	].
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	851	bytesPerRow := (width * (bitsPerSample at:1) + 7) // 8.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	852	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	853
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	854	stripByteCounts isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	855	'TIFFReader [warning]: currently require stripByteCounts' errorPrintCR.
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	856	^ nil
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	857	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	858
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	859	"/ 'TIFFReader: decompressing LZW ...' infoPrintNL.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	860
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	861	data := ByteArray uninitializedNew:(bytesPerRow * height).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	862
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	863	offset := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	864	stripNr := 0.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	865
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	866	row := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	867	bytesPerStrip := bytesPerRow * rowsPerStrip.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	868	prevSize := 0.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	869	[row <= height] whileTrue:[
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	870	stripNr := stripNr + 1.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	871	inStream position:((stripOffsets at:stripNr) + 1).
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	872	nBytes := stripByteCounts at:stripNr.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	873	(nBytes > prevSize) ifTrue:[
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	874	compressedStrip := ByteArray uninitializedNew:nBytes.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	875	prevSize := nBytes
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	876	].
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	877	inStream nextBytes:nBytes
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	878	into:compressedStrip.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	879	self class decompressLZWFrom:compressedStrip
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	880	count:nBytes
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	881	into:data
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	882	startingAt:offset.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	883	offset := offset + bytesPerStrip.
a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	884	row := row + rowsPerStrip
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	885	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	886
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	887	(predictor == 2) ifTrue:[
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	888	self class decodeDelta:3 in:data width:width height:height
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	889	]
335 a32831edacc5 checkin from browser Claus Gittinger <cg@exept.de> parents: 334 diff changeset	890
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	891	"Modified: 10.1.1997 / 18:13:21 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	892	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	893
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	894	readLongs:nLongs
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	895	"read nLongs long numbers (32bit) and return them in an array"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	896
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	897	\|oldPos offset values msb
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	898	n "{ Class: SmallInteger }" \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	899
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	900	n := nLongs.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	901
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	902	msb := byteOrder ~~ #lsb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	903	values := Array basicNew:n.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	904	(n == 1) ifTrue:[
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	905	values at:1 put:(inStream nextLongMSB:msb).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	906	] ifFalse:[
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	907	offset := inStream nextLongMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	908	oldPos := inStream position.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	909	inStream position:(offset + 1).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	910	1 to:n do:[:index \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	911	values at:index put:(inStream nextLongMSB:msb)
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	912	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	913	inStream position:oldPos
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	914	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	915	^ values
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	916	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	917
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	918	readNeXTJPEGTiffImageData
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	919	'TIFFReader [warning]: jpeg compression not implemented' errorPrintCR
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	920
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	921	"Modified: 10.1.1997 / 18:11:04 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	922	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	923
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	924	readNeXTRLE2TiffImageData
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	925	'TIFFReader [warning]: next 2bit rle compression not implemented' errorPrintCR.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	926
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	927	"Modified: 10.1.1997 / 18:11:01 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	928	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	929
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	930	readPackbitsTiffImageData
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	931	"had no samples yet - however, packbits decompression
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	932	is rather trivial to add ..."
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	933
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	934	'TIFFReader [warning]: packbits compression not implemented' errorPrintCR
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	935
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	936	"Modified: 10.1.1997 / 18:10:57 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	937	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	938
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	939	readShorts:nShorts
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	940	"read nShorts short numbers (16bit) and return them in an array"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	941
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	942	\|oldPos offset values msb val2
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	943	n "{ Class: SmallInteger }" \|
0 3f9277473954 Initial revision claus parents: diff changeset	944
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	945	n := nShorts.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	946
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	947	msb := (byteOrder ~~ #lsb).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	948	values := Array basicNew:n.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	949	(n <= 2) ifTrue:[
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	950	values at:1 put:(inStream nextUnsignedShortMSB:msb).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	951	val2 := inStream nextUnsignedShortMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	952
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	953	(n == 2) ifTrue:[
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	954	values at:2 put:val2
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	955	]
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	956	] ifFalse:[
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	957	offset := inStream nextLongMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	958	oldPos := inStream position.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	959	inStream position:(offset + 1).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	960	1 to:n do:[:index \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	961	values at:index put:(inStream nextUnsignedShortMSB:msb)
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	962	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	963	inStream position:oldPos
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	964	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	965	^ values
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	966	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	967
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	968	readUncompressedTiffImageData
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	969	\|bytesPerRow bitsPerRow nPlanes
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	970	stripNr "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	971	offset "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	972	row "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	973	nBytes "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	974	bitsPerPixel overAllBytes\|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	975
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	976	nPlanes := samplesPerPixel.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	977
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	978	"only support 1-sample/pixel,
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	979	with alpha - if separate planes,
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	980	or rgb - if non separate planes and no alpha"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	981
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	982	(nPlanes == 2) ifTrue:[
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	983	(planarConfiguration ~~ 2) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	984	'TIFFReader [warning]: with alpha, only separate planes supported' errorPrintCR.
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	985	^ nil
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	986	].
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	987	'TIFFReader [info]: ignoring alpha plane' infoPrintCR.
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	988	nPlanes := 1.
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	989	bitsPerPixel := bitsPerSample at:1.
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	990	bitsPerSample := Array with:bitsPerPixel.
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	991	samplesPerPixel := 1.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	992	] ifFalse:[
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	993	(nPlanes == 3) ifTrue:[
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	994	(planarConfiguration ~~ 1) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	995	'TIFFReader [warning]: only non separate planes supported' errorPrintCR.
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	996	^ nil
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	997	].
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	998	bitsPerSample ~= #(8 8 8) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	999	'TIFFReader [warning]: only 8/8/8 rgb images supported' errorPrintCR.
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1000	^ nil
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1001	].
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1002	bitsPerPixel := 24
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1003	] ifFalse:[
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1004	(nPlanes ~~ 1) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1005	'TIFFReader [warning]: format not supported' errorPrintCR.
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1006	^ nil
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1007	].
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1008	bitsPerPixel := bitsPerSample at:1.
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1009	]
0 3f9277473954 Initial revision claus parents: diff changeset	1010	].
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1011
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1012	bitsPerRow := width * bitsPerPixel.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1013	bytesPerRow := bitsPerRow // 8.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1014	((bitsPerRow \\ 8) ~~ 0) ifTrue:[
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1015	bytesPerRow := bytesPerRow + 1
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1016	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1017
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1018	overAllBytes := bytesPerRow * height.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1019	data := ByteArray uninitializedNew:overAllBytes.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1020
336 9789b02d95bf oops - the very last pixel was not read (in readUncompressed ...) Claus Gittinger <cg@exept.de> parents: 335 diff changeset	1021	offset := 0.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1022	stripNr := 0.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1023
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1024	row := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1025	[row <= height] whileTrue:[
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1026	stripNr := stripNr + 1.
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1027	nBytes := stripByteCounts at:stripNr.
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1028	inStream position:((stripOffsets at:stripNr) + 1).
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1029
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1030	offset + nBytes > overAllBytes ifTrue:[
336 9789b02d95bf oops - the very last pixel was not read (in readUncompressed ...) Claus Gittinger <cg@exept.de> parents: 335 diff changeset	1031	nBytes := overAllBytes - offset.
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1032	].
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1033
336 9789b02d95bf oops - the very last pixel was not read (in readUncompressed ...) Claus Gittinger <cg@exept.de> parents: 335 diff changeset	1034	inStream nextBytes:nBytes into:data startingAt:offset+1.
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1035	offset := offset + nBytes.
5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1036	row := row + rowsPerStrip
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1037	]
317 5de89b17ed48 care for bad strip size (how can this happen ?) Claus Gittinger <cg@exept.de> parents: 259 diff changeset	1038
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1039	"Modified: 10.1.1997 / 18:10:46 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1040	!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1041
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1042	writeBitsPerSample
14 20638e830834 * empty log message * claus parents: 11 diff changeset	1043	"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1044	'bitsPerSample: ' print. bitsPerSample printNewline.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1045	'store bitspersample at: ' print. outStream position printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	1046	"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1047	bitsPerSamplePos := outStream position.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1048	bitsPerSample do:[:n \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1049	self writeShort:n
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1050	]
0 3f9277473954 Initial revision claus parents: diff changeset	1051	!
3f9277473954 Initial revision claus parents: diff changeset	1052
3f9277473954 Initial revision claus parents: diff changeset	1053	writeColorMap
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1054	\|n\|
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1055
0 3f9277473954 Initial revision claus parents: diff changeset	1056	colorMapPos := outStream position.
35 f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1057	#(red green blue) do:[:component \|
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1058	n := 0.
35 f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1059	colorMap do:[:clr \|
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1060	\|entry\|
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1061
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1062	clr isNil ifTrue:[
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1063	entry := 0
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1064	] ifFalse:[
35 f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1065	entry := clr perform:component.
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1066	"
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1067	tiff map is 16 bit - scale from percent to 0..16rFFFF
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1068	"
f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1069	entry := (entry * 16rFFFF / 100) rounded.
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1070	].
35 f13cdd0b44c7 * empty log message * claus parents: 32 diff changeset	1071	self writeShort:entry.
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1072	n := n + 1
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1073	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1074	"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1075	fill to 256 entries
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1076	"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1077	[n < 256] whileTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1078	self writeShort:0.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1079	n := n + 1.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1080	]
0 3f9277473954 Initial revision claus parents: diff changeset	1081	]
3f9277473954 Initial revision claus parents: diff changeset	1082	!
3f9277473954 Initial revision claus parents: diff changeset	1083
3f9277473954 Initial revision claus parents: diff changeset	1084	writeStripByteCounts
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	1085	"
0 3f9277473954 Initial revision claus parents: diff changeset	1086	'stripByteCounts: ' print. stripByteCounts printNewline.
3f9277473954 Initial revision claus parents: diff changeset	1087	'store stripbytecounts at: ' print. outStream position printNewline.
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	1088	"
0 3f9277473954 Initial revision claus parents: diff changeset	1089	stripByteCountsPos := outStream position.
3f9277473954 Initial revision claus parents: diff changeset	1090	stripByteCounts do:[:c \|
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1091	self writeShort:c
0 3f9277473954 Initial revision claus parents: diff changeset	1092	]
3f9277473954 Initial revision claus parents: diff changeset	1093	!
3f9277473954 Initial revision claus parents: diff changeset	1094
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1095	writeStripOffsets
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	1096	"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1097	'stripOffsets: ' print. stripOffsets printNewline.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1098	'store stripoffsets at: ' print. outStream position printNewline.
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	1099	"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1100	stripOffsetsPos := outStream position.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1101	stripOffsets do:[:o \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1102	self writeLong:o
0 3f9277473954 Initial revision claus parents: diff changeset	1103	]
3f9277473954 Initial revision claus parents: diff changeset	1104	!
3f9277473954 Initial revision claus parents: diff changeset	1105
3f9277473954 Initial revision claus parents: diff changeset	1106	writeTag:tagType
3f9277473954 Initial revision claus parents: diff changeset	1107	self writeTiffTag:tagType.
3f9277473954 Initial revision claus parents: diff changeset	1108	!
3f9277473954 Initial revision claus parents: diff changeset	1109
3f9277473954 Initial revision claus parents: diff changeset	1110	writeTiffTag:tagType
3f9277473954 Initial revision claus parents: diff changeset	1111	\|value valueArray numberType count address\|
3f9277473954 Initial revision claus parents: diff changeset	1112
3f9277473954 Initial revision claus parents: diff changeset	1113	count := 1.
3f9277473954 Initial revision claus parents: diff changeset	1114	address := nil.
3f9277473954 Initial revision claus parents: diff changeset	1115	(tagType == 253) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1116	"tiff class"
0 3f9277473954 Initial revision claus parents: diff changeset	1117	].
3f9277473954 Initial revision claus parents: diff changeset	1118	(tagType == 254) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1119	].
3f9277473954 Initial revision claus parents: diff changeset	1120	(tagType == 255) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1121	"SubfileType"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1122	value := subFileType.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1123	numberType := #long.
0 3f9277473954 Initial revision claus parents: diff changeset	1124	].
3f9277473954 Initial revision claus parents: diff changeset	1125	(tagType == 256) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1126	"ImageWidth"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1127	value := width.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1128	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1129	].
3f9277473954 Initial revision claus parents: diff changeset	1130	(tagType == 257) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1131	"ImageHeight"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1132	value := height.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1133	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1134	].
3f9277473954 Initial revision claus parents: diff changeset	1135	(tagType == 258) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1136	"bitspersample"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1137	address := bitsPerSamplePos - 1.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1138	numberType := #short.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1139	count := bitsPerSample size.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1140	valueArray := bitsPerSample
0 3f9277473954 Initial revision claus parents: diff changeset	1141	].
3f9277473954 Initial revision claus parents: diff changeset	1142	(tagType == 259) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1143	"compression"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1144	value := compression.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1145	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1146	].
3f9277473954 Initial revision claus parents: diff changeset	1147	(tagType == 262) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1148	"photometric"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1149	(photometric == #whiteIs0) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1150	value := 0
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1151	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1152	(photometric == #blackIs0) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1153	value := 1
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1154	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1155	(photometric == #rgb) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1156	value := 2
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1157	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1158	(photometric == #palette) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1159	value := 3
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1160	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1161	(photometric == #transparency) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1162	value := 4
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1163	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1164	self error:'bad photometric'
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1165	]
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1166	]
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1167	]
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1168	]
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1169	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1170	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1171	].
3f9277473954 Initial revision claus parents: diff changeset	1172	(tagType == 263) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1173	].
3f9277473954 Initial revision claus parents: diff changeset	1174	(tagType == 264) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1175	].
3f9277473954 Initial revision claus parents: diff changeset	1176	(tagType == 265) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1177	].
3f9277473954 Initial revision claus parents: diff changeset	1178	(tagType == 266) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1179	"fillOrder"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1180	(fillOrder == #msb) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1181	value := 1
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1182	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1183	(fillOrder == #lsb) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1184	value := 2
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1185	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1186	self error:'bad fillOrder'
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1187	]
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1188	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1189	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1190	].
3f9277473954 Initial revision claus parents: diff changeset	1191	(tagType == 269) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1192	].
3f9277473954 Initial revision claus parents: diff changeset	1193	(tagType == 270) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1194	].
3f9277473954 Initial revision claus parents: diff changeset	1195	(tagType == 271) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1196	].
3f9277473954 Initial revision claus parents: diff changeset	1197	(tagType == 272) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1198	].
3f9277473954 Initial revision claus parents: diff changeset	1199	(tagType == 273) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1200	"stripoffsets"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1201	address := stripOffsetsPos - 1.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1202	numberType := #long.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1203	count := stripOffsets size.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1204	valueArray := stripOffsets
0 3f9277473954 Initial revision claus parents: diff changeset	1205	].
3f9277473954 Initial revision claus parents: diff changeset	1206	(tagType == 274) ifTrue:[
3f9277473954 Initial revision claus parents: diff changeset	1207	].
3f9277473954 Initial revision claus parents: diff changeset	1208	(tagType == 277) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1209	"samplesPerPixel"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1210	value := samplesPerPixel.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1211	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1212	].
3f9277473954 Initial revision claus parents: diff changeset	1213	(tagType == 278) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1214	"rowsperstrip"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1215	value := rowsPerStrip.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1216	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1217	].
3f9277473954 Initial revision claus parents: diff changeset	1218	(tagType == 279) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1219	"stripbytecount"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1220	address := stripByteCountsPos - 1.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1221	numberType := #short.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1222	count := stripByteCounts size.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1223	valueArray := stripByteCounts
0 3f9277473954 Initial revision claus parents: diff changeset	1224	].
3f9277473954 Initial revision claus parents: diff changeset	1225	(tagType == 280) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1226	"min sample value"
0 3f9277473954 Initial revision claus parents: diff changeset	1227	].
3f9277473954 Initial revision claus parents: diff changeset	1228	(tagType == 281) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1229	"max sample value"
0 3f9277473954 Initial revision claus parents: diff changeset	1230	].
3f9277473954 Initial revision claus parents: diff changeset	1231	(tagType == 282) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1232	"x resolution"
0 3f9277473954 Initial revision claus parents: diff changeset	1233	].
3f9277473954 Initial revision claus parents: diff changeset	1234	(tagType == 283) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1235	"y resolution"
0 3f9277473954 Initial revision claus parents: diff changeset	1236	].
3f9277473954 Initial revision claus parents: diff changeset	1237	(tagType == 284) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1238	"planarconfig"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1239	value := planarConfiguration.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1240	numberType := #short.
0 3f9277473954 Initial revision claus parents: diff changeset	1241	].
3f9277473954 Initial revision claus parents: diff changeset	1242	(tagType == 285) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1243	"pageName"
0 3f9277473954 Initial revision claus parents: diff changeset	1244	].
3f9277473954 Initial revision claus parents: diff changeset	1245	(tagType == 286) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1246	"xPosition"
0 3f9277473954 Initial revision claus parents: diff changeset	1247	].
3f9277473954 Initial revision claus parents: diff changeset	1248	(tagType == 287) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1249	"yPosition"
0 3f9277473954 Initial revision claus parents: diff changeset	1250	].
3f9277473954 Initial revision claus parents: diff changeset	1251	(tagType == 288) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1252	"freeOffsets"
0 3f9277473954 Initial revision claus parents: diff changeset	1253	].
3f9277473954 Initial revision claus parents: diff changeset	1254	(tagType == 289) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1255	"freeByteCounts"
0 3f9277473954 Initial revision claus parents: diff changeset	1256	].
3f9277473954 Initial revision claus parents: diff changeset	1257	(tagType == 290) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1258	"grayResponceUnit"
0 3f9277473954 Initial revision claus parents: diff changeset	1259	].
3f9277473954 Initial revision claus parents: diff changeset	1260	(tagType == 291) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1261	"grayResponceCurve"
0 3f9277473954 Initial revision claus parents: diff changeset	1262	].
3f9277473954 Initial revision claus parents: diff changeset	1263	(tagType == 292) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1264	"group3options"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1265	value := group3options.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1266	numberType := #long.
0 3f9277473954 Initial revision claus parents: diff changeset	1267	].
3f9277473954 Initial revision claus parents: diff changeset	1268	(tagType == 293) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1269	"group4options"
0 3f9277473954 Initial revision claus parents: diff changeset	1270	].
3f9277473954 Initial revision claus parents: diff changeset	1271	(tagType == 296) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1272	"resolutionunit"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1273	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	1274	].
3f9277473954 Initial revision claus parents: diff changeset	1275	(tagType == 297) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1276	"pageNumber"
0 3f9277473954 Initial revision claus parents: diff changeset	1277	].
3f9277473954 Initial revision claus parents: diff changeset	1278	(tagType == 300) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1279	"colorResponceUnit"
0 3f9277473954 Initial revision claus parents: diff changeset	1280	].
3f9277473954 Initial revision claus parents: diff changeset	1281	(tagType == 301) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1282	"colorResponceCurve"
0 3f9277473954 Initial revision claus parents: diff changeset	1283	].
3f9277473954 Initial revision claus parents: diff changeset	1284	(tagType == 306) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1285	"dateTime"
0 3f9277473954 Initial revision claus parents: diff changeset	1286	].
3f9277473954 Initial revision claus parents: diff changeset	1287	(tagType == 315) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1288	"artist"
0 3f9277473954 Initial revision claus parents: diff changeset	1289	].
3f9277473954 Initial revision claus parents: diff changeset	1290	(tagType == 317) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1291	"predictor"
0 3f9277473954 Initial revision claus parents: diff changeset	1292	].
3f9277473954 Initial revision claus parents: diff changeset	1293	(tagType == 320) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1294	"colormap"
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1295	address := colorMapPos - 1.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1296	numberType := #short.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1297	count := 256 "(colorMap at:1) size" * 3.
0 3f9277473954 Initial revision claus parents: diff changeset	1298	].
3f9277473954 Initial revision claus parents: diff changeset	1299
3f9277473954 Initial revision claus parents: diff changeset	1300	(value isNil and:[address isNil]) ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1301	self error:'unhandled tag'.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1302	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	1303	].
3f9277473954 Initial revision claus parents: diff changeset	1304
14 20638e830834 * empty log message * claus parents: 11 diff changeset	1305	"
0 3f9277473954 Initial revision claus parents: diff changeset	1306	'tag:' print. tagType print. ' typ:' print. numberType print.
3f9277473954 Initial revision claus parents: diff changeset	1307	' len:' print. count print.
3f9277473954 Initial revision claus parents: diff changeset	1308	' val:' print. value printNewline.
14 20638e830834 * empty log message * claus parents: 11 diff changeset	1309	"
0 3f9277473954 Initial revision claus parents: diff changeset	1310
3f9277473954 Initial revision claus parents: diff changeset	1311	self writeShort:tagType.
3f9277473954 Initial revision claus parents: diff changeset	1312	numberType == #short ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1313	self writeShort:3.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1314	self writeLong:count.
0 3f9277473954 Initial revision claus parents: diff changeset	1315	] ifFalse:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1316	numberType == #long ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1317	self writeShort:4.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1318	self writeLong:count.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1319	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1320	numberType == #byte ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1321	self writeShort:1.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1322	self writeLong:count.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1323	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1324	self error:'bad numbertype'
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1325	]
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1326	]
0 3f9277473954 Initial revision claus parents: diff changeset	1327	].
3f9277473954 Initial revision claus parents: diff changeset	1328	address notNil ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1329	(numberType == #long and:[count == 1]) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1330	self writeLong:(valueArray at:1).
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1331	^ self
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1332	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1333	(numberType == #short and:[count <= 2]) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1334	self writeShort:(valueArray at:1).
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1335	count == 2 ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1336	self writeShort:(valueArray at:2).
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1337	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1338	self writeShort:0
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1339	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1340	^ self
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1341	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1342	(numberType == #byte and:[count <= 4]) ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1343	outStream nextPut:(valueArray at:1).
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1344	count > 1 ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1345	outStream nextPut:(valueArray at:2).
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1346	count > 2 ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1347	outStream nextPut:(valueArray at:3).
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1348	count > 3 ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1349	outStream nextPut:(valueArray at:4).
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1350	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1351	outStream nextPut:0
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1352	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1353	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1354	outStream nextPut:0
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1355	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1356	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1357	outStream nextPut:0
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1358	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1359	^ self
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1360	].
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1361	self writeLong:address.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1362	^ self
0 3f9277473954 Initial revision claus parents: diff changeset	1363	].
3f9277473954 Initial revision claus parents: diff changeset	1364	numberType == #short ifTrue:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1365	self writeShort:value.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1366	self writeShort:0
0 3f9277473954 Initial revision claus parents: diff changeset	1367	] ifFalse:[
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1368	numberType == #long ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1369	self writeLong:value
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1370	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1371	numberType == #byte ifTrue:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1372	outStream nextPut:value.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1373	outStream nextPut:0.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1374	outStream nextPut:0.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1375	outStream nextPut:0.
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1376	] ifFalse:[
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1377	self error:'bad numbertype'
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1378	]
8daff0234d2e * empty log message * claus parents: 25 diff changeset	1379	]
0 3f9277473954 Initial revision claus parents: diff changeset	1380	].
3f9277473954 Initial revision claus parents: diff changeset	1381	!
3f9277473954 Initial revision claus parents: diff changeset	1382
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1383	writeUncompressedBits
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1384	"write bits as one or multiple strips"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1385
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1386	\|offs bytesPerRow nBytes
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1387	h "{ Class: SmallInteger }"\|
0 3f9277473954 Initial revision claus parents: diff changeset	1388
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1389	nBytes := data size.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1390	nBytes < 16rFFFF ifTrue:[
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1391	stripOffsets := Array with:(outStream position - 1).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1392	stripByteCounts := Array with:nBytes.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1393	outStream nextPutBytes:nBytes from:data.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1394	rowsPerStrip := height
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1395	] ifFalse:[
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1396	stripOffsets := Array basicNew:height.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1397	bytesPerRow := nBytes // height.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1398	stripByteCounts := (Array basicNew:height) atAllPut:bytesPerRow.
0 3f9277473954 Initial revision claus parents: diff changeset	1399
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1400	offs := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1401	h := height.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1402	1 to:h do:[:row \|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1403	stripOffsets at:row put:(outStream position - 1).
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1404	outStream nextPutBytes:bytesPerRow from:data startingAt:offs.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1405	offs := offs + bytesPerRow
28 8daff0234d2e * empty log message * claus parents: 25 diff changeset	1406	].
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1407	rowsPerStrip := 1
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1408	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1409	"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1410	'stripOffsets: ' print. stripOffsets printNewline.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1411	'stripByteCounts: ' print. stripByteCounts printNewline.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1412	"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1413	! !
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1414
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1415	!TIFFReader methodsFor:'reading from file'!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1416
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1417	fromStream:aStream
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1418	"read a stream containing a TIFF image.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1419	Leave image description in instance variables."
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1420
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1421	\|char1 char2 version
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1422	numberOfTags "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1423	tagType "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1424	numberType "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1425	length "{ Class: SmallInteger }"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1426	result offset ok msb\|
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1427
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1428	inStream := aStream.
331 304f9c439efa allow reading from ByteArray-readStreams Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1429	aStream binary.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1430
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1431	char1 := aStream next.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1432	char2 := aStream next.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1433	(char1 ~~ char2) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1434	'TIFFReader [warning]: not a tiff file' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1435	^ nil
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1436	].
331 304f9c439efa allow reading from ByteArray-readStreams Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1437	(char1 == $I asciiValue) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1438	byteOrder := #lsb.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1439	msb := false.
0 3f9277473954 Initial revision claus parents: diff changeset	1440	] ifFalse:[
331 304f9c439efa allow reading from ByteArray-readStreams Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1441	(char1 == $M asciiValue) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1442	byteOrder := #msb.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1443	msb := true.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1444	] ifFalse:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1445	'TIFFReader [warning]: not a tiff file' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1446	^ nil
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1447	]
0 3f9277473954 Initial revision claus parents: diff changeset	1448	].
3f9277473954 Initial revision claus parents: diff changeset	1449
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1450	version := self readShort.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1451	(version ~~ 42) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1452	'TIFFReader [warning]: version of tiff-file not supported' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1453	^ nil
0 3f9277473954 Initial revision claus parents: diff changeset	1454	].
3f9277473954 Initial revision claus parents: diff changeset	1455
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1456	"setup default values"
0 3f9277473954 Initial revision claus parents: diff changeset	1457
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1458	compression := 1. "none"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1459	fillOrder := #msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1460	planarConfiguration := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1461	photometric := nil.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1462	bitsPerSample := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1463	samplesPerPixel := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1464	width := nil.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1465	height := nil.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1466	stripOffsets := nil.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1467	rowsPerStrip := nil.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1468	"resolutionUnit := 2."
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1469	predictor := 1.
0 3f9277473954 Initial revision claus parents: diff changeset	1470
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1471	offset := aStream nextLongMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1472	aStream position:offset + 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1473
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1474	numberOfTags := self readShort.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1475	1 to:numberOfTags do:[:index \|
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1476	tagType := self readShort.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1477	numberType := self readShort.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1478	length := aStream nextLongMSB:msb.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1479	self decodeTiffTag:tagType numberType:numberType length:length
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1480	].
0 3f9277473954 Initial revision claus parents: diff changeset	1481
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1482	offset := aStream nextLongMSB:msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1483	(offset ~~ 0) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1484	'TIFFReader [info]: more tags ignored' infoPrintCR
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1485	].
0 3f9277473954 Initial revision claus parents: diff changeset	1486
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1487	"check for required tags"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1488	ok := true.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1489	width isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1490	'TIFFReader [warning]: missing width tag' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1491	ok := false
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1492	].
0 3f9277473954 Initial revision claus parents: diff changeset	1493
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1494	height isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1495	'TIFFReader [warning]: missing length tag' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1496	ok := false
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1497	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1498
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1499	photometric isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1500	'TIFFReader [warning]: missing photometric tag' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1501	ok := false
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1502	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1503
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1504	stripOffsets isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1505	'TIFFReader [warning]: missing stripOffsets tag' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1506	ok := false
0 3f9277473954 Initial revision claus parents: diff changeset	1507	].
3f9277473954 Initial revision claus parents: diff changeset	1508
3f9277473954 Initial revision claus parents: diff changeset	1509	stripByteCounts isNil ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1510	stripOffsets size == 1 ifTrue:[
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1511	stripByteCounts := Array with:(self bitsPerPixel // 8) * width * height
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1512	]
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1513	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1514
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1515	stripByteCounts isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1516	'TIFFReader [warning]: missing stripByteCounts tag' errorPrintCR.
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1517	ok := false
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1518	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1519
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1520	ok ifFalse:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1521	^ nil
0 3f9277473954 Initial revision claus parents: diff changeset	1522	].
3f9277473954 Initial revision claus parents: diff changeset	1523
334 1da7672635be dimensionCallBack Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1524	dimensionCallBack notNil ifTrue:[
1da7672635be dimensionCallBack Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1525	dimensionCallBack value:self
1da7672635be dimensionCallBack Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1526	].
1da7672635be dimensionCallBack Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1527
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1528	"given all the information, read the bits"
0 3f9277473954 Initial revision claus parents: diff changeset	1529
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1530	rowsPerStrip isNil ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1531	rowsPerStrip := height
0 3f9277473954 Initial revision claus parents: diff changeset	1532	].
3f9277473954 Initial revision claus parents: diff changeset	1533
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1534	ok := false.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1535	(compression == 1) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1536	result := self readUncompressedTiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1537	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1538	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1539	(compression == 2) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1540	result := self readCCITT3RLETiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1541	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1542	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1543	(compression == 3) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1544	result := self readCCITTGroup3TiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1545	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1546	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1547	(compression == 4) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1548	result := self readCCITTGroup4TiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1549	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1550	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1551	(compression == 5) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1552	result := self readLZWTiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1553	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1554	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1555	(compression == 6) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1556	result := self readJPEGTiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1557	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1558	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1559	(compression == 32766) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1560	result := self readNeXTRLE2TiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1561	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1562	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1563	(compression == 32771) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1564	result := self readCCITTRLEWTiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1565	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1566	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1567	(compression == 32773) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1568	result := self readPackbitsTiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1569	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1570	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1571	(compression == 32865) ifTrue:[
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1572	result := self readNeXTJPEGTiffImageData.
947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1573	ok := true
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1574	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1575	ok ifFalse:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1576	'TIFFReader [warning]: compression type ' errorPrint. compression errorPrint.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1577	' not known' errorPrintCR
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1578	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1579	^ result
192 947cc10f86dc commentary Claus Gittinger <cg@exept.de> parents: 159 diff changeset	1580
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1581	"Modified: 10.1.1997 / 18:08:54 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1582	! !
0 3f9277473954 Initial revision claus parents: diff changeset	1583
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1584	!TIFFReader methodsFor:'writing to file'!
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1585
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1586	save:image onFile:aFileName
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1587	"save image as (uncompressed) TIFF file on aFileName"
0 3f9277473954 Initial revision claus parents: diff changeset	1588
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1589	\|pos1 pos\|
0 3f9277473954 Initial revision claus parents: diff changeset	1590
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1591	outStream := FileStream newFileNamed:aFileName.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1592	outStream isNil ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1593	'TIFFReader [warning]: create error' errorPrintCR.
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1594	^ nil
0 3f9277473954 Initial revision claus parents: diff changeset	1595	].
3f9277473954 Initial revision claus parents: diff changeset	1596
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1597	"save as msb"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1598
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1599	byteOrder := #msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1600	"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1601	byteOrder := #lsb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1602	"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1603	fillOrder := #msb.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1604	width := image width.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1605	height := image height.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1606	photometric := image photometric.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1607	samplesPerPixel := image samplesPerPixel.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1608	bitsPerSample := image bitsPerSample.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1609	colorMap := image colorMap.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1610	planarConfiguration := 1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1611	compression := 1. "none"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1612	data := image bits.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1613
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1614	currentOffset := 0.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1615
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1616	(byteOrder == #msb) ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1617	outStream nextPut:$M. outStream nextPut:$M.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1618	] ifFalse:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1619	outStream nextPut:$I. outStream nextPut:$I.
0 3f9277473954 Initial revision claus parents: diff changeset	1620	].
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1621	currentOffset := currentOffset + 2.
0 3f9277473954 Initial revision claus parents: diff changeset	1622
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1623	outStream binary.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1624
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1625	self writeShort:42.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1626	currentOffset := currentOffset + 2.
0 3f9277473954 Initial revision claus parents: diff changeset	1627
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1628	pos1 := outStream position.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1629	self writeLong:0. "start of tags - filled in later"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1630	currentOffset := currentOffset + 4.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1631
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1632	"output strips"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1633
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1634	self writeUncompressedBits. "this outputs bits as strips, sets stripOffsets and stripByteCounts"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1635	self writeStripOffsets. "this outputs strip offsets, sets stripOffsetsPos"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1636	self writeStripByteCounts. "this outputs strip bytecounts, sets stripByteCountPos"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1637	self writeBitsPerSample. "this outputs bitsPerSample, sets bitsPerSamplePos"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1638	photometric == #palette ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1639	self writeColorMap "this outputs colorMap, sets colorMapPos"
0 3f9277473954 Initial revision claus parents: diff changeset	1640	].
3f9277473954 Initial revision claus parents: diff changeset	1641
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1642	pos := outStream position. "backpatch tag offset"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1643	outStream position:pos1.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1644	self writeLong:(pos - 1). "fill in tag offset"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1645	outStream position:pos.
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1646	"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1647	('patch tag offset at: ', (pos1 printStringRadix:16) , ' to ',
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1648	(pos printStringRadix:16)) printNewline.
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1649	"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1650	"output tag data"
0 3f9277473954 Initial revision claus parents: diff changeset	1651
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1652	photometric == #palette ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1653	self writeShort:11. "11 tags"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1654	] ifFalse:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1655	self writeShort:10. "10 tags"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1656	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1657	self writeTag:256. "image width"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1658	self writeTag:257. "image height"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1659	self writeTag:258. "bits per sample"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1660	self writeTag:259. "compression"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1661	self writeTag:262. "photometric"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1662	self writeTag:273. "strip offsets"
159 327da5085900 fixed saving of 24bit RGB images (forgot samplesPerPixel-TAG) Claus Gittinger <cg@exept.de> parents: 135 diff changeset	1663	self writeTag:277. "samplesPerPixel"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1664	self writeTag:278. "rowsPerStrip"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1665	self writeTag:279. "strip byte counts"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1666	self writeTag:284. "planarconfig"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1667	photometric == #palette ifTrue:[
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1668	self writeTag:320 "colorMap"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1669	].
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1670	self writeLong:0. "end of tags mark"
ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1671	outStream close
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1672
4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1673	"Modified: 10.1.1997 / 18:13:38 / cg"
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1674	! !
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	1675
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1676	!TIFFReader class methodsFor:'documentation'!
30 9638bc775850 * empty log message * claus parents: 28 diff changeset	1677
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1678	version
357 4bcb93f5892e newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 336 diff changeset	1679	^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.44 1997-01-10 17:32:24 cg Exp $'
0 3f9277473954 Initial revision claus parents: diff changeset	1680	! !
135 ff507d9a242b checkin from browser Claus Gittinger <cg@exept.de> parents: 117 diff changeset	1681	TIFFReader initialize!

author	Claus Gittinger <cg@exept.de>
	Fri, 10 Jan 1997 18:32:24 +0100
changeset 357	4bcb93f5892e
parent 336	9789b02d95bf
child 359	6fdd7d3119a8
permissions	-rw-r--r--