#!/usr/bin/env perl
use OpenGL qw(:all);

sub OnTimerClick
{
    print "OnTimerClick\n";
    glutTimerFunc(16,\&OnTimerClick,0);
}

glutInit;
glutInitDisplayMode(GLUT_DEPTH | GLUT_DOUBLE | GLUT_RGBA);
glutInitWindowPosition(100,100);
glutInitWindowSize(100,100);
glutCreateWindow("test");

glutDisplayFunc(sub{
    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
    glutSwapBuffers();
});

glutTimerFunc(16,\&OnTimerClick,0);

glutMainLoop;