blob: c9e02756e658a030dec1c6b80c9200dd1f104acb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
;;; 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)))))
|
