From 32c030c9fca7046b3a3edfa15584050251aeba4f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 17 Feb 2014 20:59:34 -0500
Subject: Remove shader example.

* examples/Makefile.am (examples_DATA): Remove 'shader.scm'.
  (shaderdir, shader_DATA): Remove.
* examples/shader.scm: Delete file.
* examples/shaders/fragment-shader.glsl: Delete file.
* examples/shaders/vertex-shader.glsl: Delete file.
---
 examples/shader.scm | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 examples/shader.scm

(limited to 'examples/shader.scm')

diff --git a/examples/shader.scm b/examples/shader.scm
deleted file mode 100644
index 49893ad..0000000
--- a/examples/shader.scm
+++ /dev/null
@@ -1,33 +0,0 @@
-(use-modules (2d game)
-             (2d shader)
-             (2d sprite)
-             (2d vector2)
-             (2d window))
-
-(load "common.scm")
-
-(define vertex-shader
-  (load-vertex-shader "shaders/vertex-shader.glsl"))
-(define fragment-shader
-  (load-fragment-shader "shaders/fragment-shader.glsl"))
-(define program (make-shader-program vertex-shader fragment-shader))
-
-(define window-width 800)
-(define window-height 600)
-(define sprite
-  (load-sprite "images/p1_front.png"
-               #:position (vector2 (/ window-width 2)
-                                   (/ window-height 2))))
-
-(define (draw dt alpha)
-  (with-shader-program program
-    ;; Shake the sprite around a bit.
-    (uniforms ((angle (/ (random:uniform) 100)))
-      (draw-sprite sprite))))
-
-(add-hook! draw-hook draw)
-
-(with-window (make-window #:title "Shaders"
-                          #:resolution (vector2 window-width
-                                                window-height))
-  (run-game-loop))
-- 
cgit v1.2.3