perl-opengl学习-绘制点

最新推荐文章于 2014-08-06 22:09:32 发布
最新推荐文章于 2014-08-06 22:09:32 发布 · 161 阅读 · 0

本文介绍了一个使用Perl和OpenGL库来绘制二维图形的例子。具体地，该程序演示了如何在一个窗口中同时绘制x的平方和x的立方的点，以此来可视化这两种不同类型的数学函数。 
#!/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(600,600);
glutCreateWindow("my first OpenGL program");
glutDisplayFunc(\&mydis);
glutMainLoop();
return 0;

sub mydis()
{
  my $x=-1;
  my $y;
  my $z=-1;
  
  glClearColor(0,0,0,255);
  glClear(GL_COLOR_BUFFER_BIT);
  glPointSize(1);
  glBegin(GL_POINTS);
  for (0..10000)
  {
    $x+=0.001;
    $z+=0.001;	
	$y=$x**2;
	glColor3f(255,0,0);
    glVertex2f($x,$y);	
	$y=$z**3;
	glColor3f(0,255,0);
    glVertex2f($x,$y);		
  }
  glEnd();
  glFlush();
}

 绘制x平方和x立方



 

perl-opengl键盘事件与色彩
麦好的AI乐园
11-22 1877
按空格键变换色彩     二、 关于色彩 1. glShadeModel ：选择平面明暗模式或光滑明暗模式 C语言描述 void glShadeModel( GLenum mode ) 参数 mode 指定表示明暗模式的符号值，可以选择GL_FLAT（平面明暗模式）和GL_SMOOTH（光滑明暗模式），缺省值为GL_SMOOTH。 说明
Graphics-Raylib：Raylib电子游戏库的Perlish包装器
02-05
通过Graphics-Raylib，Perl程序员可以轻松地创建各种游戏和可视化应用，而无需深入学习OpenGL的底层细节。 PerlPerl标签表明这个项目是专门为Perl社区设计的，旨在增强Perl在游戏开发领域的实用性。Perl虽然不是...
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几何变换函数
深未来技术
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示例程序
深未来技术
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...
ActivePerl+obj2opengl for Mac
08-08
在iOS平台上进行OpenGL开发的过程中，有一个工具集合对开发者来说至关重要，那就是"ActivePerl+obj2opengl for Mac"。这个组合提供了iOS应用开发所需的脚本环境以及一个专门用于处理3D模型的工具。 首先，Active...
Perl封装的Raylib图形库：电子游戏开发新选择
3. OpenGL的封装：OpenGL（Open Graphics Library）是一个跨语言、跨平台的应用程序编程接口（API），由近350个不同的函数调用组成，用来绘制复杂的三维场景和二维图形。由于其复杂性，直接使用OpenGL进行图形编程...
gtkglext-examples.rar_gtkglext_gtkglext windows_gtkglext-example
09-24
通过分析和运行这些示例，开发者不仅可以学习到GTKGLExt库的具体用法，还可以深入理解如何将GTK+的事件驱动机制与OpenGL的图形渲染相结合，从而在Linux和Windows平台上构建出高效的图形应用。 在实际项目中，...
使用perl画图
sxlwzl的专栏
08-06 4390
zz ：http://stackoverflow.com/questions/18150841/gdgraph-with-perl GD::Graph with Perl
Perl画图
csdn201420142015的博客
08-13 1110
从目标所掌握的资料来看，perl调用GD作图还是比较方便的，下面贴一下代码作图的一段代码。use GD::Graph::lines;my ($title,$legend1,$legend2);my (@text,@y1,@y2)...
使用Perl绘制统计图
doudou8486的专栏
05-18 2895
Bar #!/use/bin/perl use SVG::TT::Graph::Bar; my @fields        = qw(Jan Feb Mar); my @data_sales_02 = qw(12 45 21); my $graph = SVG::TT::Graph::Bar->new(   {       'height' => '500',
perl-opengl-glutMotionFunc鼠标事件
深未来技术
01-25 428
#!/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之类的是干嘛用的
chouqi3370的博客
09-28 720
opengl 是個定義了一個跨程式語言、跨平台的应用程式介面（API）的規格，它用於生成二維、三維圖像。 openal （Open Audio Library）是自由软件界的跨平台音效API opencl (Open Computing Language，开放计算语言) 是一个为异构平台编写...
Feigong，针对各种情况自由变化的mysql注入脚本,In view of the different things freely change the mysql injection scrip
最新发布
12-17
下载前可以先看下教程 https://pan.quark.cn/s/90f2470d331b Feigong --非攻 rm... 最近有了新的体验...Feigong 2.0loading....
【空气质量预测】北京 36 站预处理数据 落地即用无套路！.zip
12-17
【空气质量预测】北京 36 站预处理数据 落地即用无套路！.zip
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值