From anders.vinjar at bek.no Wed Feb 11 04:25:46 2015 From: anders.vinjar at bek.no (anders.vinjar at bek.no) Date: Wed, 11 Feb 2015 13:25:46 +0100 Subject: [CM] snd: x-zoom and :track-and-return cursor Message-ID: <87d25g63ed.fsf@bek.no> Hi Bill. I'm getting some issues w. snd (latest from ccrma-ftp) trying to do: (set! (with-tracking-cursor) :track-and-return) (begin (set! (cursor) 80000) (let ((here (cursor))) (play :start (cursor)) (format #f "here: ~A there: ~A " here (cursor)))) and stopping playback from the sound-graph (ie. C-g or C-t), makes snd jump back to 0, whereas i'd expect it go back to 4200. The output of the above is: "here: 80000 there: 0 " Another issue: (set! (zoom-focus-style) zoom-focus-middle) (set! (x-zoom-slider) (* (x-zoom-slider) 1.1)) seems to leave to zoom-focus at the left edge of the window, even if im in the middle of a sound somewhere. When moving the control-panel zoom-slider it behaves as expected (ie. middle-centered). Cheers, -anders From anders.vinjar at bek.no Wed Feb 11 05:43:44 2015 From: anders.vinjar at bek.no (anders.vinjar at bek.no) Date: Wed, 11 Feb 2015 14:43:44 +0100 Subject: [CM] snd: x-zoom and :track-and-return cursor References: <87d25g63ed.fsf@bek.no> Message-ID: <87wq3o36nj.fsf@bek.no> a> ... whereas i'd expect it go back to 4200. err, that was supposed to be 80000. From bil at ccrma.Stanford.EDU Wed Feb 11 10:26:30 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Wed, 11 Feb 2015 10:26:30 -0800 Subject: [CM] snd: x-zoom and :track-and-return cursor In-Reply-To: <87d25g63ed.fsf@bek.no> References: <87d25g63ed.fsf@bek.no> Message-ID: <20150211182100.M56026@ccrma.Stanford.EDU> Thanks for the bug reports! Looking at the code (geez, has it been 19 years already?), I don't think that track-and-return stuff ever worked. I'll fuss with these troubles later today. From bil at ccrma.Stanford.EDU Wed Feb 11 10:42:56 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Wed, 11 Feb 2015 10:42:56 -0800 Subject: [CM] snd: x-zoom and :track-and-return cursor In-Reply-To: <87d25g63ed.fsf@bek.no> References: <87d25g63ed.fsf@bek.no> Message-ID: <20150211184241.M70044@ccrma.Stanford.EDU> Well, one is easy: snd-chn.c line 6773: cp->original_cursor = samp; /* for snd-dac */ return(C_llong_to_Xen_llong(samp)); From ripley.jason at gmail.com Wed Feb 11 18:46:10 2015 From: ripley.jason at gmail.com (Jason Ripley) Date: Wed, 11 Feb 2015 21:46:10 -0500 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. Message-ID: Hello, I am trying to use s7_define_function_star in C++ to create a c-side define. I am not having any luck though. I am getting nonsense values back. Is there a sample project that does this? I grepped through CM and didn't find any references to s7_define_function_star in the *.cpp files. Thank you for any information, Jason -------------- next part -------------- An HTML attachment was scrubbed... URL: From anders.vinjar at bek.no Thu Feb 12 03:46:42 2015 From: anders.vinjar at bek.no (anders.vinjar at bek.no) Date: Thu, 12 Feb 2015 12:46:42 +0100 Subject: [CM] snd: x-zoom and :track-and-return cursor References: <87d25g63ed.fsf@bek.no> <20150211184241.M70044@ccrma.Stanford.EDU> Message-ID: <877fvn2vz1.fsf@bek.no> Hi Bill, thanks for fast response. The zoom-focus-middle thing is working great now. However, the track-and-return is still buggy: (begin (set! (with-tracking-cursor) :track-and-return) (let ((here (cursor))) (play :start (cursor)) (format #f "here: ~A there: ~A " here (cursor)))) "here: 15885536 there: 0 " Possibly another (related?) issue: If i (play (cursor) :wait #f), snd plays, but the listener hangs until some keyboard interrupt (e.g. C-t ). Doing the same '(play (cursor)) from stdin, and then sending '(stop-playing), snd does not stop, but continues to play until the snd window gets active by moving the mouse over it or some such. -anders From bil at ccrma.Stanford.EDU Thu Feb 12 04:02:26 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Thu, 12 Feb 2015 04:02:26 -0800 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. In-Reply-To: References: Message-ID: <20150212120145.M42770@ccrma.Stanford.EDU> There's an example in s7.html#definestar1, "C-side define*". s7test.scm also writes and tests one. From richard at wentk.com Thu Feb 12 05:10:45 2015 From: richard at wentk.com (Richard Wentk) Date: Thu, 12 Feb 2015 13:10:45 +0000 Subject: [CM] Loop bug? Message-ID: <5D1403EF-7BBC-48C3-9642-87EB615B9835@wentk.com> I?m working through the examples using the Mac App Store version of Grace. This example in midioutput.scm produces an unbound variable error for ?chord': (loop with chord = (transpose (pick '(0 3 7) '(0 4 7) '(0 3 7 10) '(0 4 7 10) '(0 4 7 11)) (between 48 80)) for k in chord do (mp:midi :key k)) A simplified version does the same thing for q: (loop with q = '(1 2 3) for i in q do (print i)) Is this a bug, or am I missing something obvious? AFAICT the code is valid in Scheme and should work... The equivalent SAL example works fine. Thanks! Richard From taube at illinois.edu Thu Feb 12 06:04:31 2015 From: taube at illinois.edu (Rick Taube) Date: Thu, 12 Feb 2015 08:04:31 -0600 Subject: [CM] Loop bug? In-Reply-To: <5D1403EF-7BBC-48C3-9642-87EB615B9835@wentk.com> References: <5D1403EF-7BBC-48C3-9642-87EB615B9835@wentk.com> Message-ID: that?s wierd, it sure seems like a bug ? ill take a look at it. in the meantime someting like this should work (let (( chord (transpose (pick '(0 3 7) '(0 4 7) '(0 3 7 10) '(0 4 7 10) '(0 4 7 11)) (between 48 80)))) (loop for foo in chord ?) On Feb 12, 2015, at 7:10 AM, Richard Wentk wrote: > I?m working through the examples using the Mac App Store version of Grace. > > This example in midioutput.scm produces an unbound variable error for ?chord': > > (loop with chord = (transpose (pick '(0 3 7) > '(0 4 7) > '(0 3 7 10) > '(0 4 7 10) > '(0 4 7 11)) > (between 48 80)) > for k in chord > do (mp:midi :key k)) > > A simplified version does the same thing for q: > > (loop with q = '(1 2 3) for i in q do (print i)) > > Is this a bug, or am I missing something obvious? AFAICT the code is valid in Scheme and should work... > > The equivalent SAL example works fine. > > Thanks! > > Richard > > _______________________________________________ > Cmdist mailing list > Cmdist at ccrma.stanford.edu > http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist From ripley.jason at gmail.com Thu Feb 12 07:42:31 2015 From: ripley.jason at gmail.com (Jason Ripley) Date: Thu, 12 Feb 2015 10:42:31 -0500 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. In-Reply-To: <20150212120145.M42770@ccrma.Stanford.EDU> References: <20150212120145.M42770@ccrma.Stanford.EDU> Message-ID: The example in s7.html#definestar1 is actually where I learned of s7_define_function_star. I made a small project in C and it works as it should. However, I cannot seem to find the correct invocation in C++ to make it work. I was wondering if it needs something like extern "C", which I tried to no avail. Thanks for your time, and s7 is a really cool piece of software. Jason On Thu, Feb 12, 2015 at 7:02 AM, Bill Schottstaedt wrote: > There's an example in s7.html#definestar1, "C-side define*". > s7test.scm also writes and tests one. > > > > -------------- next part -------------- An HTML attachment was scrubbed... URL: From k.s.matheussen at gmail.com Thu Feb 12 08:01:10 2015 From: k.s.matheussen at gmail.com (Kjetil Matheussen) Date: Thu, 12 Feb 2015 17:01:10 +0100 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. In-Reply-To: References: <20150212120145.M42770@ccrma.Stanford.EDU> Message-ID: On Thu, Feb 12, 2015 at 4:42 PM, Jason Ripley wrote: > The example in s7.html#definestar1 is actually where I learned of > s7_define_function_star. I made a small project in C and it works as it > should. However, I cannot seem to find the correct invocation in C++ to > make it work. I was wondering if it needs something like extern "C", which > I tried to no avail. > > Maybe you should post the code that doesn't work. -------------- next part -------------- An HTML attachment was scrubbed... URL: From bil at ccrma.Stanford.EDU Thu Feb 12 08:01:39 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Thu, 12 Feb 2015 08:01:39 -0800 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. In-Reply-To: References: <20150212120145.M42770@ccrma.Stanford.EDU> Message-ID: <20150212155954.M89449@ccrma.Stanford.EDU> Thanks for the kind words about s7! Are you running Linux? If so, this works for me: /home/bil/pure-snd/ g++ -c s7.c -I. -g /home/bil/pure-snd/ g++ exx.c -o exx s7.o -I. -lm -ldl /home/bil/pure-snd/ exx > (plus 2 3) 7 > (plus :blue 2) 66 > (exit) where "exx.c" has the example code from s7.html. From rm at seid-online.de Thu Feb 12 07:37:44 2015 From: rm at seid-online.de (Ralf Mattes) Date: Thu, 12 Feb 2015 16:37:44 +0100 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. In-Reply-To: References: <20150212120145.M42770@ccrma.Stanford.EDU> Message-ID: <20150212153744.GA16953@seid-online.de> On Thu, Feb 12, 2015 at 10:42:31AM -0500, Jason Ripley wrote: > The example in s7.html#definestar1 is actually where I learned of > s7_define_function_star. I made a small project in C and it works as it > should. However, I cannot seem to find the correct invocation in C++ to > make it work. I was wondering if it needs something like extern "C", which > I tried to no avail. I think it's time to show us _what_ exactly you tried so far. Cheers, RalfD > Thanks for your time, and s7 is a really cool piece of software. > > Jason > > On Thu, Feb 12, 2015 at 7:02 AM, Bill Schottstaedt > wrote: > > > There's an example in s7.html#definestar1, "C-side define*". > > s7test.scm also writes and tests one. > > > > > > > > > _______________________________________________ > Cmdist mailing list > Cmdist at ccrma.stanford.edu > http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist From rm at seid-online.de Thu Feb 12 07:39:31 2015 From: rm at seid-online.de (Ralf Mattes) Date: Thu, 12 Feb 2015 16:39:31 +0100 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. In-Reply-To: References: <20150212120145.M42770@ccrma.Stanford.EDU> Message-ID: <20150212153931.GB16953@seid-online.de> On Thu, Feb 12, 2015 at 10:42:31AM -0500, Jason Ripley wrote: > should. However, I cannot seem to find the correct invocation in C++ to > make it work. I was wondering if it needs something like extern "C", which > I tried to no avail. Yes, when compiling with a C++ compiler you need to declare your calls into C as "extern C" otherwise you'll be the victim of name mangling. Cheers, RalfD Yes, when compiling with a C++ compiler you need to declare your calls into C as "extern C" otherwise you'll be the victim of name mangling. Cheers, RalfD From bil at ccrma.Stanford.EDU Thu Feb 12 08:31:14 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Thu, 12 Feb 2015 08:31:14 -0800 Subject: [CM] snd: x-zoom and :track-and-return cursor In-Reply-To: <877fvn2vz1.fsf@bek.no> References: <87d25g63ed.fsf@bek.no> <20150211184241.M70044@ccrma.Stanford.EDU> <877fvn2vz1.fsf@bek.no> Message-ID: <20150212162915.M69231@ccrma.Stanford.EDU> I think the first (tracking cursor) problem is that in snd-dac.c line 1142, I should use if ((with_tracking_cursor(ss) != DONT_TRACK) && not ss->tracking because the tracking flag is only on after the DAC is started. sp->playing++; if ((with_tracking_cursor(ss) != DONT_TRACK) && (!(is_player_sound(sp)))) { cp->original_cursor = cursor_sample(cp); if (cp->axis) I wonder how many more of these are floating around -- I'll try to search systematically this afternoon. From ripley.jason at gmail.com Thu Feb 12 13:46:12 2015 From: ripley.jason at gmail.com (Jason Ripley) Date: Thu, 12 Feb 2015 16:46:12 -0500 Subject: [CM] s7 - howto use s7_define_function_star in a C++ project. In-Reply-To: <20150212153931.GB16953@seid-online.de> References: <20150212120145.M42770@ccrma.Stanford.EDU> <20150212153931.GB16953@seid-online.de> Message-ID: Thanks for your input everyone. I got it working in a bare bones project. I am still having the original problem in my actual program which is using s7 as an extension language in the Cocos2d-x game engine, but now I am sure the problem lies with Cocos2d-x. It was ported from objective C to C++, so a lot of the pointer stuff is odd. Here is the working sample C++ project in case it is of use to anyone: //Scheme.h #ifndef __SCHEME_H__ #define __SCHEME_H__ #include "s7.h" #include "stdlib.h" extern "C" { class Scheme { public: static s7_pointer plus(s7_scheme *sc, s7_pointer args); Scheme(); ~Scheme(); int addFFItoScheme(); int testFFI(); private: static s7_scheme* s7; }; } #endif //Scheme.cpp #include "s7.h" #include "Scheme.h" #include #include s7_scheme* Scheme::s7; s7_pointer Scheme::plus(s7_scheme *sc, s7_pointer args) { /* (define* (plus (red 32) blue) (+ (* 2 red) blue)) */ return(s7_make_integer(sc, 2 * s7_integer(s7_car(args)) + s7_integer(s7_car(s7_cdr(args))))); } Scheme::Scheme() { s7 = s7_init(); std::cout << "Scheme init\n"; } Scheme::~Scheme() { free(s7); std::cout << "Bye!\n"; } int Scheme::addFFItoScheme() { std::cout << "addFFItoScheme\n"; s7_define_function_star(s7, "plus", Scheme::plus, "(red 32) blue", "an example of define* from C"); return 0; } int Scheme::testFFI() { std::cout << "testFFI\n"; auto val = s7_eval_c_string(s7, "(+ 2 3)"); // should be 5 std::cout << "5 = " << s7_object_to_c_string(s7, val) << std::endl; val = s7_eval_c_string(s7, "(plus 2 3)"); // should be 7 std::cout << "7 = " << s7_object_to_c_string(s7, val) << std::endl; return 0; } //main.cpp #include "s7.h" #include "Scheme.h" #include "Scheme.cpp" int main(int argc, char **argv) { std::cout << "Main" << std::endl; Scheme* scheme = new Scheme(); scheme->addFFItoScheme(); scheme->testFFI(); } //to build: //g++ -c s7.c -I. -g //g++ -c Scheme.cpp -I. -g -std=c++0x && g++ main.cpp -o ffi s7.o -I. -lm -ldl -std=c++0x && ./ffi and output is as expected: Main Scheme init addFFItoScheme testFFI 5 = 5 7 = 7 Thanks again for your help, Jason On Thu, Feb 12, 2015 at 10:39 AM, Ralf Mattes wrote: > On Thu, Feb 12, 2015 at 10:42:31AM -0500, Jason Ripley wrote: > > > should. However, I cannot seem to find the correct invocation in C++ to > > make it work. I was wondering if it needs something like extern "C", > which > > I tried to no avail. > > Yes, when compiling with a C++ compiler you need to declare your calls into > C as "extern C" otherwise you'll be the victim of name mangling. > > Cheers, RalfD > > > Yes, when compiling with a C++ compiler you need to declare your calls into > C as "extern C" otherwise you'll be the victim of name mangling. > > Cheers, RalfD > > -------------- next part -------------- An HTML attachment was scrubbed... URL: From anders.vinjar at bek.no Fri Feb 13 01:20:21 2015 From: anders.vinjar at bek.no (anders.vinjar at bek.no) Date: Fri, 13 Feb 2015 10:20:21 +0100 Subject: [CM] snd: x-zoom and :track-and-return cursor References: <87d25g63ed.fsf@bek.no> <20150211184241.M70044@ccrma.Stanford.EDU> <877fvn2vz1.fsf@bek.no> <20150212162915.M69231@ccrma.Stanford.EDU> Message-ID: <87d25e182y.fsf@bek.no> B> I should use B> if ((with_tracking_cursor(ss) != DONT_TRACK) && This one made my day! The track-and-return seems to work now. I'll try to keep my eyes open for other cases where the same issue might pop up. Also the :wait #f/#t works as expected now. Thanks! -anders From bil at ccrma.Stanford.EDU Fri Feb 27 08:42:33 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Fri, 27 Feb 2015 08:42:33 -0800 Subject: [CM] Snd 15.4 Message-ID: <20150227164058.M78882@ccrma.Stanford.EDU> Snd 15.4 before-save-as-hook arg order changed, also new-sound, save-region, save-selection, save-sound-as deprecated output-name-hook, info-popup-hook, peak-env-hook, start-hook changed s7_new_type_x args mus-audio* deprecated (these haven't worked at all for a long time) mus_set_name (and mus-set-name) deprecated in CLM, Juan Reyes added sbcl support for gnuplot in dlocsig.lisp checked: sbcl 1.2.8, gtk 3.15.5|7|8|9 Thanks!: Mike Scholz, Juan Reyes, Anders Vinjar, Michel Dutat From j_hearon at hotmail.com Fri Feb 27 10:11:40 2015 From: j_hearon at hotmail.com (James Hearon) Date: Fri, 27 Feb 2015 18:11:40 +0000 Subject: [CM] analog-filter.scm In-Reply-To: References: Message-ID: Hi, Using Snd and getting unbound variable error on analog-filter.scm for line 309 gsl-roots. I configured Snd --with-gsl, and have gsl and gsl-devel on my machine. I also compiled a simple exampl.c in gsl using bessel functions and it compiles and runs o.k. I'm wondering what might be going wrong or why it's not able to get to gsl? Thank-you. Jim -------------- next part -------------- An HTML attachment was scrubbed... URL: From bil at ccrma.Stanford.EDU Fri Feb 27 10:49:33 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Fri, 27 Feb 2015 10:49:33 -0800 Subject: [CM] analog-filter.scm In-Reply-To: References: Message-ID: <20150227184704.M76841@ccrma.Stanford.EDU> gsl-roots needs HAVE_COMPLEX_NUMBERS and HAVE_COMPLEX_TRIG in s7, which means it can't work in Windows, c++, or FreeBSD. If you aren't in that group, I need to know how you built Snd, and what those flags are. gsl-roots is used in the Bessel filter section, but is not related to the gsl Bessel function stuff. From j_hearon at hotmail.com Sat Feb 28 09:56:41 2015 From: j_hearon at hotmail.com (James Hearon) Date: Sat, 28 Feb 2015 17:56:41 +0000 Subject: [CM] analog-filter.scm In-Reply-To: References: Message-ID: > Message: 3 > Date: Fri, 27 Feb 2015 10:49:33 -0800 > From: "Bill Schottstaedt" > Subject: Re: [CM] analog-filter.scm > To: James Hearon , "cmdist at ccrma.Stanford.EDU" > > Message-ID: <20150227184704.M76841 at ccrma.Stanford.EDU> > Content-Type: text/plain; charset=iso-8859-1 > > gsl-roots needs HAVE_COMPLEX_NUMBERS and HAVE_COMPLEX_TRIG > in s7, which means it can't work in Windows, c++, or FreeBSD. > If you aren't in that group, I need to know how you built Snd, > and what those flags are. gsl-roots is used in the Bessel filter > section, but is not related to the gsl Bessel function stuff. Hi, Thanks for the info. I've built Snd-15.4 on f21, and not seeing anything about HAVE_COMPLEX_NUMBERS or HAVE_COMPLEX_TRIG from the build output. Is that something I need to add when running make or gcc? [jhearon at localhost snd-15.4]$ ./configure --with-s7 --with-gsl --with-motif --with-alsa SNDLIB_CONFIG_path=/opt/sndlib checking build system type... x86_64-unknown-linux-gnu checking host system type... x86_64-unknown-linux-gnu checking for gcc... gcc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ISO C89... none needed checking for a BSD-compatible install... /usr/bin/install -c checking how to run the C preprocessor... gcc -E checking for grep that handles long lines and -e... /usr/bin/grep checking for egrep... /usr/bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking whether byte ordering is bigendian... no checking size of void *... 8 checking for pkg-config... /usr/bin/pkg-config checking for fftw3... yes checking for gsl... yes checking for X... libraries , headers checking for gethostbyname... yes checking for connect... yes checking for remove... yes checking for shmat... yes checking for IceConnectionNumber in -lICE... yes checking for oggdec... /usr/bin/oggdec checking for oggenc... /usr/bin/oggenc checking for mpg123... no checking for mpg321... no checking for speexdec... no checking for speexenc... no checking for flac... no checking for timidity... no checking for ttaenc... no checking for wavpack... /usr/bin/wavpack checking for wvunpack... /usr/bin/wvunpack checking for audio system... ALSA configure: creating ./config.status config.status: creating makefile config.status: creating mus-config.h config.status: mus-config.h is unchanged Options selected ------------------------- Snd version ...........: 15.4 CFLAGS ................: -O2 -I. -g -O2 LDFLAGS ...............: -Wl,-export-dynamic LIBS...................: -lm -ldl prefix.................: /usr/local extension language.....: s7 audio system...........: ALSA graphics toolkit.......: Motif optional libraries.....: fftw3 gsl random features........: environs...............: x86_64-unknown-linux-gnu gcc [jhearon at localhost snd-15.4]$ make gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 s7.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 headers.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 audio.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 io.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 sound.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 clm.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 xen.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 vct.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 sndlib2xen.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 clm2xen.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-io.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-utils.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-listener.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-completion.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-menu.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-axis.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-data.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-fft.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-marks.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-file.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-edits.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-chn.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-dac.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-region.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-select.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-find.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-snd.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-help.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-main.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-print.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-trans.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-mix.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-env.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-xen.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-ladspa.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-kbd.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-sig.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-draw.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-gxbitmaps.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-gxcolormaps.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 snd-motif.c gcc -c -DSCRIPTS_DIR=\"/usr/local/share/snd\" -O2 -I. -g -O2 xm.c gcc -Wl,-export-dynamic -O2 -I. -g -O2 s7.o headers.o audio.o io.o sound.o clm.o xen.o vct.o sndlib2xen.o clm2xen.o snd-io.o snd-utils.o snd-listener.o snd-completion.o snd-menu.o snd-axis.o snd-data.o snd-fft.o snd-marks.o snd-file.o snd-edits.o snd-chn.o snd-dac.o snd-region.o snd-select.o snd-find.o snd-snd.o snd-help.o snd-main.o snd-print.o snd-trans.o snd-mix.o snd.o snd-env.o snd-xen.o snd-ladspa.o snd-kbd.o snd-sig.o snd-draw.o snd-gxbitmaps.o snd-gxcolormaps.o snd-motif.o xm.o -o snd -lSM -lICE -lXm -lXt -lX11 -lXext -lSM -lICE -lXft -lXpm -lasound -lfftw3 -lgsl -lgslcblas -lm -lm -ldl -------------- next part -------------- An HTML attachment was scrubbed... URL: From bil at ccrma.Stanford.EDU Sat Feb 28 11:51:43 2015 From: bil at ccrma.Stanford.EDU (Bill Schottstaedt) Date: Sat, 28 Feb 2015 11:51:43 -0800 Subject: [CM] analog-filter.scm In-Reply-To: References: Message-ID: <20150228195009.M14338@ccrma.Stanford.EDU> They're in mus-config.h. SNDLIB_CONFIG_path is very obsolete -- it has no effect on anything. I tried fc21 with all those settings and it worked fine. I don't know what the problem is. From j_hearon at hotmail.com Sat Feb 28 15:08:43 2015 From: j_hearon at hotmail.com (James Hearon) Date: Sat, 28 Feb 2015 23:08:43 +0000 Subject: [CM] analog-filter.scm In-Reply-To: References: Message-ID: > Date: Sat, 28 Feb 2015 11:51:43 -0800 > From: "Bill Schottstaedt" > Subject: Re: [CM] analog-filter.scm > To: James Hearon , "cmdist at ccrma.Stanford.EDU" > > Message-ID: <20150228195009.M14338 at ccrma.Stanford.EDU> > Content-Type: text/plain; charset=iso-8859-1 > > They're in mus-config.h. SNDLIB_CONFIG_path is very obsolete -- > it has no effect on anything. I tried fc21 with all those settings > and it worked fine. I don't know what the problem is. Hi, Thanks Bill. I tried this and it seems working now. ./configure --with-s7 --with-gsl --with-motif --with-alsa CFLAGS=HAVE_COMPLEX_NUMBERS CFLAGS=HAVE_COMPLEX_TRIG CFLAGS="-I/usr/include/linux/param.h" SNDLIB_CONFIG_path=/opt/sndlib ------ (load "/opt/snd-15.4/analog-filter.scm") (define (filter-sweep flt) (let ((phase 0.0) (freq 0.0) (incr (/ (* 2 pi) 144000.0)) (samps (seconds->samples 0.5))) (do ((i 0 (+ i 1))) ((= i samps)) (let ((sval (* .8 (sin phase)))) (set! phase (+ phase freq)) (set! freq (+ freq incr)) (outa i (flt sval)) (outb i (flt sval)) )))) (with-sound (:output "test.wav" :srate 48000 :channels 2 :header-type mus-riff) ;(filter-sweep (make-butterworth-lowpass 8 .1)) (filter-sweep (make-bessel-lowpass 8 .2)) ;(filter-sweep (make-chebyshev-lowpass 8 .1)) ;(filter-sweep (make-inverse-chebyshev-lowpass 8 .1)) ;(filter-sweep (make-elliptic-lowpass 8 .01)) ) -------------- next part -------------- An HTML attachment was scrubbed... URL: