diff options
author | David Thompson <davet@gnu.org> | 2018-06-25 04:03:01 -0400 |
---|---|---|
committer | David Thompson <davet@gnu.org> | 2018-06-25 04:30:03 -0400 |
commit | ab6bea9c601e00cd63d81fa94ec177267e70c2e4 (patch) | |
tree | 404a2a4dc5f5f982be48124fb061887adb7346a6 /examples/buffer.scm | |
parent | a7bc573dd87c2a57031786ff8762d7141f156e24 (diff) |
Remove experimental buffer API.
Diffstat (limited to 'examples/buffer.scm')
-rw-r--r-- | examples/buffer.scm | 33 |
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) |