module SFRenderWindow: sig
.. end
type
t
type
window_style = [ `close | `fullscreen | `resize | `titlebar ]
type
video_mode = {
|
width :int ; |
|
height :int ; |
|
bitsPerPixel :int ; |
}
type
window_settings = {
|
depthBits :int ; |
|
stencilBits :int ; |
|
antialiasingLevel :int ; |
}
val mode : width:int -> height:int -> bitsPerPixel:int -> video_mode
val settings : depthBits:int ->
stencilBits:int -> antialiasingLevel:int -> window_settings
val create : mode:video_mode ->
title:string ->
style:window_style list ->
settings:window_settings -> t
val createFromHandle : handle:nativeint ->
settings:window_settings -> t
val make : ?style:window_style list ->
?bpp:int ->
?depth:int ->
?stencil:int -> ?antialiasing:int -> int * int -> string -> t
val isOpened : t -> bool
val close : t -> unit
val display : t -> unit
val destroy : t -> unit
val getEvent : t -> SFEvent.t option
val clear : t -> SFColor.t -> unit
val blank : t -> unit
val getWidth : t -> int
val getHeight : t -> int
val getSize : t -> int * int
val setSize : t -> width:int -> height:int -> unit
val showMouseCursor : t -> show:bool -> unit
val show : t -> state:bool -> unit
val enableKeyRepeat : t -> enabled:bool -> unit
val setActive : t -> active:bool -> unit
val drawSprite : t -> sprite:SFSprite.t -> unit
val drawString : t -> text:SFString.t -> unit
val drawShape : t -> shape:SFShape.t -> unit
val preserveOpenGLStates : t -> preserve:bool -> unit
val setCursorPosition : t -> left:int -> top:int -> unit
val setPosition : t -> left:int -> top:int -> unit
val setFramerateLimit : t -> limit:int -> unit
val getFrameTime : t -> float
val setView : t -> view:SFView.t -> unit
val convertCoords : t ->
winX:int -> winY:int -> targetView:SFView.t -> float * float
val useVerticalSync : t -> enabled:bool -> unit
val setJoystickThreshold : t -> threshold:float -> unit
val getInput : t -> SFInput.t