From ab6bea9c601e00cd63d81fa94ec177267e70c2e4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 25 Jun 2018 04:03:01 -0400 Subject: Remove experimental buffer API. --- examples/buffer.scm | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 examples/buffer.scm (limited to 'examples') 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 () - (chickadee #:accessor chickadee #:init-value #f)) - -(define-method (start (splash )) - (set! (chickadee splash) (load-image "images/chickadee.png")) - (after 120 (replace-buffer! (make )))) - -(define-method (draw (splash ) alpha) - (draw-sprite (chickadee splash) (vec2 256.0 176.0))) - -(define-class () - (font #:accessor menu-font #:init-value #f)) - -(define-method (start (menu )) - (set! (menu-font menu) (load-font "fonts/good_neighbors_starling.xml"))) - -(define-method (draw (menu ) alpha) - (draw-text (menu-font menu) "press any key to exit" (vec2 200.0 240.0))) - -(define-method (key-press (menu ) key scancode modifiers repeat?) - (pop-buffer!)) - -(use-buffers! (make )) -(run-game) -- cgit v1.2.3