`
deepfuture
  • 浏览: 4411091 次
  • 性别: Icon_minigender_1
  • 来自: 湛江
博客专栏
073ec2a9-85b7-3ebf-a3bb-c6361e6c6f64
SQLite源码剖析
浏览量:80123
1591c4b8-62f1-3d3e-9551-25c77465da96
WIN32汇编语言学习应用...
浏览量:70323
F5390db6-59dd-338f-ba18-4e93943ff06a
神奇的perl
浏览量:103573
Dac44363-8a80-3836-99aa-f7b7780fa6e2
lucene等搜索引擎解析...
浏览量:286520
Ec49a563-4109-3c69-9c83-8f6d068ba113
深入lucene3.5源码...
浏览量:15039
9b99bfc2-19c2-3346-9100-7f8879c731ce
VB.NET并行与分布式编...
浏览量:67776
B1db2af3-06b3-35bb-ac08-59ff2d1324b4
silverlight 5...
浏览量:32280
4a56b548-ab3d-35af-a984-e0781d142c23
算法下午茶系列
浏览量:46069
社区版块
存档分类
最新评论

perl-opengl键盘事件与色彩

 
阅读更多

 

#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;   

my $a=1;
my $b=0;
my $c=0;
glutInit();
glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE);
glutInitWindowPosition(100,100);
glutInitWindowSize(400,400);
glutCreateWindow("my  OpenGL program");
glClearColor(0,0,100,255);
glClear(GL_COLOR_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
gluOrtho2D(-200,200,-200,200);
glMatrixMode(GL_MODELVIEW);
glutDisplayFunc(\&mydis);
glutMouseFunc(\&mymouse);
glutKeyboardFunc(\&mykey);
glutMainLoop();

sub mymouse()
{
	my ($button,$state,$myx,$myy)=@_;
	if ($button==GLUT_LEFT_BUTTON  and $state==GLUT_DOWN)
	{
		glPointSize(3); 
		glBegin(GL_LINES);  
        glColor3f($a,$b,$c);
		glVertex2f($myx-200,200-$myy);	
		glVertex2f(-200,200-$myy);			
	    glEnd();
	    glFlush();	 	      		
	}
	print "mouse x:$myx-y:$myy\n";
}

 sub mydis()
{
 
  glPointSize(3);

  glFlush();
}  
sub mykey()
{
   my $keyname=shift @_;
   if ($keyname==32)
   {
      $a=rand(1);
      $b=rand(1);
      $c=rand(1);	  
   }
   print "$a-$b-$c\n";#输当前色彩
   
}




 按空格键变换色彩



 

 

二、 关于色彩

1. glShadeModel 选择平面明暗模式或光滑明暗模式

C语言描述

void glShadeModel( GLenum mode )

参数

mode 指定表示明暗模式的符号值,可以选择GL_FLAT(平面明暗模式)和GL_SMOOTH光滑明暗模式),缺省值为GL_SMOOTH

说明

OpenGL图元需要进行明暗处理,处理得模式可以为平面明暗模式或光滑(Gouraud着色)明暗模式。光滑明暗模式时,多边形各个内部点的颜色是根据各顶点指定的颜色来插值得到的,这意味着两个顶点之间的颜色是从一顶点的颜色渐变到另一顶点的颜色。对于平面明暗模式,整个图元区域的颜色就是最后一个顶点指定的颜色,唯一例外的是GL_POLYGON,这是整个区域的颜色是第一个顶点所指定的颜色。但要注意,如果激活了光照,计算到的顶点颜色都是光照后的结果颜色,若光照关闭,计算到的颜色就是指定顶点时的当前颜色。

 

2. glColor 设置当前颜色

C语言描述

void glcolor3b(GLbyte redGLbyte greenGLbyte blue);

void glcolor3d(GLdouble redGLdouble greenGLdouble blue);

void glcolor3f(GLfloat redGLfloat greenGLfloat blue);

void glcolor3i(GLint redGLint greenGLint blue);

void glcolor3s(GLshort redGLshort greenGLshort blue);

void glcolor3ub(GLubyte redGLubyte greenGLubyte blue);

void glcolor3ui(GLuint redGLuint greenGLuint blue);

void glcolor3us(GLushort redGLushort greenGLushort blue);

void glcolor4b(GLbyte redGLbyte greenGLbyte blueGLbyte alpha);

void glcolor4d(GLdouble redGLdouble greenGLdouble blueGLdouble alpha);

void glcolor4f(GLfloat redGLfloat greenGLfloat blueGLfloat alpha);

void glcolor4i(GLint redGLint greenGLint blueGLint alpha);

void glcolor4s(GLshort redGLshort greenGLshort blueGLshort alpha);

void glcolor4ub(GLubyte redGLubyte greenGLubyte blueGLubyte alpha);

void glcolor4ui(GLuint redGLuint greenGLuint blueGLuint alpha);

   void glcolor4us(GLushort redGLushort greenGLushort blueGLushort alpha);

void glcolor3bv(const GLbyte *v);

void glcolor3dv(const GLdouble *v);

void glcolor3fv(const GLfloat *v);

void glcolor3iv(const GLint *v);

void glcolor3sv(const GLshort *v);

void glcolor3ubv(const GLubyte *v);

void glcolor3uiv(const GLuint *v);

void glcolor3usv(const GLushort *v);

void glcolor4bv(const GLbyte *v);

void glcolor4dv(const GLdouble *v);

void glcolor4fv(const GLfloat *v);

void glcolor4iv(const GLint *v);

void glcolor4sv(const GLshort *v);

void glcolor4ubv(const GLubyte *v);

void glcolor4uiv(const GLuint *v);

   void glcolor4usv(const GLushort *v);

参数

redgreen, blue 指定当前颜色中的红、绿和蓝色成分。

alpha 指定颜色中的α成分。只有在glColor4函数带4个变量时才指定此参数。

*v 指定一个指向包含红、绿、蓝和alpha值的数组指针。

说明

本函数通过指定红、绿、蓝的颜色成分来设置当前的颜色,同时部分函数可以接受α成分。每个成分亮度的表示范围是从零(0.0)到全光强(1.0),当指定了非浮点类型时,该类型从0到最大值的表示法与浮点类型范围的0.01.0相映射。

 

3. glColorMask 激活或关闭帧缓存颜色分量的写操作

C语言描述

void glColorMask(GLboolean redGLboolean greenGLboolean blueGLboolean alpha)

参数

    redgreenbluealpha 指定红、绿、蓝和α成分是否可以修改。

说明

本函数指定是否可以将单个的颜色分量写入帧缓存。例如,若redGL_FALSE,那么不管执行什么样的绘制操作,任何颜色缓存中任何像素的红色分量均不被改变。

三、 键盘输入 

GLUT允许我们编写程序,在里面加入键盘输入控制,包括了普通键,和其他特殊键(如F1,UP)。在这一章里我们将学习如何去检测哪个键被按下,可以从GLUT里得到些什么信息,和如何处理键盘输入。 
  
到现在,你应该注意到了,只要你想控制一个事件的处理,你就必须提前告诉GLUT,哪个函数将完成这个任务。到现在为止,我们已经使用GLUT告诉窗口系统,当窗口重绘时我们想调用哪个渲染函数,但系统空闲时,哪个函数被调用。和当窗口大小改变时,哪个函数又将被调用。
  
相似的,我们必须做同样的事来处理按键消息。我们必须使用GLUT通知窗口系统,当某个键被按下时,哪个函数将完成所要求的操作。我们同样是调用一个函数注册相关的回调函数。 
  
当你按下一个键后,GLUT提供了两个函数为这个键盘消息注册回调。第一个是glutKeyboardFunc。这个函数是告诉窗口系统,哪一个函数将会被调用来处理普通按键消息。 
普通键是指字母,数字,和其他可以用ASCII代码表示的键。函数原型如下: 
void glutKeyboardFunc(void(*func)(unsigned char key,int x,int y)); 
参数: 
func: 处理普通按键消息的函数的名称。如果传递NULL,则表示GLUT忽略普通按键消息。 
这个作为glutKeyboardFunc函数参数的函数需要有三个形参。第一个表示按下的键的ASCII码,其余两个提供了,当键按下时当前的鼠标位置。鼠标位置是相对于当前客户窗口的左上角而言的。 
  
一个经常的用法是当按下ESCAPE键时退出应用程序。注意,我们提到过,glutMainLoop函数产生的是一个永无止境的循环。唯一的跳出循环的方法就是调用系统exit函数。这就是我们函数要做的,当按下ESCAPE键调用exit函数终止应用程序(同时要记住在源代码包含头文件stdlib.h)。下面就是这个函数的代码: 
void processNormalKeys(unsigned char key,int x,int y) 

      if(key==27) 
            Exit(0); 

  
下面让我们控制特殊键的按键消息。GLUT提供函数glutSpecialFunc以便当有特殊键按下的消息时,你能注册你的函数。函数原型如下: 
void glutSpecialFunc(void (*func)(int key,int x,int y)); 
参数: 
func: 处理特殊键按下消息的函数的名称。传递NULL则表示GLUT忽略特殊键消息。 
  
下面我们写一个函数,当一些特殊键按下的时候,改变我们的三角形的颜色。这个函数使在按下F1键时三角形为红色,按下F2键时为绿色,按下F3键时为蓝色。 
  
void processSpecialKeys(int key, int x, int y) { 
  
         switch(key) { 
                 case GLUT_KEY_F1 :  
                                   red = 1.0;  
                                   green = 0.0;  
                                   blue = 0.0; break; 
                 case GLUT_KEY_F2 :  
                                   red = 0.0;  
                                   green = 1.0;  
                                   blue = 0.0; break; 
                 case GLUT_KEY_F3 :  
                                   red = 0.0;  
                                   green = 0.0;  
                                   blue = 1.0; break; 
         } 

上面的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 

 

LUT_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,表明三角形最开始是白色的。 
float red=1.0, blue=1.0, green=1.0; 
  
  
  
void renderScene(void) { 
         glClear(GL_COLOR_BUFFER_BIT|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++; 
         glutSwapBuffers(); 

 。下面我们就该告诉GLUT,我们刚刚定义的函数用来处理,按键消息。也就是该调用glutKeyboardFunc和glutSpecialFunc函数。我们在main函数里调用它们。下面就是最新的main函数。
VC工程可以在这里下载(glut3.zip) 
  
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。代码如下: 
void processNormalKeys(unsigned char key, int x, int y) { 
  
         if (key == 27)  
                 exit(0); 
         else if (key=='r') { 
                 int mod = glutGetModifiers(); 
                 if (mod == GLUT_ACTIVE_ALT) 
                          red = 0.0; 
                 else 
                          red = 1.0; 
         } 

注意如果我们按下R键,将不会有什么发生,因为R与r键的ASCII码不同。即这是两个不同的键。最后就是如何检测按键CTRL+ALT+F1?。这种情况下,我们必须同时检测两个组合键,为了完成操作我们需要使用或操作符。下面的代码段,使你按下CTRL+ALT+F1时颜色改变为红色。 
void processSpecialKeys(int key, int x, int y) { 
  
         int mod; 
         switch(key) { 
                 case GLUT_KEY_F1 :  
                    mod = glutGetModifiers(); 
                    if (mod == (GLUT_ACTIVE_CTRL|GLUT_ACTIVE_ALT)) { 
                          red = 1.0; green = 0.0; blue = 0.0; 
                    } 
                    break; 
                 case GLUT_KEY_F2 :  
                    red = 0.0;  
                    green = 1.0;  
                    blue = 0.0; break; 
                 case GLUT_KEY_F3 :  
                    red = 0.0;  
                    green = 0.0;  
                    blue = 1.0; break; 
         } 

  

  • 大小: 58.4 KB
分享到:
评论

相关推荐

    linux 离线安装perl-IPC-Cmd

    在这个例子中,我们有一系列与Perl相关的RPM包,它们可能是`perl-IPC-Cmd`的依赖项。让我们逐一分析这些文件: 1. `perl-devel-5.16.3-299.el7_9.x86_64.rpm`: 这是Perl开发包,包含头文件和开发工具,用于编译和...

    Perl-5.10.0版本

    Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0...

    Centos7 离线perl-CPAN rpm包

    3. 使用`rpm`命令逐个安装这些包,按照依赖关系顺序安装,通常从perl-Digest-1.17开始,然后是perl-Digest-SHA,接着是perl-local-lib,最后是perl-CPAN。运行以下命令: ``` sudo rpm -ivh perl-Digest-1.17-245....

    strawberry-perl-5.32.1.1-64bit.msi

    strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免...

    strawberry-perl-5.32.1.1-32bit.msi

    strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免...

    ActivePerl-5.28.1.0000-MSWin32-win10x64-65ffd8c2

    ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方...

    Digest-Perl-MD5-1.9.tar.gz

    6. **与其他哈希函数的兼容性**:Digest-Perl-MD5遵循Perl的Digest API,这意味着它可以与其它如SHA-1、SHA-256等哈希函数的接口无缝集成。 7. **版本1.9**:发布的版本1.9可能包含了对早期版本的错误修复、性能...

    perl-WWW-Curl-4.17-1.el7.x86_64

    perl-WWW-Curl4.17版本rpm包

    strawberry-perl-5.38.0.1-64bit-portable.zip

    本文将深入探讨"strawberry-perl-5.38.0.1-64bit-portable.zip"这个压缩包的内容及其重要性。 该压缩包名为"strawberry-perl-5.38.0.1-64bit-portable.zip",表明这是一款基于Perl 5.38.0.1版本的64位便携版...

    perl-Data-Dumper-2.145-3.el7.x86_64.rpm

    RHEL 7.1安装MySQL 5.6的依赖包:perl-Data-Dumper-2.145-3.el7.x86_64.rpm ------------------------------------------------------------------------------------

    perl-5.24-win64.rar

    标题中的"perl-5.24-win64.rar"指的是Perl编程语言的Windows 64位版本的压缩包,版本号为5.24。Perl是一种高级的、通用的、解释型、动态的编程语言,尤其适合处理文本操作和系统管理任务。在Windows环境下,Perl的...

    centos7 perl rpm依赖包

    perl-parent-0.225-244.el7.noarch perl-HTTP-Tiny-0.033-3.el7.noarch   perl-podlators-2.5.1-3.el7.noarch perl-Pod-Perldoc-3.20-4.el7.noarch 1:perl-Pod-Escapes-1.04-286.el7.noarch perl-Text-...

    perl-5.16.3-293.el7.x86_64_rpm.zip

    标题中的"perl-5.16.3-293.el7.x86_64_rpm.zip"指的是Perl编程语言的一个特定版本的RPM(Red Hat Package Manager)包,适用于64位的 CentOS 7 操作系统。RPM是一种在类Unix系统中管理软件包的标准格式,它方便了...

    strawberry-perl-5.32.1.1-64bit

    标题中的"strawberry-perl-5.32.1.1-64bit"指的是Strawberry Perl的一个特定版本,这是一个专为Windows操作系统设计的Perl解释器。Perl是一种高级的、通用的、解释型、动态的编程语言,广泛应用于文本处理、系统管理...

    perl-Config-Tiny-2.12-7.1.el6.noarch.rpm

    perl-Config-Tiny-2.12-7.1.el6.noarch.rpm perl-Config-Tiny-2.12-7.1.el6.noarch.rpm

    linux yum离线资源离线资源perl-5.26.1

    `perl-5.26.1`指的是Perl编程语言的5.26.1版本。在这个离线资源包中,我们重点关注的是如何在没有网络的情况下,在Linux系统中安装和使用Perl 5.26.1。 首先,你需要将`perl-5.26.1`的压缩包下载到你的Linux机器上...

    strawberry-perl-5.10.1.0.msi

    《Perl编程语言与Strawberry Perl 5.10.1.0的深度解析》 Perl,全称为“Practical Extraction ...无论你是初学者还是经验丰富的Perl开发者,strawberry-perl-5.10.1.0.msi都是你在Windows上进行Perl编程的理想选择。

    strawberry-perl-5.32.1.1-64bit.7z

    标题中的"strawberry-perl-5.32.1.1-64bit.7z"表明我们正在讨论的是一个64位版本的Strawberry Perl 5.32.1.1软件的压缩包文件,该文件采用7-Zip格式进行压缩。Strawberry Perl是一个针对Windows平台的Perl解释器的...

Global site tag (gtag.js) - Google Analytics