Re: [ocamlsdl-user] sdlttf + lablgl

[Jacques Le N. <rat...@gm...>]

tried it, nothing happened. Here's the code:

let font_filename  = "test.ttf"
let font_size = 29
let _ = Sdl.init [`VIDEO]
let _ =   Sdlttf.init ()
let font = Sdlttf.open_font font_filename font_size
let screen = Sdlvideo.set_video_mode 400 400 [`OPENGL]


let pair_to_rect (a,b) =
  Sdlvideo.rect a b 100 100


let loop () =
      GlClear.color (0.0, 0.0, 0.0);
      GlClear.clear [`color];
      GlDraw.color (1.0, 1.0, 1.0);
      let text_surface =
    Sdlttf.render_text_blended font "hello world" ~fg:Sdlvideo.white
      in
    Sdlvideo.blit_surface
      ~dst_rect:(pair_to_rect (100,100))
      ~src:text_surface
      ~dst:screen
      ();
    Sdlvideo.update_rect screen

let run () =
  while true do
    loop ();
    Sdlgl.swap_buffers ()
  done


let main () =
  at_exit Sdl.quit;
  at_exit Sdlttf.quit;
  run ()

let _ = main ()


On Tue, Apr 14, 2009 at 4:04 PM, Eric Cooper <ec...@cm...> wrote:

> On Tue, Apr 14, 2009 at 10:14:57AM -0400, Jacques Le Normand wrote:
> > I'm trying to get a simple sdlttf + lablgl example to work. The
> > following code displays a blank window; what am I doing wrong?
>
> You might need to call update_rect after you call blit_surface.
>
> --
> Eric Cooper             e c c @ c m u . e d u
>
>
> ------------------------------------------------------------------------------
> This SF.net email is sponsored by:
> High Quality Requirements in a Collaborative Environment.
> Download a free trial of Rational Requirements Composer Now!
> http://p.sf.net/sfu/www-ibm-com
> _______________________________________________
> ocamlsdl-user mailing list
> oca...@li...
> https://lists.sourceforge.net/lists/listinfo/ocamlsdl-user
>