;;; 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))
  (let ((bm
          (make-instance 'ww::bitmap
                         :texture (ww::get-asset "Fezghoul.png"))))
    (describe (ww::model-matrix bm))
    (describe bm)
    (describe app)
    (ww::add-unit app bm)))


(defun start ()
  (ww::start
   (make-instance
    'bitmap-display
    :asset-root (merge-pathnames
                 "examples/"
                 (asdf:system-source-directory :wheelwork)))))