From b956a766d7fd0ffa6cabe18fa0eb2822f4a0ffc0 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 21 Jun 2022 10:29:13 -0500 Subject: [add] example; [add] basic stuff to run example --- examples/01-bitmap-display.lisp | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 examples/01-bitmap-display.lisp (limited to 'examples/01-bitmap-display.lisp') 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/"))) -- cgit v1.2.3