zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

made samples load/play

Browse source
This commit is contained in:
Mustafa 2014-06-11 22:12:51 -07:00
parent 099fc55c02
commit 48ea5077c8
1 changed files with 68 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

68
oregano/sample.rkt
View file

@ -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)
|#