view examples/sound/midi/synth.scm @ 3:15b93db27c04

Get StreamSource to compile, update args for demo

(import "javax.sound.midi.*")

(define synth (MidiSystem.getSynthesizer))
(define c0 (vector-ref (.getChannels synth) 0))
(define (open) (.open synth))
(define (close) (.close synth))
(define (on pitch) (.noteOn c0 pitch 80))
(define (off pitch) (.noteOff c0 pitch 0))

(open)