File: simple

package info (click to toggle)
libopengl-perl 0.54.alan1-8
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 728 kB
  • ctags: 754
  • sloc: perl: 5,536; ansic: 3,462; makefile: 44
file content (26 lines) | stat: -rwxr-xr-x 629 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/bin/perl
#
# simple example taken from listing 1-1 (or 1-2) from OpenGL book
#

BEGIN{ unshift(@INC,"../blib"); }  # in case OpenGL is built but not installed
BEGIN{ unshift(@INC,"../blib/arch"); } # 5.002 gamma needs this
BEGIN{ unshift(@INC,"../blib/lib"); } # 5.002 gamma needs this
use OpenGL;

glpOpenWindow;
glClearColor(0,0,1,1);
glClear(GL_COLOR_BUFFER_BIT);
glOrtho(-1,1,-1,1,-1,1);

glColor3f(1,0,0);
glBegin(GL_POLYGON);
  glVertex2f(-0.5,-0.5);
  glVertex2f(-0.5, 0.5);
  glVertex2f( 0.5, 0.5);
  glVertex2f( 0.5,-0.5);
glEnd();
glFlush();

print "Program 1-1 Simple, hit control-D to quit:\n\n";
glpMainLoop;