event -> sound test

plant-eyes/plant-eyes.scm

@@ -71,7 +71,10 @@
     ((null? l) #f)
     ((eq? (car l) k) #t)
     (else (list-contains k (cdr l)))))
-      
+
+
+(oa-start) ;; start openAL audio
+
 ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ; a message for sending betwixt logic and render side
 (define message%
@@ -682,6 +685,8 @@
         (set! child-twig-ids (cons twig-id child-twig-ids)))
       
       (define/pubment (grow point)
+	(let ((growing-noise (oa-load-sample (fullpath "snd/event01.wav")))) 
+	  (oa-play growing-noise (vector 0 0 0) (rndf) 0.3))
         (inner (void) grow point))
 
       (define/public (add-ornament point-index property)