(* TP07 : ricochet robots - partie 1 *)

(* description du plateau de jeu *)

(* les murs *)

let obs_l = [| [|0; 4; 10; 16|]; [|0; 14; 16|]; [|0; 6; 16|];
   [|0; 9; 16|]; [|0; 3; 15; 16|]; [|0; 7; 16|]; [|0; 1; 12; 16|]; [|0; 7; 9; 16|];
   [|0; 7; 9; 16|]; [|0; 4; 13; 16|]; [|0; 6; 16|]; [|0; 10; 16|]; [|0; 8; 16|];
   [|0; 2; 15; 16|]; [|0; 4; 10; 16|]; [|0; 5; 12; 16|] |];;

let obs_c = [| [|0; 5; 11; 16|]; [|0; 6; 13; 16|]; [|0; 4; 16|];
   [|0; 15; 16|]; [|0; 10; 16|]; [|0; 3; 16|]; [|0; 10; 16|]; [|0; 6; 7; 9; 12; 16|];
   [|0; 7; 9; 16|]; [|0; 3; 12; 16|]; [|0; 14; 16|]; [|0; 16|]; [|0; 7; 16|];
   [|0; 2; 10; 16|]; [|0; 4; 13; 16|]; [|0; 2; 12; 16|] |];;


(* position et couleurs des robots *)

let robots = [|(5,12); (0,0); (2,1); (4,7);|];;
let colors = [|Graphics.red; Graphics.green; Graphics.blue; Graphics.yellow;|];;

(* l'arrivée *)

let lig_arriv, col_arriv = (14,3);;


(* affichage du plateau *)

let affiche_grille () = () (* A FAIRE : espacement entre lignes/colonnes successives 50 pixels *);;

let place_murs () = () (* A FAIRE *);;

let traceRobots () = () (* A FAIRE *);;

let traceArrivee () = () (* A FAIRE *);;

(* déplacement *)

let deplaceRobot i direction = () (* A FAIRE *);;

let jeu () =
   Graphics.open_graph " 801x801";
   Graphics.set_window_title "Ricochet Robots";
   Graphics.read_key ();;

jeu ();;