misc-deps
/
lux
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix infinite fps error

This commit is contained in:
Jay McCarthy 2018-11-15 09:23:14 -05:00
parent 8083fdd812
commit a6fc7d944f
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
word.rkt
View File

@ -3,6 +3,7 @@
racket/match racket/match
racket/contract/base racket/contract/base
racket/flonum racket/flonum
math/flonum
racket/format racket/format
racket/generic racket/generic
lux/chaos) lux/chaos)
@ -28,6 +29,7 @@
(define (word-return w) w)]) (define (word-return w) w)])
(define (lux-standard-label l frame-time) (define (lux-standard-label l frame-time)
(define fps (fl/ 1000.0 frame-time))
(~a l (~a l
": " ": "
"Frame time: " "Frame time: "
@ -36,9 +38,11 @@
#:precision 1) #:precision 1)
"ms; " "ms; "
"FPS: " "FPS: "
(~r (fl/ 1000.0 frame-time) (if (flinfinite? fps)
"inf"
(~r fps
#:min-width 10 #:min-width 10
#:precision 2))) #:precision 2))))
(define current-chaos (make-parameter #f)) (define current-chaos (make-parameter #f))