perl-opengl画距形

最新推荐文章于 2019-08-08 11:07:52 发布
原创 最新推荐文章于 2019-08-08 11:07:52 发布 · 116 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文提供了一个使用 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("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()
{
  glColor3f(0,255,0);
  glBegin(GL_LINES);
  glVertex2f(-100,0);
  glVertex2f(100,0); 
  glEnd();
  glBegin(GL_LINES);
  glVertex2f(0,-100);
  glVertex2f(0,100); 
  glEnd();  
  glColor3f(255,255,0);  
  glRecti(-50,-50,50,50);
  glFlush();
}

 

 



 

【Qt 的“前世”与“今生”】Qt 的起源 | Qt 的发展历程 | 为什么选择 Qt | Qt 的授权模式 | Qt 版本选择 | Qt Widgets和QML | Qt 程序发布
dvlinker的技术专栏
12-03 3万+
【 Qt 的“前世”与“今生”】Qt 的起源 | Qt 的发展历程 | 为什么选择 Qt | Qt 的授权模式 | Qt 版本选择 | Qt Widgets和QML | Qt 程序发布
【Qt】Qt5.8交叉编译配置选项详解（./configure --help）
郭老二
04-14 1万+
Usage:  configure [options] [assignments]Configure understands variable assignments like VAR=value on the command line.These override any values possibly obtained from pkg-config. The variablesare men...
perl-opengl-直线绘制
深未来技术
01-23 177
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWi...
perl-opengl示例程序
深未来技术
01-21 372
#!/usr/bin/perl -w use strict; my $stat = `perl -v`; our $IS_ACTIVEPERL = ($stat =~ m|ActiveState|s); our $PERL_VERSION = $^V; $PERL_VERSION =~ s|^v||; use OpenGL qw/ :all /; use OpenGL::C...
perl-opengl-鼠标事件与球体视角
深未来技术
01-25 179
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; #!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; ...
perl-opengl几何变换函数
深未来技术
02-01 176
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWi...
perl-opengl立方体
深未来技术
01-24 156
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; my @mypoints; @mypoints=([0,0,0],[0,50,0],[50,0,0],[50,50,0],[0,0,50],[0,50,50],[50,0,50],[50,50,5...
perl-opengl基本图形操作-缩放，二维旋转，二维平移
麦好的AI乐园
11-18 1696
#!/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(
G2Dj:使用Java和OpenGL的跨平台游戏引擎
05-10
G2Dj 描述： Java和OpenGLES中的跨平台...碰撞器可以由矩形，圆形或由一组顶点或图元制成的复杂形状构建 当刚体与撞机碰撞或进入触发区域时，将在刚体的Gameobject上调用OnCollision和OnTigger回调 基于实现 声音的
cairo-1.2.6.tar.gz
07-28
Cairo提供了一套丰富的函数，用于创建路径、画矩形、填充颜色、绘制文本等。例如，使用C接口创建一个红色矩形的代码如下： ```c #include int main() { cairo_surface_t *surface = cairo_image_surface_create...
OpenGL---GLUT教程（九） GLUT鼠标
热门推荐
xie_zi的专栏
12-09 1万+
           GLUT教程              鼠标在前几节，我们看了怎么使用GLUT的keyboard函数，来增加一个OpenGL程序的交互性。现在，是时候研究下鼠标了。GLUT的鼠标接口提供一些列的选项来增加鼠标的交互性。也就是检测鼠标单击，和鼠标移动。 检测鼠标Clicks和键盘处理一样，GLUT为你的注册函数（也就是处理鼠标clicks事件的函数）
perl-opengl多边形近似球体
深未来技术
01-21 239
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutI...
perl-opengl学习-绘制点
深未来技术
01-21 161
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWi...
perl-opengl键盘事件与色彩
深未来技术
01-25 241
  #!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; my $a=1; my $b=0; my $c=0; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWi...
perl-opengl-glutMotionFunc鼠标事件
深未来技术
01-25 427
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; #!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; ...
openGL入门（二）用openGL绘制带有对角线的正六边形
香草奶冰的博客
08-08 3794
配置好openGL的环境之后我们就可以进行简单的绘图工作了，我的第一个绘图任务是通过点之间的连线绘制带有特定对角线的正六边形。 前人工作 在绘制正六边形之前找了一些绘制线、多边形的教程，以及画正n边形的教程，列举如下： 绘制简单的点、线、面：https://blog.youkuaiyun.com/Nick_Wang94/article/details/51946702 通过圆切割的方式画正n边形：ht...
[root@manager ~]# yum -y install perl-DBD-MySQL perl-Config-Tiny perl-Log-Dispatch perl-Parallel-ForkManager perl-Config-IniFiles ncftp perl-Params-Validate perl-CPAN perl-Test-Mock-LWP.noarch perl-LWP-Authen-Negotiate.noarch perl-devel perl-ExtUtils-CBuilder perl-ExtUtils-MakeMaker 上次元数据过期检查：0:01:30 前，执行于 2025年07月08日 星期二 13时47分22秒。 未找到匹配的参数: perl-Params-Validate 未找到匹配的参数: perl-Test-Mock-LWP.noarch 未找到匹配的参数: perl-LWP-Authen-Negotiate.noarch 错误：没有任何匹配: perl-Params-Validate perl-Test-Mock-LWP.noarch perl-LWP-Authen-Negotiate.noarch [root@manager ~]#
最新发布
07-10
yum -y install perl-DBD-MySQL perl-Config-Tiny perl-Log-Dispatch perl-ParallelForkManager perl-Config-IniFiles ncftp perl-Params-Validate perl-CPAN perl-TestMock-LWP perl-LWP-Authen-Negotiate perl-...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值