shell: Remove frame time calculations.

1 files changed, 2 insertions, 16 deletions

diff --git a/engine/shell.scm b/engine/shell.scm
index 4a9f098..3182483 100644
--- a/engine/shell.scm
+++ b/engine/shell.scm
@@ -1,5 +1,6 @@
 ;;; Lisp Game Jam 2018
 ;;; Copyright © 2018 David Thompson <davet@gnu.org>
+;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This program is free software: you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -62,9 +63,7 @@
   (projection #:getter projection
               #:init-form (orthographic-projection 0
                                                    (/ %width %scale-factor)
-                                                   (/ %height %scale-factor) 0 0 1))
-  (frame-start-time #:accessor frame-start-time)
-  (avg-frame-time #:accessor avg-frame-time #:init-value 0.0))
+                                                   (/ %height %scale-factor) 0 0 1)))
 
 (define (error-string stack key args)
   (call-with-output-string
@@ -106,19 +105,6 @@ Enter a debugger for the current game loop error."
     (start-repl #:debug (repl-debug shell))
     (set! (repl-debugging? shell) #f)))
 
-(define-method (before-draw)
-  (set! (frame-start-time (root-node)) (sdl-ticks)))
-
-(define-method (after-draw)
-  (let ((end (sdl-ticks))
-        (start (frame-start-time (root-node)))
-        (last (avg-frame-time (root-node))))
-    (set! (avg-frame-time (root-node))
-          (+ (* (- end start) 0.1) (* last 0.9)))))
-
-(add-hook! before-draw-hook before-draw)
-(add-hook! after-draw-hook after-draw)
-
 (define (switch-scene shell new-scene)
   (detach (current-scene shell))
   (set! (current-scene shell) new-scene)