2013-04-11 01:07:29 -07:00
|
|
|
let () =
|
2019-09-12 10:33:56 -07:00
|
|
|
let app = SFRenderWindow.make (640, 480) "OCaml-SFML Windowing" in
|
|
|
|
|
|
|
|
|
|
let rec loop () =
|
|
|
|
|
let continue =
|
|
|
|
|
match SFRenderWindow.pollEvent app with
|
|
|
|
|
| Some SFEvent.Closed -> false
|
|
|
|
|
| _ -> true
|
|
|
|
|
in
|
|
|
|
|
SFRenderWindow.clear app SFColor.black;
|
|
|
|
|
SFRenderWindow.display app;
|
|
|
|
|
if continue then loop ()
|
|
|
|
|
in
|
|
|
|
|
loop ()
|
