comparison examples/sound/midi/plinky.scm @ 1:5df24c91468d

Oh my what a mess.

 (load "midi.scm")
+(load "streams.scm")
 (import "samer.maths.random.*")
 
 (put "regulated" #t)
 (put "colormap" (redgreen))
 (put "symmetric" #t)

 		(set! m (if (< m (- M 1)) (+ m 1) 0))
 	)
 )
 
 (define (load-file fn)
-	(let ((f (istream fn)))
+	(let ((f (ifstream fn)))
 		(.load matrix f)
 		(.close f)))
 
 (define (f1) (load-file "walking_zither2"))
 (define (f2) (load-file "walking_zither3"))
 (define (f3) (load-file "walking_zither4"))
-
+(expose)
+(expose synth)