require 'bizzieLibrary'

$animate = true
$clear = true

$display = Proc.new {
	if $clear
		GL.Clear(GL::COLOR_BUFFER_BIT)
		$clear = false
	end
		
	GL.Flush
}

$mouseClick = Proc.new {|button, state, x, y|  
}

$mouseMove = Proc.new {|x , y|
}
  

$keyboard = Proc.new {|key, x, y|
	case (key)
	
	when 'x'[0], 'X'[0]
	when 'c'[0], 'C'[0]
		$clear = true
	when '='[0], '+'[0]
	when '-'[0], '_'[0]
	when 't'[0], 'T'[0]
	when 'r'[0], 'R'[0]
	when 'a'[0], 'A'[0]
      
	when 27  #/*  Escape Key  */
		exit(0);
	end
}

require 'startGL'