[cello-cvs] CVS cello/cl-openal

[ktilton]

Update of /project/cello/cvsroot/cello/cl-openal
In directory clnet:/tmp/cvs-serv29491/cl-openal

Modified Files:
	cl-openal-init.lisp cl-openal.lpr 
Log Message:
important fixes to cl-magick and cello demo nehe-06

--- /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2006/08/24 07:54:23	1.6
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2006/08/31 17:34:49	1.7
@@ -63,7 +63,7 @@
   (format t "~&clear AL error code ~a"
     (al-get-error))
 
-  (let ((l-zip (make-ff-array al-float 0 0 0))
+  (let ((l-zip (make-ff-array al-float 10 0 0))
         (l-ori (make-ff-array al-float 0 0 -1 0 1 0)))
     
     (al-listenerfv al_position l-zip)
--- /project/cello/cvsroot/cello/cl-openal/cl-openal.lpr	2006/08/24 17:35:08	1.8
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal.lpr	2006/08/31 17:34:49	1.9
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "8.0 [Windows] (Aug 17, 2006 12:24)"; cg: "1.81"; -*-
+;; -*- lisp-version: "8.0 [Windows] (Aug 24, 2006 21:48)"; cg: "1.81"; -*-
 
 (in-package :cg-user)