event -> sound test

This commit is contained in:
nik gaffney 2009-07-02 15:33:32 +02:00
parent ec0e0c876e
commit a0f1ea5e07
2 changed files with 6 additions and 1 deletions

View file

@ -72,6 +72,9 @@
((eq? (car l) k) #t) ((eq? (car l) k) #t)
(else (list-contains k (cdr l))))) (else (list-contains k (cdr l)))))
(oa-start) ;; start openAL audio
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; a message for sending betwixt logic and render side ; a message for sending betwixt logic and render side
(define message% (define message%
@ -682,6 +685,8 @@
(set! child-twig-ids (cons twig-id child-twig-ids))) (set! child-twig-ids (cons twig-id child-twig-ids)))
(define/pubment (grow point) (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)) (inner (void) grow point))
(define/public (add-ornament point-index property) (define/public (add-ornament point-index property)

BIN
plant-eyes/snd/event01.wav Normal file

Binary file not shown.