view examples/sound/midi/synth.scm @ 1:5df24c91468d

Oh my what a mess.

(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)