LOCAL System AS xfcSystem

System = NEWOBJECT("xfcSystem","system")

LOCAL loGfx AS xfcGraphics
LOCAL loFont AS xfcFont
LOCAL loBrush AS xfcSolidBrush
LOCAL loState AS xfcGraphicsState

WITH System.Drawing AS xfcDrawing

	This.Clear()

	loGfx = This.oGfx
	loFont = .Font.New("Arial", 14 )
	loBrush = .Brushes.Blue
	
	loState = loGfx.Save()
	loGfx.TranslateTransform(This.Width/ 2 ,This.Height/ 2 )
	FOR x =  1  TO  8 
		loGfx.RotateTransform( 45 )
		loGfx.DrawString("FoxPro Rocks!", loFont, loBrush,  0 , 0 )
	ENDFOR
	loGfx.Restore(loState)
	

ENDWITH