1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use OpenGL qw(:all);
glutInit();
glutInitWindowPosition(10, 10);
glutInitWindowSize(200, 200);
glutInitDisplayMode(16);
$win = glutCreateWindow("test2");
glutSetWindow($win);
glutDisplayFunc(sub { print "Display!\n";
glClear( GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT ) } );
glutReshapeFunc(sub { print "Reshape!\n";
my ($width, $height) = @_;
glViewport(0, 0, $width, $height); } );
#glutIdleFunc(sub { print "Idle!\n" } );
glutCreateMenu(sub { print "Got menu ",@_,"\n" } );
glutAddMenuEntry("Hello", 1);
glutAttachMenu(0);
glutMainLoop();
|
