From 278d81508d56a4b44e6b24e036661a6a159126c4 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 23 Jun 2022 12:03:44 -0500
Subject: [add] fps control

---
 examples/02-moving-bitmp.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index 8e5f55b..3a7fbc9 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -88,8 +88,8 @@
 (defun start ()
   (ww::start (make-instance 'bitmap-display
                             :scale 2.0
+                            :fps 30
                             :asset-root #P"~/projects/wheelwork/examples/")))
 
 
 
-
-- 
cgit v1.2.3