source: project/gl-display-glx/samples/s00-no-arg.scm @ 3309

Last change on this file since 3309 was 3309, checked in by thu, 14 years ago

initial commit

  • Property svn:executable set to *
File size: 372 bytes
Line 
1#! /bin/sh
2#|
3exec csi -s $0 "$@"
4|#
5
6; This sample opens a window (with an OpenGL context).
7; It waits for any event then quits.
8;
9; It shows the use of GL-DISPLAY:CREATE without any argument.
10
11(require-extension gl-display-glx)
12(require 'gl-display-events-util)
13
14(define *display* (gl-display:create))
15(write-event (wait-event *display*))
16(gl-display:destroy *display*)
Note: See TracBrowser for help on using the repository browser.