hg/stx-libview: Depth32Image.st@62426e8110ae (annotated)

1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1995 by Claus Gittinger
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	3	All Rights Reserved
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
3263 bd92a12c9316 category changes Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	12	"{ Package: 'stx:libview' }"
bd92a12c9316 category changes Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	13
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	Image subclass:#Depth32Image
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	instanceVariableNames:''
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	classVariableNames:''
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	poolDictionaries:''
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	category:'Graphics-Images'
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!Depth32Image class methodsFor:'documentation'!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	copyright
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	COPYRIGHT (c) 1995 by Claus Gittinger
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	26	All Rights Reserved
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	This software is furnished under a license and may be used
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	only in accordance with the terms of that license and with the
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	inclusion of the above copyright notice. This software may not
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	be provided or otherwise made available to, or used by, any
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	other person. No title to or ownership of the software is
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	hereby transferred.
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	documentation
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	this class represents 32 bit images.
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	Only the minimum protocol is implemented here; much more is
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	needed for higher performance operations on depth32 images.
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	(however, 32bit images are very seldom used, so falling back into the
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	slow general methods from Image should not hurt too much ..)
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	[author:]
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	46	Claus Gittinger
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	[see also:]
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	49	Depth1Image Depth2Image Depth4Image Depth8Image Depth16Image Depth24Image
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	50	ImageReader
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	! !
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	!Depth32Image class methodsFor:'queries'!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	56	defaultPhotometric
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	57	"return the default photometric pixel interpretation"
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	58
5324 63a97775c5fc * empty log message * Claus Gittinger <cg@exept.de> parents: 5297 diff changeset	59	^ #rgb
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	60
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	61	"Created: / 27-05-2007 / 14:03:59 / cg"
4790 652fca7eac26 * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	62	"Modified: / 06-06-2007 / 11:12:13 / cg"
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	63	!
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	64
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	imageDepth
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	"return the depth of images represented by instances of
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	this class - here we return 32"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	^ 32
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	"Modified: 20.4.1996 / 23:40:01 / cg"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	"Created: 24.4.1997 / 19:00:28 / cg"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	! !
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74
3263 bd92a12c9316 category changes Claus Gittinger <cg@exept.de> parents: 1669 diff changeset	75	!Depth32Image methodsFor:'accessing-pixels'!
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	pixelAtX:x y:y
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	"retrieve a pixel at x/y; return a pixelValue.
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	Pixels start at x=0 , y=0 for upper left pixel, end at
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	x = width-1, y=height-1 for lower right pixel"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81
1669 d156d2623f41 * empty log message * Claus Gittinger <cg@exept.de> parents: 1663 diff changeset	82	\|pixelIndex "{ Class: SmallInteger }"\|
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83
1669 d156d2623f41 * empty log message * Claus Gittinger <cg@exept.de> parents: 1663 diff changeset	84	pixelIndex := (width * 4 * y) + 1 + (x * 4).
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	"left pixel in high bits"
1669 d156d2623f41 * empty log message * Claus Gittinger <cg@exept.de> parents: 1663 diff changeset	87	^ bytes doubleWordAt:pixelIndex MSB:true.
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	"Created: 24.4.1997 / 19:00:28 / cg"
1669 d156d2623f41 * empty log message * Claus Gittinger <cg@exept.de> parents: 1663 diff changeset	90	"Modified: 24.4.1997 / 23:11:05 / cg"
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	pixelAtX:x y:y put:aPixelValue
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	"set the pixel at x/y to aPixelValue.
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	Pixels start at x=0 , y=0 for upper left pixel, end at
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	x = width-1, y=height-1 for lower right pixel"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97
1669 d156d2623f41 * empty log message * Claus Gittinger <cg@exept.de> parents: 1663 diff changeset	98	\|pixelIndex "{ Class: SmallInteger }"\|
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
1669 d156d2623f41 * empty log message * Claus Gittinger <cg@exept.de> parents: 1663 diff changeset	100	pixelIndex := (width * 4 * y) + 1 + (x * 4).
4790 652fca7eac26 * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	101	bytes isNil ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	102	self createPixelStore
4790 652fca7eac26 * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	103	].
1669 d156d2623f41 * empty log message * Claus Gittinger <cg@exept.de> parents: 1663 diff changeset	104	bytes doubleWordAt:pixelIndex put:aPixelValue MSB:true
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105
4790 652fca7eac26 * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	106	"Created: / 24-04-1997 / 19:00:28 / cg"
652fca7eac26 * empty log message * Claus Gittinger <cg@exept.de> parents: 4763 diff changeset	107	"Modified: / 06-06-2007 / 12:20:57 / cg"
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	! !
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	110	!Depth32Image methodsFor:'converting rgb images'!
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	111
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	112	rgbImageAsTrueColorFormOn:aDevice
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	113	"return a truecolor form from the rgb-picture."
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	114
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	115	\|bytes bestFormat usedDeviceDepth usedDeviceBitsPerPixel usedDevicePadding
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	116	myDepth form imageBits padd
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	117	rightShiftR rightShiftG rightShiftB shiftRed shiftGreen shiftBlue\|
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	118
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	119	bytes := self bits.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	120
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	121	bestFormat := self bestSupportedImageFormatFor:aDevice.
4763 69afd837e817 leftover halt: Claus Gittinger <cg@exept.de> parents: 4761 diff changeset	122
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	123	usedDeviceDepth := bestFormat at:#depth.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	124	usedDeviceBitsPerPixel := bestFormat at:#bitsPerPixel.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	125	usedDevicePadding := bestFormat at:#padding.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	126
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	127	rightShiftR := (8 - aDevice bitsRed).
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	128	rightShiftG := (8 - aDevice bitsGreen).
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	129	rightShiftB := (8 - aDevice bitsBlue).
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	130
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	131	shiftRed := aDevice shiftRed.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	132	shiftGreen := aDevice shiftGreen.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	133	shiftBlue := aDevice shiftBlue.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	134
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	135	"/
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	136	"/ for now, only a few formats are supported
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	137	"/
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	138	myDepth := self bitsPerPixel.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	139	usedDeviceBitsPerPixel == 24 ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	140	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	141	"/ 24 bit/pixel
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	142	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	143	imageBits := ByteArray uninitializedNew:(width * height * 3).
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	144	usedDevicePadding := 8.
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	145
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	146	"/ now, walk over the image and compose 24bit values from the r/g/b/a triples
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	147	%{
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	148	unsigned char *srcPtr = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	149	unsigned char *dstPtr = 0;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	150
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	151	if (__isByteArrayLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	152	srcPtr = __ByteArrayInstPtr(bytes)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	153	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	154	if (__isExternalBytesLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	155	srcPtr = __externalBytesAddress(bytes);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	156	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	157	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	158	if (__isByteArray(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	159	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	160	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	161	if (__isExternalBytesLike(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	162	dstPtr = __externalBytesAddress(imageBits);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	163	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	164	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	165
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	166	if (__bothSmallInteger(__INST(height), __INST(width))
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	167	&& __bothSmallInteger(rightShiftR, shiftRed)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	168	&& __bothSmallInteger(rightShiftG, shiftGreen)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	169	&& __bothSmallInteger(rightShiftB, shiftBlue)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	170	&& srcPtr
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	171	&& dstPtr) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	172	int rShRed = __intVal(rightShiftR),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	173	rShGreen = __intVal(rightShiftG),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	174	rShBlue = __intVal(rightShiftB),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	175	lShRed = __intVal(shiftRed),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	176	lShGreen = __intVal(shiftGreen),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	177	lShBlue = __intVal(shiftBlue);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	178	int x, y, w;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	179
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	180	w = __intVal(__INST(width));
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	181	if ((rShRed == 0) && (rShGreen == 0) && (rShBlue == 0)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	182	if ((lShRed == 0) && (lShGreen == 8) && (lShBlue == 16)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	183	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	184	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	185	unsigned v;
5297 e1e2793072ad 32bit->24bit (win32) fix (rgb-bgr) Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	186
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	187	v = srcPtr[0] << 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	188	v \|= (srcPtr[1] << 8);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	189	v \|= (srcPtr[2] << 16);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	190	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	191	dstPtr[0] = srcPtr[0];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	192	dstPtr[1] = srcPtr[1];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	193	dstPtr[2] = srcPtr[2];
5297 e1e2793072ad 32bit->24bit (win32) fix (rgb-bgr) Claus Gittinger <cg@exept.de> parents: 4790 diff changeset	194	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	195	dstPtr[0] = srcPtr[2];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	196	dstPtr[1] = srcPtr[1];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	197	dstPtr[2] = srcPtr[0];
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	198	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	199	dstPtr += 3;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	200	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	201	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	202	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	203	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	204	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	205	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	206	unsigned v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	207
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	208	v = srcPtr[0] << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	209	v \|= (srcPtr[1] << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	210	v \|= (srcPtr[2] << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	211	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	212	dstPtr[0] = (v) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	213	dstPtr[1] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	214	dstPtr[2] = (v>>16) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	215	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	216	dstPtr[0] = (v>>16) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	217	dstPtr[1] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	218	dstPtr[2] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	219	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	220	dstPtr += 3;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	221	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	222	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	223	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	224	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	225	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	226	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	227	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	228	unsigned r, g, b, v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	229
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	230	r = srcPtr[0] >> rShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	231	g = srcPtr[1] >> rShGreen;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	232	b = srcPtr[2] >> rShBlue;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	233	v = r << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	234	v \|= (g << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	235	v \|= (b << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	236	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	237	dstPtr[0] = (v) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	238	dstPtr[1] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	239	dstPtr[2] = (v>>16) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	240	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	241	dstPtr[0] = (v>>16) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	242	dstPtr[1] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	243	dstPtr[2] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	244	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	245	dstPtr += 3;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	246	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	247	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	248	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	249	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	250	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	251	%}.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	252	] ifFalse:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	253	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	254	"/ 16 bit/pixel ...
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	255	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	256	(usedDeviceBitsPerPixel == 16) ifTrue:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	257	padd := width \\ (usedDevicePadding // 16).
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	258	imageBits := ByteArray uninitializedNew:((width + padd) * height * 2).
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	259
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	260	"/ now, walk over the image and compose 16bit values from the r/g/b triples
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	261
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	262	%{
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	263	unsigned char *srcPtr = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	264	unsigned char *dstPtr = 0;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	265
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	266	if (__isByteArrayLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	267	srcPtr = __ByteArrayInstPtr(bytes)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	268	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	269	if (__isExternalBytesLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	270	srcPtr = __externalBytesAddress(bytes);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	271	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	272	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	273	if (__isByteArray(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	274	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	275	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	276	if (__isExternalBytesLike(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	277	dstPtr = __externalBytesAddress(imageBits);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	278	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	279	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	280
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	281	if (__bothSmallInteger(__INST(height),__INST(width))
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	282	&& __bothSmallInteger(rightShiftR, shiftRed)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	283	&& __bothSmallInteger(rightShiftG, shiftGreen)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	284	&& __bothSmallInteger(rightShiftB, shiftBlue)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	285	&& srcPtr
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	286	&& dstPtr) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	287	int rShRed = __intVal(rightShiftR),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	288	rShGreen = __intVal(rightShiftG),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	289	rShBlue = __intVal(rightShiftB),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	290	lShRed = __intVal(shiftRed),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	291	lShGreen = __intVal(shiftGreen),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	292	lShBlue = __intVal(shiftBlue);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	293	int x, y, w;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	294	int p;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	295
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	296	w = __intVal(__INST(width));
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	297	p = __intVal(padd) * 2;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	298
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	299	if ((rShRed == 0) && (rShGreen == 0) && (rShBlue == 0)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	300	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	301	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	302	unsigned v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	303
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	304	v = srcPtr[0] << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	305	v \|= (srcPtr[1] << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	306	v \|= (srcPtr[2] << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	307	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	308	((short *)dstPtr)[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	309	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	310	dstPtr[0] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	311	dstPtr[1] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	312	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	313	dstPtr += 2;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	314	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	315	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	316	dstPtr += p;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	317	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	318	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	319	if (p == 0) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	320	int n = __intVal(__INST(height)) * w;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	321
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	322	while (n >= 2) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	323	unsigned w, r, g, b, v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	324
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	325	n -= 2;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	326
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	327	r = srcPtr[0];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	328	g = srcPtr[1];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	329	b = srcPtr[2];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	330	v = (r >> rShRed) << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	331	v \|= ((g >> rShGreen) << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	332	v \|= ((b >> rShBlue) << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	333	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	334	((short *)dstPtr)[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	335	# else
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	336	dstPtr[0] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	337	dstPtr[1] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	338	# endif /* not MSB */
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	339
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	340	r = srcPtr[3];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	341	g = srcPtr[4];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	342	b = srcPtr[5];
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	343	v = (r >> rShRed) << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	344	v \|= ((g >> rShGreen) << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	345	v \|= ((b >> rShBlue) << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	346	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	347	((short *)dstPtr)[1] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	348	# else
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	349	dstPtr[2] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	350	dstPtr[3] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	351	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	352	dstPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	353	srcPtr += 8;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	354	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	355
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	356	while (n--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	357	unsigned r, g, b, v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	358
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	359	r = srcPtr[0] >> rShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	360	g = srcPtr[1] >> rShGreen;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	361	b = srcPtr[2] >> rShBlue;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	362	v = r << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	363	v \|= (g << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	364	v \|= (b << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	365	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	366	((short *)dstPtr)[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	367	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	368	dstPtr[0] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	369	dstPtr[1] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	370	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	371	dstPtr += 2;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	372	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	373	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	374	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	375	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	376	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	377	unsigned r, g, b, v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	378
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	379	r = srcPtr[0] >> rShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	380	g = srcPtr[1] >> rShGreen;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	381	b = srcPtr[2] >> rShBlue;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	382	v = r << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	383	v \|= (g << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	384	v \|= (b << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	385	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	386	((short *)dstPtr)[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	387	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	388	dstPtr[0] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	389	dstPtr[1] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	390	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	391	dstPtr += 2;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	392	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	393	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	394	dstPtr += p;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	395	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	396	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	397	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	398	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	399	%}.
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	400	] ifFalse:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	401	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	402	"/ 32 bits/pixel ...
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	403	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	404	(usedDeviceBitsPerPixel == 32) ifTrue:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	405	usedDevicePadding := 8.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	406	imageBits := ByteArray uninitializedNew:(width * height * 4).
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	407
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	408	"/ now, walk over the image and compose 32bit values from the r/g/b triples
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	409
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	410	%{
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	411	unsigned char *srcPtr = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	412	unsigned char *dstPtr = 0;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	413
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	414	if (__isByteArrayLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	415	srcPtr = __ByteArrayInstPtr(bytes)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	416	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	417	if (__isExternalBytesLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	418	srcPtr = __externalBytesAddress(bytes);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	419	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	420	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	421	if (__isByteArray(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	422	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	423	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	424	if (__isExternalBytesLike(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	425	dstPtr = __externalBytesAddress(imageBits);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	426	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	427	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	428
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	429	if (__bothSmallInteger(__INST(height), __INST(width))
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	430	&& __bothSmallInteger(rightShiftR, shiftRed)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	431	&& __bothSmallInteger(rightShiftG, shiftGreen)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	432	&& __bothSmallInteger(rightShiftB, shiftBlue)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	433	&& srcPtr
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	434	&& dstPtr) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	435	int rShRed = __intVal(rightShiftR),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	436	rShGreen = __intVal(rightShiftG),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	437	rShBlue = __intVal(rightShiftB),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	438	lShRed = __intVal(shiftRed),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	439	lShGreen = __intVal(shiftGreen),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	440	lShBlue = __intVal(shiftBlue);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	441	int x, y, w;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	442
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	443	w = __intVal(__INST(width));
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	444	if ((rShRed == 0) && (rShGreen == 0) && (rShBlue == 0)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	445	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	446	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	447	unsigned v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	448
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	449	v = srcPtr[0] << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	450	v \|= (srcPtr[1] << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	451	v \|= (srcPtr[2] << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	452	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	453	((int *)dstPtr)[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	454	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	455	dstPtr[0] = (v>>24) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	456	dstPtr[1] = (v>>16) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	457	dstPtr[2] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	458	dstPtr[3] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	459	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	460	dstPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	461	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	462	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	463	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	464	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	465	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	466	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	467	unsigned r, g, b, v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	468
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	469	r = srcPtr[0] >> rShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	470	g = srcPtr[1] >> rShGreen;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	471	b = srcPtr[2] >> rShBlue;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	472	v = r << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	473	v \|= (g << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	474	v \|= (b << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	475	# ifdef __MSBFIRST
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	476	((int *)dstPtr)[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	477	# else /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	478	dstPtr[0] = (v>>24) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	479	dstPtr[1] = (v>>16) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	480	dstPtr[2] = (v>>8) & 0xFF;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	481	dstPtr[3] = (v) & 0xFF;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	482	# endif /* not MSB */
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	483	dstPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	484	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	485	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	486	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	487	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	488	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	489	%}.
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	490	] ifFalse:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	491	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	492	"/ 8 bits/pixel ...
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	493	"/
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	494	(usedDeviceBitsPerPixel == 8) ifTrue:[
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	495	usedDevicePadding := 8.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	496	imageBits := ByteArray uninitializedNew:(width * height).
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	497
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	498	"/ now, walk over the image and compose 8bit values from the r/g/b triples
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	499
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	500	%{
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	501	unsigned char *srcPtr = 0;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	502	unsigned char *dstPtr = 0;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	503
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	504	if (__isByteArrayLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	505	srcPtr = __ByteArrayInstPtr(bytes)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	506	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	507	if (__isExternalBytesLike(bytes)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	508	srcPtr = __externalBytesAddress(bytes);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	509	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	510	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	511	if (__isByteArray(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	512	dstPtr = __ByteArrayInstPtr(imageBits)->ba_element;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	513	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	514	if (__isExternalBytesLike(imageBits)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	515	dstPtr = __externalBytesAddress(imageBits);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	516	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	517	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	518
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	519	if (__bothSmallInteger(__INST(height), __INST(width))
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	520	&& __bothSmallInteger(rightShiftR, shiftRed)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	521	&& __bothSmallInteger(rightShiftG, shiftGreen)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	522	&& __bothSmallInteger(rightShiftB, shiftBlue)
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	523	&& srcPtr
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	524	&& dstPtr) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	525	int rShRed = __intVal(rightShiftR),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	526	rShGreen = __intVal(rightShiftG),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	527	rShBlue = __intVal(rightShiftB),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	528	lShRed = __intVal(shiftRed),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	529	lShGreen = __intVal(shiftGreen),
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	530	lShBlue = __intVal(shiftBlue);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	531	int x, y, w;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	532
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	533	w = __intVal(__INST(width));
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	534	if ((rShRed == 0) && (rShGreen == 0) && (rShBlue == 0)) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	535	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	536	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	537	unsigned v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	538
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	539	v = srcPtr[0] << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	540	v \|= (srcPtr[1] << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	541	v \|= (srcPtr[2] << lShBlue);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	542	dstPtr[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	543
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	544	dstPtr += 1;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	545	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	546	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	547	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	548	} else {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	549	for (y=__intVal(__INST(height)); y > 0; y--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	550	for (x=w; x > 0; x--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	551	unsigned r, g, b, v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	552
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	553	r = srcPtr[0] >> rShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	554	g = srcPtr[1] >> rShGreen;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	555	b = srcPtr[2] >> rShBlue;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	556	v = r << lShRed;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	557	v \|= (g << lShGreen);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	558	v \|= (b << lShBlue);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	559
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	560	dstPtr[0] = v;
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	561
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	562	dstPtr += 1;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	563	srcPtr += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	564	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	565	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	566	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	567	}
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	568	%}.
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	569	]
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	570	].
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	571	]
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	572	].
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	573
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	574	imageBits isNil ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	575	'IMAGE: unimplemented trueColor depth in #rgbImageAsTrueColorFormOn: ' errorPrint.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	576	usedDeviceBitsPerPixel errorPrintCR.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	577	^ self asMonochromeFormOn:aDevice
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	578	].
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	579
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	580	form := Form width:width height:height depth:usedDeviceDepth onDevice:aDevice.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	581	form isNil ifTrue:[
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	582	'Depth32Image [warning]: display bitmap creation failed' errorPrintCR.
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	583	^ nil
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	584	].
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	585	form initGC.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	586
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	587	form
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	588	copyBitsFrom:imageBits
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	589	bitsPerPixel:usedDeviceBitsPerPixel
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	590	depth:usedDeviceDepth
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	591	padding:usedDevicePadding
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	592	width:width height:height
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	593	x:0 y:0 toX:0 y:0.
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	594
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	595	^ form
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	596
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	597	"Created: / 27-05-2007 / 16:54:19 / cg"
4763 69afd837e817 leftover halt: Claus Gittinger <cg@exept.de> parents: 4761 diff changeset	598	"Modified: / 29-05-2007 / 12:19:04 / cg"
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	599	! !
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	600
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	601	!Depth32Image methodsFor:'initialization'!
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	602
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	603	initialize
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	604	super initialize.
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	605	samplesPerPixel := 4.
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	606	bitsPerSample := #(8 8 8 8).
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	607
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	608	"Created: / 27-05-2007 / 14:09:16 / cg"
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	609	! !
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	610
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	611	!Depth32Image methodsFor:'magnification'!
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	612
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	613	magnifyRowFrom:srcBytes offset:srcStart
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	614	into:dstBytes offset:dstStart factor:mX
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	615
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	616	"magnify a single pixel row - can only magnify by integer factors"
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	617
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	618	%{
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	619	unsigned char srcP, dstP;
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	620	int _mag;
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	621	REGISTER int i;
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	622	REGISTER unsigned char byte1, byte2, byte3, byte4;
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	623	int _pixels;
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	624	OBJ w = __INST(width);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	625
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	626	if (__bothSmallInteger(srcStart, dstStart)
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	627	&& __bothSmallInteger(w, mX)
5474 037b18c68ac9 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 5327 diff changeset	628	&& __isByteArrayLike(srcBytes) && __isByteArray(dstBytes)) {
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	629	_mag = __intVal(mX);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	630	srcP = __ByteArrayInstPtr(srcBytes)->ba_element - 1 + __intVal(srcStart);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	631	dstP = __ByteArrayInstPtr(dstBytes)->ba_element - 1 + __intVal(dstStart);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	632	_pixels = __intVal(w);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	633
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	634	while (_pixels--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	635	byte1 = *srcP;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	636	byte2 = *(srcP+1);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	637	byte3 = *(srcP+2);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	638	byte4 = *(srcP+3);
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	639	srcP += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	640	for (i=_mag; i>0; i--) {
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	641	*dstP = byte1;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	642	*(dstP+1) = byte2;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	643	*(dstP+2) = byte3;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	644	*(dstP+3) = byte4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	645	dstP += 4;
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	646	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	647	}
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	648	RETURN (self);
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	649	}
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	650	%}.
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	651	super
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	652	magnifyRowFrom:srcBytes offset:srcStart
62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	653	into:dstBytes offset:dstStart factor:mX
4761 9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	654
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	655	"Created: / 28-05-2007 / 15:20:52 / cg"
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	656	! !
9672fbf6ad20 defaultPhotometric, magnification, conversion Claus Gittinger <cg@exept.de> parents: 3866 diff changeset	657
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	!Depth32Image methodsFor:'queries'!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660	bitsPerPixel
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661	"return the number of bits per pixel"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663	^ 32
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665	"Created: 24.4.1997 / 19:00:28 / cg"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666	!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668	bitsPerRow
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	"return the number of bits in one scanline of the image"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	670
3866 c01473a90934 eliminated most references to bytes Claus Gittinger <cg@exept.de> parents: 3263 diff changeset	671	^ width * 32
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673	"Created: 24.4.1997 / 19:00:28 / cg"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676	bytesPerRow
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677	"return the number of bytes in one scanline of the image"
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	^ width * 4.
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681	"Created: 24.4.1997 / 19:00:28 / cg"
5327 cc9e8a99b6d1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	682	!
cc9e8a99b6d1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	683
cc9e8a99b6d1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	684	hasAlphaChannel
cc9e8a99b6d1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5324 diff changeset	685	^ true
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	686	! !
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688	!Depth32Image class methodsFor:'documentation'!
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689
a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690	version
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	691	^ '$Header: /cvs/stx/stx/libview/Depth32Image.st,v 1.12 2013-05-21 20:50:48 cg Exp $'
5474 037b18c68ac9 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 5327 diff changeset	692	!
037b18c68ac9 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 5327 diff changeset	693
037b18c68ac9 __isByteArray() to __isByteArrayLike() in primitive code Stefan Vogel <sv@exept.de> parents: 5327 diff changeset	694	version_CVS
6066 62426e8110ae stx macros with 2 underlines Claus Gittinger <cg@exept.de> parents: 5474 diff changeset	695	^ '$Header: /cvs/stx/stx/libview/Depth32Image.st,v 1.12 2013-05-21 20:50:48 cg Exp $'
1663 a2be19b14666 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 21 May 2013 22:50:48 +0200
changeset 6066	62426e8110ae
parent 5474	037b18c68ac9
child 6302	d393dae43c28
permissions	-rw-r--r--