hg/stx-libview2: WindowsIconReader.st@ee7d84977c86 (annotated)

0 3f9277473954 Initial revision claus parents: diff changeset	1	"
3f9277473954 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
28 8daff0234d2e * empty log message * claus parents: 24 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:#WindowsIconReader
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	14	instanceVariableNames:''
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	15	classVariableNames:''
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	16	poolDictionaries:''
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	17	category:'Graphics-Images support'
0 3f9277473954 Initial revision claus parents: diff changeset	18	!
3f9277473954 Initial revision claus parents: diff changeset	19
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	20	!WindowsIconReader class methodsFor:'documentation'!
66b31c91177f * empty log message * claus parents: 18 diff changeset	21
66b31c91177f * empty log message * claus parents: 18 diff changeset	22	copyright
66b31c91177f * empty log message * claus parents: 18 diff changeset	23	"
66b31c91177f * empty log message * claus parents: 18 diff changeset	24	COPYRIGHT (c) 1993 by Claus Gittinger
28 8daff0234d2e * empty log message * claus parents: 24 diff changeset	25	All Rights Reserved
0 3f9277473954 Initial revision claus parents: diff changeset	26
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	27	This software is furnished under a license and may be used
66b31c91177f * empty log message * claus parents: 18 diff changeset	28	only in accordance with the terms of that license and with the
66b31c91177f * empty log message * claus parents: 18 diff changeset	29	inclusion of the above copyright notice. This software may not
66b31c91177f * empty log message * claus parents: 18 diff changeset	30	be provided or otherwise made available to, or used by, any
66b31c91177f * empty log message * claus parents: 18 diff changeset	31	other person. No title to or ownership of the software is
66b31c91177f * empty log message * claus parents: 18 diff changeset	32	hereby transferred.
66b31c91177f * empty log message * claus parents: 18 diff changeset	33	"
66b31c91177f * empty log message * claus parents: 18 diff changeset	34	!
0 3f9277473954 Initial revision claus parents: diff changeset	35
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	36	documentation
66b31c91177f * empty log message * claus parents: 18 diff changeset	37	"
32 6bdcb6da4d4f * empty log message * claus parents: 28 diff changeset	38	this class provides methods for loading Windows and OS2 icon files.
6bdcb6da4d4f * empty log message * claus parents: 28 diff changeset	39	Image writing is not supported.
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	40	"
66b31c91177f * empty log message * claus parents: 18 diff changeset	41	! !
0 3f9277473954 Initial revision claus parents: diff changeset	42
28 8daff0234d2e * empty log message * claus parents: 24 diff changeset	43	!WindowsIconReader class methodsFor:'initialization'!
8daff0234d2e * empty log message * claus parents: 24 diff changeset	44
8daff0234d2e * empty log message * claus parents: 24 diff changeset	45	initialize
8daff0234d2e * empty log message * claus parents: 24 diff changeset	46	Image fileFormats at:'.bmp' put:self.
8daff0234d2e * empty log message * claus parents: 24 diff changeset	47	Image fileFormats at:'.ico' put:self.
8daff0234d2e * empty log message * claus parents: 24 diff changeset	48	! !
8daff0234d2e * empty log message * claus parents: 24 diff changeset	49
102 b634afc009a4 . claus parents: 99 diff changeset	50	!WindowsIconReader class methodsFor:'testing'!
b634afc009a4 . claus parents: 99 diff changeset	51
b634afc009a4 . claus parents: 99 diff changeset	52	isValidImageFile:aFileName
b634afc009a4 . claus parents: 99 diff changeset	53	"return true, if aFileName contains a valid windows bitmap-file image"
b634afc009a4 . claus parents: 99 diff changeset	54
b634afc009a4 . claus parents: 99 diff changeset	55	\|inStream header ok\|
b634afc009a4 . claus parents: 99 diff changeset	56
b634afc009a4 . claus parents: 99 diff changeset	57	inStream := self streamReadingFile:aFileName.
b634afc009a4 . claus parents: 99 diff changeset	58	inStream isNil ifTrue:[^ false].
b634afc009a4 . claus parents: 99 diff changeset	59
b634afc009a4 . claus parents: 99 diff changeset	60	inStream binary.
104 aee902af74e0 . claus parents: 103 diff changeset	61	ok := false.
aee902af74e0 . claus parents: 103 diff changeset	62	inStream size > 16 ifTrue:[
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	63	header := ByteArray uninitializedNew:4.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	64	inStream nextBytes:4 into:header.
102 b634afc009a4 . claus parents: 99 diff changeset	65
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	66	(header startsWith:#(66 77)) ifTrue:[ "BM"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	67	ok := true.
104 aee902af74e0 . claus parents: 103 diff changeset	68	"/ 'WINREADER: Win3.x or OS/2 vsn 2 BM format' infoPrintNL.
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	69	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	70	(header startsWith:#(66 65)) ifTrue:[ "BA"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	71	ok := true.
104 aee902af74e0 . claus parents: 103 diff changeset	72	"/ 'WINREADER: OS/2 vsn 2 BA format' infoPrintNL.
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	73	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	74	(header startsWith:#(73 67)) ifTrue:[ "IC"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	75	ok := true.
104 aee902af74e0 . claus parents: 103 diff changeset	76	"/ 'WINREADER: OS/2 IC format' infoPrintNL.
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	77	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	78	(header startsWith:#(80 84)) ifTrue:[ "PT"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	79	ok := true.
104 aee902af74e0 . claus parents: 103 diff changeset	80	"/ 'WINREADER: OS/2 PT format' infoPrintNL.
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	81	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	82	(header startsWith:#(0 0 1 0)) ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	83	ok := true.
104 aee902af74e0 . claus parents: 103 diff changeset	84	"/ 'WINREADER: Win3.x ICO format' infoPrintNL.
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	85	].
102 b634afc009a4 . claus parents: 99 diff changeset	86	].
104 aee902af74e0 . claus parents: 103 diff changeset	87	inStream close.
aee902af74e0 . claus parents: 103 diff changeset	88	^ ok
102 b634afc009a4 . claus parents: 99 diff changeset	89
b634afc009a4 . claus parents: 99 diff changeset	90	"
b634afc009a4 . claus parents: 99 diff changeset	91	WindowsIconReader isValidImageFile:'/phys/clam2/LocalLibrary/Images/OS2_icons/dos.ico'
b634afc009a4 . claus parents: 99 diff changeset	92	"
b634afc009a4 . claus parents: 99 diff changeset	93
b634afc009a4 . claus parents: 99 diff changeset	94	"Created: 17.9.1995 / 17:14:20 / claus"
b634afc009a4 . claus parents: 99 diff changeset	95	! !
b634afc009a4 . claus parents: 99 diff changeset	96
103 8efb0016ad8c . claus parents: 102 diff changeset	97	!WindowsIconReader methodsFor:'private'!
8efb0016ad8c . claus parents: 102 diff changeset	98
8efb0016ad8c . claus parents: 102 diff changeset	99	loadBMPWidth:w height:h depth:d compression:c from:aStream into:data
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	100	\|buff idx1 idx2 bytesPerRow\|
ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	101
103 8efb0016ad8c . claus parents: 102 diff changeset	102	d == 8 ifTrue:[
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	103	(self class loadBMP8Width:w height:h compression:c from:aStream into:data) ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	104	'BMP: read/decompression failed' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	105	^ false
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	106	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	107	^ true
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	108	].
ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	109	d == 4 ifTrue:[
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	110	(self class loadBMP4to8Width:w height:h compression:c from:aStream into:data) ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	111	'BMP: read/decompression failed' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	112	^ false
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	113	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	114	^ true
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	115	].
ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	116	d == 2 ifTrue:[
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	117	(self class loadBMP2to8Width:w height:h from:aStream into:data) ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	118	'BMP: read failed' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	119	^ false
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	120	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	121	^ true
103 8efb0016ad8c . claus parents: 102 diff changeset	122	].
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	123	d == 1 ifTrue:[
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	124	(self class loadBMP1to8Width:w height:h from:aStream into:data) ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	125	'BMP: read failed' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	126	^ false
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	127	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	128	^ true
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	129	].
ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	130	d == 24 ifTrue:[
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	131	bytesPerRow := w * 3.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	132	((aStream nextBytes:(h * bytesPerRow) into:data) ~~ (h * bytesPerRow)) ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	133	'BMP: read failed' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	134	^ false
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	135	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	136	"/ stupid - last row comes first
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	137
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	138	buff := ByteArray uninitializedNew:bytesPerRow.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	139	idx1 := 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	140	idx2 := 1 + (h-1 * bytesPerRow).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	141	[idx1 < idx2] whileTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	142	buff replaceFrom:1 to:bytesPerRow with:data startingAt:idx1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	143	data replaceFrom:idx1 to:(idx1 + bytesPerRow - 1) with:data startingAt:idx2.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	144	data replaceFrom:idx2 to:(idx2 + bytesPerRow - 1) with:buff startingAt:1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	145	idx1 := idx1 + bytesPerRow.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	146	idx2 := idx2 - bytesPerRow.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	147	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	148	^ true
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	149	].
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	150	'BMP: unsupported depth:' infoPrint. d infoPrintNL.
103 8efb0016ad8c . claus parents: 102 diff changeset	151
8efb0016ad8c . claus parents: 102 diff changeset	152	"Created: 17.9.1995 / 18:48:11 / claus"
160 ee4d64b12c94 handle depth 24 rgb BMP files Claus Gittinger <cg@exept.de> parents: 114 diff changeset	153	"Modified: 4.2.1996 / 18:04:44 / cg"
103 8efb0016ad8c . claus parents: 102 diff changeset	154	! !
8efb0016ad8c . claus parents: 102 diff changeset	155
53 4f5e734bc59f * empty log message * claus parents: 41 diff changeset	156	!WindowsIconReader methodsFor:'reading from file'!
0 3f9277473954 Initial revision claus parents: diff changeset	157
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	158	fromOS2File: aFilename
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	159	\|reader stream\|
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	160
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	161	stream := self streamReadingFile:aFilename.
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	162	stream isNil ifTrue:[^ nil].
83 97fd04d167c8 . claus parents: 53 diff changeset	163	reader := (self new) fromOS2Stream:stream.
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	164	stream close.
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	165	reader notNil ifTrue:[^ reader image].
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	166	^ nil
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	167	!
0 3f9277473954 Initial revision claus parents: diff changeset	168
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	169	fromOS2Stream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	170	\| header inDepth
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	171	rawMap rMap gMap bMap srcIndex dstIndex inBytesPerRow
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	172	data4 mask tmp bytesPerRow nColors nByte\|
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	173
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	174	inStream := aStream.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	175	aStream binary.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	176
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	177	"read the header"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	178
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	179	header := ByteArray uninitializedNew:8r110.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	180	aStream nextBytes:16 into:header.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	181
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	182	(header startsWith:#(73 67)) ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	183	"IC format"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	184	aStream nextBytes:10 into:header startingAt:17.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	185	width := header at:7.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	186	height := header at:9.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	187	inDepth := 2 "header at:11". "where is it"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	188	] ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	189	aStream nextBytes:(8r110-16) into:header startingAt:17.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	190	width := header at:8r101.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	191	height := header at:8r103.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	192	inDepth := header at:8r107.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	193	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	194
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	195	"read the colormap"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	196
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	197	nColors := 1 bitShift:inDepth.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	198
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	199	rawMap := ByteArray uninitializedNew:(nColors*3).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	200	aStream nextBytes:(nColors*3) into:rawMap.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	201	rMap := Array new:nColors.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	202	gMap := Array new:nColors.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	203	bMap := Array new:nColors.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	204	srcIndex := 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	205	1 to:nColors do:[:i \|
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	206	bMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	207	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	208	gMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	209	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	210	rMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	211	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	212	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	213
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	214	"read mask"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	215
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	216	nByte := width * height + 7 // 8.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	217	mask := ByteArray uninitializedNew:nByte.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	218	aStream nextBytes:nByte into:mask.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	219
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	220	"what is this"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	221
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	222	aStream nextBytes:nByte into:mask.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	223
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	224	"/ "read the data bits"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	225	"/
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	226	"/ bytesPerRow := width * inDepth + 7 // 8.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	227	"/ data4 := ByteArray uninitializedNew:(height * bytesPerRow).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	228	"/ inDepth == 8 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	229	"/ ].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	230	"/ aStream nextBytes:(height * bytesPerRow) into:data4.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	231	"/
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	232	"/ "stupid: last row first"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	233	"/
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	234	"/ tmp := ByteArray new:(height * bytesPerRow).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	235	"/ srcIndex := 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	236	"/ dstIndex := (height - 1) * bytesPerRow + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	237	"/ 1 to:height do:[:row \|
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	238	"/ tmp replaceFrom:dstIndex to:(dstIndex + bytesPerRow - 1)
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	239	"/ with:data4 startingAt:srcIndex.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	240	"/ srcIndex := srcIndex + bytesPerRow.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	241	"/ dstIndex := dstIndex - bytesPerRow.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	242	"/ ].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	243	"/ data4 := tmp.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	244	"/
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	245	"/ "expand into bytes"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	246	"/
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	247	"/ data := ByteArray new:(width * height).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	248	"/ data4 expandPixels:inDepth width:width height:height
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	249	"/ into:data mapping:nil.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	250	"/
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	251
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	252	bytesPerRow := width * inDepth + 7 // 8.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	253	"/ bmp data is always 32bit aligned; if required,
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	254	inBytesPerRow := ((bytesPerRow + 3) // 4) * 4.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	255
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	256	data := ByteArray uninitializedNew:(height * width "bytesPerRow").
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	257	(self loadBMPWidth:width height:height depth:inDepth compression:0 from:aStream into:data) ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	258	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	259	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	260	photometric := #palette.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	261	samplesPerPixel := 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	262	bitsPerSample := #(8).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	263	colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	264
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	265	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	266	\|i f\|
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	267	i := Image fromFile:'/LocalLibrary/Images/OS2/dos3.ico'.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	268	f := i asFormOn:Display.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	269	v displayOpaqueForm:(f magnifyBy:2@2) x:5 y:5
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	270	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	271
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	272	"Modified: 17.9.1995 / 18:49:24 / claus"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	273	!
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	274
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	275	fromStream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	276	\| fileSize header \|
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	277
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	278	inStream := aStream.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	279
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	280	aStream binary.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	281	fileSize := aStream size.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	282
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	283	fileSize < 16 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	284	'WINREADER: short file' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	285	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	286	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	287
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	288	header := ByteArray uninitializedNew:4.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	289	aStream nextBytes:4 into:header.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	290
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	291	(header startsWith:#(66 77)) ifTrue:[ "BM"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	292	aStream position:1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	293	'WINREADER: Win3.x or OS/2 vsn 2 BM format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	294	^ self fromWindowsBMPStream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	295	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	296	(header startsWith:#(66 65)) ifTrue:[ "BA"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	297	aStream position:1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	298	'WINREADER: OS/2 vsn 2 BA format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	299	^ self fromOS2Stream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	300	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	301	(header startsWith:#(73 67)) ifTrue:[ "IC"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	302	aStream position:1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	303	'WINREADER: OS/2 IC format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	304	^ self fromOS2Stream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	305	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	306	(header startsWith:#(80 84)) ifTrue:[ "PT"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	307	aStream position:1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	308	'WINREADER: OS/2 PT format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	309	^ self fromOS2Stream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	310	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	311	(header startsWith:#(16r53 16r5A)) ifTrue:[ "SZ"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	312	'WINREADER: SZ format not supported:' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	313	^ nil.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	314	aStream position:1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	315	'WINREADER: OS/2 PT format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	316	^ self fromOS2Stream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	317	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	318	(header startsWith:#(0 0 1 0)) ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	319	aStream position:1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	320	'WINREADER: Win3.x ICO format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	321	^ self fromWindowsICOStream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	322	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	323	'WINREADER: format not supported:' infoPrint.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	324	((header at:1) printStringRadix:16) infoPrint.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	325	' ' infoPrint.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	326	((header at:2) printStringRadix:16) infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	327	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	328
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	329	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	330	Image fromFile:'/phys/clam//LocalLibrary/Images/OS2_icons/dos.ico'
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	331	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	332
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	333	"Modified: 17.9.1995 / 18:59:07 / claus"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	334	!
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	335
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	336	fromWindowsBMPFile: aFilename
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	337	\|reader stream\|
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	338
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	339	stream := self class streamReadingFile:aFilename.
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	340	stream isNil ifTrue:[^ nil].
83 97fd04d167c8 . claus parents: 53 diff changeset	341	reader := (self new) fromWindowsBMPStream:stream.
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	342	stream close.
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	343	reader notNil ifTrue:[^ reader image].
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	344	^ nil
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	345	!
66b31c91177f * empty log message * claus parents: 18 diff changeset	346
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	347	fromWindowsBMPStream:aStream
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	348	\| fileSize header inDepth inPlanes compression
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	349	imgSize resH resV numColor numImportantColor
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	350	dataStart
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	351	rawMap rMap gMap bMap srcIndex dstIndex inBytesPerRow
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	352	data4 mask tmp bytesPerRow fourBytesPerColorInfo\|
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	353
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	354	inStream := aStream.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	355	aStream binary.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	356
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	357	fileSize := aStream size.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	358	"read the header"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	359
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	360	header := ByteArray uninitializedNew:16r54.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	361	aStream nextBytes:18 into:header.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	362
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	363	((header at:(16r0E + 1)) == 40) ifTrue:[ "header-size"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	364	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	365	its an Windows3.x BMP file
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	366	or OS/2 vsn 2 BMP file
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	367	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	368	'BMP: Win3.x or OS/2 vsn 2 format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	369
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	370	aStream nextBytes:(40-4) into:header startingAt:19.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	371
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	372	width := header wordAt:(16r12 + 1) MSB:false. "(header at:19) + ((header at:20) * 256). "
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	373	height := header wordAt:(16r16 + 1) MSB:false. "(header at:23) + ((header at:24) * 256). "
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	374	inPlanes := header wordAt:(16r1A + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	375	inDepth := header wordAt:(16r1C + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	376	compression := header wordAt:(16r1E + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	377	imgSize := header doubleWordAt:(16r22 + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	378	resH := header doubleWordAt:(16r26 + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	379	resV := header doubleWordAt:(16r2A + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	380	numColor := header doubleWordAt:(16r2E + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	381	numImportantColor := header doubleWordAt:(16r32 + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	382
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	383	numColor == 0 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	384	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	385	some bmp-writers seem to leave this as zero (which is wrong)
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	386	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	387	inDepth <= 8 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	388	numColor := 1 bitShift:inDepth.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	389	'BMP: missing nColor in header - assume ' infoPrint. numColor infoPrintNL
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	390	]
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	391	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	392
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	393	numColor ~~ 0 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	394	rawMap := ByteArray uninitializedNew:(numColor * 4).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	395	aStream nextBytes:(numColor * 4) into:rawMap.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	396	fourBytesPerColorInfo := true.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	397	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	398	dataStart := header wordAt:(16r0A + 1) MSB:false
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	399	] ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	400	((header at:(16r0E + 1)) == 12) ifTrue:[ "core-info header size"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	401	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	402	its an OS/2 (vsn1.2) BMP file
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	403	"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	404	'BMP: OS/2 vsn 1.2 format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	405	aStream nextBytes:(12-4) into:header startingAt:19.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	406
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	407	width := header wordAt:(16r12 + 1) MSB:false. "(header at:19) + ((header at:20) * 256). "
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	408	height := header wordAt:(16r14 + 1) MSB:false. "(header at:21) + ((header at:22) * 256). "
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	409	inPlanes := header wordAt:(16r16 + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	410	inDepth := header wordAt:(16r18 + 1) MSB:false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	411	numColor := 1 bitShift:inDepth.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	412	rawMap := ByteArray uninitializedNew:(numColor * 3).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	413	aStream nextBytes:(numColor * 3) into:rawMap.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	414	fourBytesPerColorInfo := false.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	415	compression := 0.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	416	dataStart := header wordAt:(16r0A + 1) MSB:false
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	417	] ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	418	'BMP: unknown format' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	419	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	420	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	421	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	422
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	423	numColor ~~ 0 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	424	"read the colormap"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	425
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	426	rMap := Array new:numColor.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	427	gMap := Array new:numColor.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	428	bMap := Array new:numColor.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	429	srcIndex := 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	430	1 to:numColor do:[:i \|
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	431	bMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	432	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	433	gMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	434	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	435	rMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	436	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	437	fourBytesPerColorInfo ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	438	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	439	]
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	440	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	441	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	442
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	443	"/ check for valid compression
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	444
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	445	compression ~~ 0 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	446	"/ some compression
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	447	compression == 1 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	448	"/ RLE8 - must be depth-8
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	449	inDepth ~~ 8 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	450	'BMP: RLE8 compression only allowed with depth8 images' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	451	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	452	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	453	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	454	compression == 2 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	455	"/ RLE4 - must be depth-4
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	456	inDepth ~~ 4 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	457	'BMP: RLE4 compression only allowed with depth4 images' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	458	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	459	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	460	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	461	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	462
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	463	inPlanes ~~ 1 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	464	'BMP: only 1 plane images supported' infoPrintNL.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	465	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	466	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	467
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	468	aStream position:(dataStart + 1).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	469
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	470	inDepth == 24 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	471	bytesPerRow := width * 3
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	472	] ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	473	bytesPerRow := width
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	474	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	475	data := ByteArray uninitializedNew:(height * bytesPerRow).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	476
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	477	"/ read & possibly decompress
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	478
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	479	(self loadBMPWidth:width height:height depth:inDepth compression:compression from:aStream into:data) ifFalse:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	480	^ nil
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	481	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	482
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	483	inDepth == 24 ifTrue:[
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	484	photometric := #rgb.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	485	samplesPerPixel := 3.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	486	bitsPerSample := #(8 8 8).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	487	^ self
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	488	].
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	489
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	490	photometric := #palette.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	491	samplesPerPixel := 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	492	bitsPerSample := #(8).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	493	colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	494
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	495	"Modified: 17.9.1995 / 18:48:46 / claus"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	496	"Modified: 4.2.1996 / 17:57:50 / cg"
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	497	!
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	498
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	499	fromWindowsICOFile: aFilename
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	500	\|reader stream\|
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	501
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	502	stream := self class streamReadingFile:aFilename.
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	503	stream isNil ifTrue:[^ nil].
83 97fd04d167c8 . claus parents: 53 diff changeset	504	reader := (self new) fromWindowsICOStream:stream.
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	505	stream close.
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	506	reader notNil ifTrue:[^ reader image].
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	507	^ nil
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	508
66b31c91177f * empty log message * claus parents: 18 diff changeset	509	"
66b31c91177f * empty log message * claus parents: 18 diff changeset	510	Image fromFile:'/phys/clam2//LocalLibrary/Images/WIN_icons/ibm.ico'.
66b31c91177f * empty log message * claus parents: 18 diff changeset	511	"
66b31c91177f * empty log message * claus parents: 18 diff changeset	512	!
66b31c91177f * empty log message * claus parents: 18 diff changeset	513
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	514	fromWindowsICOStream:aStream
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	515	\| header inDepth
66b31c91177f * empty log message * claus parents: 18 diff changeset	516	rawMap rMap gMap bMap srcIndex dstIndex
66b31c91177f * empty log message * claus parents: 18 diff changeset	517	data4 mask tmp bytesPerRow nColor\|
0 3f9277473954 Initial revision claus parents: diff changeset	518
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	519	inStream := aStream.
66edc847b9c8 * empty log message * claus parents: 36 diff changeset	520	aStream binary.
0 3f9277473954 Initial revision claus parents: diff changeset	521
3f9277473954 Initial revision claus parents: diff changeset	522	"read the header"
3f9277473954 Initial revision claus parents: diff changeset	523
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	524	header := ByteArray uninitializedNew:(6 + 16 + 40).
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	525	aStream nextBytes:(6 + 16 + 40) into:header.
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	526	width := header at:(6+1).
66b31c91177f * empty log message * claus parents: 18 diff changeset	527	height := header at:(7+1).
66b31c91177f * empty log message * claus parents: 18 diff changeset	528	nColor := header at:(8+1).
66b31c91177f * empty log message * claus parents: 18 diff changeset	529	"10, 11, 12, 13, 14 ? (reserve)"
66b31c91177f * empty log message * claus parents: 18 diff changeset	530	"15, 16, 17, 18 pixel array size"
66b31c91177f * empty log message * claus parents: 18 diff changeset	531	"19, 20, 21, 22 offset "
66b31c91177f * empty log message * claus parents: 18 diff changeset	532	"23, ... , 62 ?"
66b31c91177f * empty log message * claus parents: 18 diff changeset	533
0 3f9277473954 Initial revision claus parents: diff changeset	534	inDepth := header at:16r25.
3f9277473954 Initial revision claus parents: diff changeset	535
3f9277473954 Initial revision claus parents: diff changeset	536	"read the colormap"
3f9277473954 Initial revision claus parents: diff changeset	537
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	538	rawMap := ByteArray uninitializedNew:(16*4).
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	539	aStream nextBytes:(16*4) into:rawMap.
0 3f9277473954 Initial revision claus parents: diff changeset	540	rMap := Array new:16.
3f9277473954 Initial revision claus parents: diff changeset	541	gMap := Array new:16.
3f9277473954 Initial revision claus parents: diff changeset	542	bMap := Array new:16.
3f9277473954 Initial revision claus parents: diff changeset	543	srcIndex := 1.
3f9277473954 Initial revision claus parents: diff changeset	544	1 to:16 do:[:i \|
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	545	bMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	546	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	547	gMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	548	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	549	rMap at:i put:(rawMap at:srcIndex).
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	550	srcIndex := srcIndex + 1.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	551	srcIndex := srcIndex + 1.
0 3f9277473954 Initial revision claus parents: diff changeset	552	].
3f9277473954 Initial revision claus parents: diff changeset	553
3f9277473954 Initial revision claus parents: diff changeset	554	"read the data bits"
3f9277473954 Initial revision claus parents: diff changeset	555
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	556	bytesPerRow := width * inDepth + 7 // 8.
78aaa5408119 * empty log message * claus parents: 0 diff changeset	557	data4 := ByteArray uninitializedNew:(height * bytesPerRow).
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	558	aStream nextBytes:(height * bytesPerRow) into:data4.
0 3f9277473954 Initial revision claus parents: diff changeset	559
3f9277473954 Initial revision claus parents: diff changeset	560	"read mask"
3f9277473954 Initial revision claus parents: diff changeset	561
3f9277473954 Initial revision claus parents: diff changeset	562	"
3f9277473954 Initial revision claus parents: diff changeset	563	mask := ByteArray new:(width * height / 8).
41 66edc847b9c8 * empty log message * claus parents: 36 diff changeset	564	aStream nextBytes:(width * height / 8) into:mask.
0 3f9277473954 Initial revision claus parents: diff changeset	565	"
3f9277473954 Initial revision claus parents: diff changeset	566
3f9277473954 Initial revision claus parents: diff changeset	567	"stupid: last row first"
3f9277473954 Initial revision claus parents: diff changeset	568
3 78aaa5408119 * empty log message * claus parents: 0 diff changeset	569	tmp := ByteArray uninitializedNew:(height * bytesPerRow).
0 3f9277473954 Initial revision claus parents: diff changeset	570	srcIndex := 1.
3f9277473954 Initial revision claus parents: diff changeset	571	dstIndex := (height - 1) * bytesPerRow + 1.
3f9277473954 Initial revision claus parents: diff changeset	572	1 to:height do:[:row \|
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	573	tmp replaceFrom:dstIndex to:(dstIndex + bytesPerRow - 1)
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	574	with:data4 startingAt:srcIndex.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	575	srcIndex := srcIndex + bytesPerRow.
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	576	dstIndex := dstIndex - bytesPerRow.
0 3f9277473954 Initial revision claus parents: diff changeset	577	].
3f9277473954 Initial revision claus parents: diff changeset	578	data4 := tmp.
3f9277473954 Initial revision claus parents: diff changeset	579
3f9277473954 Initial revision claus parents: diff changeset	580	"expand into bytes"
3f9277473954 Initial revision claus parents: diff changeset	581
3f9277473954 Initial revision claus parents: diff changeset	582	data := ByteArray new:(width * height).
3f9277473954 Initial revision claus parents: diff changeset	583	data4 expandPixels:inDepth width:width height:height
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	584	into:data mapping:nil.
0 3f9277473954 Initial revision claus parents: diff changeset	585
3f9277473954 Initial revision claus parents: diff changeset	586	photometric := #palette.
3f9277473954 Initial revision claus parents: diff changeset	587	samplesPerPixel := 1.
3f9277473954 Initial revision claus parents: diff changeset	588	bitsPerSample := #(8).
36 3a7ec58dff8e * empty log message * claus parents: 32 diff changeset	589	colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
0 3f9277473954 Initial revision claus parents: diff changeset	590
3f9277473954 Initial revision claus parents: diff changeset	591	"
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	592	WindowsIconReader new fromWindowsICOFile:'/phys/clam2//LocalLibrary/Images/WIN_icons/ibm.ico'.
0 3f9277473954 Initial revision claus parents: diff changeset	593	"
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	594	! !
21 66b31c91177f * empty log message * claus parents: 18 diff changeset	595
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	596	!WindowsIconReader class methodsFor:'documentation'!
0 3f9277473954 Initial revision claus parents: diff changeset	597
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	598	version
ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	599	^ '$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.22 1996-03-07 18:28:20 cg Exp $'
0 3f9277473954 Initial revision claus parents: diff changeset	600	! !
172 ee7d84977c86 use inforPrint instead of errorPrint (these are not fatal errors) Claus Gittinger <cg@exept.de> parents: 161 diff changeset	601	WindowsIconReader initialize!

author	Claus Gittinger <cg@exept.de>
	Thu, 07 Mar 1996 19:28:20 +0100
changeset 172	ee7d84977c86
parent 161	c47f1fd6cf5b
child 211	3eb140e89e2e
permissions	-rw-r--r--