From f9b86b2c6ee805ee7c51d296540f2f82690c331c Mon Sep 17 00:00:00 2001
From: eriiiiiic <eriiiiiic@zeiz.(none)>
Date: Sat, 8 Jan 2011 15:34:00 -0600
Subject: [PATCH] Added scheme playground file

---
 maze.scm | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 maze.scm

diff --git a/maze.scm b/maze.scm
new file mode 100644
index 0000000..6a4c4da
--- /dev/null
+++ b/maze.scm
@@ -0,0 +1,38 @@
+(use gl)
+(use gl.glut)
+
+(define (disp)
+  (gl-clear GL_COLOR_BUFFER_BIT)
+  (gl-color '#f32(1.0 1.0 1.0))
+  (gl-begin* GL_LINE
+    (gl-vertex 0.25 0.25 0.0)
+    (gl-vertex 0.75 0.25 0.0)
+    (gl-vertex 0.75 0.75 0.0)
+    (gl-vertex 0.25 0.75 0.0)
+    )
+  (gl-flush)
+  )
+
+(define (init)
+  (gl-clear-color 0.0 0.0 0.0 0.0)
+  (gl-matrix-mode GL_PROJECTION)
+  (gl-load-identity)
+  (gl-ortho 0.0 10.0 0.0 10.0 -1.0 1.0)
+  )
+
+(define (keyboard key x y)
+  (cond
+   ((= key 27) (exit 0))
+   ))
+
+(define (main args)
+  (glut-init args)
+  (glut-init-display-mode (logior GLUT_SINGLE GLUT_RGB))
+  (glut-init-window-size 800 600)
+  (glut-init-window-position 0 0)
+  (glut-create-window "hello")
+  (init)
+  (glut-display-func disp)
+  (glut-keyboard-func keyboard)
+  (glut-main-loop)
+  0)
-- 
2.11.4.GIT