<html><head> <link rel="stylesheet" href="_style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="GL" rel="Chapter" href="GL.html"> <link title="Glu" rel="Chapter" href="Glu.html"> <link title="Glut" rel="Chapter" href="Glut.html"> <link title="VertArray" rel="Chapter" href="VertArray.html"> <link title="GLE" rel="Chapter" href="GLE.html"> <link title="Ftgl" rel="Chapter" href="Ftgl.html"> <link title="Jpeg_loader" rel="Chapter" href="Jpeg_loader.html"> <link title="Png_loader" rel="Chapter" href="Png_loader.html"> <link title="Svg_loader" rel="Chapter" href="Svg_loader.html"> <link title="Genimg_loader" rel="Chapter" href="Genimg_loader.html"> <link title="FunGL" rel="Chapter" href="FunGL.html"> <link title="FunGlut" rel="Chapter" href="FunGlut.html"><title>VertArray</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> client_state =<br> <span class="constructor">GL_COLOR_ARRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_EDGE_FLAG_ARRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_FOG_COORD_ARRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_INDEX_ARRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_NORMAL_ARRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_SECONDARY_COLOR_ARRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_TEXTURE_COORD_ARRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_VERTEX_ARRAY</span><br> <span class="keyword">external</span> glEnableClientState : client_state:<span class="constructor">VertArray</span>.client_state <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glenableclientstate"</span><br> <span class="keyword">external</span> glDisableClientState : client_state:<span class="constructor">VertArray</span>.client_state <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_gldisableclientstate"</span><br> <span class="keyword">external</span> glDrawArrays : mode:<span class="constructor">GL</span>.primitive <span class="keywordsign">-></span> first:int <span class="keywordsign">-></span> count:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_gldrawarrays"</span><br> <span class="keyword">external</span> glMultiDrawArrays : mode:int <span class="keywordsign">-></span> arr:(int * int) array <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glmultidrawarrays"</span><br> <span class="keyword">external</span> glArrayElement : i:int <span class="keywordsign">-></span> unit = <span class="string">"ml_glarrayelement"</span><br> <span class="keyword">module</span> <span class="constructor">Elem</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> elem_data_type =<br> <span class="constructor">GL_UNSIGNED_BYTE</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_UNSIGNED_SHORT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_UNSIGNED_INT</span><br> <span class="keyword">end</span><br> <span class="keyword">external</span> glDrawElements :<br> mode:<span class="constructor">GL</span>.primitive <span class="keywordsign">-></span><br> count:int <span class="keywordsign">-></span><br> data_type:<span class="constructor">VertArray</span>.<span class="constructor">Elem</span>.elem_data_type <span class="keywordsign">-></span><br> data:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_gldrawelements"</span><br> <span class="keyword">external</span> glDrawRangeElements :<br> mode:<span class="constructor">GL</span>.primitive <span class="keywordsign">-></span><br> start:int <span class="keywordsign">-></span><br> end_:int <span class="keywordsign">-></span><br> count:int <span class="keywordsign">-></span><br> data_type:<span class="constructor">VertArray</span>.<span class="constructor">Elem</span>.elem_data_type <span class="keywordsign">-></span><br> data:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_gldrawrangeelements_bytecode"</span> <span class="string">"ml_gldrawrangeelements_native"</span><br> <span class="keyword">type</span> interleaved_format =<br> <span class="constructor">GL_V2F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_C4UB_V2F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_C4UB_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_C3F_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_N3F_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_C4F_N3F_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_T2F_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_T4F_V4F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_T2F_C4UB_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_T2F_C3F_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_T2F_N3F_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_T2F_C4F_N3F_V3F</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_T4F_C4F_N3F_V4F</span><br> <span class="keyword">external</span> glInterleavedArrays :<br> fmt:<span class="constructor">VertArray</span>.interleaved_format <span class="keywordsign">-></span><br> stride:int <span class="keywordsign">-></span><br> pointer:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glinterleavedarrays"</span><br> <span class="keyword">module</span> <span class="constructor">Coord</span> :<br> <span class="keyword">sig</span> <span class="keyword">type</span> coord_data_type = <span class="constructor">GL_SHORT</span> <span class="keywordsign">|</span> <span class="constructor">GL_INT</span> <span class="keywordsign">|</span> <span class="constructor">GL_FLOAT</span> <span class="keywordsign">|</span> <span class="constructor">GL_DOUBLE</span> <span class="keyword">end</span><br> <span class="keyword">external</span> glVertexPointer :<br> size:int <span class="keywordsign">-></span><br> data_type:<span class="constructor">VertArray</span>.<span class="constructor">Coord</span>.coord_data_type <span class="keywordsign">-></span><br> stride:int <span class="keywordsign">-></span> data:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glvertexpointer"</span><br> <span class="keyword">external</span> glTexCoordPointer :<br> size:int <span class="keywordsign">-></span><br> data_type:<span class="constructor">VertArray</span>.<span class="constructor">Coord</span>.coord_data_type <span class="keywordsign">-></span><br> stride:int <span class="keywordsign">-></span> data:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_gltexcoordpointer"</span><br> <span class="keyword">module</span> <span class="constructor">Norm</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> norm_data_type =<br> <span class="constructor">GL_BYTE</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_SHORT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_INT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_FLOAT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_DOUBLE</span><br> <span class="keyword">end</span><br> <span class="keyword">external</span> glNormalPointer :<br> data_type:<span class="constructor">VertArray</span>.<span class="constructor">Norm</span>.norm_data_type <span class="keywordsign">-></span><br> stride:int <span class="keywordsign">-></span> data:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glnormalpointer"</span><br> <span class="keyword">module</span> <span class="constructor">Index</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> index_data_type =<br> <span class="constructor">GL_UNSIGNED_BYTE</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_SHORT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_INT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_FLOAT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_DOUBLE</span><br> <span class="keyword">end</span><br> <span class="keyword">external</span> glIndexPointer :<br> data_type:<span class="constructor">VertArray</span>.<span class="constructor">Index</span>.index_data_type <span class="keywordsign">-></span><br> stride:int <span class="keywordsign">-></span> data:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glindexpointer"</span><br> <span class="keyword">module</span> <span class="constructor">Color</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> color_data_type =<br> <span class="constructor">GL_BYTE</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_UNSIGNED_BYTE</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_SHORT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_UNSIGNED_SHORT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_INT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_UNSIGNED_INT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_FLOAT</span><br> <span class="keywordsign">|</span> <span class="constructor">GL_DOUBLE</span><br> <span class="keyword">end</span><br> <span class="keyword">external</span> glColorPointer :<br> size:int <span class="keywordsign">-></span><br> data_type:<span class="constructor">VertArray</span>.<span class="constructor">Color</span>.color_data_type <span class="keywordsign">-></span><br> stride:int <span class="keywordsign">-></span> data:(<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="constructor">Bigarray</span>.c_layout) <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glcolorpointer"</span><br> <span class="keyword">external</span> glEdgeFlagPointer :<br> stride:int <span class="keywordsign">-></span><br> data:(<span class="keywordsign">'</span>a, <span class="constructor">Bigarray</span>.int8_unsigned_elt, <span class="constructor">Bigarray</span>.c_layout)<br> <span class="constructor">Bigarray</span>.<span class="constructor">Array1</span>.t <span class="keywordsign">-></span><br> unit = <span class="string">"ml_gledgeflagpointer"</span><br> <span class="keyword">end</span></code></body></html>
distrib
>
Mandriva
>
2010.0
>
i586
>
media
>
contrib-release
>
by-pkgid
>
c00aac9511e40e4946e24ea6485133f4
>
files
>
260
