2019-09-12 10:33:56 -07:00
|
|
|
open Sdl
|
2013-04-11 01:07:29 -07:00
|
|
|
|
2019-09-12 10:33:56 -07:00
|
|
|
let () =
|
|
|
|
|
let width, height = (640, 480) in
|
|
|
|
|
Sdl.init [`VIDEO];
|
|
|
|
|
let window, renderer =
|
|
|
|
|
Render.create_window_and_renderer
|
|
|
|
|
~width ~height ~flags:[]
|
2013-04-11 01:07:29 -07:00
|
|
|
in
|
2019-09-12 10:33:56 -07:00
|
|
|
let rgb = (0, 255, 0) in
|
|
|
|
|
let a = 255 in
|
|
|
|
|
Render.set_draw_color renderer rgb a;
|
|
|
|
|
Render.clear renderer;
|
|
|
|
|
Render.render_present renderer;
|
|
|
|
|
Timer.delay 3000;
|
|
|
|
|
Sdl.quit ()
|
