#!/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 OpenGL program"); 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() { my $xcenter=5; my $ycenter=2; my $Rx=16; my $Ry=69; my $Rx2=$Rx*$Rx; my $Ry2=$Ry*$Ry; my $twoRx2=2*$Rx2; my $twoRy2=2*$Ry2; my $p; my $x=0; my $y=$Ry; my $px=0; my $py=$twoRx2*$y; glPointSize(1); glColor3f(255,0,255); &showpoints($xcenter,$ycenter,$x,$y); $p=round($Ry2-($Rx2*$Ry)+(0.25*$Rx2)); for (;$px<$py;$x++) { $px+=$twoRy2; if ($p<0) { $p+=$Ry2+$px; } else { $y--; $py-=$twoRx2; $p+=$Ry2+$px-$py; } &showpoints($xcenter,$ycenter,$x,$y); } $p=round($Ry2*(($x+0.5)**2)+$Rx2*(($y-1)**2)-$Rx2*$Ry2); for (;$y>0;$y--) { $py-=$twoRx2; if ($p>0) { $p+=$Rx2-$py; } else { $x++; $px+=$twoRy2; $p+=$Rx2-$py+$px; } &showpoints($xcenter,$ycenter,$x,$y); } glFlush(); glColor3f(0,255,0); glBegin(GL_LINES); glVertex2f(-100,0); glVertex2f(100,0); glEnd(); glBegin(GL_LINES); glVertex2f(0,-100); glVertex2f(0,100); glEnd(); glFlush(); } sub showpoints() { my ($xcenter,$ycenter,$x,$y)=@_; glBegin(GL_POINTS); glVertex2f($xcenter+$x,$ycenter+$y); glVertex2f($xcenter-$x,$ycenter+$y); glVertex2f($xcenter+$x,$ycenter-$y); glVertex2f($xcenter-$x,$ycenter-$y); glEnd(); } sub round() { return int($_[0]+0.5); }
相关推荐
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离线安装包(官方),可避免...
ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方...
perl-WWW-Curl4.17版本rpm包
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...
Windows Perl-5.36.0 VC2017 源码编译版 此版本是在Windows下,使用github上Perl-5.36的源码,在VC2017下编译的。
strawberry-perl-5.10.1.0.msi
Digest-Perl-MD5
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-...
刚刚下载的strawberry-perl-5.32.1.1-64bit 用于64位系统Perl 希望对你有用
perl-DBD-MySQL-4.013-3.el6.x86_64.rpm
perl-MailTools-1.53-1.noarch.rpm
perl-DBI-1.52-2.el5.i386.rpm
perl-5.16.3-297.el7.x86_64.rpm
Windows Perl-5.36.0 VC2015 源码编译版 此版本是在Windows下,使用github上Perl-5.36的源码,在VC2015下编译的。
strawberry-perl-5.32.1.1-32bit
strawberry-perl-5.32.1.1-64bit安装包 CSDN审核可能较慢,如无法下载,可以过段时间再回来看下 仅供相关爱好者交流使用,请于下载24小时内删除
perl-XML-DOM-1.44-7.el6.noarch.rpm perl-XML-DOM-1.44-7.el6.noarch.rpm
解决MYSQL在LINUXCENTOS下缺失依赖包 perl-5.10.1-141.el6_7.1.x86_64.rpm