perl-opengl立方体

deepfuture

于 2013-01-24 17:44:37 发布

阅读量143

点赞数

CC 4.0 BY-SA版权

分类专栏：脚本语言

本文链接：https://blog.youkuaiyun.com/deepfuture/article/details/84385231

脚本语言专栏收录该内容

202 篇文章

订阅专栏

本文介绍了一个使用Perl语言结合OpenGL库来绘制三维立方体的应用程序。通过定义顶点坐标和绘制多边形来呈现一个立方体，并设置了视图投影和观察位置。

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

#!/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,50]);
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);
glOrtho(-100,100,-100,100,-100,100);
glMatrixMode(GL_MODELVIEW);
glutDisplayFunc(\&mydis);
glutMainLoop();
return 0;

sub mydis()
{
  glPolygonMode(GL_FRONT_AND_BACK, GL_LINE); 
  gluLookAt(-1,-1,-5,0,0,0,5,0,0);
  glColor3f(255,255,0);  
  &quad(6,2,3,7);
  &quad(5,1,0,4);
  &quad(7,3,1,5);
  &quad(4,0,2,6);
  &quad(2,0,1,3);
  &quad(7,5,4,6); 
  glFlush();
}

sub quad()
{
  my @ptn=@_;
  glBegin(GL_QUADS);
  glVertex3i(@{$mypoints[$ptn[0]]});
  glVertex3i(@{$mypoints[$ptn[1]]});
  glVertex3i(@{$mypoints[$ptn[2]]});
  glVertex3i(@{$mypoints[$ptn[3]]});
  glEnd(); 
}