FoAM/groworld
12
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

7
plant-eyes/plant-eyes.scm
View file

@ -71,7 +71,10 @@
((null? l) #f) ((null? l) #f)
((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
View file

Binary file not shown.