;; p l a n t   e y e s  [ copyright (c) 2009 foam vzw : gpl v3 ]

#lang scheme/base
(require scheme/class fluxus-016/fluxus)
(provide (all-defined-out))

(define audio-on #t)

(when audio-on (oa-start)) ;; start openAL audio
(oa-set-acoustics 1 10000 1 5)
(oa-set-cull-dist 100)

(define (play-sound sound pos freq vol)              
  (when audio-on (let ((noise (oa-load-sample (fullpath sound)))) 
    (oa-play noise pos freq vol))))