X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvideo.scm;h=9d558be0aa117bca5d12159fd6823b4609430298;hb=739e884086c71d990d35939d2006a5b04c39fefb;hp=e0aa94ffa561ab62865661c5de8e2abef6ba0670;hpb=3c7d10914d0db2a4b9336ee210e84258e1580409;p=gacela.git

diff --git a/src/video.scm b/src/video.scm
index e0aa94f..9d558be 100644
--- 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