我正在尝试开始一些基本的 Ocaml 编程。首先,我想从 wikipedia 运行 OpenGL 示例。 http://en.wikipedia.org/wiki/Ocam l
let _ =
ignore( Glut.init Sys.argv );
Glut.initDisplayMode ~double_buffer:true ();
ignore (Glut.createWindow ~title:"OpenGL Demo");
let angle t = 10. *. t *. t in
let render () =
GlClear.clear [ `color ];
GlMat.load_identity ();
GlMat.rotate ~angle: (angle (Sys.time ())) ~z:1. ();
GlDraw.begins `triangles;
List.iter GlDraw.vertex2 [-1., -1.; 0., 1.; 1., -1.];
GlDraw.ends ();
Glut.swapBuffers () in
GlMat.mode `modelview;
Glut.displayFunc ~cb:render;
Glut.idleFunc ~cb:(Some Glut.postRedisplay);
Glut.mainLoop ()
给定的编译器指令
ocamlc -I +lablGL lablglut.cma lablgl.cma simple.ml -o simple
只是原因和第 2 行的错误,说 Glut.init 未绑定。
我在 cygwin 上运行它,这可能是问题的根源。但是有人知道如何解决吗?