Sdl.init [`VIDEO];;
let (bpp, w, h) = (24, 700, 480);;
let screen = Sdlvideo.set_video_mode ~w:w ~h:h ~bpp:bpp [`HWSURFACE];;
let tux = Sdlloader.load_image "wall9.jpg";;
let tax = Sdlvideo.display_format tux;;
Sdlvideo.blit_surface ~dst:screen ~src:tax;;
Sdlvideo.flip screen;;
Sdltimer.delay 3000;;
Sdl.quit;;
OcamlSdl c'est bien, mais pas documenté pour un rond...
si qq'un peu m'éclairer, je suis vraiment un nOOb de chez nOOb...
Journal [OCaml] Sdl et ecran tout noir, Beuuuuhh......
23
mar.
2004

