"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Image subclass:#Depth24Image

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Graphics-Images'

!

!Depth24Image class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this class represents true-color (24 bit / pixel) images.

    It mainly consists of methods already implemented in Image,

    reimplemented here for more performance.

    Only the #rgb format is supported here.

    [author:]

        Claus Gittinger

    [see also:]

        Depth1Image Depth2Image Depth4Image Depth8Image Depth16Image

        ImageReader

"

! !

!Depth24Image class methodsFor:'queries'!

imageDepth

    "return the depth of images represented by instances of

     this class - here we return 24"

    ^ 24

    "Modified: 20.4.1996 / 23:39:50 / cg"

! !

!Depth24Image methodsFor:'accessing'!

atX:x y:y

    "retrieve a pixel at x/y; return a color.

     Pixels start at x=0 , y=0 for upper left pixel, end at

     x = width-1, y=height-1 for lower right pixel"

    |index "{ Class: SmallInteger }"

     rVal gVal bVal|

    index := 1 + (((width * y) + x) * 3).

    rVal := bytes at:(index).

    gVal := bytes at:(index + 1).

    bVal := bytes at:(index + 2).

    photometric ~~ #rgb ifTrue:[

    ].

    ^ Color red:rVal * 100 / 255

!

atX:x y:y put:aColor

    "set the pixel at x/y to aColor.

     Pixels start at x=0 , y=0 for upper left pixel, end at

     x = width-1, y=height-1 for lower right pixel."

    |index "{ Class: SmallInteger }"

     val   "{ Class: SmallInteger }" |

    index := 1 + (((width * y) + x) * 3).

    val := (aColor red / 100 * 255) rounded.

    bytes at:(index) put:val.

    val := (aColor green / 100 * 255) rounded.

    bytes at:(index + 1) put:val.

    val := (aColor blue / 100 * 255) rounded.

    bytes at:(index + 2) put:val.

!

atX:x y:y putValue:aPixelValue

    "set a pixel at x/y to aPixelValue, which is 24 bits RGB.

     Pixels start at x=0 , y=0 for upper left pixel, end at

     x = width-1, y=height-1 for lower right pixel"

    |index "{ Class: SmallInteger }"

     val   "{ Class: SmallInteger }" |

    index := 1 + (((width * y) + x) * 3).

    val := aPixelValue.

    bytes at:(index + 2) put:(val bitAnd:16rFF).

    val := val bitShift:-8.

    bytes at:(index + 1) put:(val bitAnd:16rFF).

    val := val bitShift:-8.

    bytes at:(index) put:val.

!

valueAtX:x y:y

    "retrieve a pixel at x/y; return a color.

     Pixels start at x=0 , y=0 for upper left pixel, end at

     x = width-1, y=height-1 for lower right pixel"

    |index "{ Class: SmallInteger }"

     rVal  "{ Class: SmallInteger }"

     gVal  "{ Class: SmallInteger }"

     bVal  "{ Class: SmallInteger }"|

    index := 1 + (((width * y) + x) * 3).

    rVal := bytes at:(index).

    gVal := bytes at:(index + 1).

    bVal := bytes at:(index + 2).

    ^ (((rVal bitShift:8) bitOr:gVal) bitShift:8) bitOr:bVal

! !

!Depth24Image methodsFor:'converting rgb images'!

orderedDitheredMonochromeBitsWithDitherMatrix:ditherMatrix ditherWidth:dW

    "return the dithered monochrome bits for the receiver image;

     with a constant ditherMatrix, this can be used for thresholding.

     Redefined to make use of knowing that pixels are 24-bit values."

    |f dH nDither   

     greyMap monoBits

     bytesPerMonoRow "{Class: SmallInteger }"

     bytesPerRow     "{Class: SmallInteger }"

     w               "{Class: SmallInteger }"

     h               "{Class: SmallInteger }"|

    nDither := ditherMatrix size.

    dH := nDither / dW.

    w := width.

    h := height.

    bytesPerRow := self bytesPerRow.

    bytesPerMonoRow := w + 7 // 8.

    monoBits := ByteArray uninitializedNew:(bytesPerMonoRow * h).

    (monoBits isNil or:[bytes isNil]) ifTrue:[

        ^ nil

    ].

    greyMap := ByteArray new:256.

    photometric ~~ #rgb ifTrue:[

        self error:'invalid format'.

        ^ nil

    ].

%{

    int __dW = __intVal(dW);

    int __dH = __intVal(dH);

    int __byte;

    int __nDither = __intVal(nDither);

    int __dT;

    int __dstIdx = 0;

    int __srcIdx = 0;

    int __bitCnt;

    int __grey;

    int __w = __intVal(w);

    int __h = __intVal(h);

    int __x;

    int __y;

    int __oX, __oY, __dY;

    int __nextDst;

    int __nextSrc;

    int __bytesPerRow = __intVal(bytesPerRow);

    int __bytesPerMonoRow = __intVal(bytesPerMonoRow);

    char *__monoBits = __ByteArrayInstPtr(monoBits)->ba_element;

    char *__ditherMatrix = __ByteArrayInstPtr(ditherMatrix)->ba_element;

    unsigned char *__bytes = __ByteArrayInstPtr(__INST(bytes))->ba_element;

    unsigned char *__greyMap = __ByteArrayInstPtr(greyMap)->ba_element;

    __oY = __dY = 0;

    for (__y=0; __y<__h; __y++) {

        __nextDst = __dstIdx + __bytesPerMonoRow;

        __nextSrc = __srcIdx + __bytesPerRow;

        __byte = 0;

        __bitCnt = 8;

        __oX = 0;

        for (__x=0; __x<__w; __x++) {

            __grey = (__bytes[__srcIdx] * 3)           /* 0.3*r + 0.6*g + b -> 0..2550 */

                     + (__bytes[__srcIdx+1] * 6)

                     + __bytes[__srcIdx+2];   

            __grey = __grey * (__nDither+1) / 2550;    /* 0 .. nDither+1 */

            __srcIdx += 3;

            __dT = __ditherMatrix[__dY + __oX];

            __oX++;

            if (__oX == __dW) __oX = 0;

            __byte = __byte << 1;

            if (__grey > __dT) {

                __byte = __byte | 1;                   /* white */

            }

            __bitCnt--;

            if (__bitCnt == 0) {

                __monoBits[__dstIdx] = __byte;

                __dstIdx++;

                __byte = 0;

                __bitCnt = 8;

            }

        }

        if (__bitCnt != 8) {

            __byte = __byte << __bitCnt;

            __monoBits[__dstIdx] = __byte;

        }

        __oY++; __dY += __dW;

        if (__oY == __dH) {

            __oY = 0;

            __dY = 0;

        }

        __srcIdx = __nextSrc;

        __dstIdx = __nextDst;

    }

%}.

    ^ monoBits

    "

     |i f|

     i := Image fromFile:'bitmaps/granite.tiff'.

     f := i asOrderedDitheredMonochromeFormOn:Display.

    "

    "Created: 7.6.1996 / 10:48:06 / cg"

    "Modified: 7.6.1996 / 11:08:50 / cg"

!

rgbImageAs2PlaneFormOn:aDevice

    "return a 2-bit device form for aDevice from the rgb picture,

     using a threshold algorithm. 

     (i.e. grey value < 0.25 -> black // 0.25..0.5 -> darkgrey //

      0.5 .. 0.75 -> lightgrey // > 0.75 -> white)."

    |twoPlaneBits f

     map rMap gMap bMap 

     failed

     r        "{ Class: SmallInteger }"

     g        "{ Class: SmallInteger }"

     b        "{ Class: SmallInteger }"

     v        "{ Class: SmallInteger }"

     w        "{ Class: SmallInteger }"

     h        "{ Class: SmallInteger }"

     srcIndex "{ Class: SmallInteger }"

     dstIndex "{ Class: SmallInteger }"

     bits     "{ Class: SmallInteger }"

     bitCount "{ Class: SmallInteger }" |

    w := width.

    h := height.

    twoPlaneBits := ByteArray uninitializedNew:(((w * 2 + 7) // 8) * h).

    failed := true.

%{

    register unsigned char *srcPtr, *dstPtr;

    register _v, _bits, _bitCount;

    register j;

    register i;

    if ((__Class(_INST(bytes)) == ByteArray)

     && (__Class(twoPlaneBits) == ByteArray)) {

	failed = false;

	srcPtr = _ByteArrayInstPtr(_INST(bytes))->ba_element;

	dstPtr = _ByteArrayInstPtr(twoPlaneBits)->ba_element;

	for (i=_intVal(h); i>0; i--) {

	    _bitCount = 0;

	    _bits = 0;

	    for (j=_intVal(w); j>0; j--) {

		_v = (*srcPtr++ * 3);   /* 0.3*r + 0.6*g + b */

		_v += (*srcPtr++ * 6);

		_v += *srcPtr++;

		_v /= 10;

		_bits <<= 2; 

		_bits |= (_v >> 6); /* take top 2 bits */

		_bitCount++;

		if (_bitCount == 4) {

		    *dstPtr++ = _bits;

		    _bits = 0;

		    _bitCount = 0;

		}

	    }

	    if (_bitCount != 0) {

		while (_bitCount++ != 4) _bits <<= 2;

		*dstPtr++ = _bits;

	    }

	}

    }

%}.

    failed ifTrue:[

"/ the above is equivalent to:

"/

"/        srcIndex := 1.

"/        dstIndex := 1.

"/        1 to:h do:[:row |

"/            bitCount := 0.

"/            bits := 0.

"/            1 to:w do:[:col |

"/                r := bytes at:srcIndex.

"/                srcIndex := srcIndex + 1.

"/                g := bytes at:srcIndex.

"/                srcIndex := srcIndex + 1.

"/                b := bytes at:srcIndex.

"/                srcIndex := srcIndex + 1.

"/                v := ((3 * r) + (6 * g) + (1 * b)) // 10.

"/                v := v bitShift:-6. "take 2 hi bits"

"/                bits := (bits bitShift:2) bitOr:v.

"/                bitCount := bitCount + 1.

"/                (bitCount == 4) ifTrue:[

"/                    twoPlaneBits at:dstIndex put:bits.

"/                    dstIndex := dstIndex + 1.

"/                    bits := 0.

"/                    bitCount := 0

"/                ]

"/            ].

"/            (bitCount ~~ 0) ifTrue:[

"/                [bitCount == 4] whileFalse:[

"/                    bitCount := bitCount + 1.

"/                    bits := bits bitShift:2.

"/                ].

"/                twoPlaneBits at:dstIndex put:bits.

"/                dstIndex := dstIndex + 1

"/            ]

"/        ]

	self primitiveFailed.

	^ nil

    ].

    f := Form width:width height:height depth:2 on:aDevice.

    f isNil ifTrue:[^ nil].

    f initGC.

    (aDevice blackpixel == 0) ifFalse:[

	"have to invert bits"

	f function:#copyInverted

    ].

    aDevice drawBits:twoPlaneBits depth:2 width:width height:height

		   x:0 y:0

		into:(f id) x:0 y:0 width:width height:height with:(f gcId).

    ^ f

!

rgbImageAs8BitGreyFormOn:aDevice

    "return an 8-bit greyForm from the rgb picture"

    |greyBits f v

     srcIndex "{ Class: SmallInteger }"

     dstIndex "{ Class: SmallInteger }"

     failed|

    greyBits := ByteArray uninitializedNew:(width * height).

    failed := false.

%{

    register unsigned char *srcPtr, *dstPtr;

    register _v;

    register j;

    register i;

    if ((__Class(_INST(bytes)) == ByteArray)

     && (__Class(greyBits) == ByteArray)) {

	failed = false;

	srcPtr = _ByteArrayInstPtr(_INST(bytes))->ba_element;

	dstPtr = _ByteArrayInstPtr(greyBits)->ba_element;

	for (i=_intVal(_INST(height)); i>0; i--) {

	    for (j=_intVal(_INST(width)); j>0; j--) {

		_v = (*srcPtr * 3);     /* 0.3*r + 0.6*g + b */

		_v += (*srcPtr++ * 6);

		_v += *srcPtr++;

		_v /= 10;

		*dstPtr++ = _v >> 4 ;

	    }

	}

    }

%}

.

    failed ifTrue:[

"/ the above is equivalent to:

"/

"/        srcIndex := 1.

"/        dstIndex := 1.

"/

"/        1 to:height do:[:h |

"/            1 to:width do:[:w |

"/                |v

"/                 r        "{ Class: SmallInteger }"

"/                 g        "{ Class: SmallInteger }"

"/                 b        "{ Class: SmallInteger }"|

"/

"/                r := bytes at:srcIndex.

"/                srcIndex := srcIndex + 1.

"/                g := bytes at:srcIndex.

"/                srcIndex := srcIndex + 1.

"/                b := bytes at:srcIndex.

"/                srcIndex := srcIndex + 1.

"/

"/                v := ((3 * r) + (6 * g) + (1 * b)) // 10.

"/                v := v bitShift:-4.

"/                greyBits at:dstIndex put:v.

"/                dstIndex := dstIndex + 1

"/            ]

"/        ]

	self primitiveFailed.

	^ nil

    ].

    f := Form width:width height:height depth:8 on:aDevice.

    f isNil ifTrue:[^ nil].

    f initGC.

    aDevice drawBits:greyBits depth:8 width:width height:height

		       x:0 y:0

		    into:(f id) x:0 y:0 

		   width:width height:height with:(f gcId).

    ^ f

!

rgbImageAsDitheredPseudoFormOn:aDevice

    "return a dithered pseudocolor form from the rgb-picture.

     This method depends on fixColors being allocated (see Color>>getColors*)"

    ^ self rgbImageAsDitheredPseudoFormOn:aDevice

				   colors:Color fixColors

				     nRed:Color numFixRed

				     nGreen:Color numFixGreen

				     nBlue:Color numFixBlue

!

rgbImageAsDitheredPseudoFormOn:aDevice colors:fixColors nRed:nRed nGreen:nGreen nBlue:nBlue

    "return a dithered pseudocolor form from the rgb-picture"

    |pseudoBits f

     h        "{ Class: SmallInteger }"

     w        "{ Class: SmallInteger }"

"/     eR    "{Class: SmallInteger }"

"/     eG    "{Class: SmallInteger }"

"/     eB    "{Class: SmallInteger }"

"/     wantR "{Class: SmallInteger }"

"/     wantG "{Class: SmallInteger }"

"/     wantB "{Class: SmallInteger }"

     fixR  "{Class: SmallInteger }"

     fixG  "{Class: SmallInteger }"

     fixB  "{Class: SmallInteger }"

     srcIndex "{ Class: SmallInteger }"

     dstIndex "{ Class: SmallInteger }"

     deviceDepth has8BitImage 

     fixIds failed|

    aDevice ~~ Display ifTrue:[^ nil].

    fixR := nRed.

    fixR == 0 ifTrue:[ ^ nil].

    fixG := nGreen.

    fixG == 0 ifTrue:[ ^ nil].

    fixB := nBlue.

    fixB == 0 ifTrue:[ ^ nil].

    "/ simple check

    (fixR * fixG * fixB) ~~ fixColors size ifTrue:[

	self error:'invalid color array passed'.

	^ nil

    ].

    fixIds := (fixColors asArray collect:[:clr | clr colorId]) asByteArray.

    deviceDepth := aDevice depth.

    deviceDepth == 8 ifTrue:[

	has8BitImage := true.

    ] ifFalse:[