Почему нажатие numlock приводит к сбою программы OCaml opengl? - PullRequest
5 голосов
/ 13 августа 2010

У меня нет опыта работы с openGL, поэтому, может быть, я что-то упускаю.

У меня есть этот код ocaml с использованием lablGL.Для компиляции я использую

ocamlopt -I + lablGL lablglut.cmxa lablgl.cmxa gl.ml -o gl.opt

или

ocamlc -I + lablGL lablglut.cmalablgl.cma gl.ml -o gl.byte

let keyboard ~key ~x ~y =
  match key with
    | 27 -> exit 0
    | _ -> ignore (Printf.printf "Key: %c %d pressed.\n%!" (char_of_int key) key)
;;

let keyboard_up ~key ~x ~y =
  match key with
    | _ -> ignore (Printf.printf "Key: %c %d released.\n%!" key (int_of_char key))
;;

let special ~key ~x ~y =
  try
    match key with
      | Glut.KEY_F1 -> Printf.printf "F1 pressed.\n%!"
      | Glut.KEY_F2 -> Printf.printf "F2 pressed.\n%!"
      | Glut.KEY_F3 -> Printf.printf "F3 pressed.\n%!"
      | Glut.KEY_F4 -> Printf.printf "F4 pressed.\n%!"
      | Glut.KEY_F5 -> Printf.printf "F5 pressed.\n%!"
      | Glut.KEY_F6 -> Printf.printf "F6 pressed.\n%!"
      | Glut.KEY_F7 -> Printf.printf "F7 pressed.\n%!"
      | Glut.KEY_F8 -> Printf.printf "F8 pressed.\n%!"
      | Glut.KEY_F9 -> Printf.printf "F9 pressed.\n%!"
      | Glut.KEY_F10 -> Printf.printf "F10 pressed.\n%!"
      | Glut.KEY_F11 -> Printf.printf "F11 pressed.\n%!"
      | Glut.KEY_F12 -> Printf.printf "F12 pressed.\n%!"
      | Glut.KEY_LEFT -> Printf.printf "Left pressed.\n%!"
      | Glut.KEY_UP -> Printf.printf "Up pressed.\n%!"
      | Glut.KEY_RIGHT -> Printf.printf "Right pressed.\n%!"
      | Glut.KEY_DOWN -> Printf.printf "Down pressed.\n%!"
      | Glut.KEY_PAGE_UP -> Printf.printf "PgUp pressed.\n%!"
      | Glut.KEY_PAGE_DOWN -> Printf.printf "PgDown pressed.\n%!"
      | Glut.KEY_HOME -> Printf.printf "Home pressed.\n%!"
      | Glut.KEY_END -> Printf.printf "End pressed.\n%!"
      | Glut.KEY_INSERT -> Printf.printf "Insert pressed.\n%!"
  with
    | Glut.BadEnum m -> Printf.printf "%s\n" m
;;

let () =
  ignore (Glut.init Sys.argv);
  ignore (Glut.createWindow ~title:"OpenGL Demo");
  GlClear.color (1.0, 1.0, 1.0);
  Glut.keyboardFunc ~cb:(keyboard);
  Glut.specialFunc ~cb:(special);
  Glut.displayFunc ~cb:(fun () -> GlClear.clear [ `color ]; Gl.flush ());
  Glut.mainLoop ()

А теперь вот проблема.Нажатие клавиши numlock или любой другой клавиши с цифровой клавишей при выключенной функции numlock приводит к сбою программы, вызывая исключение.Попытка отловить это исключение в специальной функции не помогает.

Вот пример запуска.

> ./gl.opt 
Up pressed.
Down pressed.
Key: 1 49 pressed.
Key: 2 50 pressed.
Fatal error: exception Glut.BadEnum("key in special_of_int")

Может кто-нибудь объяснить мне, почему это работает так и как обойти это?

Ответы [ 2 ]

4 голосов
/ 13 августа 2010

В соответствии с этим кодом кажется, что пользователь, который его написал, просто попытался обойти ошибку следующим образом:

let rec handlelablglutbug () =
    try
      Glut.mainLoop ();
    with Glut.BadEnum "key in special_of_int" ->
      showtext '!' " LablGlut bug: special key not recognized";
      Glut.swapBuffers ();
      handlelablglutbug ()
  in
  handlelablglutbug ();

Это заставляет меня думать, что это ошибка с ocaml портом библиотеки перенасыщенности ... так что нет никакого способа получить бесшовное исправление.

3 голосов
/ 14 августа 2010

Похоже, что библиотека OpenGL сообщает номер ключа, который не поддерживает привязка OCaml.

Если это происходит с последней версией lablGL, вы можете сообщить об этом как об ошибке и предложитьчто было бы неплохо добавить KEY_UNKNOWN of int для обработки ключей, которые люди время от времени изобретают (например, «мультимедийные» ключи).

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...