Skip to content
Browse files

add new test

  • Loading branch information...
1 parent afb44b2 commit 66af0bf2ded738d8f9e9792c36efa9d25b3b128d pushkin committed Sep 25, 2012
Showing with 6 additions and 2 deletions.
  1. +6 −2 test/example.ml
View
8 test/example.ml
@@ -832,7 +832,7 @@ value url_loader (stage:Stage.c) =
);
value pvr (stage:Stage.c) =
- let image = Image.load "0.jpg" in
+ let image = Image.load "Boom.png" in
stage#addChild image;
value glow (stage:Stage.c) =
@@ -1376,7 +1376,11 @@ let stage width height =
initializer begin
debug "%s" (Render.get_gl_extensions ());
- pvr self;
+ let timer = Timer.create ~repeatCount:1 2. "PZIDA" in
+ (
+ ignore(timer#addEventListener Timer.ev_TIMER_COMPLETE (fun _ _ _ -> pvr self));
+ timer#start ()
+ );
(* Sound.init (); *)

0 comments on commit 66af0bf

Please sign in to comment.
Something went wrong with that request. Please try again.