Altering DrawText character spacing

Like this? ;)

Function DrawTextSpaced( t$,x#,y#, space:Int)

	Function Draw( font:TImageFont, text$,x#,y#,ix#,iy#,jx#,jy#, space:Int )
		For Local i:Int=0 Until text.length
		
			Local n:Int=font.CharToGlyph( text[i] )
			If n<0 Continue
			
			Local glyph:TImageGlyph=font.LoadGlyph(n)
			Local image:TImage=glyph._image
			
			If image
				Local frame:TImageFrame=image.Frame(0)
				If frame
					Local tx#=glyph._x*ix+glyph._y*iy+(i*space)
					Local ty#=glyph._x*jx+glyph._y*jy			
					frame.Draw 0,0,image.width,image.height,x+tx,y+ty
				EndIf
			EndIf
			
			x:+glyph._advance*ix
			y:+glyph._advance*jx
		Next		
	EndFunction
	
	Local gc:TMax2DGraphics = TMax2DGraphics.Current()	

	Draw GetImageFont(), t,..
	x+gc.origin_x+gc.handle_x*gc.tform_ix+gc.handle_y*gc.tform_iy,..
	y+gc.origin_y+gc.handle_x*gc.tform_jx+gc.handle_y*gc.tform_jy,..
	gc.tform_ix,gc.tform_iy,gc.tform_jx,gc.tform_jy, space
EndFunction

(Code ripped from BRL.ImageFont and BRL.Max2D)