made samples load/play

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