收入啤酒88 发表于 2017-5-19 08:03:06

perl-opengl指定矩阵-坐标视图

  这两个都是glMatrixMode()函数的参数,那就先说说glMatrixMode吧~,这个函数其实就是对接下来要做什么进行一下声明,也就是在要做下一步之前告诉计算机我要对“什么”进行操作了,这个“什么”在glMatrixMode的“()”里的选项(参数)有,GL_PROJECTION,GL_MODELVIEW和GL_TEXTURE;

如果参数是GL_PROJECTION,这个是投影的意思,就是要对投影相关进行操作,也就是把物体投影到一个平面上,就像我们照相一样,把3维物体投到2维的平面上。这样,接下来的语句可以是跟透视相关的函数,比如glFrustum()或gluPerspective();
如果参数是GL_MODELVIEW,这个是对模型视景的操作,接下来的语句描绘一个以模型为基础的适应,这样来设置参数,接下来用到的就是像gluLookAt()这样的函数;
若是GL_TEXTURE,就是对纹理相关进行操作;
顺便说下,OpenGL里面的操作,很多是基于对矩阵的操作的,比如位移,旋转,缩放,所以,这里其实说的规范一点就是glMatrixMode是用来指定哪一个矩阵是当前矩阵,而它的参数代表要操作的目标,GL_PROJECTION是对投影矩阵操作,GL_MODELVIEW是对模型视景矩阵操作,GL_TEXTURE是对纹理矩阵进行随后的操作。

mode 指定哪一个矩阵堆栈是下一个矩阵操作的目标,可选值: GL_MODELVIEW、GL_PROJECTION、GL_TEXTURE.

说明

glMatrixMode设置当前矩阵模式:

GL_MODELVIEW,对模型视景矩阵堆栈应用随后的矩阵操作.

GL_PROJECTION,对投影矩阵应用随后的矩阵操作.

GL_TEXTURE,对纹理矩阵堆栈应用随后的矩阵操作.

与glLoadIdentity()一同使用

glLoadIdentity():该函数的功能是重置当前指定的矩阵为单位矩阵。

在glLoadIdentity()之后我们为场景设置了透视图。glMatrixMode(GL_MODELVIEW)设置当前矩阵为模型视图矩阵,模型视图矩阵储存了有关物体的信息。

下面是关于sin和cos的

#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;   
glutInit();
glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE);
glutInitWindowPosition(100,100);
glutInitWindowSize(400,400);
glutCreateWindow("my first OpenGL program");
glClearColor(0,0,0,255);
glClear(GL_COLOR_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
gluOrtho2D(-10,10,-10,10);
glutDisplayFunc(\&mydis);
glutMainLoop();
return 0;
sub mydis()
{
my $x=-10;
my $y;
my $z=-10;

glPointSize(1);
glBegin(GL_POINTS);
for (0..100000)
{
$x+=0.01;
$z+=0.01;
$y=sin($x);
glColor3f(255,0,0);
glVertex2f($x,$y);
$y=cos($z);
glColor3f(0,255,0);
glVertex2f($x,$y);
}
glEnd();
glBegin(GL_LINES);
glVertex2f(-10,0);
glVertex2f(10,0);
glEnd();
glBegin(GL_LINES);
glVertex2f(0,-10);
glVertex2f(0,10);
glEnd();
glFlush();
}

 

 下面以3D效果

 

#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;   
glutInit();
glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE);
glutInitWindowPosition(100,100);
glutInitWindowSize(400,400);
glutCreateWindow("my first OpenGL program");
glClearColor(0,0,0,255);
glClear(GL_COLOR_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
gluOrtho2D(-10,10,-10,10);
glutDisplayFunc(\&mydis);
glutMainLoop();
return 0;
sub mydis()
{
my $x=-10;
my $y;
my $z=-10;

glPointSize(1);
glBegin(GL_LINE_LOOP);
for (0..100000)
{
$x+=0.01;
$z+=0.01;
$y=sin($x);
glColor3f(255,0,0);
glVertex3f($x,$y,($x+$y)/10);
$y=cos($z);
glColor3f(0,255,0);
glVertex3f($x,$y,($x+$y)/10);
}
glEnd();
glBegin(GL_LINES);
glVertex2f(-10,0);
glVertex2f(10,0);
glEnd();
glBegin(GL_LINES);
glVertex2f(0,-10);
glVertex2f(0,10);
glEnd();
glFlush();
}

 

 

 
页: [1]
查看完整版本: perl-opengl指定矩阵-坐标视图