14 lines
359 B
Text
14 lines
359 B
Text
open Sdl
|
|
|
|
let () =
|
|
let width, height = (320, 240) in
|
|
Sdl.init [`VIDEO];
|
|
let window, renderer =
|
|
Render.create_window_and_renderer ~width ~height ~flags:[]
|
|
in
|
|
let rgb = (255, 0, 0) and a = 255 in
|
|
Render.set_draw_color renderer ~rgb ~a;
|
|
Render.draw_point renderer (100, 100);
|
|
Render.render_present renderer;
|
|
Timer.delay 3000;
|
|
Sdl.quit ()
|