diff options
author | Colin Okay <colin@cicadas.surf> | 2022-06-30 06:09:59 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-06-30 06:09:59 -0500 |
commit | 73dc07ed1dd3462e545a71bbcc388c27185f0279 (patch) | |
tree | 29744a79b74a03a9f9e8f0d8ae7006b4ae39db45 | |
parent | 969897a33f3d3ce171a1b18fdf24f6ab6bdac72a (diff) |
[moved] fps functins into wheelwork.lisp
-rw-r--r-- | src/application.lisp | 5 | ||||
-rw-r--r-- | src/wheelwork.lisp | 5 |
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)) |