Print FPS to stdout in examples.

* examples/common.scm: Use (2d fps) module.

1 files changed, 9 insertions, 1 deletions

diff --git a/examples/common.scm b/examples/common.scm
index 0c380f2..760ce2f 100644
--- a/examples/common.scm
+++ b/examples/common.scm
@@ -1,5 +1,7 @@
-(use-modules (2d keyboard)
+(use-modules (2d agenda)
+             (2d fps)
              (2d game)
+             (2d keyboard)
              (2d window)
              (2d repl server))
 
@@ -10,3 +12,9 @@
                               (quit-game))))
 
 (add-hook! window-close-hook quit-game)
+
+(schedule-interval game-agenda
+                   (lambda ()
+                     (display (fps))
+                     (newline))
+                   60)