woop.ml

(* Woop - Loop Center
################################################################################
#    Wins is a "Point and Click" Game Motor written with OCaml                 #
#    Copyright (C) 2013    Philémon Gardet [philemon.gardet@epita.fr]          #
#                          Rafael Gozlan [rafael.gozlan@epita.fr]              #
#                                                                              #
#    This program is free software: you can redistribute it and/or modify      #
#    it under the terms of the GNU General Public License as published by      #
#    the Free Software Foundation, either version 3 of the License, or         #
#    (at your option) any later version.                                       #
#                                                                              #
#    This program is distributed in the hope that it will be useful,           #
#    but WITHOUT ANY WARRANTY; without even the implied warranty of            #
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the             #
#    GNU General Public License for more details.                              #
#                                                                              #
#    You should have received a copy of the GNU General Public License         #
#    along with this program.  If not, see <http://www.gnu.org/licenses/>.     #
################################################################################
*)

(* Globals variables *********************************************************)
let ticks = ref 0

(* Functions *****************************************************************)
let bigLoop () =
	let window = Jed.getWindow () in
	while window#isRuning do
		ticks := 17 + Sdltimer.get_ticks (); (*17 ms -> 60fps*)
		
		(* Debug *
		print_string ("tick : "^string_of_int(!ticks)^"\n");
		flush stdout;
		*)
		window#updateWindow;
		
		while (Sdltimer.get_ticks ()) <= !ticks do () done;
	done
;;