diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-19 06:48:39 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-19 06:48:39 -0500 |
| commit | 615c08f0f8fabd504b2bb076410d57dde7cfe34a (patch) | |
| tree | db3c8b9a285550ba6ae07e82fe459585099eebea /examples/02-moving-bitmp.lisp | |
| parent | ac967b3befc75c575a4191728469ee5c161dcde5 (diff) | |
[example] updating names
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
| -rw-r--r-- | examples/02-moving-bitmp.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp index d0a5598..bb348a1 100644 --- a/examples/02-moving-bitmp.lisp +++ b/examples/02-moving-bitmp.lisp @@ -1,4 +1,4 @@ -;;; 01-image-display.lisp +;;; 01-image-transforms-and-events.lisp (defpackage #:ww.examples/2 (:use #:cl) @@ -6,7 +6,7 @@ (in-package :ww.examples/2) -(defclass image-display (ww::application ) ()) +(defclass image-transforms-etc (ww::application ) ()) (defvar *shared-anim-table* (make-hash-table :synchronized t)) @@ -100,7 +100,7 @@ (ww::on-mousewheel () (print (list :mousewheel horiz vert dir)))) -(defmethod ww::boot ((app image-display)) +(defmethod ww::boot ((app image-transforms-etc)) (let ((bm (make-instance 'ww::image :texture (ww::get-asset "Fezghoul.png"))) @@ -130,7 +130,7 @@ (defun start () - (ww::start (make-instance 'image-display + (ww::start (make-instance 'image-transforms-etc :scale 2.0 :fps 60 :width 800 |