OpenGL键盘交互响应事件

GLUT允许我们编写程序，在里面加入键盘输入控制，包括了普通键，和其他特殊键（如F1,UP）。在这一章里我们将学习如何去检测哪个键被按下，可以从GLUT里得到些什么信息，和如何处理键盘输入。 
  
处理按键消息，我们必须使用GLUT通知窗口系统，当某个键被按下时，哪个函数将完成所要求的操作。我们同样是调用一个函数注册相关的回调函数。 
  
当你按下一个键后，GLUT提供了两个函数为这个键盘消息注册回调。第一个是glutKeyboardFunc。这个函数是告诉窗口系统，哪一个函数将会被调用来处理普通按键消息。 普通键是指字母，数字，和其他可以用ASCII代码表示的键。函数原型如下： 
procedure  glutKeyboardFunc(void(*func)(key:char;x,y:longint)); 
参数： 
func: 处理普通按键消息的函数的名称。如果传递NULL，则表示GLUT忽略普通按键消息。 
这个作为glutKeyboardFunc函数参数的函数需要有三个形参。第一个表示按下的键的ASCII码，其余两个提供了，当键按下时当前的鼠标位置。鼠标位置是相对于当前客户窗口的左上角而言的。

一个经常的用法是当按下ESCAPE键时退出应用程序。注意，我们提到过，glutMainLoop函数产生的是一个永无止境的循环。唯一的跳出循环的方法就是调用系统exit函数。这就是我们函数要做的，当按下ESCAPE键调用exit函数终止应用程序（同时要记住在源代码包含头文件stdlib.h）。下面就是这个函数的代码： 
procedure processNormalKeys(key:char;x,y:longint) ;cdecl;
begin
      if key=27 then 
            Exit(0); 
end;

下面让我们控制特殊键的按键消息。GLUT提供函数glutSpecialFunc以便当有特殊键按下的消息时，你能注册你的函数。函数原型如下： 
procedure glutSpecialFunc(void (*func)(key,x,y:longint)); 
参数： 
func: 处理特殊键按下消息的函数的名称。传递NULL则表示GLUT忽略特殊键消息。 
  
下面我们写一个函数，当一些特殊键按下的时候，改变我们的三角形的颜色。这个函数使在按下F1键时三角形为红色，按下F2键时为绿色，按下F3键时为蓝色。

procedure processSpecialKeys(key:char;x,y:longint) ;cdecl;
 
begin
         case key of
                 GLUT_KEY_F1 :  
 
                               begin
                                   red = 1.0;
                                   green = 0.0;
                                   blue = 0.0;
 
                                end;
                 GLUT_KEY_F2 :
 
                                 begin  
 
                                   red = 0.0;
                                   green = 1.0;
                                   blue = 0.0;
 
                                 end;
                 GLUT_KEY_F3 :  
 
                                 begin
                                   red = 0.0;
                                   green = 0.0;
                                   blue = 1.0;
 
                                 end;
         end;
end;

上面的GLUT_KEY_*在glut.h里已经被预定义为常量。这组常量如下：

GLUT_KEY_F1               F1 function key
GLUT_KEY_F2               F2 function key
GLUT_KEY_F3               F3 function key
GLUT_KEY_F4               F4 function key
GLUT_KEY_F5               F5 function key
GLUT_KEY_F6               F6 function key
GLUT_KEY_F7               F7 function key
GLUT_KEY_F8               F8 function key
GLUT_KEY_F9               F9 function key
GLUT_KEY_F10              F10 function key
GLUT_KEY_F11              F11 function key
GLUT_KEY_F12              F12 function key
GLUT_KEY_LEFT             Left function key
GLUT_KEY_RIGHT            Up function key
GLUT_KEY_UP               Right function key
GLUT_KEY_DOWN             Down function key
GLUT_KEY_PAGE_UP          Page Up function key
GLUT_KEY_PAGE_DOWN        Page Down function key
GLUT_KEY_HOME             Home function key
GLUT_KEY_END              End function key
GLUT_KEY_INSERT           Insert function key 

为了让上面processSpecialKeys函数能过编译通过，我们还必须定义，red，green，blue三个变量。此外为了得到我们想要的结果，我们还必须修改renderScene函数。

...
// 所有的变量被初始化为1，表明三角形最开始是白色的。
red:=1.0; blue:=1.0; green:=1.0;
procedure  renderScene ;cdecl;
 
begin
         glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
         glPushMatrix();
         glRotatef(angle,0.0,1.0,0.0); 
 
         // glColor3f设置绘制三角形的颜色。
         glColor3f(red,green,blue); 
 
         glBegin(GL_TRIANGLES);
                 glVertex3f(-0.5,-0.5,0.0);
                 glVertex3f(0.5,0.0,0.0);
                 glVertex3f(0.0,0.5,0.0);
         glEnd();
         glPopMatrix();
         angle:=angle+;
         glutSwapBuffers();
end;

下面我们就该告诉GLUT，我们刚刚定义的函数用来处理，按键消息。也就是该调用glutKeyboardFunc和glutSpecialFunc函数。我们在main函数里调用它们。   
CTRL,ALT和SHIFT 
  
一些时候我们想知道要是一个组合键（modifier key）也就是CTRL,ALT或者SHIFT被按下该如何处理。GLUT提供了一个函数来检测是否有组合键被按下。这个函数仅仅只能在处理按键消息或者鼠标消息函数里被调用。函数原型如下： 
int glutGetModifiers(void); 
这个函数的返回值是三个glut.h里预定义的常量里的一个，或它们的或组合。这三个常量是： 
1：GLUT_ACTIVE_SHIFT: 返回它，当按下SHIFT键或按下CAPS LOCK，注意两者同时按下时，不会返回这个值。 
2：GLUT_ACTIVE_CTRL: 返回它，当按下CTRL键。 
3：GLUT_ACTIVE_ATL:返回它,当按下ATL键。 
注意，窗口系统可能会截取一些组合键（modifiers），这是就没有回调发生。现在让我们扩充processNormalKeys，处理组合键。按下r键时red变量被设置为0.0，当按下ATL+r时red被设置为1.0。代码如下：

procedure processNormalKeys(key:char;x,y:longint) ;cdecl;
  begin
         if key =   then
                 exit();
         else if key='r' then
 
                begin
                 mod := glutGetModifiers();
                 if mod = GLUT_ACTIVE_ALT then
                          red := 0.0;
                 else
                          red := 1.0;
         end;
end;

注意如果我们按下R键，将不会有什么发生，因为R与r键的ASCII码不同。即这是两个不同的键。最后就是如何检测按键CTRL+ALT+F1?。这种情况下，我们必须同时检测两个组合键，为了完成操作我们需要使用或操作符。下面的代码段，使你按下CTRL+ALT+F1时颜色改变为红色。

procedure PressSpecialKeys(key,x,y:longint);cdecl;
var
 mod:longint;
begin
 case key of
  GLUT_KEY_F1:begin
               mod:=glutGetModifiers;
               if mod=(GLUT_ACTIVE_CTRL or GLUT_ACTIVE_ALT) then
                begin
                 red:=;
                 green:=;
                 blue:=;
                end;
              end;

  GLUT_KEY_F2:begin
               red:=0;
               green:=1;
               blue:=0;
              end;

  GLUT_KEY_F3:begin
               red:=0;
               green:=0;
               blue:=1;
              end;

 end; 
end;