;; Tic-tac-toe

float ulx = 480
float uly = 105
float cell_height = 48.0
float cell_width = 50.0
int[3,3] board

;; move the pen to a given location
sub move_pen(float[8] position)
cloc point
here(point)
loc_cdata_set(point,position)
loc_re_check(point)
moves(point)
finish()
end sub

;; move the eye to a give location
sub move_eye(float[8] position)
float[8] pos
int i
cloc point
for i=0 to 7
	pos[i] = position[i]
end for
pos[0] = pos[0] + 150 * cos(45)
pos[2] = 150 - 150 * cos(45) + pos[2]

here(point)
loc_cdata_set(point,pos)
loc_re_check(point)
move(point)
finish()
end sub

;; draw grid
sub draw_grid()
float[8] point
int pen = 12
point[0] = ulx 
point[1] = uly 
point[2] = 25
point[3] = 0
point[4] = 90
point[5] = 0
move_pen(point)
point[2] = pen
move_pen(point)
point[0] = ulx - 3*cell_height
move_pen(point)
point[1] = uly - 3*cell_width
move_pen(point)
point[0] = ulx
move_pen(point)
point[1] = uly
move_pen(point)
point[2] = 25
move_pen(point)
point[0] = ulx - cell_height
move_pen(point)
point[2] = pen
move_pen(point)
point[1] = uly - 3*cell_width
move_pen(point)
point[2] = 25
move_pen(point)
point[0] = ulx-2*cell_height
point[1] = uly
move_pen(point)
point[2] = pen
move_pen(point)
point[1] = uly - 3*cell_width
move_pen(point)
point[2] = 25
move_pen(point)
point[0] = ulx
point[1] =uly - cell_width
move_pen(point)
point[2] = pen
move_pen(point)
point[0] = ulx - 3 * cell_height
move_pen(point)
point[2] = 25
move_pen(point)
point[0] = ulx
point[1] = uly - 2 * cell_width
move_pen(point)
point[2] = pen
move_pen(point)
point[0] = ulx - 3 * cell_height
move_pen(point)
ready()
end sub


main
const tool_length = 265
cloc tool_data = cloc{0,tool_length,0,0,0,0,0,0,0}
tool_set(tool_data)

speed(10)
ready()
draw_grid()
;; play a game of tic-tac-toe
ready()
end main