[add] example; [add] basic stuff to run example

2 files changed, 20 insertions, 0 deletions

diff --git a/examples/01-bitmap-display.lisp b/examples/01-bitmap-display.lisp
new file mode 100644
index 0000000..fa743fa
--- /dev/null
+++ b/examples/01-bitmap-display.lisp
@@ -0,0 +1,20 @@
+;;; 01-bitmap-display.lisp
+
+(defpackage #:ww.examples/1
+  (:use #:cl)
+  (:export #:start))
+
+(in-package :ww.examples/1)
+
+(defclass bitmap-display (ww::application ) ())
+
+(defmethod ww::boot ((app bitmap-display))
+  (ww::add-unit
+   app
+   (make-instance 'ww::bitmap
+                  :texture (ww::get-asset "Fezghoul.png"))))
+
+
+(defun start ()
+  (ww::start (make-instance 'bitmap-display
+                            :asset-root #P"~/projects/wheelwork/examples/")))
diff --git a/examples/Fezghoul.png b/examples/Fezghoul.png
new file mode 100755
index 0000000..c58a95b
--- /dev/null
+++ b/examples/Fezghoul.png