/[cello]/cl-openal/cl-openal-demo.lisp
ViewVC logotype

Contents of /cl-openal/cl-openal-demo.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Wed Jun 15 21:08:42 2005 UTC (8 years, 10 months ago) by ktilton
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +2 -1 lines
OSX merge
1 (in-package :cl-openal)
2
3 (defconstant num_buffers 7)
4 (defparameter g-buffers (fgn-alloc 'al-uint num_buffers))
5
6 (defun cl-openal-test ()
7 (let ((w$ (list "/0dev/user/sounds/jshootme.wav" )))
8 (cl-openal-init)
9 (apply 'wav-play-till-end
10 (lambda (dur sources)
11 (loop for source in sources
12 for gain = (max 0 (- 1 (/ dur 3)))
13 do (al-sourcef source al_gain gain)
14 (al-chk "openal test GAIN set")))
15 w$))
16 (sleep 1)
17 (cl-openal-shutdown))
18
19
20
21

  ViewVC Help
Powered by ViewVC 1.1.5