debugGame.ml

open OcsfmlWindow
open OcsfmlGraphics
open Camera2d2
open MorpionDef
open Morpion
open Common

let morpion_width0 = 500.
let morpion_pos0 = 0.0, 0.0

let morpion_pos = ref morpion_pos0
let morpion_width = ref morpion_width0

let main_morpion_debug (app : #render_window) = 
  let morpion = creer_grille () in 
  let morpion_modified = ref true in 
  
  let renderer = new render_texture 800 600 in 
  let camera2D = camera2D renderer 800. 600. in 
  let update_renderer () = 
    renderer#clear ~color:Color.white () ;
    let (pos, dim) = camera2D#apply_extern_zoom morpion_pos0 morpion_width0 in
    morpion_pos := pos ;
    morpion_width := dim ;
    draw_with_rect renderer !morpion_pos !morpion_width morpion camera2D#get_visual_rect ;
    renderer#display 
  in  

  let cursor =  
    let cercle_spr = new circle_shape ~radius:30. ~fill_color:Color.red ~outline_color:Color.black ~outline_thickness:2. () in
    let croix_spr = new rectangle_shape ~size:(40.,40.) ~fill_color:Color.blue ~outline_color:Color.black ~outline_thickness:2. () in 
    let grid_texture = new texture (`File "grid.png") in 
    let grid_spr = new sprite ~texture:grid_texture () in 
    cercle_spr # scale 0.75 0.75 ; croix_spr # scale 0.75 0.75 ; grid_spr # scale 0.75 0.75 ; 
    let eval () = 
      let x, y = app#convert_coords (Mouse.get_relative_position app) in 
      let pos = x +. 10.0, y +. 10.0 in 
      if Keyboard.is_key_pressed KeyCode.LControl 
      then (cercle_spr#set_position_v pos ; app#draw cercle_spr)
      else if Keyboard.is_key_pressed KeyCode.LAlt
      then (croix_spr#set_position_v pos ; app#draw croix_spr)
      else if Keyboard.is_key_pressed KeyCode.LShift
      then (grid_spr#set_position_v pos ; app#draw grid_spr)
    in eval
  in 

  let process_event b evt =
    let open Event in 
    match evt with 
      | Closed -> app#close ; false 
      | KeyPressed { code = KeyCode.Escape ; _ } -> false 
      | KeyPressed { code = KeyCode.Left ; _ } -> camera2D#activate_horizontal (-1) ; b
      | KeyPressed { code = KeyCode.Right ; _ } -> camera2D#activate_horizontal 1 ; b
      | KeyPressed { code = KeyCode.Up ; _ } -> camera2D#activate_vertical (-1) ; b
      | KeyPressed { code = KeyCode.Down ; _ } ->  camera2D#activate_vertical 1 ; b
      | KeyReleased { code = KeyCode.Left ; _ } -> camera2D#activate_horizontal 0 ; b
      | KeyReleased { code = KeyCode.Right ; _ } -> camera2D#activate_horizontal 0 ; b
      | KeyReleased { code = KeyCode.Up ; _ } -> camera2D#activate_vertical 0 ; b
      | KeyReleased { code = KeyCode.Down ; _ } ->  camera2D#activate_vertical 0 ; b
      | MouseWheelMoved ( k , { x ; y } ) -> camera2D#scroll k x y ; b
      | MouseButtonPressed (_, { x ; y }) -> 
	  let pos = renderer#convert_coords (x,y) in 
	  let path = get_position_coup_vide !morpion_pos !morpion_width morpion pos in 
          begin match path with 
	    | None -> b
	    | Some l -> 
		if Keyboard.is_key_pressed KeyCode.LControl 
		then modify_at_path (l,morpion) (fun _ -> creer_joueur Cercle) 
		else if Keyboard.is_key_pressed KeyCode.LAlt
		then modify_at_path (l,morpion) (fun _ -> creer_joueur Croix) 
		else if Keyboard.is_key_pressed KeyCode.LShift
		then modify_at_path (l,morpion) (fun _ -> creer_grille ())
		else if Keyboard.is_key_pressed KeyCode.Space
		then camera2D#recenter (get_geometry_at_path !morpion_pos !morpion_width l)
		else print_case !morpion_pos !morpion_width (Some l) ;
		morpion_modified := true ;
		b end
      | _ -> b
  in 

  let display () = 
    app#clear ~color:Color.white () ;
    app#draw (new sprite ~texture:renderer#get_texture ()) ;
    camera2D#disable ;
    cursor () ;
    camera2D#enable ;
    app#display 
  in 

  let rec event_loop () = 
    let b = while_opt (fun () -> app#poll_event) process_event true in 
    if camera2D#update || !morpion_modified 
    then (update_renderer () ; morpion_modified := false) ;
    display () ;
    if app#is_open && b then event_loop () 
  in 

  event_loop () ;
  camera2D#disable ;
  Some (EntryPoint)