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))
+
;
;;
|
