From e5104cf39570605859c3648ed83c37fe647b0e3f Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 27 Jun 2022 15:23:35 -0500 Subject: [example] 1 2 and 3 find the right asset root automatically --- examples/03-font-render.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'examples/03-font-render.lisp') 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)) -- cgit v1.2.3