perl-opengl-直线绘制-优快云博客

本文介绍了一个使用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()
{
  my $x0=-100;
  my $y0=-85;  
  my $xend=93;
  my $yend=26;
  my $dx=abs($xend-$x0);
  my $dy=abs($yend-$y0);
  my $p=2*$dy-$dx;
  my $twoDy=2*$dy;
  my $twoDyMinusDx=2*($dy-$dx);
  my $x;
  my $y;
  glPointSize(1);
  glColor3f(255,0,255);  
  if ($x0>$xend)
  {
     $x=$xend;
	 $y=$yend;
	 $xend=$x0;
  }
  else
  {
     $x=$x0;
	 $y=$y0;
  }
  glBegin(GL_POINTS);
  glVertex2f($x,$y);	
  glEnd();  
  glFlush(); 
  for (;$x<$xend;$x++)
  {
    if ($p<0)
	{
	   $p+=$twoDy;
	}
	else
	{
	   $y++;
	   $p+=$twoDyMinusDx;
	}
    glBegin(GL_POINTS);
    glVertex2f($x,$y);	
    glEnd();  	
  }
  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();
}