Function Is_create_fontSurface(mesh,image$,fxflag=1,tflag=1)
	Local wert=1
	image=LoadImage (image$)
	iw=ImageWidth (image) : ih=ImageHeight (image)
	;errechnet texturweite
	For tex_w=0 To 10
		If iw<=wert tw=wert Exit 
		wert=wert Shl 1
	Next
	wert=1
	;errechnet texturhöhe
	For tex_w=0 To 10
		If ih<=wert th=wert Exit 
		wert=wert Shl 1
	Next
	;erstellt eine Textur mit flags
	tex=CreateTexture (tw,th,tflag)
	;copiert das Image in die textur
	CopyRect 0,0,iw,ih,0,0 ,ImageBuffer(image),TextureBuffer(tex)
	;setzt surface und die FX flags
	surface=CreateSurface(mesh)
	Brush=CreateBrush ()
	BrushFX brush,fxflag
	BrushTexture brush,tex
	PaintSurface surface,brush
	FreeBrush brush	
	Return  surface
End Function

	;erstellt eine Textur mit flags
	tex=CreateTexture (tw,th,tflag)
	LockBuffer (ImageBuffer(image))
	LockBuffer (TextureBuffer(tex))
	;füllen der Texture mit maskfarbe 
	For x = 0 To tw -1
		For y = 0 To th-1	
	    	WritePixelFast x,y,0, TextureBuffer(tex)
		Next
	Next
	;auslesen der RGB und umwandeln in RGB+Alpha werte
	For x = 0 To iw -1
		For y = 0 To ih-1
			;RGB werte einlesen
			rgb= ReadPixelFast (x,y,ImageBuffer(image))
			;RGB werte umwandeln
			a=(rgb And $FF000000)/$1000000
			r=(rgb And $FF0000)/$10000
			g=(rgb And $FF00)/$100
			b=rgb And $FF
			rgb=a*$1000000 + r*$10000 + g*$100 + b
			If r=0 And g=0 And b=0
				;maskfarbe schreiben
				WritePixelFast x,y,0, TextureBuffer(tex)
			Else
				;neue Frarbwerte schreiben
				WritePixelFast x,y,rgb, TextureBuffer(tex)
			EndIf 
		Next
	Next
	UnlockBuffer (ImageBuffer(image))
	UnlockBuffer (TextureBuffer(tex))