DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
        s=beta; d=gmail.com;
        h=received:message-id:date:from:reply-to:to:subject:mime-version:content-type:content-transfer-encoding:content-disposition;
        b=esRKwDeMTLlymy+PyWIZQnX1/fFfA3uqDZDS2xXroEXP7OzBsmINNIa9lJTUhJBLJOYovQyI/INJc9Wjz0Zu79x8U8R5VOFwfQBdRh/+CCdY+EpyB9lp6mnqDz5fjcomYOQ5uJSvXOZJAXOTqqwfgBAVdDgQXcdBSEGz6LKd0LM=
Message-ID: <e919163f0510050122u5e25b3f9j at mail.gmail.com>
Date: Wed, 5 Oct 2005 10:22:46 +0200
From: Maurizio Colucci <maurizio.colucci at gmail.com>
Reply-To: Maurizio Colucci <maurizio.colucci at gmail.com>
To: lablgtk at math.nagoya-u.ac.jp
Subject: sdl together with opengl?
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

Hello,

Is it possible to use ocamlsdl together with lablgl? Is there any
reason against?

If it's possible, I am afraid I need an example of how to set up the
video mode for interaction with lablgl. I couldn't find any. I made a
simple test and I got a crash:

---

open Sdl
open Sdlvideo

init [`VIDEO]

(* opening a windows 320x200 16 bpp *)
let (bpp, w, h) = (16, 320, 200)
let screen = set_video_mode ~w ~h ~bpp [`OPENGL]

fill_rect screen (map_RGB screen white)
put_pixel_color screen ~x:160 ~y:100 red
flip screen

quit()

---

Thanks for any help

Maurizio