 ; when it is "demanded" of them.  This is normally done using the
 ; demand ugen, which will pull from its arguments when triggered.
 
-(def inf Float/POSITIVE_INFINITY)
-
 ; Play a sequence of notes, where the demand ugen pulls them
 ; each time it gets a trigger.
 (demo 2
       (let [trig (impulse:kr 8)
-            freqs (dseq [440 880 220] Float/POSITIVE_INFINITY)
+            freqs (dseq [440 880 220] INF)
             note-gen (demand:kr trig 0 freqs)
             src (sin-osc note-gen)]
         (* [0.1 0.1] src)))

; Randomize the sequence of notes
(demo 2
      (let [trig (impulse:kr 8)
            freqs (drand [440 880 220] Float/POSITIVE_INFINITY)
            note-gen (demand:kr trig 0 freqs)
            src (sin-osc note-gen)]
        (pan2 (* 0.1 src))))

; the others have played.
(demo 2
      (let [trig (impulse:kr 8)
            freqs (dxrand [440 880 220] INF)
            note-gen (demand:kr trig 0 freqs)
            src (sin-osc note-gen)]
        (* [0.2 0.2] src)))
