[foo-cvs] foo/elkfoo/scm/control/tools/mixsnd mixsnd.foo, 1.1, 1.2 mix-auxfun.foo, 1.1, 1.2

[Ramon Gonzalez-A. <rg...@us...>]

Update of /cvsroot/foo/foo/elkfoo/scm/control/tools/mixsnd
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv26084

Modified Files:
	mixsnd.foo mix-auxfun.foo 
Log Message:
several corrections & addenda

Index: mixsnd.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/control/tools/mixsnd/mixsnd.foo,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** mixsnd.foo	30 Aug 2004 13:40:57 -0000	1.1
--- mixsnd.foo	10 Apr 2007 14:13:24 -0000	1.2
***************
*** 8,12 ****
  ;;
  ;
! (load  'control/Tools/Mixsnd/Mix-auxfun.foo)
  ;
  ;;
--- 8,12 ----
  ;;
  ;
! (load  'control/tools/mixsnd/mix-auxfun.foo)
  ;
  ;;
***************
*** 41,44 ****
--- 41,45 ----
  	         Mode) #f))))
  ;
+ (define mixsnd Mixsnd)
  ;
  ;;

Index: mix-auxfun.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/control/tools/mixsnd/mix-auxfun.foo,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** mix-auxfun.foo	30 Aug 2004 13:40:57 -0000	1.1
--- mix-auxfun.foo	10 Apr 2007 14:13:24 -0000	1.2
***************
*** 170,185 ****
       (if (symbol? frq) (set! frq (pitch frq)))
  ;
! ;;
! ;;;  I use a database of sounds {Only in my Version}
! ;;
  ;
!      (solicito 'DBSND)
!      (set! nam (dbsnd.fun nam frq))
       (set! frq (cadr nam))
       (set! nam (car nam))
  ;
  ;;
- ;;;
- ;;
  ;
       (set! nam (make-sndname nam))
--- 170,182 ----
       (if (symbol? frq) (set! frq (pitch frq)))
  ;
! ;;  In case nam is a label making reference to a database of sounds 
! ;;  [dependant on frq] the function getfromDB (a dummy function)
! ;;  can be overwritten by the user to suit his needs
  ;
!      (set! nam (getfromDB nam frq))
       (set! frq (cadr nam))
       (set! nam (car nam))
  ;
  ;;
  ;
       (set! nam (make-sndname nam))
***************
*** 190,193 ****
--- 187,193 ----
       (set-SFDIR odir)
       (list nam frq odur)))
+ 
+ (define (getfromDB nam frq)  (list nam frq))
+ 
  ;
  ;;