examples/01-bitmap-display.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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/")))