Merge branch 'master' of ssh://dave@fo.am/var/git/groworld

This commit is contained in:
Dave Griffiths 2009-07-02 14:38:54 +01:00
commit 6569ea30f9
2 changed files with 6 additions and 1 deletions

View file

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

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

Binary file not shown.