#!/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 red,GLbyte green,GLbyte blue);
void glcolor3d(GLdouble red,GLdouble green,GLdouble blue);
void glcolor3f(GLfloat red,GLfloat green,GLfloat blue);
void glcolor3i(GLint red,GLint green,GLint blue);
void glcolor3s(GLshort red,GLshort green,GLshort blue);
void glcolor3ub(GLubyte red,GLubyte green,GLubyte blue);
void glcolor3ui(GLuint red,GLuint green,GLuint blue);
void glcolor3us(GLushort red,GLushort green,GLushort blue);
void glcolor4b(GLbyte red,GLbyte green,GLbyte blue,GLbyte alpha);
void glcolor4d(GLdouble red,GLdouble green,GLdouble blue,GLdouble alpha);
void glcolor4f(GLfloat red,GLfloat green,GLfloat blue,GLfloat alpha);
void glcolor4i(GLint red,GLint green,GLint blue,GLint alpha);
void glcolor4s(GLshort red,GLshort green,GLshort blue,GLshort alpha);
void glcolor4ub(GLubyte red,GLubyte green,GLubyte blue,GLubyte alpha);
void glcolor4ui(GLuint red,GLuint green,GLuint blue,GLuint alpha);
void glcolor4us(GLushort red,GLushort green,GLushort blue,GLushort 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);
参数
red,green, blue 指定当前颜色中的红、绿和蓝色成分。
alpha 指定颜色中的α成分。只有在glColor4函数带4个变量时才指定此参数。
*v 指定一个指向包含红、绿、蓝和alpha值的数组指针。
说明
本函数通过指定红、绿、蓝的颜色成分来设置当前的颜色,同时部分函数可以接受α成分。每个成分亮度的表示范围是从零(0.0)到全光强(1.0),当指定了非浮点类型时,该类型从0到最大值的表示法与浮点类型范围的0.0到1.0相映射。
3. glColorMask :激活或关闭帧缓存颜色分量的写操作
C语言描述
void glColorMask(GLboolean red,GLboolean green,GLboolean blue,GLboolean alpha)
参数
red,green,blue,alpha 指定红、绿、蓝和α成分是否可以修改。
说明
本函数指定是否可以将单个的颜色分量写入帧缓存。例如,若red为GL_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;
}
}
相关推荐
在这个例子中,我们有一系列与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...
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离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免...
strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免...
ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方...
6. **与其他哈希函数的兼容性**:Digest-Perl-MD5遵循Perl的Digest API,这意味着它可以与其它如SHA-1、SHA-256等哈希函数的接口无缝集成。 7. **版本1.9**:发布的版本1.9可能包含了对早期版本的错误修复、性能...
perl-WWW-Curl4.17版本rpm包
本文将深入探讨"strawberry-perl-5.38.0.1-64bit-portable.zip"这个压缩包的内容及其重要性。 该压缩包名为"strawberry-perl-5.38.0.1-64bit-portable.zip",表明这是一款基于Perl 5.38.0.1版本的64位便携版...
RHEL 7.1安装MySQL 5.6的依赖包:perl-Data-Dumper-2.145-3.el7.x86_64.rpm ------------------------------------------------------------------------------------
标题中的"perl-5.24-win64.rar"指的是Perl编程语言的Windows 64位版本的压缩包,版本号为5.24。Perl是一种高级的、通用的、解释型、动态的编程语言,尤其适合处理文本操作和系统管理任务。在Windows环境下,Perl的...
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编程语言的一个特定版本的RPM(Red Hat Package Manager)包,适用于64位的 CentOS 7 操作系统。RPM是一种在类Unix系统中管理软件包的标准格式,它方便了...
标题中的"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-5.26.1`指的是Perl编程语言的5.26.1版本。在这个离线资源包中,我们重点关注的是如何在没有网络的情况下,在Linux系统中安装和使用Perl 5.26.1。 首先,你需要将`perl-5.26.1`的压缩包下载到你的Linux机器上...
《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"表明我们正在讨论的是一个64位版本的Strawberry Perl 5.32.1.1软件的压缩包文件,该文件采用7-Zip格式进行压缩。Strawberry Perl是一个针对Windows平台的Perl解释器的...