2014-05-20 19:07:04 +00:00
|
|
|
#lang racket
|
|
|
|
|
|
|
|
|
|
(require oregano)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2014-05-22 17:39:35 +00:00
|
|
|
(define my-note (play-note "sin-inst" 440))
|
|
|
|
|
(sleep 1)
|
|
|
|
|
;; stop playing note
|
|
|
|
|
(note-off my-note)
|
2014-05-20 19:07:04 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2014-05-22 17:39:35 +00:00
|
|
|
(define my-note2 (make-note "sin-inst" 880))
|
|
|
|
|
(note-on my-note2)
|
|
|
|
|
(sleep 1)
|
|
|
|
|
(note-off my-note2)
|
