glActiveTexture GL_TEXTURE0+1 'Die zweite Textureinheit ist jetzt ausgewählt...
glEnable GL_TEXTURE_2D 'und aktiviert.
glBindTexture GL_TEXTURE_2D, TGLImageFrame(AlphaImage.Frame(frame)).name 'Die Alphatextur wird genutzt.
glTexEnvi GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE 'Die jeweiligen Farbwerte werden jetzt miteinander multipliziert.
glActiveTexture GL_TEXTURE0 'Damit Max2D keinen Unsinn macht, wird wieder die standardmäßige Textureinheit ausgewählt.

glActiveTexture GL_TEXTURE0+1 'Die zweite Textureinheit ist jetzt ausgewählt...
glDisable GL_TEXTURE_2D 'und deaktiviert.
glActiveTexture GL_TEXTURE0 'Damit Max2D keinen Unsinn macht, wird wieder die standardmäßige Textureinheit ausgewählt.

For Local destX:Int=0 Until destPixmap.width
   For Local destY:Int=0 Until destPixmap.height
      Local srcX:Int=destX Mod srcPixmap.width
      Local srcY:Int=destY Mod srcPixmap.height
      WritePixel destPixmap,destX,destY,ReadPixel(srcPixmap,srcX,srcY) 'Dein Bearbeitungscode kommt hier hin.
   Next
Next

Graphics 1024, 768

Local CharPix:Int
Local FlagPix:Int
Local PixMapFlag:TPixmap
Local PixMapChar:TPixmap


PixMapFlag = LockImage(tiFlagUSA, 0, 1, 0)
PixMapChar = LockImage(tiPacChar, 0, 1, 1)

For Local destX:Int = 0 Until PixMapChar.width
   For Local destY:Int = 0 Until PixMapChar.height
     	Local srcX:Int = destX Mod PixMapFlag.width
     	Local srcY:Int = destY Mod PixMapFlag.height
		
		Local rgbDest:Int = ReadPixel(pixmapchar, destx, desty)
	 	Local aDest:Int = (rgbDest And $FF000000) / $1000000
		Local rDest:Int = (rgbDest And $FF0000) / $10000
		Local gDest:Int = (rgbDest And $FF00) / $100
		Local bDest:Int = rgbDest And $FF
		
		Local rgbSource:Int = ReadPixel(pixmapflag, srcX, srcY)
	 	Local aSrc:Int = (rgbSource And $FF000000) / $1000000
		Local rSrc:Int = (rgbSource And $FF0000) / $10000
		Local gSrc:Int = (rgbSource And $FF00) / $100
		Local bSrc:Int = rgbSource And $FF
		
		If aDest > 20 Then
			'rgbSource = aSrc * $1000000 + rSrc * $10000 + gSrc * $100 + bSrc
			rgbSource = rgbSource And $FFFFFF
      		WritePixel PixMapChar, destX, destY, rgbSource 'Dein Bearbeitungscode kommt hier hin.
   		EndIf
   Next
Next

Repeat
	Cls
	
		DrawPixmap(PixMapChar, 512, 340)
	
	Flip
Until KeyDown(KEY_ESCAPE)

Function PixmapMask:TPixmap (source:TPixmap, mask:TPixmap)

	'source pixmap kopieren und verkleinern
	Local s:TPixmap = ResizePixmap(source, mask.width, mask.height)

	'neue pixmap erstellen und leeren
	Local d:TPixmap = CreatePixmap(mask.width, mask.height, mask.format)
	ClearPixels(d, $00000000)

	Local argb:Int, dest_argb:Int, a:Int, r:Int, g:Int, b:Int

	For Local x:Int = 0 Until mask.width
		For Local y:Int = 0 Until mask.height

			'masken farbe auslesen
			argb = ReadPixel(mask, x, y)

			'wir brauchen nur die alpha-komponente der maske
			a = (argb Shr 24) & $FF

			'es gibt einen farbigen pixel in der maske
			If a > 0

				'source farbe auslesen und in komponenten aufteilen,
				'wir brauchen nur die rot-, gruen- und blau-komponenten
				dest_argb = ReadPixel(s, x, y)
				r = (dest_argb Shr 16) & $FF
				g = (dest_argb Shr 8) & $FF
				b = (dest_argb) & $FF

				'pixel mit der alpha-komponente der maske und den farb-komponenten der source
				'in die neue pixmap schreiben
				WritePixel(d, x, y, $00000000 | (a Shl 24) | (r Shl 16) | (g Shl 8) | b)
			EndIf
		Next
	Next
	s = Null

	Return d
End Function

Graphics (640,480,0)

Global mask:TPixmap = LoadPixmap("mask.png")
Global flag:TPixmap = LoadPixmap("flag.png")
Global dest:TPixmap = PixmapMask(flag, mask)

Global render_mask:TImage = LoadImage(mask)
Global render_flag:TImage = LoadImage(flag)
Global render_dest:TImage = LoadImage(dest)

SetClsColor(128,128,128)
SetBlend (ALPHABLEND)
Repeat

	DrawImage(render_mask, 0, 0)
	DrawImage(render_flag, ImageWidth(render_mask),0)
	DrawImage(render_dest, ImageWidth(render_mask) + ImageWidth(render_flag),0)

	Flip(1)
	Cls()

Until KeyHit(KEY_ESCAPE)