From 867703d82c6e8b7a2b424845fcb30537061de45a Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 1 Jul 2022 09:47:16 -0500 Subject: [add] frameset class and an [exmaple] using it --- src/application.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/application.lisp') diff --git a/src/application.lisp b/src/application.lisp index 2f6747e..d38cd8a 100644 --- a/src/application.lisp +++ b/src/application.lisp @@ -18,7 +18,7 @@ (window :with :a) (refocus-on-mousedown-p :std t) (focus last-motion-target :with :a) - (fps :with :std 30 :doc "Frames Per Second") + (fps :std 30 :doc "Frames Per Second") (frame-wait :r))) @@ -82,7 +82,7 @@ "Runs all of the handlers objects listening for perframe events, if those objects are currently part of the scene tree." (let ((table (perframe-table (listener app))) - (time (get-universal-time))) + (time (sdl2:get-ticks))) (loop for target being the hash-key of table for handlers = (slot-value (listener target) 'perframe) ;; only fire perframe when target is in scene -- cgit v1.2.3