;; setup the 'music' loop
(bind-func beat_loop
(lambda (beat:Rational)
(beginz
(bs1.bpm (trir 150.0 3000.0 1/350))
(nvg_clear)
(draw_frame beat)
(glfwSwapBuffers window)
(play bs1 fmsynth
(random (list 36 45 55 60 70 75 80 72 63 67))
60 1/1
0.1 (floor (rampr 0.0 5.0 1/291)))
(sched bs1 (+ 1/1 beat) beat_loop:[void,Rational]*)
void)
void))