hg/stx-libview: Depth4Image.st@e482fe94eec6 (annotated)

4 bbc7a0767f1e .. claus parents: 1 diff changeset	1	"
bbc7a0767f1e .. claus parents: 1 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
81 4ba554473294 * empty log message * claus parents: 54 diff changeset	3	All Rights Reserved
4 bbc7a0767f1e .. claus parents: 1 diff changeset	4
bbc7a0767f1e .. claus parents: 1 diff changeset	5	This software is furnished under a license and may be used
bbc7a0767f1e .. claus parents: 1 diff changeset	6	only in accordance with the terms of that license and with the
bbc7a0767f1e .. claus parents: 1 diff changeset	7	inclusion of the above copyright notice. This software may not
bbc7a0767f1e .. claus parents: 1 diff changeset	8	be provided or otherwise made available to, or used by, any
bbc7a0767f1e .. claus parents: 1 diff changeset	9	other person. No title to or ownership of the software is
bbc7a0767f1e .. claus parents: 1 diff changeset	10	hereby transferred.
bbc7a0767f1e .. claus parents: 1 diff changeset	11	"
3263 bd92a12c9316 category changes Claus Gittinger <cg@exept.de> parents: 2864 diff changeset	12	"{ Package: 'stx:libview' }"
bd92a12c9316 category changes Claus Gittinger <cg@exept.de> parents: 2864 diff changeset	13
6827 68d52c024d4d class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6298 diff changeset	14	"{ NameSpace: Smalltalk }"
68d52c024d4d class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6298 diff changeset	15
1 304f026e10cd Initial revision claus parents: diff changeset	16	Image subclass:#Depth4Image
579 e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	17	instanceVariableNames:''
e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	18	classVariableNames:''
e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	19	poolDictionaries:''
e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	20	category:'Graphics-Images'
1 304f026e10cd Initial revision claus parents: diff changeset	21	!
304f026e10cd Initial revision claus parents: diff changeset	22
46 7b331e9012fd * empty log message * claus parents: 35 diff changeset	23	!Depth4Image class methodsFor:'documentation'!
7b331e9012fd * empty log message * claus parents: 35 diff changeset	24
7b331e9012fd * empty log message * claus parents: 35 diff changeset	25	copyright
7b331e9012fd * empty log message * claus parents: 35 diff changeset	26	"
7b331e9012fd * empty log message * claus parents: 35 diff changeset	27	COPYRIGHT (c) 1993 by Claus Gittinger
81 4ba554473294 * empty log message * claus parents: 54 diff changeset	28	All Rights Reserved
4 bbc7a0767f1e .. claus parents: 1 diff changeset	29
46 7b331e9012fd * empty log message * claus parents: 35 diff changeset	30	This software is furnished under a license and may be used
7b331e9012fd * empty log message * claus parents: 35 diff changeset	31	only in accordance with the terms of that license and with the
7b331e9012fd * empty log message * claus parents: 35 diff changeset	32	inclusion of the above copyright notice. This software may not
7b331e9012fd * empty log message * claus parents: 35 diff changeset	33	be provided or otherwise made available to, or used by, any
7b331e9012fd * empty log message * claus parents: 35 diff changeset	34	other person. No title to or ownership of the software is
7b331e9012fd * empty log message * claus parents: 35 diff changeset	35	hereby transferred.
7b331e9012fd * empty log message * claus parents: 35 diff changeset	36	"
7b331e9012fd * empty log message * claus parents: 35 diff changeset	37	!
4 bbc7a0767f1e .. claus parents: 1 diff changeset	38
46 7b331e9012fd * empty log message * claus parents: 35 diff changeset	39	documentation
7b331e9012fd * empty log message * claus parents: 35 diff changeset	40	"
7b331e9012fd * empty log message * claus parents: 35 diff changeset	41	this class represents 16-color (4 bit / pixel) images.
7b331e9012fd * empty log message * claus parents: 35 diff changeset	42	Most images coming from the windows world are represented as Depth4Images.
7b331e9012fd * empty log message * claus parents: 35 diff changeset	43	It mainly consists of methods already implemented in Image,
7b331e9012fd * empty log message * claus parents: 35 diff changeset	44	reimplemented here for more performance.
7189 4cfe895d6532 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	45	Pixels for even x coordinates are stored in the left (high) nibble.
4cfe895d6532 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	46	Odd x pixels are in the right (low) nibble.
4cfe895d6532 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	47
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 579 diff changeset	48	[author:]
7189 4cfe895d6532 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	49	Claus Gittinger
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 579 diff changeset	50
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 579 diff changeset	51	[see also:]
7189 4cfe895d6532 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	52	Depth1Image Depth2Image Depth8Image Depth16Image Depth24Image
4cfe895d6532 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	53	ImageReader
46 7b331e9012fd * empty log message * claus parents: 35 diff changeset	54	"
7b331e9012fd * empty log message * claus parents: 35 diff changeset	55	! !
4 bbc7a0767f1e .. claus parents: 1 diff changeset	56
89 ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	57	!Depth4Image class methodsFor:'queries'!
ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	58
4758 019b6bf532b0 defaultPhotometric Claus Gittinger <cg@exept.de> parents: 4405 diff changeset	59	defaultPhotometric
019b6bf532b0 defaultPhotometric Claus Gittinger <cg@exept.de> parents: 4405 diff changeset	60	"return the default photometric pixel interpretation"
019b6bf532b0 defaultPhotometric Claus Gittinger <cg@exept.de> parents: 4405 diff changeset	61
6827 68d52c024d4d class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6298 diff changeset	62	^ #blackIs0 "/ #palette
4758 019b6bf532b0 defaultPhotometric Claus Gittinger <cg@exept.de> parents: 4405 diff changeset	63
019b6bf532b0 defaultPhotometric Claus Gittinger <cg@exept.de> parents: 4405 diff changeset	64	"Created: / 27-05-2007 / 14:04:27 / cg"
019b6bf532b0 defaultPhotometric Claus Gittinger <cg@exept.de> parents: 4405 diff changeset	65	!
019b6bf532b0 defaultPhotometric Claus Gittinger <cg@exept.de> parents: 4405 diff changeset	66
89 ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	67	imageDepth
579 e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	68	"return the depth of images represented by instances of
e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	69	this class - here we return 4"
e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	70
89 ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	71	^ 4
579 e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	72
e381761190c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 280 diff changeset	73	"Modified: 20.4.1996 / 23:40:18 / cg"
89 ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	74	! !
ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	75
3263 bd92a12c9316 category changes Claus Gittinger <cg@exept.de> parents: 2864 diff changeset	76	!Depth4Image methodsFor:'accessing-pixels'!
1 304f026e10cd Initial revision claus parents: diff changeset	77
1656 ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	78	pixelAtX:x y:y
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	79	"retrieve a pixel at x/y; return a pixelValue.
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	80	Pixels start at x=0 , y=0 for upper left pixel, end at
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	81	x = width-1, y=height-1 for lower right pixel"
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	82
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	83	\|lineIndex "{ Class: SmallInteger }"
4904 653051844382 * empty log message * Claus Gittinger <cg@exept.de> parents: 4766 diff changeset	84	byteIndex "{ Class: SmallInteger }"
1656 ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	85	byte "{ Class: SmallInteger }" \|
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	86
6298 c2980b510cf1 pixelfunction support Claus Gittinger <cg@exept.de> parents: 6066 diff changeset	87	pixelFunction notNil ifTrue:[^ pixelFunction value:x value:y].
c2980b510cf1 pixelfunction support Claus Gittinger <cg@exept.de> parents: 6066 diff changeset	88
1656 ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	89	lineIndex := (self bytesPerRow * y) + 1.
4904 653051844382 * empty log message * Claus Gittinger <cg@exept.de> parents: 4766 diff changeset	90	byteIndex := lineIndex + (x // 2).
1656 ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	91
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	92	"left pixel in high bits"
4904 653051844382 * empty log message * Claus Gittinger <cg@exept.de> parents: 4766 diff changeset	93	byteIndex > bytes size ifTrue:[
6298 c2980b510cf1 pixelfunction support Claus Gittinger <cg@exept.de> parents: 6066 diff changeset	94	^ 0
4904 653051844382 * empty log message * Claus Gittinger <cg@exept.de> parents: 4766 diff changeset	95	].
653051844382 * empty log message * Claus Gittinger <cg@exept.de> parents: 4766 diff changeset	96	byte := bytes at:byteIndex.
1656 ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	97	x even ifTrue:[
6298 c2980b510cf1 pixelfunction support Claus Gittinger <cg@exept.de> parents: 6066 diff changeset	98	^ (byte bitShift:-4) bitAnd:16rF.
1656 ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	99	].
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	100	^ byte bitAnd:16rF.
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	101
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	102	"Created: 24.4.1997 / 16:06:43 / cg"
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	103	!
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	104
ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	105	pixelAtX:x y:y put:aPixelValue
1 304f026e10cd Initial revision claus parents: diff changeset	106	"set the pixel at x/y to aPixelValue.
304f026e10cd Initial revision claus parents: diff changeset	107	Pixels start at x=0 , y=0 for upper left pixel, end at
304f026e10cd Initial revision claus parents: diff changeset	108	x = width-1, y=height-1 for lower right pixel"
304f026e10cd Initial revision claus parents: diff changeset	109
46 7b331e9012fd * empty log message * claus parents: 35 diff changeset	110	\|lineIndex "{ Class: SmallInteger }"
7b331e9012fd * empty log message * claus parents: 35 diff changeset	111	index "{ Class: SmallInteger }"
7b331e9012fd * empty log message * claus parents: 35 diff changeset	112	byte "{ Class: SmallInteger }" \|
1 304f026e10cd Initial revision claus parents: diff changeset	113
304f026e10cd Initial revision claus parents: diff changeset	114	lineIndex := (self bytesPerRow * y) + 1.
304f026e10cd Initial revision claus parents: diff changeset	115
304f026e10cd Initial revision claus parents: diff changeset	116	"left pixel is in high bits"
304f026e10cd Initial revision claus parents: diff changeset	117	index := lineIndex + (x // 2).
304f026e10cd Initial revision claus parents: diff changeset	118	byte := bytes at:index.
304f026e10cd Initial revision claus parents: diff changeset	119	x even ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	120	byte := (byte bitAnd:16rF) bitOr:(aPixelValue bitShift:4)
1 304f026e10cd Initial revision claus parents: diff changeset	121	] ifFalse:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	122	byte := (byte bitAnd:16rF0) bitOr:aPixelValue
1 304f026e10cd Initial revision claus parents: diff changeset	123	].
304f026e10cd Initial revision claus parents: diff changeset	124	bytes at:index put:byte
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	125
1656 ebcad6911ddb pixel accessing methods cleaned up Claus Gittinger <cg@exept.de> parents: 810 diff changeset	126	"Created: 24.4.1997 / 17:06:39 / cg"
1816 88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	127	!
88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	128
3872 390fabbc3036 comments and slight cleanup Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	129	rowAt:y into:aPixelBuffer
1816 88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	130	"fill aBuffer with pixel values retrieved from a single row.
3872 390fabbc3036 comments and slight cleanup Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	131	Notice: row coordinate starts with 0."
1816 88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	132
88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	133	\|lineIndex "{ Class: SmallInteger }"
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	134	byte "{ Class: SmallInteger }"
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	135	w "{ Class: SmallInteger }"
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	136	pixel dstIdx bytes\|
1816 88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	137
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	138	bytes := self bits.
1816 88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	139	dstIdx := 1.
88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	140	w := width - 1.
3872 390fabbc3036 comments and slight cleanup Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	141	lineIndex := (self bytesPerRow * y).
1816 88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	142	0 to:w do:[:x \|
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	143	x even ifTrue:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	144	lineIndex := lineIndex + 1.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	145	byte := bytes at:lineIndex.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	146	pixel := (byte bitShift:-4) bitAnd:16rF.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	147	] ifFalse:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	148	pixel := byte bitAnd:16rF.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	149	].
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	150	aPixelBuffer at:dstIdx put:pixel.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	151	dstIdx := dstIdx + 1
1816 88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	152	].
88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	153
88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	154	"Created: 21.7.1997 / 18:04:00 / cg"
88716b7cc777 tuned row access Claus Gittinger <cg@exept.de> parents: 1812 diff changeset	155	"Modified: 21.7.1997 / 18:05:47 / cg"
81 4ba554473294 * empty log message * claus parents: 54 diff changeset	156	! !
4ba554473294 * empty log message * claus parents: 54 diff changeset	157
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	158	!Depth4Image methodsFor:'converting images'!
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	159
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	160	anyImageAsTrueColorFormOn:aDevice
2197 1b88e629091d avoid a byte fetch in colorsAtY:from:to:do: Claus Gittinger <cg@exept.de> parents: 2186 diff changeset	161	"return a true-color device-form for receiver.
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	162	Supports true color devices with depths: 8, 16, 24 and 32"
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	163
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	164	\|depth
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	165	colorValues
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	166	form imageBits bestFormat usedDeviceDepth usedDeviceBitsPerPixel
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	167	usedDevicePadding usedDeviceBytesPerRow padd\|
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	168
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	169	depth := aDevice depth.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	170
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	171	"/ gather r/g/b values for all colors in the map ...
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	172
2203 49d06f1c9fe2 use common colorMap helper when converting to rgb-device form Claus Gittinger <cg@exept.de> parents: 2197 diff changeset	173	colorValues := self rgbColormapFor:aDevice.
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	174
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	175	bestFormat := self bestSupportedImageFormatFor:aDevice.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	176	usedDeviceDepth := bestFormat at:#depth.
2864 dd151bfdff9d care for deep devices which do not support deep bitmaps Claus Gittinger <cg@exept.de> parents: 2523 diff changeset	177	usedDeviceDepth == 1 ifTrue:[
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	178	^ self asMonochromeFormOn:aDevice
2864 dd151bfdff9d care for deep devices which do not support deep bitmaps Claus Gittinger <cg@exept.de> parents: 2523 diff changeset	179	].
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	180	usedDeviceBitsPerPixel := bestFormat at:#bitsPerPixel.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	181	usedDevicePadding := bestFormat at:#padding.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	182
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	183	usedDeviceBytesPerRow := self class bytesPerRowForWidth:width depth:usedDeviceBitsPerPixel padding:usedDevicePadding.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	184	padd := usedDeviceBytesPerRow -( self class bytesPerRowForWidth:width depth:usedDeviceBitsPerPixel padding:8).
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	185	imageBits := ByteArray uninitializedNew:(usedDeviceBytesPerRow * height).
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	186
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	187	"/ for now, only support some depths
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	188
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	189	usedDeviceBitsPerPixel == 16 ifTrue:[
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	190	"/ 16 bits/pixel
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	191
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	192	"/ now, walk over the image and replace
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	193	"/ colorMap indices by color values in the bits array
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	194
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	195	%{
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	196	unsigned char *srcPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	197	unsigned char *dstPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	198	OBJ _bytes = __INST(bytes);
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	199
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	200	if (__isByteArrayLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	201	srcPtr = __ByteArrayInstPtr(_bytes)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	202	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	203	if (__isExternalBytesLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	204	srcPtr = __externalBytesAddress(_bytes);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	205	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	206	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	207	if (__isByteArray(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	208	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	209	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	210	if (__isExternalBytesLike(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	211	dstPtr = __externalBytesAddress(imageBits);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	212	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	213	}
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	214
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	215	if (__bothSmallInteger(__INST(height), __INST(width))
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	216	&& __isArrayLike(colorValues)
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	217	&& srcPtr
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	218	&& dstPtr) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	219	int r,p;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	220	int x, y, w, h, nPix;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	221	int byte;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	222
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	223	OBJ *ap = __ArrayInstPtr(colorValues)->a_element;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	224
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	225	w = __intVal(__INST(width));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	226	h = __intVal(__INST(height));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	227	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	228	p = __intVal(padd);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	229	nPix = w * h;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	230	while (nPix-- > 0) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	231	unsigned idx, v;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	232	OBJ clr;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	233
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	234	if (r & 1) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	235	idx = byte & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	236	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	237	byte = *srcPtr++;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	238	idx = (byte>>4) & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	239	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	240	clr = ap[idx];
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	241	v = __intVal(clr);
2401 025c115d121a mips (MSBFIRST) fixes Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	242	#ifdef __MSBFIRST
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	243	((short *)dstPtr)[0] = v;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	244	#else
2225 8fb244eaaf90 the SWAP_BYTES macro does not work yet. Claus Gittinger <cg@exept.de> parents: 2215 diff changeset	245	# ifdef xxSWAP_BYTES
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	246	SWAP_BYTES(v);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	247	((short *)dstPtr)[0] = v;
2215 f7183f306690 fixed conversion to 24 & 32 displays Claus Gittinger <cg@exept.de> parents: 2203 diff changeset	248	# else
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	249	dstPtr[0] = (v>>8) & 0xFF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	250	dstPtr[1] = (v) & 0xFF;
2215 f7183f306690 fixed conversion to 24 & 32 displays Claus Gittinger <cg@exept.de> parents: 2203 diff changeset	251	# endif
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	252	#endif
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	253	dstPtr += 2;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	254
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	255	if (++r == w) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	256	dstPtr += p;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	257	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	258	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	259	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	260	}
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	261	%}.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	262	] ifFalse:[
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	263	usedDeviceBitsPerPixel == 32 ifTrue:[
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	264	"/ 32 bits/pixel
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	265
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	266	"/ now, walk over the image and replace
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	267	"/ colorMap indices by color values in the bits array
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	268
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	269	%{
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	270	unsigned char *srcPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	271	unsigned char *dstPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	272	OBJ _bytes = __INST(bytes);
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	273
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	274	if (__isByteArrayLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	275	srcPtr = __ByteArrayInstPtr(_bytes)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	276	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	277	if (__isExternalBytesLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	278	srcPtr = __externalBytesAddress(_bytes);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	279	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	280	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	281	if (__isByteArray(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	282	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	283	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	284	if (__isExternalBytesLike(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	285	dstPtr = __externalBytesAddress(imageBits);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	286	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	287	}
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	288
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	289	if (__bothSmallInteger(__INST(height), __INST(width))
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	290	&& __isArrayLike(colorValues)
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	291	&& srcPtr
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	292	&& dstPtr) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	293	int x, y, w, h, nPix;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	294	int r,p;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	295	int byte;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	296
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	297	OBJ *ap = __ArrayInstPtr(colorValues)->a_element;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	298
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	299	w = __intVal(__INST(width));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	300	h = __intVal(__INST(height));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	301	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	302	p = __intVal(padd);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	303	nPix = w * h;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	304	while (nPix > 0) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	305	unsigned idx, v;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	306	OBJ clr;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	307
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	308	if (r & 1) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	309	idx = byte & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	310	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	311	byte = *srcPtr++;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	312	idx = (byte>>4) & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	313	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	314	clr = ap[idx];
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	315	v = __intVal(clr);
2401 025c115d121a mips (MSBFIRST) fixes Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	316	#ifdef __MSBFIRST
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	317	((long *)dstPtr)[0] = v;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	318	#else
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	319	dstPtr[0] = (v>>24) & 0xFF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	320	dstPtr[1] = (v>>16) & 0xFF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	321	dstPtr[2] = (v>>8) & 0xFF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	322	dstPtr[3] = (v) & 0xFF;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	323	#endif
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	324	dstPtr += 4;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	325	nPix--;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	326
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	327	if (++r == w) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	328	dstPtr += p;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	329	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	330	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	331	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	332	}
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	333	%}.
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	334	] ifFalse:[
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	335	usedDeviceBitsPerPixel == 8 ifTrue:[
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	336	"/ 8 bits/pixel
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	337
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	338	"/ now, walk over the image and replace
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	339	"/ colorMap indices by color values in the bits array
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	340
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	341	%{
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	342	unsigned char *srcPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	343	unsigned char *dstPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	344	OBJ _bytes = __INST(bytes);
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	345
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	346	if (__isByteArrayLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	347	srcPtr = __ByteArrayInstPtr(_bytes)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	348	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	349	if (__isExternalBytesLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	350	srcPtr = __externalBytesAddress(_bytes);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	351	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	352	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	353	if (__isByteArray(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	354	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	355	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	356	if (__isExternalBytesLike(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	357	dstPtr = __externalBytesAddress(imageBits);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	358	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	359	}
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	360
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	361	if (__bothSmallInteger(__INST(height), __INST(width))
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	362	&& __isArrayLike(colorValues)
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	363	&& srcPtr
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	364	&& dstPtr) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	365	int x, y, w, h, nPix;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	366	int r,p, byte;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	367
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	368	OBJ *ap = __ArrayInstPtr(colorValues)->a_element;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	369
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	370	w = __intVal(__INST(width));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	371	h = __intVal(__INST(height));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	372	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	373	p = __intVal(padd);
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	374
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	375	nPix = w * h;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	376	while (nPix > 0) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	377	unsigned idx, v;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	378	OBJ clr;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	379
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	380	if (r & 1) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	381	idx = byte & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	382	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	383	byte = *srcPtr++;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	384	idx = (byte>>4) & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	385	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	386	clr = ap[idx];
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	387	v = __intVal(clr);
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	388
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	389	dstPtr[0] = v;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	390
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	391	dstPtr += 1;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	392	nPix--;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	393
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	394	if (++r == w) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	395	dstPtr += p;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	396	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	397	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	398	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	399	}
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	400	%}.
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	401	] ifFalse:[
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	402	usedDeviceBitsPerPixel == 24 ifTrue:[
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	403	"/ 24 bits/pixel
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	404
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	405	"/ now, walk over the image and replace
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	406	"/ colorMap indices by color values in the bits array
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	407
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	408	%{
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	409	unsigned char *srcPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	410	unsigned char *dstPtr = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	411	OBJ _bytes = __INST(bytes);
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	412
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	413	if (__isByteArrayLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	414	srcPtr = __ByteArrayInstPtr(_bytes)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	415	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	416	if (__isExternalBytesLike(_bytes)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	417	srcPtr = __externalBytesAddress(_bytes);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	418	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	419	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	420	if (__isByteArray(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	421	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	422	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	423	if (__isExternalBytesLike(imageBits)) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	424	dstPtr = __externalBytesAddress(imageBits);
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	425	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	426	}
3851 34637f468b2a also handle subclasses of ExternalBytes (Mapped..) Claus Gittinger <cg@exept.de> parents: 3842 diff changeset	427
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	428	if (__bothSmallInteger(__INST(height), __INST(width))
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	429	&& __isArrayLike(colorValues)
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	430	&& srcPtr
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	431	&& dstPtr) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	432	int x, y, w, h, nPix;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	433	int r, p, byte;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	434
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	435	OBJ *ap = __ArrayInstPtr(colorValues)->a_element;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	436
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	437	w = __intVal(__INST(width));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	438	h = __intVal(__INST(height));
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	439	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	440	p = __intVal(padd);
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	441
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	442	nPix = w * h;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	443	while (nPix > 0) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	444	unsigned idx, v;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	445	OBJ clr;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	446
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	447	if (r & 1) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	448	idx = byte & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	449	} else {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	450	byte = *srcPtr++;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	451	idx = (byte>>4) & 0xF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	452	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	453	clr = ap[idx];
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	454	v = __intVal(clr);
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	455
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	456	dstPtr[0] = (v>>16) & 0xFF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	457	dstPtr[1] = (v>>8) & 0xFF;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	458	dstPtr[2] = (v) & 0xFF;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	459
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	460	dstPtr += 3;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	461	nPix--;
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	462
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	463	if (++r == w) {
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	464	dstPtr += p;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	465	r = 0;
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	466	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	467	}
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	468	}
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	469	%}.
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	470	] ifFalse:[
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	471	'Image [warning]: unimplemented trueColor depth in anyImageAsTrueColorFormOn: ' errorPrint. usedDeviceBitsPerPixel errorPrintCR.
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	472	^ nil
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	473	]
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	474	]
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	475	]
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	476	].
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	477
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	478	imageBits isNil ifTrue:[
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	479	^ nil
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	480	].
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	481
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	482	form := Form imageForm width:width height:height depth:usedDeviceDepth onDevice:aDevice.
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	483	form isNil ifTrue:[^ nil].
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	484	form initGC.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	485
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	486	form
7499 e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	487	copyBitsFrom:imageBits
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	488	bitsPerPixel:usedDeviceBitsPerPixel
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	489	depth:usedDeviceDepth
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	490	padding:usedDevicePadding
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	491	width:width height:height
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	492	x:0 y:0
e482fe94eec6 #OTHER by stefan Stefan Vogel <sv@exept.de> parents: 7321 diff changeset	493	toX:0 y:0.
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	494
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	495	^ form
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	496
4766 61f4dd6b3ab3 ...:on: -> ...:onDevice: Claus Gittinger <cg@exept.de> parents: 4758 diff changeset	497	"Created: / 20-10-1995 / 22:05:10 / cg"
61f4dd6b3ab3 ...:on: -> ...:onDevice: Claus Gittinger <cg@exept.de> parents: 4758 diff changeset	498	"Modified: / 29-05-2007 / 19:22:19 / cg"
2186 4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	499	!
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	500
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	501	greyImageAsTrueColorFormOn:aDevice
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	502	"return a true-color device-form for the grey-image receiver.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	503	Supports true color devices with depths: 8, 16, 24 and 32"
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	504
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	505	\|f\|
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	506
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	507	f := self anyImageAsTrueColorFormOn:aDevice.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	508	f notNil ifTrue:[^ f].
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	509	^ super greyImageAsTrueColorFormOn:aDevice
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	510
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	511	"Created: / 24.7.1998 / 01:21:28 / cg"
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	512	!
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	513
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	514	paletteImageAsTrueColorFormOn:aDevice
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	515	"return a true-color device-form for the palette-image receiver.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	516	Supports true color devices with depths: 8, 16, 24 and 32"
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	517
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	518	\|f\|
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	519
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	520	f := self anyImageAsTrueColorFormOn:aDevice.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	521	f notNil ifTrue:[^ f].
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	522	^ super paletteImageAsTrueColorFormOn:aDevice
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	523
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	524	"Created: / 24.7.1998 / 01:20:46 / cg"
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	525	!
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	526
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	527	rgbImageAsTrueColorFormOn:aDevice
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	528	"return a true-color device-form for the rgb-image receiver.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	529	Supports true color devices with depths: 8, 16, 24 and 32"
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	530
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	531	\|f\|
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	532
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	533	f := self anyImageAsTrueColorFormOn:aDevice.
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	534	f notNil ifTrue:[^ f].
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	535	^ super rgbImageAsTrueColorFormOn:aDevice
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	536
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	537	"Created: / 24.7.1998 / 01:21:57 / cg"
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	538	! !
4e4b6f9b0d27 tuned conversion to trueColor Claus Gittinger <cg@exept.de> parents: 2179 diff changeset	539
810 9789d836dbc4 more dithering Claus Gittinger <cg@exept.de> parents: 808 diff changeset	540	!Depth4Image methodsFor:'dither helpers'!
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	541
1782 a1d67a9456ea method rename Claus Gittinger <cg@exept.de> parents: 1656 diff changeset	542	orderedDitheredGrayBitsWithDitherMatrix:ditherMatrix ditherWidth:dW depth:depth
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	543	"return the bitmap for a dithered depth-bitmap from the image;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	544	with a constant ditherMatrix, this can be used for thresholding.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	545	Redefined to make use of knowing that pixels are 4-bit values."
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	546
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	547	\|dH nDither bytes
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	548	greyLevels greyMap1 greyMap2
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	549	bytesPerRow "{Class: SmallInteger }"
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	550	bytesPerOutRow "{Class: SmallInteger }"
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	551	pixelsPerByte "{Class: SmallInteger }"
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	552	outBits
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	553	w "{Class: SmallInteger }"
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	554	h "{Class: SmallInteger }" \|
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	555
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	556	nDither := ditherMatrix size.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	557	dH := nDither / dW.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	558
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	559	bytes := self bits.
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	560	w := width.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	561	h := height.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	562
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	563	greyLevels := 1 bitShift:depth.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	564	pixelsPerByte := 8 / depth.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	565
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	566	bytesPerRow := self bytesPerRow.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	567
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	568	bytesPerOutRow := (w * depth + 7) // 8.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	569	outBits := ByteArray uninitializedNew:(bytesPerOutRow * h).
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	570	(outBits isNil or:[bytes isNil]) ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	571	^ nil
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	572	].
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	573
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	574	greyMap1 := self greyMapForRange:(greyLevels-1). "/ the pixels
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	575	greyMap1 := (greyMap1 collect:[:b \| b isNil ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	576	0
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	577	] ifFalse:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	578	b truncated
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	579	]
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	580	]) asByteArray.
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	581
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	582	greyMap2 := self greyMapForRange:(greyLevels-1).
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	583	greyMap2 := (greyMap2 collect:[:el \|
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	584	el isNil ifTrue:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	585	0
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	586	] ifFalse:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	587	((el - el truncated) "/ the error (0..1)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	588	* nDither) rounded
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	589	]]) asByteArray.
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	590
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	591	%{
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	592	int __dW = __intVal(dW);
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	593	int __dH = __intVal(dH);
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	594	int __byte;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	595	int __dT, __dO;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	596	int __depth = __intVal(depth);
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	597	int __dstIdx = 0;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	598	int __srcIdx = 0;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	599	int __bitCnt;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	600	int __inByte;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	601	int __grey, __pixel;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	602	int __w = __intVal(w);
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	603	int __h = __intVal(h);
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	604	int __x;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	605	int __y;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	606	int __oX, __oY, __dY;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	607	int __nextDst;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	608	int __nextSrc;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	609	int __bytesPerRow = __intVal(bytesPerRow);
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	610	int __bytesPerOutRow = __intVal(bytesPerOutRow);
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	611
1812 beeaf75b245b avoid type warnings (char * vs. unsigned char ) Claus Gittinger <cg@exept.de>* parents: 1782 diff changeset	612	unsigned char *__outBits = __ByteArrayInstPtr(outBits)->ba_element;
808 f548a3c6ca8c checkin from browser Claus Gittinger <cg@exept.de> parents: 806 diff changeset	613	unsigned char *__ditherMatrix = __ByteArrayInstPtr(ditherMatrix)->ba_element;
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	614	unsigned char *__bytes = __ByteArrayInstPtr(bytes)->ba_element;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	615	unsigned char *__greyMap1 = __ByteArrayInstPtr(greyMap1)->ba_element;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	616	unsigned char *__greyMap2 = __ByteArrayInstPtr(greyMap2)->ba_element;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	617
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	618	__oY = __dY = 0;
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	619	for (__y=0; __y<__h; __y++) {
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	620	__nextDst = __dstIdx + __bytesPerOutRow;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	621	__nextSrc = __srcIdx + __bytesPerRow;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	622
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	623	__byte = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	624	__bitCnt = 8;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	625
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	626	__oX = 0;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	627
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	628	for (__x=0; __x<__w; __x++) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	629	if (__x & 1) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	630	/* odd */
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	631	__grey = __inByte & 0xF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	632	__srcIdx++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	633	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	634	__inByte = __bytes[__srcIdx];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	635	__grey = (__inByte >> 4) & 0xF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	636	}
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	637
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	638	__pixel = __greyMap1[__grey]; /* 0..(greyLevels-1) */
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	639	__dO = __greyMap2[__grey]; /* 0.. nDither-1) */
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	640	__dT = __ditherMatrix[__dY + __oX];
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	641
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	642	if (__dO > __dT) /* dither says: next pixel */
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	643	__pixel++;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	644
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	645	__oX++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	646	if (__oX == __dW) __oX = 0;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	647
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	648	__byte = (__byte << __depth) \| __pixel;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	649
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	650	__bitCnt = __bitCnt - __depth;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	651	if (__bitCnt == 0) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	652	__outBits[__dstIdx] = __byte;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	653	__dstIdx++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	654	__byte = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	655	__bitCnt = 8;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	656	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	657	}
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	658
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	659	if (__bitCnt != 8) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	660	__byte = __byte << __bitCnt;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	661	__outBits[__dstIdx] = __byte;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	662	}
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	663
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	664	__oY++; __dY += __dW;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	665	if (__oY == __dH) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	666	__oY = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	667	__dY = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	668	}
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	669
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	670	__srcIdx = __nextSrc;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	671	__dstIdx = __nextDst;
806 8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	672	}
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	673	%}.
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	674	^ outBits
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	675	!
8d8a58e12c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 803 diff changeset	676
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	677	orderedDitheredMonochromeBitsWithDitherMatrix:ditherMatrix ditherWidth:dW
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	678	"return the dithered monochrome bits for the receiver image;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	679	with a constant ditherMatrix, this can be used for thresholding.
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	680	Redefined to make use of knowing that pixels are 4-bit values."
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	681
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	682	\|dH nDither bytes
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	683	greyMap monoBits
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	684	bytesPerMonoRow "{Class: SmallInteger }"
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	685	bytesPerRow "{Class: SmallInteger }"
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	686	w "{Class: SmallInteger }"
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	687	h "{Class: SmallInteger }"\|
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	688
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	689	nDither := ditherMatrix size.
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	690	dH := nDither / dW.
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	691
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	692	w := width.
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	693	h := height.
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	694	bytes := self bits.
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	695
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	696	bytesPerRow := self bytesPerRow.
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	697
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	698	bytesPerMonoRow := w + 7 // 8.
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	699	monoBits := ByteArray uninitializedNew:(bytesPerMonoRow * h).
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	700	(monoBits isNil or:[bytes isNil]) ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	701	^ nil
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	702	].
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	703
803 899f7eb32ef2 support #rgb - specialized code relaxed Claus Gittinger <cg@exept.de> parents: 798 diff changeset	704	greyMap := self greyByteMapForRange:nDither.
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	705
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	706	%{
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	707	int __dW = __intVal(dW);
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	708	int __dH = __intVal(dH);
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	709	int __byte;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	710	int __dT;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	711	int __dstIdx = 0;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	712	int __srcIdx = 0;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	713	int __bitCnt;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	714	int __inByte;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	715	int __grey;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	716	int __w = __intVal(w);
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	717	int __h = __intVal(h);
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	718	int __x;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	719	int __y;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	720	int __oX, __oY, __dY;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	721	int __nextDst;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	722	int __nextSrc;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	723	int __bytesPerRow = __intVal(bytesPerRow);
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	724	int __bytesPerMonoRow = __intVal(bytesPerMonoRow);
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	725
1812 beeaf75b245b avoid type warnings (char * vs. unsigned char ) Claus Gittinger <cg@exept.de>* parents: 1782 diff changeset	726	unsigned char *__monoBits = __ByteArrayInstPtr(monoBits)->ba_element;
808 f548a3c6ca8c checkin from browser Claus Gittinger <cg@exept.de> parents: 806 diff changeset	727	unsigned char *__ditherMatrix = __ByteArrayInstPtr(ditherMatrix)->ba_element;
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	728	unsigned char *__bytes = __ByteArrayInstPtr(bytes)->ba_element;
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	729	unsigned char *__greyMap = __ByteArrayInstPtr(greyMap)->ba_element;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	730
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	731	__oY = __dY = 0;
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	732	for (__y=0; __y<__h; __y++) {
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	733	__nextDst = __dstIdx + __bytesPerMonoRow;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	734	__nextSrc = __srcIdx + __bytesPerRow;
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	735
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	736	__byte = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	737	__bitCnt = 8;
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	738
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	739	__oX = 0;
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	740
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	741	for (__x=0; __x<__w; __x++) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	742	if (__x & 1) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	743	/* odd */
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	744	__grey = __inByte & 0xF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	745	__srcIdx++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	746	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	747	__inByte = __bytes[__srcIdx]; /* 0..255 */
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	748	__grey = (__inByte >> 4) & 0xF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	749	}
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	750
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	751	__grey = __greyMap[__grey];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	752	__dT = __ditherMatrix[__dY + __oX];
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	753
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	754	__oX++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	755	if (__oX == __dW) __oX = 0;
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	756
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	757	__byte = __byte << 1;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	758	if (__grey > __dT) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	759	__byte = __byte \| 1; /* white */
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	760	}
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	761
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	762	__bitCnt--;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	763	if (__bitCnt == 0) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	764	__monoBits[__dstIdx] = __byte;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	765	__dstIdx++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	766	__byte = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	767	__bitCnt = 8;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	768	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	769	}
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	770
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	771	if (__bitCnt != 8) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	772	__byte = __byte << __bitCnt;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	773	__monoBits[__dstIdx] = __byte;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	774	}
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	775
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	776	__oY++; __dY += __dW;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	777	if (__oY == __dH) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	778	__oY = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	779	__dY = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	780	}
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	781
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	782	__srcIdx = __nextSrc;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	783	__dstIdx = __nextDst;
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	784	}
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	785	%}.
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	786
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	787	^ monoBits
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	788	! !
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	789
89 ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	790	!Depth4Image methodsFor:'enumerating'!
81 4ba554473294 * empty log message * claus parents: 54 diff changeset	791
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	792	colorsAtY:y from:xLow to:xHigh do:aBlock
1 304f026e10cd Initial revision claus parents: diff changeset	793	"perform aBlock for each pixel from x1 to x2 in row y.
304f026e10cd Initial revision claus parents: diff changeset	794	The block is passed the color at each pixel.
304f026e10cd Initial revision claus parents: diff changeset	795	This method allows slighly faster processing of an
304f026e10cd Initial revision claus parents: diff changeset	796	image than using atX:y:, since some processing can be
304f026e10cd Initial revision claus parents: diff changeset	797	avoided when going from pixel to pixel. However, for
304f026e10cd Initial revision claus parents: diff changeset	798	real image processing, specialized methods should be written."
304f026e10cd Initial revision claus parents: diff changeset	799
304f026e10cd Initial revision claus parents: diff changeset	800	\|srcIndex "{ Class: SmallInteger }"
304f026e10cd Initial revision claus parents: diff changeset	801	byte "{ Class: SmallInteger }"
304f026e10cd Initial revision claus parents: diff changeset	802	shift "{ Class: SmallInteger }"
304f026e10cd Initial revision claus parents: diff changeset	803	value "{ Class: SmallInteger }"
304f026e10cd Initial revision claus parents: diff changeset	804	x1 "{ Class: SmallInteger }"
304f026e10cd Initial revision claus parents: diff changeset	805	x2 "{ Class: SmallInteger }"
4904 653051844382 * empty log message * Claus Gittinger <cg@exept.de> parents: 4766 diff changeset	806	byteSize "{ Class: SmallInteger }"
7321 9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	807	colorArray pixelBytes\|
1 304f026e10cd Initial revision claus parents: diff changeset	808
7321 9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	809	pixelBytes := self bits.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	810	byteSize := pixelBytes size.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	811	colorArray := Array new:16.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	812	0 to:15 do:[:i \| colorArray at:i+1 put:(self colorFromValue:i)].
1 304f026e10cd Initial revision claus parents: diff changeset	813
304f026e10cd Initial revision claus parents: diff changeset	814	x1 := xLow.
304f026e10cd Initial revision claus parents: diff changeset	815	x2 := xHigh.
810 9789d836dbc4 more dithering Claus Gittinger <cg@exept.de> parents: 808 diff changeset	816
1 304f026e10cd Initial revision claus parents: diff changeset	817	srcIndex := (self bytesPerRow * y) + 1.
304f026e10cd Initial revision claus parents: diff changeset	818	srcIndex := srcIndex + (x1 // 2).
12 9f0995fac1fa * empty log message * claus parents: 4 diff changeset	819	x1 even ifTrue:[
7321 9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	820	shift := -4
12 9f0995fac1fa * empty log message * claus parents: 4 diff changeset	821	] ifFalse:[
7321 9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	822	shift := 0
12 9f0995fac1fa * empty log message * claus parents: 4 diff changeset	823	].
1 304f026e10cd Initial revision claus parents: diff changeset	824
7321 9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	825	byte := pixelBytes at:srcIndex.
1 304f026e10cd Initial revision claus parents: diff changeset	826	x1 to:x2 do:[:x \|
7321 9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	827	shift == 0 ifTrue:[
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	828	value := byte bitAnd:16rF.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	829	shift := -4.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	830	srcIndex := srcIndex + 1.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	831	] ifFalse:[
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	832	srcIndex > byteSize ifTrue:[
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	833	byte := 0.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	834	] ifFalse:[
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	835	byte := pixelBytes at:srcIndex.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	836	].
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	837	value := (byte bitShift:-4) bitAnd:16rF.
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	838	shift := 0
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	839	].
9c057f59fedc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7189 diff changeset	840	aBlock value:x value:(colorArray at:(value + 1)).
1 304f026e10cd Initial revision claus parents: diff changeset	841	]
746 f5479d603f64 gray vs. grey Claus Gittinger <cg@exept.de> parents: 611 diff changeset	842
2197 1b88e629091d avoid a byte fetch in colorsAtY:from:to:do: Claus Gittinger <cg@exept.de> parents: 2186 diff changeset	843	"Created: / 7.6.1996 / 19:12:33 / cg"
1b88e629091d avoid a byte fetch in colorsAtY:from:to:do: Claus Gittinger <cg@exept.de> parents: 2186 diff changeset	844	"Modified: / 28.7.1998 / 21:26:11 / cg"
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	845	!
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	846
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	847	valuesAtY:y from:xLow to:xHigh do:aBlock
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	848	"perform aBlock for each pixelValue from x1 to x2 in row y.
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	849	The block is passed the pixelValue at each pixel.
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	850	This method allows slighly faster processing of an
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	851	image than using valueAtX:y:, since some processing can be
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	852	avoided when going from pixel to pixel. However, for
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	853	real image processing, specialized methods should be written."
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	854
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	855	\|srcIndex "{ Class: SmallInteger }"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	856	byte "{ Class: SmallInteger }"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	857	shift "{ Class: SmallInteger }"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	858	pixelValue "{ Class: SmallInteger }"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	859	x1 "{ Class: SmallInteger }"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	860	x2 "{ Class: SmallInteger }"
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	861	bytes\|
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	862
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	863	bytes := self bits.
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	864
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	865	x1 := xLow.
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	866	x2 := xHigh.
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	867	srcIndex := (self bytesPerRow * y) + 1.
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	868	srcIndex := srcIndex + (x1 // 2).
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	869	x1 even ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	870	shift := -4
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	871	] ifFalse:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	872	shift := 0
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	873	].
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	874
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	875	x1 to:x2 do:[:x \|
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	876	shift == 0 ifTrue:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	877	byte := bytes at:srcIndex.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	878	pixelValue := byte bitAnd:16rF.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	879	shift := -4.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	880	srcIndex := srcIndex + 1.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	881	] ifFalse:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	882	byte := bytes at:srcIndex.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	883	pixelValue := (byte bitShift:-4) bitAnd:16rF.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	884	shift := 0
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	885	].
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	886	aBlock value:x value:pixelValue.
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	887	]
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	888
31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	889	"Created: 7.6.1996 / 19:09:45 / cg"
1 304f026e10cd Initial revision claus parents: diff changeset	890	! !
304f026e10cd Initial revision claus parents: diff changeset	891
304f026e10cd Initial revision claus parents: diff changeset	892	!Depth4Image methodsFor:'magnification'!
304f026e10cd Initial revision claus parents: diff changeset	893
304f026e10cd Initial revision claus parents: diff changeset	894	magnifyRowFrom:srcBytes offset:srcStart
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	895	into:dstBytes offset:dstStart factor:mX
1 304f026e10cd Initial revision claus parents: diff changeset	896
89 ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	897	"magnify a single pixel row - can only magnify by integer factors.
ea2bf46eb669 * empty log message * claus parents: 81 diff changeset	898	Specially tuned for factor 2."
1 304f026e10cd Initial revision claus parents: diff changeset	899
304f026e10cd Initial revision claus parents: diff changeset	900	%{
304f026e10cd Initial revision claus parents: diff changeset	901	unsigned char srcP, dstP;
304f026e10cd Initial revision claus parents: diff changeset	902	int _mag;
304f026e10cd Initial revision claus parents: diff changeset	903	REGISTER int i;
304f026e10cd Initial revision claus parents: diff changeset	904	REGISTER unsigned char _byte;
304f026e10cd Initial revision claus parents: diff changeset	905	int _pixels;
304f026e10cd Initial revision claus parents: diff changeset	906	REGISTER int outcnt, bits, bit;
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	907	OBJ w = __INST(width);
1 304f026e10cd Initial revision claus parents: diff changeset	908
97 dd6116883ac0 * empty log message * claus parents: 89 diff changeset	909	if (__bothSmallInteger(srcStart, dstStart)
dd6116883ac0 * empty log message * claus parents: 89 diff changeset	910	&& __bothSmallInteger(w, mX)
5475 e6469c3d8a46 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 4904 diff changeset	911	&& __isByteArrayLike(srcBytes) && __isByteArray(dstBytes)) {
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	912	_mag = __intVal(mX);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	913	srcP = __ByteArrayInstPtr(srcBytes)->ba_element - 1 + __intVal(srcStart);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	914	dstP = __ByteArrayInstPtr(dstBytes)->ba_element - 1 + __intVal(dstStart);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	915	_pixels = __intVal(w);
1 304f026e10cd Initial revision claus parents: diff changeset	916
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	917	switch (_mag) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	918	case 1:
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	919	break;
2179 30461fd19cd5 fixed magnification by odd factor tz parents: 2044 diff changeset	920
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	921	case 2:
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	922	_byte = *srcP++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	923	while (_pixels) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	924	bit = (_byte >> 4) & 0xF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	925	bits = (bit << 4) \| bit;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	926	*dstP++ = bits;
1 304f026e10cd Initial revision claus parents: diff changeset	927
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	928	if (--_pixels) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	929	bit = _byte & 0xF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	930	bits = (bit << 4) \| bit;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	931	*dstP++ = bits;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	932	_byte = *srcP++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	933	_pixels--;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	934	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	935	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	936	break;
1 304f026e10cd Initial revision claus parents: diff changeset	937
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	938	default:
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	939	bits = 0, outcnt = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	940	_byte = *srcP++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	941	while (_pixels) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	942	bit = (_byte >> 4) & 0xF;
1 304f026e10cd Initial revision claus parents: diff changeset	943
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	944	for (i=_mag; i>0; i--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	945	bits = (bits << 4) \| bit;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	946	outcnt++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	947	if (outcnt == 2) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	948	*dstP++ = bits;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	949	bits = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	950	outcnt = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	951	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	952	}
1 304f026e10cd Initial revision claus parents: diff changeset	953
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	954	if (--_pixels) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	955	bit = _byte & 0xF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	956	for (i=_mag; i>0; i--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	957	bits = (bits << 4) \| bit;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	958	outcnt++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	959	if (outcnt == 2) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	960	*dstP++ = bits;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	961	bits = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	962	outcnt = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	963	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	964	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	965	_byte = *srcP++;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	966	_pixels--;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	967	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	968	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	969	if (outcnt) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	970	*dstP = bits << 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	971	}
1 304f026e10cd Initial revision claus parents: diff changeset	972
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	973	break;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	974	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	975	RETURN (self);
1 304f026e10cd Initial revision claus parents: diff changeset	976	}
3842 e97ae6061e75 code cleanup Claus Gittinger <cg@exept.de> parents: 3263 diff changeset	977	%}.
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	978	super
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	979	magnifyRowFrom:srcBytes offset:srcStart
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	980	into:dstBytes offset:dstStart factor:mX
1 304f026e10cd Initial revision claus parents: diff changeset	981	! !
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	982
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	983	!Depth4Image methodsFor:'queries'!
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	984
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	985	bitsPerPixel
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	986	"return the number of bits per pixel"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	987
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	988	^ 4
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	989	!
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	990
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	991	bitsPerRow
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	992	"return the number of bits in one scanline of the image"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	993
3868 e47cf114c824 * empty log message * Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	994	^ width * 4
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	995	!
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	996
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	997	bytesPerRow
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	998	"return the number of bytes in one scanline of the image"
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	999
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1000	\|nbytes\|
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1001
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1002	nbytes := width // 2.
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1003	width odd ifTrue:[
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1004	^ nbytes + 1
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1005	].
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1006	^ nbytes
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1007	!
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1008
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1009	colorFromValue:pixelValue
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1010	"given a pixel value, return the corresponding color.
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1011	Pixel values start with 0."
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1012
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1013	photometric == #whiteIs0 ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	1014	^ Color gray:100 - (100 / 15 * pixelValue)
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1015	].
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1016	photometric == #blackIs0 ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	1017	^ Color gray:(100 / 15 * pixelValue)
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1018	].
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1019	photometric == #palette ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	1020	pixelValue < colorMap size ifTrue:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	1021	^ colorMap at:(pixelValue + 1)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	1022	]
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1023	].
3869 cd40d1912c03 * empty log message * Claus Gittinger <cg@exept.de> parents: 3868 diff changeset	1024	^ super colorFromValue:pixelValue
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1025	!
c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3851 diff changeset	1026
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1027	usedValues
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1028	"return a collection of color values used in the receiver."
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1029
6897 7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1030	\|useFlags usedValues
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1031	h "{ Class: SmallInteger }"
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1032	w "{ Class: SmallInteger }" \|
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1033
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1034	useFlags := Array new:16 withAll:false.
6897 7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1035	w := width.
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1036	h := height.
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1037
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1038	w even ifFalse:[
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1039	0 to:h-1 do:[:y \|
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1040	self valuesAtY:y from:0 to:w-1 do:[:x :pixel \|
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1041	useFlags at:(pixel + 1) put:true
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1042	]
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1043	].
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1044	] ifTrue:[
6897 7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1045	self bits usedValues do:[:byte \|
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1046	useFlags at:(byte bitShift:-4)+1 put:true.
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1047	useFlags at:(byte bitAnd:2r1111)+1 put:true.
7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1048	].
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1049	].
2265 083cc5cb90c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2226 diff changeset	1050	^ (0 to:15) select:[:i \| useFlags at:(i+1)].
798 31ed4a1d4b4a better dither Claus Gittinger <cg@exept.de> parents: 746 diff changeset	1051
2265 083cc5cb90c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2226 diff changeset	1052	"/ usedValues := OrderedCollection new.
083cc5cb90c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2226 diff changeset	1053	"/ 1 to:16 do:[:i \| (useFlags at:i) ifTrue:[usedValues add:(i-1)]].
083cc5cb90c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2226 diff changeset	1054	"/ ^ usedValues
083cc5cb90c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2226 diff changeset	1055
083cc5cb90c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2226 diff changeset	1056	"Modified: / 24.8.1998 / 13:56:59 / cg"
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1057	! !
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1058
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1059	!Depth4Image class methodsFor:'documentation'!
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1060
c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1061	version
6897 7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1062	^ '$Header$'
5475 e6469c3d8a46 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 4904 diff changeset	1063	!
e6469c3d8a46 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 4904 diff changeset	1064
e6469c3d8a46 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 4904 diff changeset	1065	version_CVS
6897 7af3b0859ba5 class: Depth4Image Claus Gittinger <cg@exept.de> parents: 6827 diff changeset	1066	^ '$Header$'
280 c89f1cb9e8b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1067	! !
6298 c2980b510cf1 pixelfunction support Claus Gittinger <cg@exept.de> parents: 6066 diff changeset	1068

author	Stefan Vogel <sv@exept.de>
	Mon, 08 Aug 2016 17:13:07 +0200
changeset 7499	e482fe94eec6
parent 7321	9c057f59fedc
child 7516	a1842618aa6d
permissions	-rw-r--r--