From 48ea5077c8c2bdad201c15d79b172b3b67739141 Mon Sep 17 00:00:00 2001 From: Mustafa Date: Wed, 11 Jun 2014 22:12:51 -0700 Subject: [PATCH] made samples load/play --- oregano/sample.rkt | 68 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) diff --git a/oregano/sample.rkt b/oregano/sample.rkt index 222569b..1ba5dea 100644 --- a/oregano/sample.rkt +++ b/oregano/sample.rkt @@ -2,6 +2,8 @@ (require rsc3 rhs/rhs) +(reset) +(send-msg (dump-osc 1)) ;; load a smple in a buffer ; (send-async-msg (b-alloc-read 42 "./Samples/Synth Hits/Synth Hit 01.wav" 0 0)) @@ -13,6 +15,72 @@ (send-async-msg (b-read 0 fname 0 -1 0 1)) (audition (out 0 (disk-in 2 ar 0))) +|# + +(struct sample (buf len)) + +(define current-buf-id 10) +(define (gen-buf-id) + (set! current-buf-id (add1 current-buf-id)) + (sub1 current-buf-id)) + +;; path -> sample +(define (load-sample path) + (if (not (file-exists? path)) + (display (format "Error: The file \"~a\" does not exist\n" path)) + (let ([id (gen-buf-id)]) + (send-async-msg (b-alloc-read id path 0 0)) + (sample id 0)))) + + + +(define sample-player-ugen + (letc ([buf 0] + [bus 0] + [rate 1]) + (out bus (play-buf 2 buf rate 1 0 0)))) + +(with-sc3 (lambda (fd) + (send-synth fd "sample-player" sample-player-ugen))) + + +(define (play-sample smpl [rate 1]) + (send-msg (s-new2 "sample-player" -1 1 1 + "buf" (sample-buf smpl) + "rate" rate))) + + + + +#;(with-sc3 (lambda (fd) + (send-synth fd "sample-player" + (letc ([buf 0] + [bus 0]) + (out bus (disk-in 2 ar buf)))))) + +#| + +; make a synth and free it. +(with-sc3 (lambda (fd) + (send-synth fd "sample-player" sample-player-ugen))) + +; (send-async-msg (b-alloc-read 3 "./Samples/Synth Hits/Synth Hit 01.wav" 0 0)) +(send-async-msg (b-alloc-read 3 "/home/pack/bass2.wav" 0 0)) + +(send-msg (s-new1 "sample-player" 1001 1 1 "buf" 3)) + + +> (audition (out 0 (disk-in 2 ar 3))) + +--- +;; more civil +(define s (load-sample "/home/pack/bass2.wav")) + +(play-sample s) + |# + + + \ No newline at end of file