perl-opengl几何变换函数

最新推荐文章于 2017-04-24 13:57:13 发布

最新推荐文章于 2017-04-24 13:57:13 发布 · 176 阅读

脚本语言同时被 2 个专栏收录

202 篇文章

订阅专栏

解释语言

150 篇文章

订阅专栏

本文提供了一个使用Perl结合OpenGL进行2D绘图的示例代码，包括坐标轴绘制、矩形变换等基本操作。展示了如何通过OpenGL设置颜色、投影矩阵，并实现平移、缩放及旋转效果。

#!/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("opengl");
glClearColor(0,0,0,255);
glClear(GL_COLOR_BUFFER_BIT);  
glMatrixMode(GL_PROJECTION);
gluOrtho2D(-100,100,-100,100);
glMatrixMode(GL_MODELVIEW);
glutDisplayFunc(\&mydis);
glutMainLoop();
return 0;

sub mydis()
{
  glClearColor(0,0,0,255);
  glClear(GL_COLOR_BUFFER_BIT); 
  glLoadIdentity();
  glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);  
  glColor3f(1,1,1);
  glBegin(GL_LINES);
  glVertex2f(-100,0);
  glVertex2f(100,0); 
  glEnd();
  glBegin(GL_LINES);
  glVertex2f(0,-100);
  glVertex2f(0,100); 
  glEnd(); 
  # 画矩形
  glColor3f(0.5,0.1,0);  
  glRecti(-50,-50,50,50);
  glFlush();
  glPushMatrix();
  #向x方向移动3.5个单位,y方向移动8.5个单位
  glColor3f(0.1,0.1,0.9);  
  glTranslatef(3.5,8.5,0);
  glRecti(-50,-50,50,50);
  glFlush();  
  glPopMatrix();
  glPushMatrix();  
  #x方向放大到1.2倍，y方向放大到1.8倍
  glColor3f(0.1,0.9,0.1); 
  glScalef(1.2,1.8,1); 
  glRecti(-50,-50,50,50);
  glFlush(); 
  glPopMatrix();
  glPushMatrix();   
  #x方向缩小至0.5倍，y方向缩小至0.8倍
  glColor3f(0.9,0.9,0.9); 
  glScalef(0.5,0.8,1); 
  glRecti(-50,-50,50,50);
  glFlush(); 
  glPopMatrix();
  glPushMatrix();  
  #二维旋转，相对于坐标原点的
  glColor3f(0.7,0.8,0.7);
  my ($x1,$y1,$x2,$y2)=(15,15,15,50);
  for (my $theta=5;$theta<360;$theta+=5)
  { 
	glRotatef($theta,0,0,1);#相对于z轴
    glRecti(-50,-50,50,50); 
  }    
  glFlush();  
}