gl-loop   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/game-of-life.xtm

Implementation

(define gl-loop
  (lambda (time delta-t)
    (let ((late-by (- (now) time))
          (next-frame-time (+ time (* *second* delta-t))))
      (if (> late-by 0)
          (print "Late by " (* 1.0 (/ late-by *second*)) "seconds\n")
          (gl_draw))
      (callback (* 0.9 next-frame-time)
                'gl-loop
                next-frame-time
                delta-t))))


Back to Index

Similar Entries