From a6fc7d944fd1a69e260c89ffa7ec06d352fb55d0 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay.mccarthy@gmail.com>
Date: Thu, 15 Nov 2018 09:23:14 -0500
Subject: [PATCH] fix infinite fps error

---
 word.rkt | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/word.rkt b/word.rkt
index 1e9f199..f9cb24b 100644
--- a/word.rkt
+++ b/word.rkt
@@ -3,6 +3,7 @@
          racket/match
          racket/contract/base
          racket/flonum
+         math/flonum
          racket/format
          racket/generic
          lux/chaos)
@@ -28,6 +29,7 @@
    (define (word-return w) w)])
 
 (define (lux-standard-label l frame-time)
+  (define fps (fl/ 1000.0 frame-time))
   (~a l
       ": "
       "Frame time: "
@@ -36,9 +38,11 @@
           #:precision 1)
       "ms; "
       "FPS: "
-      (~r (fl/ 1000.0 frame-time)
-          #:min-width 10
-          #:precision 2)))
+      (if (flinfinite? fps)
+        "inf"
+        (~r fps
+            #:min-width 10
+            #:precision 2))))
 
 (define current-chaos (make-parameter #f))
 
@@ -73,9 +77,9 @@
     (define frame-end-time (current-inexact-milliseconds))
     (define frame-time (- frame-end-time frame-start-time))
     #;(printf "W: ~v\tG: ~v\tT: ~v\n"
-            (- pre-output-time frame-start-time)
-            (- frame-end-time pre-output-time)
-            frame-time)
+              (- pre-output-time frame-start-time)
+              (- frame-end-time pre-output-time)
+              frame-time)
     (define new-label (word-label w frame-time))
     (chaos-label! c new-label)