glenux/justnukeit
glenux/justnukeit
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Video: load intro image.

Browse source
This commit is contained in:
Glenn Y. Rolland 2011-02-04 15:23:52 +01:00
parent a7cfa81c3b
commit 701ee1709e
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Video.ml
View file

@ -35,7 +35,23 @@ let init config =
in ( in (
video.width <- config.Config.video_width ; video.width <- config.Config.video_width ;
video.height <- config.Config.video_height ; video.height <- config.Config.video_height ;
video.screen <- Some screen_surface (* FIXME: test that screen surface exists *)
video.screen <- Some screen_surface ;
let image_intro_filename = "images/intro.jpg" in
let image_intro = Sdlloader.load_image image_intro_filename in
let image_intro_position = Sdlvideo.rect 0 0 640 480
in (
(* fill with white *)
Sdlvideo.fill_rect screen_surface (Sdlvideo.map_RGB screen_surface Sdlvideo.white) ;
Sdlvideo.put_pixel screen_surface ~x:160 ~y:100
(Sdlvideo.map_RGB screen_surface Sdlvideo.red);
Sdlvideo.flip screen_surface ;
(* draw intro image *)
Sdlvideo.blit_surface ~dst_rect:image_intro_position
~src:image_intro ~dst:screen_surface ();
Sdlvideo.flip screen_surface ;
)
) )
;; ;;