Gacela as Guile modules: main loop in a thread

[gacela.git] / src / video.scm

diff --git a/src/video.scm b/src/video.scm
index e0aa94ffa561ab62865661c5de8e2abef6ba0670..9d558be0aa117bca5d12159fd6823b4609430298 100644 (file)
--- a/src/video.scm
+++ b/src/video.scm
@@ -167,24 +167,24 @@
 (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))))))))
+;; (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))))))))
 
 
 ;;; Drawing