perl-opengl基本图形操作-缩放，二维旋转，二维平移

本文主要是介绍perl-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("平移");
glClearColor(0,0,0,255);
glClear(GL_COLOR_BUFFER_BIT);  
glMatrixMode(GL_PROJECTION);
gluOrtho2D(-100,100,-100,100);
glutDisplayFunc(\&mydis);
glutMainLoop();
return 0;sub mydis()
{glColor3f(0,255,0);glBegin(GL_LINES);glVertex2f(-100,0);glVertex2f(100,0); glEnd();glBegin(GL_LINES);glVertex2f(0,-100);glVertex2f(0,100); glEnd(); glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);# 画矩形glColor3f(0.5,0.5,0);  glRecti(-50,-50,50,50);glFlush();#向x方向移动5个单位,y方向移动10个单位glColor3f(0.2,0.2,0.9);  glRecti(-50+5,-50+10,50+5,50+10);

这篇关于perl-opengl基本图形操作-缩放，二维旋转，二维平移的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---