aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-06-30 06:09:59 -0500
committerColin Okay <colin@cicadas.surf>2022-06-30 06:09:59 -0500
commit73dc07ed1dd3462e545a71bbcc388c27185f0279 (patch)
tree29744a79b74a03a9f9e8f0d8ae7006b4ae39db45
parent969897a33f3d3ce171a1b18fdf24f6ab6bdac72a (diff)
[moved] fps functins into wheelwork.lisp
-rw-r--r--src/application.lisp5
-rw-r--r--src/wheelwork.lisp5
2 files changed, 5 insertions, 5 deletions
diff --git a/src/application.lisp b/src/application.lisp
index 5d8135e..bc94d7c 100644
--- a/src/application.lisp
+++ b/src/application.lisp
@@ -22,11 +22,6 @@
(fps :with :std 30 :doc "Frames Per Second")
(frame-wait :r)))
-(defun fps (&optional (app *application*))
- (application-fps app))
-
-(defun (setf fps) (new-val &optional (app *application*))
- (setf (application-fps app) new-val))
(defun can-set-projection-p (app)
(and (slot-boundp app 'width)
diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp
index 15975fc..2932520 100644
--- a/src/wheelwork.lisp
+++ b/src/wheelwork.lisp
@@ -251,6 +251,11 @@ ASSET-ARGS is a plist to pass to make-instance for the given resource.
:path (uiop:merge-pathnames* asset-id (asset-root app))
asset-args)))))
+(defun fps (&optional (app *application*))
+ (application-fps app))
+
+(defun (setf fps) (new-val &optional (app *application*))
+ (setf (application-fps app) new-val))