#!/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); glFlush(); #直线的二维旋转,以(5,10)为基准点旋转 glColor3f(0.1,0.8,0.5); my ($x1,$y1,$x2,$y2)=(15,15,15,50); for (my $theta=10;$theta<360;$theta+=10) { glBegin(GL_LINES); glVertex2f(5+($x1-5)*cos($theta)-($y1-10)*sin($theta),10+($x1-5)*sin($theta)+($y1-10)*cos($theta)); glVertex2f(5+($x2-5)*cos($theta)-($y2-10)*sin($theta),10+($x2-5)*sin($theta)+($y2-10)*cos($theta)); glEnd(); glFlush(); } #缩放 #缩小成原来大小的0.8 glColor3f(0.6,0.1,0.1); glRecti((-50+5)*0.8,(-50+10)*0.8,(50+5)*0.8,(50+10)*0.8); glFlush(); #放大成原来大小的1.5 glColor3f(0.1,0.9,0.1); glRecti((-50+5)*1.5,(-50+10)*1.5,(50+5)*1.5,(50+10)*1.5); glFlush(); }
相关推荐
strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免...
linux 离线安装perl-IPC-Cmd
strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免...
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-WWW-Curl4.17版本rpm包
ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方...
Digest-Perl-MD5
strawberry-perl-5.10.1.0.msi
刚刚下载的strawberry-perl-5.32.1.1-64bit 用于64位系统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-...
Windows Perl-5.36.0 VC2017 源码编译版 此版本是在Windows下,使用github上Perl-5.36的源码,在VC2017下编译的。
perl-MailTools-1.53-1.noarch.rpm
perl-DBD-MySQL-4.013-3.el6.x86_64.rpm
perl-DBI-1.52-2.el5.i386.rpm
perl-5.16.3-297.el7.x86_64.rpm
strawberry-perl-5.32.1.1-32bit
Windows Perl-5.36.0 VC2015 源码编译版 此版本是在Windows下,使用github上Perl-5.36的源码,在VC2015下编译的。
RHEL 7.1安装MySQL 5.6的依赖包:perl-Data-Dumper-2.145-3.el7.x86_64.rpm ------------------------------------------------------------------------------------
perl-Text-Iconv-1.7-2.el5.i386
perl-XML-DOM-1.44-7.el6.noarch.rpm perl-XML-DOM-1.44-7.el6.noarch.rpm