<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>FunGL</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> vertex2 = float * float<br> <span class="keyword">type</span> vertex3 = float * float * float<br> <span class="keyword">type</span> vertex4 = float * float * float * float<br> <span class="keyword">type</span> vector = float * float * float<br> <span class="keyword">type</span> rgb = float * float * float<br> <span class="keyword">type</span> rgba = float * float * float * float<br> <span class="keyword">type</span> uv = float * float<br> <span class="keyword">type</span> matrix4x4 = float array<br> <span class="keyword">type</span> qualified_vertices =<br> <span class="constructor">Vertices2</span> <span class="keyword">of</span> <span class="constructor">FunGL</span>.vertex2 list<br> <span class="keywordsign">|</span> <span class="constructor">Vertices3</span> <span class="keyword">of</span> <span class="constructor">FunGL</span>.vertex3 list<br> <span class="keywordsign">|</span> <span class="constructor">Vertices4</span> <span class="keyword">of</span> <span class="constructor">FunGL</span>.vertex4 list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">RGB_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">RGB_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">RGB_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">RGBA_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">RGBA_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">RGBA_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_RGB_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_RGB_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_RGB_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_RGBA_Vertices2</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_RGBA_Vertices3</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">Normal_RGBA_Vertices4</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_RGB_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_RGB_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_RGB_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_RGBA_Vertices2</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_RGBA_Vertices3</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_RGBA_Vertices4</span> <span class="keyword">of</span> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_RGB_Vertices2</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_RGB_Vertices3</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_RGB_Vertices4</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgb * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_RGBA_Vertices2</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex2) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_RGBA_Vertices3</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex3) list<br> <span class="keywordsign">|</span> <span class="constructor">UV_Normal_RGBA_Vertices4</span> <span class="keyword">of</span><br> (<span class="constructor">FunGL</span>.uv * <span class="constructor">FunGL</span>.vector * <span class="constructor">FunGL</span>.rgba * <span class="constructor">FunGL</span>.vertex4) list<br> <span class="keyword">val</span> render_primitive : <span class="constructor">GL</span>.primitive <span class="keywordsign">-></span> <span class="constructor">FunGL</span>.qualified_vertices <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_translated : <span class="constructor">FunGL</span>.vector <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_rotated : float <span class="keywordsign">-></span> <span class="constructor">FunGL</span>.vector <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_scaled : <span class="constructor">FunGL</span>.vector <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_as_identity : (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_matrix : <span class="constructor">FunGL</span>.matrix4x4 <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_rgb : <span class="constructor">FunGL</span>.rgb <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_rgba : <span class="constructor">FunGL</span>.rgba <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_material :<br> face:<span class="constructor">GL</span>.face_mode <span class="keywordsign">-></span><br> mode:<span class="constructor">GL</span>.<span class="constructor">Material</span>.material_mode <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_lightModel :<br> light_model:<span class="constructor">GL</span>.light_model <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_shadeModel :<br> shade_mode:<span class="constructor">GL</span>.shade_mode <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_frontFace :<br> orientation:<span class="constructor">GL</span>.orientation <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_enabled : cap:<span class="constructor">GL</span>.gl_capability <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_disabled : cap:<span class="constructor">GL</span>.gl_capability <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_viewport :<br> viewport:int * int * int * int <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_polygonMode :<br> face:<span class="constructor">GL</span>.face_mode <span class="keywordsign">-></span> mode:<span class="constructor">GL</span>.polygon_mode <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> do_with_matrixMode : mode:<span class="constructor">GL</span>.matrix_mode <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_lineWidth : width:float <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_with_pointSize : size:float <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span></code></body></html>