diff --git a/plant-eyes/plant-eyes.scm b/plant-eyes/plant-eyes.scm index 63f8b12..c713851 100644 --- a/plant-eyes/plant-eyes.scm +++ b/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) diff --git a/plant-eyes/snd/event01.wav b/plant-eyes/snd/event01.wav new file mode 100644 index 0000000..7463afa Binary files /dev/null and b/plant-eyes/snd/event01.wav differ