remove primitive glut demo
authorDaniel Hartwig <mandyke@gmail.com>
Sat, 13 Apr 2013 02:50:00 +0000 (10:50 +0800)
committerDaniel Hartwig <mandyke@gmail.com>
Sat, 13 Apr 2013 02:50:00 +0000 (10:50 +0800)
* examples/glut/demo.scm: Removed.  The null-program demo uses
  GLUT and is nicer.

examples/glut/demo.scm [deleted file]

diff --git a/examples/glut/demo.scm b/examples/glut/demo.scm
deleted file mode 100644 (file)
index b92bb40..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/env guile
-!#
-
-(use-modules (figl glut)
-             (figl gl)
-             (system foreign))
-
-(define (render-scene)
-  (gl-clear (clear-buffer-mask color-buffer depth-buffer))
-  (gl-begin (begin-mode triangles)
-    (gl-vertex -0.5 -0.5 0.0)
-    (gl-vertex 0.5 0.0 0.0)
-    (gl-vertex 0.0 0.5 0.0))
-  (swap-buffers))
-
-(initialize-glut #:window-size '(320 . 200)
-                 #:display-mode (display-mode rgb double depth))
-
-(define main-window (make-window "glut"))
-
-(set-display-callback render-scene)
-(glut-main-loop)