|
Exception
exception SDLvideo_exception of string
Types
type rect = RectMax | Rect of int * int * int * int
type color = IntColor of int * int * int | FloatColor of float * float * float
type pixels = Pixels of string * int * int | APixels of string * int * int | RGBPixels of color array array | Buffer of int * int
type surface
type video_info = { hw_available : bool;
: bool;
: bool;
: bool;
: bool;
: bool;
: bool;
: bool;
: bool;
: int;
}
type pixel_data = (int, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
type common_video_flag = | SWSURFACE
Surface is in system memory
| HWSURFACE
Surface is in video memory
| SRCCOLORKEY
Blit uses a source color key
| SRCALPHA
Blit uses source alpha blending
type ext_video_flag = | ASYNCBLIT
Enables the use of asynchronous to the display surface
| ANYFORMAT
Allow any video pixel format
| HWPALETTE
Give SDL exclusive palette access
| DOUBLEBUF
Set up double-buffered video mode
| FULLSCREEN
Surface is a full screen display
| OPENGL
OpenGL rendering
| OPENGLBLIT
| RESIZABLE
Create a resizable window
| NOFRAME
Frame without titlebar
type video_flag = | C of common_video_flag | E of ext_video_flag
|
val get_video_info : unit -> video_info;;
returns information about the video hardware
val get_display_surface : unit -> surface;;
returns the current display surface
val set_display_mode : int -> int -> int -> surface;;
val video_mode_ok : int -> int -> int -> video_flag list -> bool
video_mode_ok width height bpp flags
val set_video_mode : int -> int -> int -> video_flag list -> surface
set_video_mode width height bpp flags
Set up a video mode with the specified width, height and bits-per-pixel.
val create_rgb_surface : common_video_flag list -> int -> int -> int -> int -> int -> int -> int
create_rgb_surface flags width height bpp rmask gmask bmask amask
val set_opengl_mode : int -> int -> int -> surface;;
obsolete must use set_video_mode
val flip : surface -> unit;;
Swaps screen buffers.On hardware that supports double-buffering (
DOUBLEBUF
), this function sets up a flip and returns. The hardware will wait for vertical retrace, and then swap video buffers before the next video surface blit or lock will return.On hardware that doesn't support double-buffering, this is equivalent to calling
update_rect get_display_surface() RectMax
val update_rect : surface -> rect -> unit;;
Makes sure the given area is updated on the given screen.
|
val surface_free : surface -> unit;;
val surface_loadBMP : string -> surface;;
Loads a surface from a named Windows BMP file.Returns the new
surface
, or raiseSDLvideo_exception
if there was an error
val surface_saveBMP : surface -> string -> unit;;
Saves tthe surface
as a Windows BMP file named file.
|
val surface_width : surface -> int;;
val surface_height : surface -> int;;
val surface_rect : surface -> rect;;
Grabbed in ocamlsdl-0.3 made by Jean-Christophe FILLIATRE
val surface_bpp : surface -> int
val surface_rmask : surface -> int
val surface_gmask : surface -> int
val surface_bmask : surface -> int
val surface_amask : surface -> int
val surface_fill_rect : surface -> rect -> color -> surface;;
val surface_blit : surface -> rect -> surface -> rect -> unit;;
val surface_set_alpha : surface -> float -> surface;;
val surface_set_colorkey : surface -> color option -> unit;;
val surface_display_format : surface -> surface;;
val surface_from_pixels : pixels -> surface;;
val surface_set_pixel : surface -> int -> int -> color -> unit;;
val surface_get_pixel : surface -> int -> int -> color;;
val unsafe_blit_buffer : surface -> string -> int -> unit;;
|
val color_of_int : (int * int * int) -> color;;
val color_of_float : (float * float * float) -> color;;
val rgb_vector_of_color : color -> (int * int * int);;
|
val wm_available : unit -> bool;;
val wm_set_caption : string -> string -> unit;;
val wm_iconify_window : unit -> unit;;
TO FIX: val wm_toggle_fullscreen : surface -> int ;;
TO DO: val wm_get_caption : string -> string -> unit ;;
TO DO: val wm_set_icon : surface -> int ;;
val show_cursor : bool -> unit;;
UNTESTED
val must_lock : surface -> bool;;
val lock_surface : surface -> unit;;
val unlock_surface : surface -> unit;;
val surface_pixel_data : surface -> pixel_data;;
val gl_swap_buffers : unit -> unit;;
DO NOT USE. EXPERIMENTAL
val surface_final : unit -> surface;;