summaryrefslogtreecommitdiff
path: root/examples/buffer.scm
diff options
context:
space:
mode:
authorDavid Thompson <davet@gnu.org>2018-06-25 04:03:01 -0400
committerDavid Thompson <davet@gnu.org>2018-06-25 04:30:03 -0400
commitab6bea9c601e00cd63d81fa94ec177267e70c2e4 (patch)
tree404a2a4dc5f5f982be48124fb061887adb7346a6 /examples/buffer.scm
parenta7bc573dd87c2a57031786ff8762d7141f156e24 (diff)
Remove experimental buffer API.
Diffstat (limited to 'examples/buffer.scm')
-rw-r--r--examples/buffer.scm33
1 files changed, 0 insertions, 33 deletions
diff --git a/examples/buffer.scm b/examples/buffer.scm
deleted file mode 100644
index 4712ea4..0000000
--- a/examples/buffer.scm
+++ /dev/null
@@ -1,33 +0,0 @@
-(use-modules (chickadee)
- (chickadee buffer)
- (chickadee math vector)
- (chickadee render font)
- (chickadee render sprite)
- (chickadee render texture)
- (chickadee scripting)
- (oop goops))
-
-(define-class <splash-screen> (<buffer>)
- (chickadee #:accessor chickadee #:init-value #f))
-
-(define-method (start (splash <splash-screen>))
- (set! (chickadee splash) (load-image "images/chickadee.png"))
- (after 120 (replace-buffer! (make <main-menu>))))
-
-(define-method (draw (splash <splash-screen>) alpha)
- (draw-sprite (chickadee splash) (vec2 256.0 176.0)))
-
-(define-class <main-menu> (<buffer>)
- (font #:accessor menu-font #:init-value #f))
-
-(define-method (start (menu <main-menu>))
- (set! (menu-font menu) (load-font "fonts/good_neighbors_starling.xml")))
-
-(define-method (draw (menu <main-menu>) alpha)
- (draw-text (menu-font menu) "press any key to exit" (vec2 200.0 240.0)))
-
-(define-method (key-press (menu <main-menu>) key scancode modifiers repeat?)
- (pop-buffer!))
-
-(use-buffers! (make <splash-screen>))
-(run-game)