aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/02-moving-bitmp.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-07-19 06:45:16 -0500
committerColin Okay <colin@cicadas.surf>2022-07-19 06:45:16 -0500
commit3c1df8b7807f772887dc3d85725059c4dbe75cca (patch)
tree9a02be7dff5b9e3e10c13b4f08f5fb487aca0d2c /examples/02-moving-bitmp.lisp
parent3e5fb0e5ceb14475164b2a97187c0164ad465cc3 (diff)
[rename] bitmap/image
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
-rw-r--r--examples/02-moving-bitmp.lisp12
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index b07f1aa..d0a5598 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -1,4 +1,4 @@
-;;; 01-bitmap-display.lisp
+;;; 01-image-display.lisp
(defpackage #:ww.examples/2
(:use #:cl)
@@ -6,7 +6,7 @@
(in-package :ww.examples/2)
-(defclass bitmap-display (ww::application ) ())
+(defclass image-display (ww::application ) ())
(defvar *shared-anim-table* (make-hash-table :synchronized t))
@@ -100,12 +100,12 @@
(ww::on-mousewheel ()
(print (list :mousewheel horiz vert dir))))
-(defmethod ww::boot ((app bitmap-display))
+(defmethod ww::boot ((app image-display))
(let ((bm
- (make-instance 'ww::bitmap
+ (make-instance 'ww::image
:texture (ww::get-asset "Fezghoul.png")))
(bm2
- (make-instance 'ww::bitmap
+ (make-instance 'ww::image
:texture (ww::get-asset "GelatinousCube.png"))))
(ww::add-handler app #'wheelie)
@@ -130,7 +130,7 @@
(defun start ()
- (ww::start (make-instance 'bitmap-display
+ (ww::start (make-instance 'image-display
:scale 2.0
:fps 60
:width 800