diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-02-17 20:59:34 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-02-17 20:59:34 -0500 |
commit | 32c030c9fca7046b3a3edfa15584050251aeba4f (patch) | |
tree | 85533c1b52e362499d50aae26c10cde63f891999 /examples/shader.scm | |
parent | 384047cb491f9598cbc6290be34028ab188f5488 (diff) |
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.
Diffstat (limited to 'examples/shader.scm')
-rw-r--r-- | examples/shader.scm | 33 |
1 files changed, 0 insertions, 33 deletions
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)) |