Mercurial > hg > jslab

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Oh my what a mess.
author samer
date Fri, 05 Apr 2019 16:26:00 +0100
parents bf79fb79ee13
children b67a33c44de7
line wrap: on
line diff
--- a/examples/sound/midi/plinky.scm	Tue Jan 17 17:50:20 2012 +0000
+++ b/examples/sound/midi/plinky.scm	Fri Apr 05 16:26:00 2019 +0100
@@ -1,4 +1,5 @@
 (load "midi.scm")
+(load "streams.scm")
 (import "samer.maths.random.*")
 
 (put "regulated" #t)
@@ -42,11 +43,12 @@
 )
 
 (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)