#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>

Global $iWidth = @DesktopWidth - @DesktopWidth*15/100
Global $iHeight	=	@DesktopHeight - @DesktopHeight*15/100
$iScale = 3
Global $iSquareH	=	14*$iScale
Global $aSquares[0][3]
Global $iSquaresRows = 0
Global $aPaths[0][3]
Global $iPathsRows = 0
Global $aCurrentPos[2]
$aCurrentPos[0] = $iWidth/2
$aCurrentPos[1] = $iHeight/2

Opt("GUIOnEventMode" , 1)
$gui=GUICreate("Graph" , $iWidth, $iHeight)
$gBN = GUICtrlCreateButton("N", 40, 10, 30, 30)
$gBW = GUICtrlCreateButton("W", 10, 40, 30, 30)
$gBNW = GUICtrlCreateButton("NW", 10, 10, 30, 30)
$gBNE = GUICtrlCreateButton("NE", 70, 10, 30, 30)
$gBE = GUICtrlCreateButton("E", 70, 40, 30, 30)
$gBS = GUICtrlCreateButton("S", 40, 70, 30, 30)
$gBSW = GUICtrlCreateButton("SW", 10, 70, 30, 30)
$gBSE = GUICtrlCreateButton("SE", 70, 70, 30, 30)


GUISetState(@SW_SHOW)

GUISetBkColor($COLOR_WHITE)
GUISetOnEvent($GUI_EVENT_CLOSE , "quit")

ReDim $aSquares[UBound($aSquares , 1) + 1][3]
$aSquares[UBound($aSquares , 1) - 1][0] = GUICtrlCreateGraphic($aCurrentPos[0], $aCurrentPos[1], $iSquareH, $iSquareH)
$aSquares[UBound($aSquares , 1) - 1][1] = $aCurrentPos[0]
$aSquares[UBound($aSquares , 1) - 1][2] = $aCurrentPos[1]
GUICtrlSetColor($aSquares[UBound($aSquares , 1) - 1][0], $COLOR_BLACK)
GUICtrlSetBkColor(-1, 0x66ff99)

ReDim $aPaths[UBound($aPaths , 1) + 1][3]
$aPaths[UBound($aPaths , 1) - 1][0] = GUICtrlCreateGraphic($aCurrentPos[0]-$iSquareH, $aCurrentPos[1], $iSquareH, $iSquareH)
$aPaths[UBound($aPaths , 1) - 1][1] = $aCurrentPos[0]-$iSquareH
$aPaths[UBound($aPaths , 1) - 1][2] = $aCurrentPos[1]
GUICtrlSetGraphic($aPaths[UBound($aPaths , 1) - 1][0], $GUI_GR_MOVE, 0, $iSquareH/2)
GUICtrlSetGraphic($aPaths[UBound($aPaths , 1) - 1][0], $GUI_GR_COLOR, $COLOR_BLACK)
GUICtrlSetGraphic($aPaths[UBound($aPaths , 1) - 1][0], $GUI_GR_LINE, $iSquareH, $iSquareH/2)



While 1
Sleep(10)
WEnd

Func quit()
	Exit 1
EndFunc