🚀 go-pugleaf

I use this code selected the rect which has red eyes.

// the selected rect which has red eye
// the selected image part GWorld - theSelectImageGWorld
LGWorld*	theSelectImageGWorld = NEW LGWorld( theSelectRect,32 );
ThrowIfNil_( theSelectImageGWorld ); 

// the orignal image GWorld - theImageGWorld
PixMapHandle	theOPixMapH = ::GetGWorldPixMap(
theImageGWorld->GetMacGWorld() );
PixMapHandle	theSelectPixMapH = ::GetGWorldPixMap(
theSelectImageGWorld->GetMacGWorld() );
Ptr theOBaseAddr = ::GetPixBaseAddr( theOPixMapH );
Ptr theSelectBaseAddr = ::GetPixBaseAddr( theSelectPixMapH );
short  theORowBytes = ::GetPixRowBytes( theOPixMapH );
short  theSelectRowBytes = ::GetPixRowBytes( theSelectPixMapH );

::LockPixels( theOPixMapH );
::LockPixels( theSelectPixMapH );
{
	Ptr		theSrcPtr, theDstPtr;
	for(short theY = mSelRectToImageOrignal.top; theY <
mSelRectToImageOrignal.bottom; theY++)
	{
		theSrcPtr = theOBaseAddr + theORowBytes * theY;
		theSrcPtr += mSelRectToImageOrignal.left << 2;
		theDstPtr = theSelectBaseAddr + theSelectRowBytes * ( theY -
mSelRectToImageOrignal.top );
		for (short theX = mSelRectToImageOrignal.left; theX <
mSelRectToImageOrignal.right; theX++)
		{
			* ((long*) theDstPtr++) = * ((long*) theSrcPtr++);
			* ((long*) theDstPtr++) = * ((long*) theSrcPtr++);
			* ((long*) theDstPtr++) = * ((long*) theSrcPtr++);
			* ((long*) theDstPtr++) = * ((long*) theSrcPtr++);

		}	
	}		
}
::UnlockPixels( theOPixMapH );
::UnlockPixels( theSelectPixMapH );

what can I do to removing red eye in the selected image part?