Anonymous user
Window creation: Difference between revisions
→{{header|OCaml}}: added ocamlsdl2 example
m (→{{header|OCaml}}: pasting error) |
(→{{header|OCaml}}: added ocamlsdl2 example) |
||
Line 1,524:
execute with:
ocaml bigarray.cma -I +sdl sdl.cma sample.ml
{{libheader|OCamlSDL2}}
<lang ocaml>open Sdl
let () =
let width, height = (640, 480) in
Sdl.init [`VIDEO];
let window, renderer =
Render.create_window_and_renderer
~width ~height ~flags:[]
in
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 ()</lang>
execute with:
ocaml -I +sdl2 sdl2.cma sample.ml
{{libheader|ocaml-sfml}}
| |||