view examples/sound/midi/synth.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

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