2009-09-28 08:57:29 +00:00
|
|
|
;; p l a n t e y e s [ copyright (c) 2009 foam vzw : gpl v3 ]
|
|
|
|
|
|
2009-08-25 08:55:32 +00:00
|
|
|
#lang scheme/base
|
|
|
|
|
(require scheme/class fluxus-016/fluxus)
|
|
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
2009-10-21 18:07:30 +00:00
|
|
|
(define audio-on #t)
|
2009-08-25 08:55:32 +00:00
|
|
|
|
|
|
|
|
(when audio-on (oa-start)) ;; start openAL audio
|
2009-10-21 18:07:30 +00:00
|
|
|
(oa-set-acoustics 1 10000 1 5)
|
|
|
|
|
(oa-set-cull-dist 100)
|
2009-08-25 08:55:32 +00:00
|
|
|
|
|
|
|
|
(define (play-sound sound pos freq vol)
|
|
|
|
|
(when audio-on (let ((noise (oa-load-sample (fullpath sound))))
|
|
|
|
|
(oa-play noise pos freq vol))))
|
