#lang racket/base (require "coremidi.rkt") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; C scale (define (play-each notes) (define midi (midi-open)) (program-change midi 1 0) (let loop ((notes notes)) (note-on midi 1 (car notes) 120) (sleep 1) (note-off midi 1 (car notes)) (if (null? (cdr notes)) null (loop (cdr notes)))) (midi-close midi) (void)) (play-each '(60 62 64 65 67 69 71 72 ))