From 641d084e27f8178bd43784c292f4b6b482e64739 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 27 Jun 2022 11:09:50 -0500 Subject: [modify] renamed set-handler to add-handler --- examples/03-font-render.lisp | 25 +++++++++++++++++-------- 1 file changed, 17 insertions(+), 8 deletions(-) (limited to 'examples/03-font-render.lisp') diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index e04d0c8..47ac9cb 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -1,18 +1,27 @@ -(defpackage #:ww.example/3 +(defpackage #:ww.examples/3 (:use :cl)) -(in-package #:ww.example/3) +(in-package #:ww.examples/3) (defclass font-display (ww::application) ()) +(define-symbol-macro +speed+ 2) + (ww::defhandler move-on-keydown (ww::on-keydown () (case scancode - (:scancode-up (incf (ww::unit-y target))) - (:scancode-down (decf (ww::unit-y target))) - (:scancode-left (decf (ww::unit-x target))) - (:scancode-right (incf (ww::unit-x target)))))) + (:scancode-up (incf (ww::unit-y target) +speed+)) + (:scancode-down (decf (ww::unit-y target) +speed+)) + (:scancode-left (decf (ww::unit-x target) +speed+)) + (:scancode-right (incf (ww::unit-x target) +speed+))))) + +(ww::defhandler marquee + (ww::on-perframe () + (when (< 800 (ww::unit-x target)) + (setf (ww::unit-x target) + -800)) + (incf (ww::unit-x target) +speed+))) (defmethod ww::boot ((app font-display)) (let ((hello @@ -31,8 +40,7 @@ (ww::unit-y hello) 100) - (ww::set-handler hello #'move-on-keydown) - + (ww::add-handler hello #'marquee) (ww::refocus-on hello) (ww::add-unit app hello))) @@ -40,6 +48,7 @@ (defun start () (ww::start (make-instance 'font-display + :fps 60 :refocus-on-mousedown-p nil :title "Wheelwork Example: Font display" :asset-root "~/projects/wheelwork/examples/"))) -- cgit v1.2.3