diff options
Diffstat (limited to 'examples/03-font-render.lisp')
| -rw-r--r-- | examples/03-font-render.lisp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index 3a3d659..fb43b08 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -1,6 +1,7 @@ (defpackage #:ww.examples/3 - (:use :cl)) + (:use #:cl) + (:export #:start)) (in-package #:ww.examples/3) @@ -25,14 +26,12 @@ (when (< 900 (ww::unit-x target)) (setf (ww::unit-x target) -800)) - ;(incf (ww::unit-x target) 5) - )) + (incf (ww::unit-x target) 5))) (defmethod ww::boot ((app font-display)) (let ((hello (make-instance 'ww::text - ;:content "Yom" :content "Hell! Oh World..." :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2))))) @@ -61,7 +60,9 @@ :fps 60 :refocus-on-mousedown-p nil :title "Wheelwork Example: Font display" - :asset-root "~/projects/wheelwork/examples/") + :asset-root (merge-pathnames + "examples/" + (asdf:system-source-directory :wheelwork))) :x 2380)) |