64 lines
2.5 KiB
Standard ML
64 lines
2.5 KiB
Standard ML
structure Gles3 =
|
|
struct
|
|
type buffer = Word32.word
|
|
type shader_type = Word32.word
|
|
type shader = Word32.word
|
|
type program = Word32.word
|
|
type draw_mode = Word32.word
|
|
type update_mode = Word32.word
|
|
|
|
(* OpenGL constants used. *)
|
|
val (VERTEX_SHADER, _) =
|
|
_symbol "VERTEX_SHADER" public : ( unit -> shader_type ) * ( shader_type -> unit );
|
|
val VERTEX_SHADER = VERTEX_SHADER ()
|
|
|
|
val (FRAGMENT_SHADER, _) =
|
|
_symbol "FRAGMENT_SHADER" public : ( unit -> shader_type ) * ( shader_type -> unit );
|
|
val FRAGMENT_SHADER = FRAGMENT_SHADER ()
|
|
|
|
val (TRIANGLES, _) =
|
|
_symbol "TRIANGLES" public : ( unit -> draw_mode ) * ( draw_mode -> unit );
|
|
val TRIANGLES = TRIANGLES ()
|
|
|
|
val (STATIC_DRAW, _) =
|
|
_symbol "STATIC_DRAW" public : ( unit -> update_mode ) * ( update_mode -> unit );
|
|
val STATIC_DRAW = STATIC_DRAW ()
|
|
|
|
val (DYNAMIC_DRAW, _) =
|
|
_symbol "DYNAMIC_DRAW" public : ( unit -> update_mode ) * ( update_mode -> unit );
|
|
val DYNAMIC_DRAW = DYNAMIC_DRAW ()
|
|
|
|
(* OpenGL functions used. *)
|
|
val viewport = _import "viewport" public : int * int -> unit;
|
|
val enableDepthTest = _import "enableDepthTest" : unit -> unit;
|
|
|
|
val createBuffer = _import "createBuffer" public : unit -> buffer;
|
|
val bindBuffer = _import "bindBuffer" public : buffer -> unit;
|
|
val bufferData =
|
|
_import "bufferData" public : Real32.real vector * int * update_mode -> unit;
|
|
|
|
val createShader = _import "createShader" public : shader_type -> shader;
|
|
val compileShader = _import "compileShader" public : shader -> unit;
|
|
val deleteShader = _import "deleteShader" public : shader -> unit;
|
|
val shaderSource = _import "shaderSource" public : shader * string -> unit;
|
|
|
|
val vertexAttribPointer =
|
|
_import "vertexAttribPointer" public : int * int * int * int -> unit;
|
|
val enableVertexAttribArray =
|
|
_import "enableVertexAttribArray" public : int -> unit;
|
|
|
|
val createProgram = _import "createProgram" public : unit -> program;
|
|
val attachShader = _import "attachShader" public : program * shader -> unit;
|
|
val linkProgram = _import "linkProgram" public : program -> unit;
|
|
val useProgram = _import "useProgram" public : program -> unit;
|
|
|
|
val deleteShader = _import "deleteShader" public : program -> unit;
|
|
val deleteProgram = _import "deleteProgram" public : program -> unit;
|
|
|
|
val clearColor =
|
|
_import "clearColor" public : Real32.real * Real32.real * Real32.real * Real32.real -> unit;
|
|
val clear = _import "clear" public : unit -> unit;
|
|
|
|
val drawArrays = _import "drawArrays" public : draw_mode * int * int -> unit;
|
|
end
|