From e5104cf39570605859c3648ed83c37fe647b0e3f Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Mon, 27 Jun 2022 15:23:35 -0500
Subject: [example] 1 2 and 3 find the right asset root automatically

---
 examples/02-moving-bitmp.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'examples/02-moving-bitmp.lisp')

diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index 53a4f35..e656367 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -114,7 +114,9 @@
   (ww::start (make-instance 'bitmap-display
                             :scale 2.0
                             :fps 30
-                            :asset-root #P"~/projects/wheelwork/examples/")))
+                            :asset-root (merge-pathnames
+                                         "examples/"
+                                         (asdf:system-source-directory :wheelwork)))))
 
 
 
-- 
cgit v1.2.3