perl-opengl画距形

原创于 2013-01-24 17:01:55 发布 · 105 阅读

0 ·

CC 4.0 BY-SA版权

脚本语言专栏收录该内容

202 篇文章

订阅专栏

本文提供了一个使用 Perl 和 OpenGL 进行简单图形绘制的例子程序。该程序创建了一个窗口，并在其中绘制了坐标轴及一个黄色的正方形。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/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();
}