(* 使い方 ocaml -I +lablGL lablgl.cma lablglut.cma unix.cma #use "gl_sample.ml";; main sample1;; main sample2;; ... main sample19;; sample1: ウィンドウを表示 sample2: 青色で背景を描画 sample3: 線を引く sample4: 座標軸を設定(sample3と違いウィンドウサイズを変更しても 図形の大きさが変らない sample5: 位置やサイズを指定してウィンドウを開く sample6: マウスボタンのイベントを受け取る。ボタンを押したり 離したりすると座標を表示。真ん中は使えないようだ sample7: キーボードのイベントを受け取る。q,Qを打つと終了する。 sample8: 再描画するたびに25度回転する。ウィンドウを隠したりする たび