Frames per second.

[gacela.git] / src / video.scm

diff --git a/src/video.scm b/src/video.scm
index e0b7a6da10823354c930a724a25bae533771dcf9..7eda879b8b6834d6f810057352e833bbbbbc8a47 100644 (file)
--- a/src/video.scm
+++ b/src/video.scm
@@ -145,29 +145,22 @@
 
 ;;; Frames per second
 
-(define set-frames-per-second #f)
-(define init-frame-time #f)
-(define get-frame-time #f)
-(define delay-frame #f)
-
-;; (let ((time 0) (time-per-frame (/ 1000.0 *frames-per-second*)))
-;;   (set! set-frames-per-second
-;;     (lambda (fps)
-;;       (set! time-per-frame (/ 1000.0 fps))))
-
-;;   (set! init-frame-time
-;;     (lambda ()
-;;       (set! time (SDL_GetTicks))))
-
-;;   (set! get-frame-time
-;;     (lambda ()
-;;       time))
-
-;;   (set! delay-frame
-;;     (lambda ()
-;;       (let ((frame-time (- (SDL_GetTicks) time)))
-;;         (cond ((< frame-time time-per-frame)
-;;                (SDL_Delay (- time-per-frame frame-time))))))))
+(define time 0)
+(define time-per-frame 50)   ;in ms
+
+(define (set-frames-per-second fps)
+  (set! time-per-frame (/ 1000.0 fps)))
+
+(define (init-frame-time)
+  (set! time (SDL_GetTicks)))
+
+(define (get-frame-time)
+  time)
+
+(define (delay-frame)
+  (let ((frame-time (- (SDL_GetTicks) time)))
+    (cond ((< frame-time time-per-frame)
+          (SDL_Delay (- time-per-frame frame-time))))))
 
 
 ;;; Drawing