non vorrei lavorare

ブログ名の通りです。javascript three.js mruby rust OCaml golang julialang blender

Windowsでlablglを使う

おはようございます。次男のしばらく遊ばなかった折り紙を再利用して長男とスポーツカーを折ったら、次男が激怒してました。kjunichiです。

前提

なりでutopが動く程度に環境が整備されていること。

Cygwinのターミナルを開いて作業

.bashrc

export PATH=$PATH:$HOME/.opam/system/lib/stublibs
export OCAMLLIB=C:/OCaml/lib

install

opam depext lablgl.1.05
opam install lablgl

REPLモードでlablglを使う

折角前回入れたutopで以降は作業する。このため、cygwinのターミナルから cmdを起動して、以降はこちらのコマンドプロンプトで作業を行う。

utopだとlablglutコマンドとは違い、タブの補間が効いたりと便利なことも多い。

cd $HOME && cmd /c start cmd
utop
#require "lablgl";;
#require "lablgl.glut";;

これで対話的にlablglが使える。

以下のようにウィンドウを表示できた。

Glut.init Sys.argv;;
Glut.createWindow "LablGL: aiueo";;
Gl.enable `lighting;;
GlLight.light 1 (`diffuse (0.7, 0.9, 0.7, 1.0));;
GlLight.light 1 (`position (2.0, 0.2, 0.0, 0.0));;
Gl.enable `light1;;
let display () = 
    GlClear.color (0.0, 0.0, 0.0);
    GlClear.clear [`color];
    Glut.solidTeapot 0.3;
    Gl.flush ();;
Glut.displayFunc display;;
Glut.mainLoop ();;

書いたコードを動かすには

ocaml -I "C:/tools/cygwin/home/kjw_j/.opam/system/lib/lablgl" lablgl.cma lablglut.cma fern.ml

exeをつくるには

ocamlfind ocamlopt -o fern -linkpkg -package lablgl,lablgl.glut fern.ml

ソース

表示結果

f:id:kjw_junichi:20170527072800p:plain

改めうごかすと動かない問題

この問題は、この記事の.bashrcの設定を行っていれば起きない。

  • dlllablgl.dllが開けないエラー

パスが通っていない

  • Fatalエラー
Fatal error: exception Typetexp.Error(_, _, _)

OCAMLLIBが設定されていないと、これが出る模様。

あとがき

実は、この記事の書いてる際にlablgtkを使おうとしたら、上手くいかず、最近はOCaml for Windowsを使うようになった。 こちらでも、lablgtkに加え、lablglも動いている。

関連記事

11年前の記事

10年前の記事

8年前の記事

4年前の記事