From f23788bf090af8380116e289bc787bc15ecc51dd Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sat, 16 Aug 2003 07:36:16 +0000 Subject: added files straight from Yves' sources svn path=/trunk/externals/unauthorized/; revision=849 --- audience~/BUGS | 14 + audience~/CHANGES.LOG | 8 + audience~/INSTALL | 15 + audience~/Makefile | 85 ++++ audience~/README | 20 + audience~/audience~.c | 1054 +++++++++++++++++++++++++++++++++++++++++++ audience~/audience~.h | 44 ++ audience~/audience~.tk | 90 ++++ audience~/help-audience~.pd | 60 +++ audience~/speaker.gif | Bin 0 -> 83 bytes audience~/wanderer.gif | Bin 0 -> 962 bytes 11 files changed, 1390 insertions(+) create mode 100644 audience~/BUGS create mode 100644 audience~/CHANGES.LOG create mode 100644 audience~/INSTALL create mode 100644 audience~/Makefile create mode 100644 audience~/README create mode 100644 audience~/audience~.c create mode 100644 audience~/audience~.h create mode 100644 audience~/audience~.tk create mode 100644 audience~/help-audience~.pd create mode 100644 audience~/speaker.gif create mode 100644 audience~/wanderer.gif (limited to 'audience~') diff --git a/audience~/BUGS b/audience~/BUGS new file mode 100644 index 0000000..53cddfe --- /dev/null +++ b/audience~/BUGS @@ -0,0 +1,14 @@ +0.3 + Dead connections remain drawn after you change the number of listeners + Can't change dynamically the number of inputs, code's there but it makes PD crash + Clicks when moving listeners around +0.1 + Dead connections remain drawn after you change the number of listeners + Can't change dynamically the number of inputs, code's there but it makes PD crash + A little bit buggy audio computation + Clicks when moving listeners around +0.1 + Dead connections remain drawn after you change the number of listeners + Can't change dynamically the number of inputs, code's there but it makes PD crash + Buggy audio computation + Clicks when moving listeners around diff --git a/audience~/CHANGES.LOG b/audience~/CHANGES.LOG new file mode 100644 index 0000000..9957a67 --- /dev/null +++ b/audience~/CHANGES.LOG @@ -0,0 +1,8 @@ +0.5 + Install images in /tmp +0.4 + Made delay optional and disabled by default +0.2 + Fixed audio computation +0.1 + First implementation diff --git a/audience~/INSTALL b/audience~/INSTALL new file mode 100644 index 0000000..a1a03e0 --- /dev/null +++ b/audience~/INSTALL @@ -0,0 +1,15 @@ +untar in /my/pd/dir/externs + +cd /my/pd/dir/externs/audience~ + +make clean + +make + +make install + +open help-audience~.pd + +Thanx for getting here. +Yves/ +comments and bugs @ ydegoyon@free.fr diff --git a/audience~/Makefile b/audience~/Makefile new file mode 100644 index 0000000..d60890d --- /dev/null +++ b/audience~/Makefile @@ -0,0 +1,85 @@ +NAME=audience~ +CSYM=audience~ + +current: pd_linux + +# ----------------------- NT ----------------------- + +pd_nt: $(NAME).dll + +.SUFFIXES: .dll + +PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo +VC="C:\Program Files\Microsoft Visual Studio\Vc98" + +PDNTINCLUDE = /I. /I\tcl\include /I\ftp\pd\src /I$(VC)\include + +PDNTLDIR = $(VC)\lib +PDNTLIB = $(PDNTLDIR)\libc.lib \ + $(PDNTLDIR)\oldnames.lib \ + $(PDNTLDIR)\kernel32.lib \ + \ftp\pd\bin\pd.lib + +.c.dll: + cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c + link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) + +# ----------------------- IRIX 5.x ----------------------- + +pd_irix5: $(NAME).pd_irix5 + +.SUFFIXES: .pd_irix5 + +SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 + +SGIINCLUDE = -I../../src + +.c.pd_irix5: + cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c + ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o + rm $*.o + +# ----------------------- IRIX 6.x ----------------------- + +pd_irix6: $(NAME).pd_irix6 + +.SUFFIXES: .pd_irix6 + +SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ + -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ + -Ofast=ip32 + +.c.pd_irix6: + cc $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c + ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o + rm $*.o + +# ----------------------- LINUX i386 ----------------------- + +pd_linux: $(NAME).pd_linux + +.SUFFIXES: .pd_linux + +LINUXCFLAGS = -DPD -DUNIX -DICECAST -O2 -funroll-loops -fomit-frame-pointer \ + -Wall -W -Wno-shadow -Wstrict-prototypes -g \ + -Wno-unused -Wno-parentheses -Wno-switch -Werror + +LINUXINCLUDE = -I../../src + +.c.pd_linux: + ./tk2c.bash < $*.tk > $*.tk2c + cc $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c + ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm + strip --strip-unneeded $*.pd_linux + rm -f $*.o ../$*.pd_linux + ln -s $*/$*.pd_linux .. + +# ---------------------------------------------------------- + +install: + cp help-*.pd ../../doc/5.reference + ln -sf `pwd`/speaker.gif /tmp + ln -sf `pwd`/wanderer.gif /tmp + +clean: + rm -f *.o *.pd_* *.tk2c core diff --git a/audience~/README b/audience~/README new file mode 100644 index 0000000..e0e6382 --- /dev/null +++ b/audience~/README @@ -0,0 +1,20 @@ +***************************************************************************** +Version 0.01 +copyright 2002 Yves Degoyon +tarballs and updates available @ http://ydegoyon.free.fr + +audience~ : 2-dimensional audience simulation ( also called 2 dollars spatialization !!! ) + +To install audience~, follow the steps from INSTALL + +This software is published under GPL terms. + +This is software with ABSOLUTELY NO WARRANTY. +Use it at your OWN RISK. It's possible to damage e.g. hardware or your hearing +due to a bug or for other reasons. +We do not warrant that the program is free of infringement of any third-party +patents. + +***************************************************************************** + + diff --git a/audience~/audience~.c b/audience~/audience~.c new file mode 100644 index 0000000..2d74bbb --- /dev/null +++ b/audience~/audience~.c @@ -0,0 +1,1054 @@ +/* Copyright (c) 2002 Yves Degoyon. */ +/* For information on usage and redistribution, and for a DISCLAIMER OF ALL */ +/* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ +/* */ +/* audience.c written by Yves Degoyon 2002 */ +/* 2-dimensional audience simulation */ +/* ( simulates spatialization and interferences ) */ +/* */ +/* This program is free software; you can redistribute it and/or */ +/* modify it under the terms of the GNU General Public License */ +/* as published by the Free Software Foundation; either version 2 */ +/* of the License, or (at your option) any later version. */ +/* */ +/* See file LICENSE for further informations on licensing terms. */ +/* */ +/* This program is distributed in the hope that it will be useful, */ +/* but WITHOUT ANY WARRANTY; without even the implied warranty of */ +/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ +/* GNU General Public License for more details. */ +/* */ +/* You should have received a copy of the GNU General Public License */ +/* along with this program; if not, write to the Free Software */ +/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ +/* */ +/* Based on PureData by Miller Puckette and others. */ +/* */ +/* Made while listening to : */ +/* */ +/* Shalaby Effect -- Instrumentals */ +/* Honey Bane -- I Wish I Could Be Me */ +/* ---------------------------------------------------------------------------- */ + + +#include +#include +#include +#include +#include +#include "m_imp.h" +#include "g_canvas.h" +#include "t_tk.h" +#include "audience~.h" + +#ifdef NT +#include +#else +#include +#endif + +#define DEFAULT_AUDIENCE_WIDTH 200 +#define DEFAULT_AUDIENCE_HEIGHT 200 +#define DEFAULT_AUDIENCE_NBINPUTS 4 +#define DEFAULT_AUDIENCE_NBOUTPUTS 2 +#define DEFAULT_AUDIENCE_ATTENUATION 0.01 + +#define LISTENER_WIDTH 15 +#define LISTENER_HEIGHT 20 +#define SPEAKER_WIDTH 15 +#define SPEAKER_HEIGHT 20 + +// sound propagates at the speed of 340 m/s, isn't it ?? +#define SOUNDSPEED 340.0 + +// a pixel is 0.1 meter +#define PIXELSIZE 0.1 + +static char *audience_version = "audience : 2d audience simulation, version 0.5 (ydegoyon@free.fr)"; + +t_widgetbehavior audience_widgetbehavior; +static t_class *audience_class_tilde; + +static int guidebug=0; + +#define SYS_VGUI2(a,b) if (guidebug) \ + post(a,b);\ + sys_vgui(a,b) + +#define SYS_VGUI3(a,b,c) if (guidebug) \ + post(a,b,c);\ + sys_vgui(a,b,c) + +#define SYS_VGUI4(a,b,c,d) if (guidebug) \ + post(a,b,c,d);\ + sys_vgui(a,b,c,d) + +#define SYS_VGUI5(a,b,c,d,e) if (guidebug) \ + post(a,b,c,d,e);\ + sys_vgui(a,b,c,d,e) + +#define SYS_VGUI6(a,b,c,d,e,f) if (guidebug) \ + post(a,b,c,d,e,f);\ + sys_vgui(a,b,c,d,e,f) + +#define SYS_VGUI7(a,b,c,d,e,f,g) if (guidebug) \ + post(a,b,c,d,e,f,g );\ + sys_vgui(a,b,c,d,e,f,g) + +#define SYS_VGUI8(a,b,c,d,e,f,g,h) if (guidebug) \ + post(a,b,c,d,e,f,g,h );\ + sys_vgui(a,b,c,d,e,f,g,h) + +#define SYS_VGUI9(a,b,c,d,e,f,g,h,i) if (guidebug) \ + post(a,b,c,d,e,f,g,h,i );\ + sys_vgui(a,b,c,d,e,f,g,h,i) + +/* drawing functions */ +static void audience_draw_update(t_audience_tilde *x, t_glist *glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + t_int ei; + + for ( ei=0; eix_nbinputs; ei++ ) + { + SYS_VGUI6(".x%x.c coords %xISPEAKER%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_inputs_x[ei], + x->x_obj.te_ypix + x->x_inputs_y[ei] + ); + SYS_VGUI6(".x%x.c coords %xSPEAKERNUM%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_inputs_x[ei] - SPEAKER_WIDTH/2, + x->x_obj.te_ypix + x->x_inputs_y[ei] - SPEAKER_HEIGHT/2 + ); + } + for ( ei=0; eix_nboutputs; ei++ ) + { + SYS_VGUI6(".x%x.c coords %xILISTENER%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_outputs_x[ei], + x->x_obj.te_ypix + x->x_outputs_y[ei] + ); + SYS_VGUI6(".x%x.c coords %xLISTENERNUM%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_outputs_x[ei] + LISTENER_WIDTH/2, + x->x_obj.te_ypix + x->x_outputs_y[ei] + LISTENER_HEIGHT/2 + ); + } +} + +static void audience_draw_new(t_audience_tilde *x, t_glist *glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + int ei; + + SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -fill #EAF1E2 -tags %xAAUDIENCE\n", + canvas, x->x_obj.te_xpix, x->x_obj.te_ypix, + x->x_obj.te_xpix + x->x_width, x->x_obj.te_ypix + x->x_height, + x); + // create captions + SYS_VGUI5(".x%x.c create text %d %d -font -*-courier-bold--normal--10-* -text \"0m\" -tags %xBLCAPTION\n", + canvas, x->x_obj.te_xpix - 10 , x->x_obj.te_ypix + x->x_height + 10, x ); + SYS_VGUI6(".x%x.c create text %d %d -font -*-courier-bold--normal--10-* -text \"%dm\" -tags %xBRCAPTION\n", + canvas, x->x_obj.te_xpix + x->x_width + 10 , x->x_obj.te_ypix + x->x_height + 10, x->x_width, x ); + SYS_VGUI6(".x%x.c create text %d %d -font -*-courier-bold--normal--10-* -text \"%dm\" -tags %xULCAPTION\n", + canvas, x->x_obj.te_xpix - 10 , x->x_obj.te_ypix, x->x_height, x ); + + // draw all outlets + if ( x->x_nboutputs > 1 ) + { + for ( ei=0; eix_nboutputs; ei++ ) + { + SYS_VGUI8(".x%x.c create rectangle %d %d %d %d -outline #000000 -fill #000000 -tags %xOUT%d\n", + canvas, x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nboutputs-1), + x->x_obj.te_ypix + x->x_height, + x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nboutputs-1) + 5, + x->x_obj.te_ypix + x->x_height + 2, + x, ei); + } + } + else + { + SYS_VGUI8(".x%x.c create rectangle %d %d %d %d -outline #000000 -fill #000000 -tags %xOUT%d\n", + canvas, x->x_obj.te_xpix, + x->x_obj.te_ypix + x->x_height, + x->x_obj.te_xpix + 5, + x->x_obj.te_ypix + x->x_height + 2, + x, 0); + } + // draw all inlets + for ( ei=0; eix_nbinputs+1; ei++ ) + { + SYS_VGUI8(".x%x.c create rectangle %d %d %d %d -outline #000000 -fill #000000 -tags %xIN%d\n", + canvas, x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nbinputs), + x->x_obj.te_ypix - 2, + x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nbinputs) + 5, + x->x_obj.te_ypix, + x, ei); + } + // create speaker images + for ( ei=0; eix_nbinputs; ei++ ) + { + SYS_VGUI5("image create photo %xSPEAKER%d -file /tmp/speaker.gif -format gif -width %d -height %d\n", + x, ei, SPEAKER_WIDTH, SPEAKER_HEIGHT ); + SYS_VGUI8(".x%x.c create image %d %d -image %xSPEAKER%d -tags %xISPEAKER%d\n", + canvas, + x->x_obj.te_xpix + x->x_inputs_x[ei], + x->x_obj.te_ypix + x->x_inputs_y[ei], + x, ei, x, ei ); + SYS_VGUI7(".x%x.c create text %d %d -font -*-courier-bold--normal--10-* -text \"s%d\" -tags %xSPEAKERNUM%d\n", + canvas, x->x_obj.te_xpix + x->x_inputs_x[ei] - SPEAKER_WIDTH/2, + x->x_obj.te_ypix + x->x_inputs_y[ei] - SPEAKER_HEIGHT/2, ei+1, x, ei ); + } + // create listener images + for ( ei=0; eix_nboutputs; ei++ ) + { + SYS_VGUI5("image create photo %xLISTENER%d -file /tmp/wanderer.gif -format gif -width %d -height %d\n", + x, ei, LISTENER_WIDTH, LISTENER_HEIGHT ); + SYS_VGUI8(".x%x.c create image %d %d -image %xLISTENER%d -tags %xILISTENER%d\n", + canvas, + x->x_obj.te_xpix + x->x_outputs_x[ei], + x->x_obj.te_ypix + x->x_outputs_y[ei], + x, ei, x, ei ); + SYS_VGUI7(".x%x.c create text %d %d -font -*-courier-bold--normal--10-* -text \"l%d\" -tags %xLISTENERNUM%d\n", + canvas, x->x_obj.te_xpix + x->x_outputs_x[ei] + LISTENER_WIDTH/2, + x->x_obj.te_ypix + x->x_outputs_y[ei] + LISTENER_HEIGHT/2, ei+1, x, ei ); + } + canvas_fixlinesfor( canvas, (t_text*)x ); +} + +static void audience_draw_move(t_audience_tilde *x, t_glist *glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + t_int ei; + + SYS_VGUI7(".x%x.c coords %xAAUDIENCE %d %d %d %d\n", + canvas, x, + x->x_obj.te_xpix, x->x_obj.te_ypix, + x->x_obj.te_xpix+x->x_width, x->x_obj.te_ypix+x->x_height); + SYS_VGUI5(".x%x.c coords %xBLCAPTION %d %d\n", + canvas, x, + x->x_obj.te_xpix - 10 , x->x_obj.te_ypix + x->x_height + 10); + SYS_VGUI5(".x%x.c coords %xBRCAPTION %d %d\n", + canvas, x, + x->x_obj.te_xpix + x->x_width + 10 , x->x_obj.te_ypix + x->x_height + 10 ); + SYS_VGUI5(".x%x.c coords %xULCAPTION %d %d\n", + canvas, x, + x->x_obj.te_xpix - 10 , x->x_obj.te_ypix ); + + for ( ei=0; eix_nbinputs+1; ei++ ) + { + SYS_VGUI8(".x%x.c coords %xIN%d %d %d %d %d\n", + canvas, x, ei, x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nbinputs), + x->x_obj.te_ypix - 2, + x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nbinputs) + 5, + x->x_obj.te_ypix + ); + } + for ( ei=0; eix_nbinputs+1; ei++ ) + { + SYS_VGUI6(".x%x.c coords %xISPEAKER%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_inputs_x[ei], + x->x_obj.te_ypix + x->x_inputs_y[ei] + ); + SYS_VGUI6(".x%x.c coords %xSPEAKERNUM%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_inputs_x[ei] - SPEAKER_WIDTH/2, + x->x_obj.te_ypix + x->x_inputs_y[ei] - SPEAKER_HEIGHT/2 + ); + } + if ( x->x_nboutputs > 1 ) + { + for ( ei=0; eix_nboutputs; ei++ ) + { + SYS_VGUI8(".x%x.c coords %xOUT%d %d %d %d %d\n", + canvas, x, ei, x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nboutputs-1), + x->x_obj.te_ypix + x->x_height, + x->x_obj.te_xpix + ( ei * (x->x_width - 5) )/ (x->x_nboutputs-1) + 5, + x->x_obj.te_ypix + x->x_height + 2 + ); + SYS_VGUI6(".x%x.c coords %xILISTENER%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_outputs_x[ei], + x->x_obj.te_ypix + x->x_outputs_y[ei] + ); + SYS_VGUI6(".x%x.c coords %xLISTENERNUM%d %d %d\n", + canvas, x, ei, + x->x_obj.te_xpix + x->x_outputs_x[ei] + LISTENER_WIDTH/2, + x->x_obj.te_ypix + x->x_outputs_y[ei] + LISTENER_HEIGHT/2 + ); + } + } + else + { + SYS_VGUI8(".x%x.c coords %xOUT%d %d %d %d %d\n", + canvas, x, 0, x->x_obj.te_xpix, + x->x_obj.te_ypix + x->x_height, + x->x_obj.te_xpix + 5, + x->x_obj.te_ypix + x->x_height + 2 + ); + SYS_VGUI6(".x%x.c coords %xILISTENER%d %d %d\n", + canvas, x, 0, + x->x_obj.te_xpix + x->x_outputs_x[0], + x->x_obj.te_ypix + x->x_outputs_y[0] + ); + SYS_VGUI6(".x%x.c coords %xLISTENERNUM%d %d %d\n", + canvas, x, 0, + x->x_obj.te_xpix + x->x_outputs_x[0] + LISTENER_WIDTH/2, + x->x_obj.te_ypix + x->x_outputs_y[0] + LISTENER_HEIGHT/2 + ); + } + canvas_fixlinesfor( canvas, (t_text*)x ); +} + +static void audience_draw_erase(t_audience_tilde* x,t_glist* glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + int ei; + + SYS_VGUI3(".x%x.c delete %xAAUDIENCE\n", canvas, x); + SYS_VGUI3(".x%x.c delete %xBLCAPTION\n", canvas, x); + SYS_VGUI3(".x%x.c delete %xBRCAPTION\n", canvas, x); + SYS_VGUI3(".x%x.c delete %xULCAPTION\n", canvas, x); + for ( ei=0; eix_nbinputs+1; ei++ ) + { + SYS_VGUI4(".x%x.c delete %xIN%d\n", canvas, x, ei ); + } + for ( ei=0; eix_nbinputs; ei++ ) + { + SYS_VGUI4(".x%x.c delete %xISPEAKER%d\n", canvas, x, ei ); + SYS_VGUI4(".x%x.c delete %xSPEAKERNUM%d\n", canvas, x, ei ); + // SYS_VGUI3("image delete %xSPEAKER%d\n", x, ei ); + } + for ( ei=0; eix_nboutputs; ei++ ) + { + SYS_VGUI4(".x%x.c delete %xOUT%d\n", canvas, x, ei ); + SYS_VGUI4(".x%x.c delete %xILISTENER%d\n", canvas, x, ei ); + SYS_VGUI4(".x%x.c delete %xLISTENERNUM%d\n", canvas, x, ei ); + // SYS_VGUI3("image delete %xLISTENER%d\n", x, ei ); + } +} + +static void audience_draw_select(t_audience_tilde* x,t_glist* glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + + if(x->x_selected) + { + /* sets the item in blue */ + SYS_VGUI3(".x%x.c itemconfigure %xAAUDIENCE -outline #0000FF\n", canvas, x); + } + else + { + SYS_VGUI3(".x%x.c itemconfigure %xAAUDIENCE -outline #000000\n", canvas, x); + } +} + +/* ------------------------ audience widgetbehaviour----------------------------- */ + + +static void audience_getrect(t_gobj *z, t_glist *owner, + int *xp1, int *yp1, int *xp2, int *yp2) +{ + t_audience_tilde* x = (t_audience_tilde*)z; + + *xp1 = x->x_obj.te_xpix; + *yp1 = x->x_obj.te_ypix; + *xp2 = x->x_obj.te_xpix+x->x_width; + *yp2 = x->x_obj.te_ypix+x->x_height; +} + +static void audience_save(t_gobj *z, t_binbuf *b) +{ + t_audience_tilde *x = (t_audience_tilde *)z; + t_int ii; + + binbuf_addv(b, "ssiisiiiifi", gensym("#X"),gensym("obj"), + (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix, + gensym("audience~"), x->x_width, x->x_height, + x->x_nbinputs, x->x_nboutputs, x->x_attenuation, x->x_applydelay ); + for ( ii=0; iix_nbinputs; ii++ ) + { + binbuf_addv(b, "ii", x->x_inputs_x[ii], x->x_inputs_y[ii] ); + } + for ( ii=0; iix_nboutputs; ii++ ) + { + binbuf_addv(b, "ii", x->x_outputs_x[ii], x->x_outputs_y[ii] ); + } + binbuf_addv(b, ";"); +} + +static void audience_properties(t_gobj *z, t_glist *owner) +{ + char buf[800]; + t_audience_tilde *x=(t_audience_tilde *)z; + + sprintf(buf, "pdtk_audience_dialog %%s %d %d %d\n", + x->x_width, x->x_height, x->x_nboutputs + ); + // post("audience_properties : %s", buf ); + gfxstub_new(&x->x_obj.ob_pd, x, buf); +} + +static void audience_select(t_gobj *z, t_glist *glist, int selected) +{ + t_audience_tilde *x = (t_audience_tilde *)z; + + x->x_selected = selected; + audience_draw_select( x, glist ); +} + +static void audience_vis(t_gobj *z, t_glist *glist, int vis) +{ + t_audience_tilde *x = (t_audience_tilde *)z; + + // post( "audience~ : vis : %d", vis ); + if (vis) + { + audience_draw_new( x, glist ); + } + else + { + audience_draw_erase( x, glist ); + } +} + +static void audience_dialog(t_audience_tilde *x, t_symbol *s, int argc, t_atom *argv) +{ + t_int onbinputs = x->x_nbinputs; + t_int onboutputs = x->x_nboutputs; + t_int owidth = x->x_width; + t_int oheight = x->x_height; + t_int bi, ei; + t_int dspstate; + t_canvas *canvas=glist_getcanvas(x->x_glist); + + if ( !x ) { + post( "audience~ : error :tried to set properties on an unexisting object" ); + } + if ( argc != 3 ) + { + post( "audience : error in the number of arguments ( %d instead of 3 )", argc ); + return; + } + if ( argv[0].a_type != A_FLOAT || argv[1].a_type != A_FLOAT || + argv[2].a_type != A_FLOAT ) { + post( "audience~ : wrong arguments" ); + return; + } + + dspstate = canvas_suspend_dsp(); + audience_draw_erase(x, x->x_glist); + + x->x_width = (int)argv[0].a_w.w_float; + if ( x->x_width < 10 ) x->x_width = 10; + x->x_height = (int)argv[1].a_w.w_float; + if ( x->x_height < 10 ) x->x_height = 10; + x->x_nboutputs = (int)argv[2].a_w.w_float; + if ( x->x_nboutputs < 1 ) x->x_nboutputs = 1; + + // re-allocate audio buffers if needed + if ( ( owidth != x->x_width ) || ( oheight != x->x_height ) ) + { + if ( x->x_audiobuffer ) + { + for ( ei=0; eix_audiobuffer[ei], x->x_audiobuffersize*sizeof(t_float) ); + } + freebytes( x->x_audiobuffer, onbinputs*sizeof(t_float*) ); + } + // allocate audio buffer + x->x_audiobuffer = (t_float **) getbytes( x->x_nbinputs*sizeof(t_float *) ); + if ( !x->x_audiobuffer ) + { + post( "audience~ : could not allocate audio buffer" ); + return; + } + x->x_audiobuffersize = ( t_int ) ( ( ( ( t_float ) sqrt( pow( x->x_width, 2 ) + + pow( x->x_height, 2 ) ) ) / SOUNDSPEED ) + * ( (float ) sys_getsr() ) ); + post( "audience~ : audio buffer size : %d samples", x->x_audiobuffersize ); + for ( bi=0; bix_nbinputs; bi++ ) + { + x->x_audiobuffer[bi] = (t_float *) getbytes( x->x_audiobuffersize*sizeof(t_float) ); + if ( !x->x_audiobuffer[bi] ) + { + post( "audience~ : could not allocate audio buffer" ); + return; + } + } + x->x_audiowritepos = 0; + } + + // re-allocate inlets : CRASHES PD,I GUESS IT'S NOT SUPPORTED + if ( onbinputs != x->x_nbinputs ) + { + // post( "audience~ : cleaning up old inlets" ); + if ( x->x_inputs ) + { + for ( ei=0; eix_inputs[ei] ); + } + freebytes( x->x_inputs, onbinputs*sizeof(t_inlet*) ); + } + if ( x->x_inputs_x ) + { + freebytes( x->x_inputs_x, onbinputs*sizeof(t_int) ); + } + if ( x->x_inputs_y ) + { + freebytes( x->x_inputs_y, onbinputs*sizeof(t_int) ); + } + // post( "audience~ : creating new ones" ); + x->x_inputs = (t_inlet **) getbytes( x->x_nbinputs*sizeof(t_inlet *) ); + x->x_inputs_x = (t_int *) getbytes( x->x_nbinputs*sizeof(t_int) ); + x->x_inputs_y = (t_int *) getbytes( x->x_nbinputs*sizeof(t_int) ); + if ( !x->x_inputs || !x->x_inputs_x || !x->x_inputs_y ) + { + error( "audience~ : fatal : could not create new object" ); + return; + } + for ( bi=0; bix_nbinputs; bi++ ) + { + // post( "audience~ : allocating input ! %d", bi ); + x->x_inputs[bi] = inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); + } + } + + // re-allocate outlets + if ( onboutputs != x->x_nboutputs ) + { + // post( "audience~ : cleaning up old outlets" ); + if ( x->x_outputs ) + { + for ( ei=0; eix_outputs[ei] ); + // outlet_free( x->x_outputs[ei] ); + } + freebytes( x->x_outputs, onboutputs*sizeof(t_outlet*) ); + } + if ( x->x_outputs_x ) + { + freebytes( x->x_outputs_x, onboutputs*sizeof(t_int) ); + } + if ( x->x_outputs_y ) + { + freebytes( x->x_outputs_y, onboutputs*sizeof(t_int) ); + } + // post( "audience~ : creating new ones" ); + x->x_outputs = (t_outlet **) getbytes( x->x_nboutputs*sizeof(t_outlet *) ); + x->x_outputs_x = (t_int *) getbytes( x->x_nboutputs*sizeof(t_int) ); + x->x_outputs_y = (t_int *) getbytes( x->x_nboutputs*sizeof(t_int) ); + if ( !x->x_outputs || !x->x_outputs_x || !x->x_outputs_y ) + { + // error( "audience~ : fatal : could not create new object" ); + return; + } + for ( bi=0; bix_nboutputs; bi++ ) + { + x->x_outputs[bi] = outlet_new( &x->x_obj, &s_signal ); + } + // set default coordinates + if ( x->x_nboutputs > 1 ) + { + for ( ei=0; eix_nboutputs; ei++ ) + { + x->x_outputs_x[ei] = ei * (x->x_width - 5) / ( x->x_nboutputs - 1 ); + x->x_outputs_y[ei] = x->x_height - LISTENER_HEIGHT/2; + } + } + else + { + x->x_outputs_x[0] = x->x_width; + x->x_outputs_y[0] = x->x_height - LISTENER_HEIGHT/2; + } + } + + canvas_fixlinesfor( canvas, (t_text*)x ); + audience_draw_new(x, x->x_glist); + canvas_resume_dsp(dspstate); +} + +static void audience_delete(t_gobj *z, t_glist *glist) +{ + t_audience_tilde *x = (t_audience_tilde *)z; + + // post( "audience~ : delete" ); + audience_draw_erase( x, glist ); + canvas_deletelinesfor( glist_getcanvas(glist), (t_text *)z); +} + +static void audience_displace(t_gobj *z, t_glist *glist, int dx, int dy) +{ + t_audience_tilde *x = (t_audience_tilde *)z; + int xold = x->x_obj.te_xpix; + int yold = x->x_obj.te_ypix; + + // post( "audience_displace dx=%d dy=%d", dx, dy ); + + x->x_obj.te_xpix += dx; + x->x_obj.te_ypix += dy; + if(xold != x->x_obj.te_xpix || yold != x->x_obj.te_ypix) + { + audience_draw_move(x, x->x_glist); + } +} + +static void audience_motion(t_audience_tilde *x, t_floatarg dx, t_floatarg dy) +{ + // post( "audience_motion dx=%f dy=%f", dx, dy ); + + switch( x->x_type_selected ) + { + case AUDIENCE_INPUT: + x->x_inputs_x[ x->x_nselected ] += dx; + if ( x->x_inputs_x[ x->x_nselected ] < 0 ) x->x_inputs_x[ x->x_nselected ] = 0; + if ( x->x_inputs_x[ x->x_nselected ] > x->x_width ) x->x_inputs_x[ x->x_nselected ] = x->x_width; + x->x_inputs_y[ x->x_nselected ] += dy; + if ( x->x_inputs_y[ x->x_nselected ] < 0 ) x->x_inputs_y[ x->x_nselected ] = 0; + if ( x->x_inputs_y[ x->x_nselected ] > x->x_height ) x->x_inputs_y[ x->x_nselected ] = x->x_height; + break; + case AUDIENCE_OUTPUT: + x->x_outputs_x[ x->x_nselected ] += dx; + if ( x->x_outputs_x[ x->x_nselected ] < 0 ) x->x_outputs_x[ x->x_nselected ] = 0; + if ( x->x_outputs_x[ x->x_nselected ] > x->x_width ) x->x_outputs_x[ x->x_nselected ] = x->x_width; + x->x_outputs_y[ x->x_nselected ] += dy; + if ( x->x_outputs_y[ x->x_nselected ] < 0 ) x->x_outputs_y[ x->x_nselected ] = 0; + if ( x->x_outputs_y[ x->x_nselected ] > x->x_height ) x->x_outputs_y[ x->x_nselected ] = x->x_height; + break; + } + + audience_draw_update(x, x->x_glist); +} + +static int audience_click(t_gobj *z, struct _glist *glist, + int xpix, int ypix, int shift, int alt, int dbl, int doit) +{ + t_audience_tilde* x = (t_audience_tilde *)z; + t_int bi; + + // post( "audience_click doit=%d x=%d y=%d", doit, xpix, ypix ); + if ( doit) + { + t_int relx = xpix-x->x_obj.te_xpix; + t_int rely = ypix-x->x_obj.te_ypix; + + // post( "audience~ : relx : %d : rely : %d", relx, rely ); + x->x_type_selected = AUDIENCE_NONE; + x->x_nselected = -1; + for ( bi=0; bix_nbinputs; bi++ ) + { + if ( ( abs( relx - x->x_inputs_x[bi] ) < SPEAKER_WIDTH ) && + ( abs( rely - x->x_inputs_y[bi] ) < SPEAKER_HEIGHT ) ) { + x->x_type_selected = AUDIENCE_INPUT; + x->x_nselected = bi; + break; + } + } + if ( x->x_type_selected == AUDIENCE_NONE ) + { + for ( bi=0; bix_nboutputs; bi++ ) + { + if ( ( abs( relx - x->x_outputs_x[bi] ) < LISTENER_WIDTH ) && + ( abs( rely - x->x_outputs_y[bi] ) < LISTENER_HEIGHT ) ) { + x->x_type_selected = AUDIENCE_OUTPUT; + x->x_nselected = bi; + break; + } + } + } + audience_draw_update(x, glist); + glist_grab(glist, &x->x_obj.te_g, (t_glistmotionfn)audience_motion, + 0, xpix, ypix); + } + return (1); +} + +static t_audience_tilde *audience_new(t_symbol *s, int argc, t_atom *argv) +{ + t_int bi, ei; + t_audience_tilde *x; + t_pd *x2; + char *str; + + // post( "audience_new : create : %s argc =%d", s->s_name, argc ); + + x = (t_audience_tilde *)pd_new(audience_class_tilde); + // new audience created from the gui + if ( argc != 0 ) + { + if ( argc < 5 ) + { + post( "audience~ : error in the number of arguments ( %d )", argc ); + return NULL; + } + if ( argv[0].a_type != A_FLOAT || argv[1].a_type != A_FLOAT || + argv[2].a_type != A_FLOAT || argv[3].a_type != A_FLOAT || + argv[4].a_type != A_FLOAT || argv[5].a_type != A_FLOAT ) { + post( "audience~ : wrong arguments" ); + return NULL; + } + + x->x_width = (int)argv[0].a_w.w_float; + if ( x->x_width < 10 ) x->x_width = 10; + x->x_height = (int)argv[1].a_w.w_float; + if ( x->x_height < 10 ) x->x_height = 10; + x->x_nbinputs = (int)argv[2].a_w.w_float; + if ( x->x_nbinputs < 1 ) x->x_nbinputs = 1; + x->x_nboutputs = (int)argv[3].a_w.w_float; + if ( x->x_nboutputs < 1 ) x->x_nboutputs = 1; + x->x_attenuation = argv[4].a_w.w_float; + if ( x->x_attenuation < 0 ) x->x_attenuation = 0; + x->x_applydelay = argv[5].a_w.w_float; + } + else + { + x->x_width = DEFAULT_AUDIENCE_WIDTH; + x->x_height = DEFAULT_AUDIENCE_HEIGHT; + x->x_nbinputs = DEFAULT_AUDIENCE_NBINPUTS; + x->x_nboutputs = DEFAULT_AUDIENCE_NBOUTPUTS; + x->x_attenuation = DEFAULT_AUDIENCE_ATTENUATION; + x->x_applydelay = 0; + } + + // create inlets and outlets + x->x_outputs = (t_outlet **) getbytes( x->x_nboutputs*sizeof(t_outlet *) ); + x->x_outputs_x = (t_int *) getbytes( x->x_nboutputs*sizeof(t_int) ); + x->x_outputs_y = (t_int *) getbytes( x->x_nboutputs*sizeof(t_int) ); + if ( !x->x_outputs || !x->x_outputs_x || !x->x_outputs_y ) + { + post( "audience~ : could not allocate outputs" ); + return NULL; + } + for ( bi=0; bix_nboutputs; bi++ ) + { + x->x_outputs[bi] = outlet_new( &x->x_obj, &s_signal ); + } + x->x_inputs = (t_inlet **) getbytes( x->x_nbinputs*sizeof(t_inlet *) ); + x->x_inputs_x = (t_int *) getbytes( x->x_nbinputs*sizeof(t_int) ); + x->x_inputs_y = (t_int *) getbytes( x->x_nbinputs*sizeof(t_int) ); + if ( !x->x_inputs || !x->x_inputs_x || !x->x_inputs_y ) + { + post( "audience~ : could not allocate inputs" ); + return NULL; + } + for ( bi=0; bix_nbinputs; bi++ ) + { + x->x_inputs[bi] = inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); + } + + // allocate audio buffer + x->x_audiowritepos = 0; + x->x_audiobuffer = (t_float **) getbytes( x->x_nbinputs*sizeof(t_float *) ); + if ( !x->x_audiobuffer ) + { + post( "audience~ : could not allocate audio buffer" ); + return NULL; + } + x->x_audiobuffersize = ( t_int ) ( ( ( ( t_float ) sqrt( pow( x->x_width, 2 ) + + pow( x->x_height, 2 ) ) ) / SOUNDSPEED ) + * ( (float ) sys_getsr() ) ); + post( "audience~ : audio buffer size : %d samples", x->x_audiobuffersize ); + for ( bi=0; bix_nbinputs; bi++ ) + { + x->x_audiobuffer[bi] = (t_float *) getbytes( x->x_audiobuffersize*sizeof(t_float) ); + if ( !x->x_audiobuffer[bi] ) + { + post( "audience~ : could not allocate audio buffer" ); + return NULL; + } + } + + if ( argc == 0 ) + { + // set default coordinates + if ( x->x_nbinputs > 1 ) + { + for ( ei=0; eix_nbinputs; ei++ ) + { + x->x_inputs_x[ei] = (ei+1) * (x->x_width - 5) / x->x_nbinputs; + x->x_inputs_y[ei] = SPEAKER_HEIGHT/2; + } + } + else + { + x->x_inputs_x[0] = x->x_width; + x->x_inputs_y[0] = SPEAKER_HEIGHT/2; + } + + if ( x->x_nboutputs > 1 ) + { + for ( ei=0; eix_nboutputs; ei++ ) + { + x->x_outputs_x[ei] = ei * (x->x_width - 5) / ( x->x_nboutputs - 1 ); + x->x_outputs_y[ei] = x->x_height - LISTENER_HEIGHT/2; + } + } + else + { + x->x_outputs_x[0] = x->x_width; + x->x_outputs_y[0] = x->x_height - LISTENER_HEIGHT/2; + } + } + else + { + t_int ai = 6; + + // restore coordinates from arguments + for ( ei=0; eix_nbinputs; ei++ ) + { + x->x_inputs_x[ei] = argv[ai++].a_w.w_float; + x->x_inputs_y[ei] = argv[ai++].a_w.w_float; + } + for ( ei=0; eix_nboutputs; ei++ ) + { + x->x_outputs_x[ei] = argv[ai++].a_w.w_float; + x->x_outputs_y[ei] = argv[ai++].a_w.w_float; + } + } + + x->x_glist = (t_glist *) canvas_getcurrent(); + x->x_type_selected = AUDIENCE_NONE; + x->x_nselected = -1; + + // post( "audience~ : new object : inlets : %d : outlets : %d : attenuation : %f", x->x_nbinputs, x->x_nboutputs, x->x_attenuation ); + return (x); +} + +static void audience_free(t_audience_tilde *x) +{ + t_int ei; + + if ( x->x_outputs ) + { + for ( ei=0; eix_nboutputs; ei++ ) + { + outlet_free( x->x_outputs[ei] ); + } + freebytes( x->x_outputs, x->x_nboutputs*sizeof(t_outlet*) ); + } + if ( x->x_inputs ) + { + for ( ei=0; eix_nbinputs; ei++ ) + { + inlet_free( x->x_inputs[ei] ); + } + freebytes( x->x_inputs, x->x_nbinputs*sizeof(t_outlet*) ); + } + if ( x->x_audiobuffer ) + { + for ( ei=0; eix_nbinputs; ei++ ) + { + freebytes( x->x_audiobuffer[ei], x->x_audiobuffersize*sizeof(t_float) ); + } + freebytes( x->x_audiobuffer, x->x_nbinputs*sizeof(t_float*) ); + } +} + +static t_int *audience_perform(t_int *w) +{ + t_int ii, oi, op; + t_audience_tilde *x = (t_audience_tilde*)(w[1]); + t_int bsize = w[2]; + + { + // save input sounds in the audio buffer + for ( ii=0; iix_nbinputs; ii++ ) + { + t_float* isound = (t_float*)w[ii+3]; + + if ( x->x_audiobuffer[ii] ) + { + op = 0; + while ( op < bsize ) + { + *(x->x_audiobuffer[ii] + x->x_audiowritepos + op ) = *(isound + op); + op++; + } + } + } + + // set outputs + for ( oi=0; oix_nboutputs; oi++ ) + { + t_float* osound = (t_float*)w[oi+3+x->x_nbinputs]; + + // zeroing output + memset( osound, 0x00, bsize*sizeof( t_float ) ); + + for ( ii=0; iix_nbinputs; ii++ ) + { + t_int delay; + t_int dist; + t_int readpos; + t_int maxwritepos; + + maxwritepos = ( x->x_audiobuffersize / bsize ) * bsize; + dist = sqrt( pow( (x->x_outputs_x[oi] - x->x_inputs_x[ii]), 2 ) + + pow( (x->x_outputs_y[oi] - x->x_inputs_y[ii]), 2 ) ); + delay = ( t_int ) ( ( ( ( t_float ) dist ) * ( (float ) sys_getsr() ) ) / SOUNDSPEED ); + delay = ( delay / bsize ) * bsize; // set a block frontier + if ( x->x_applydelay ) + { + if ( x->x_audiowritepos >= delay ) + { + readpos = x->x_audiowritepos - delay; + } + else + { + readpos = maxwritepos - delay + x->x_audiowritepos; + } + } + else + { + readpos = x->x_audiowritepos; + } + // if ( ii == 0 ) + // { + // post( "audience~ : dist : %d : delay : %d : readpos : %d : writepos : %d", + // dist, delay, readpos, x->x_audiowritepos ); + // } + + op = 0; + while ( op < bsize ) + { + if ( ( readpos < x->x_audiobuffersize ) && ( readpos >= 0 ) ) + { + if ( 1.0-x->x_attenuation*dist < 0 ) + { + *(osound+op) += 0.0; + } + else + { + *(osound+op) += *(x->x_audiobuffer[ii] + readpos + op)*(1.0-x->x_attenuation*dist); + } + } + else + { + error( "audience~ : delay : %d : wrong readpos !!! : %d >= %d or < 0", delay, readpos, x->x_audiobuffersize ); + } + op++; + } + } + } + + // update write position + if ( x->x_audiowritepos + bsize > x->x_audiobuffersize - bsize ) + { + // post( "audience~ : write back to zero @ %d", x->x_audiowritepos ); + x->x_audiowritepos = 0; + } + else + { + x->x_audiowritepos += bsize; + } + + } + + return (w+x->x_nbinputs+x->x_nboutputs+3); +} + +static void audience_dsp(t_audience_tilde *x, t_signal **sp) +{ + switch ( x->x_nbinputs+x->x_nboutputs ) + { + case 2 : + dsp_add(audience_perform, 4, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec ); + break; + + case 3 : + dsp_add(audience_perform, 5, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec ); + break; + + case 4 : + dsp_add(audience_perform, 6, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec ); + break; + + case 5 : + dsp_add(audience_perform, 7, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec, sp[5]->s_vec ); + break; + + case 6 : + dsp_add(audience_perform, 8, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec, + sp[5]->s_vec, sp[6]->s_vec ); + break; + + case 7 : + dsp_add(audience_perform, 9, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec, + sp[5]->s_vec, sp[6]->s_vec, sp[7]->s_vec ); + break; + + case 8 : + dsp_add(audience_perform, 10, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec, + sp[5]->s_vec, sp[6]->s_vec, sp[7]->s_vec, sp[8]->s_vec ); + break; + + case 9 : + dsp_add(audience_perform, 11, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec, + sp[5]->s_vec, sp[6]->s_vec, sp[7]->s_vec, sp[8]->s_vec, sp[9]->s_vec ); + break; + + case 10 : + dsp_add(audience_perform, 12, x, sp[1]->s_n, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[4]->s_vec, + sp[5]->s_vec, sp[6]->s_vec, sp[7]->s_vec, sp[8]->s_vec, + sp[9]->s_vec, sp[10]->s_vec ); + break; + + default : + post( "audience~ : number of inlets/outlets not supported" ); + break; + } +} + +// set attenuation +static void audience_attenuation(t_audience_tilde *x, t_floatarg fattenuation ) +{ + if ( fattenuation < 0 ) + { + post( "audience~ : error : wrong attenuation : %f", fattenuation ); + return; + } + x->x_attenuation = fattenuation; +} + +// set delay +static void audience_delay(t_audience_tilde *x, t_floatarg fdelay ) +{ + if ( fdelay == 0. ) + { + x->x_applydelay = 0; + } + else + { + x->x_applydelay = 1; + } +} + +void audience_tilde_setup(void) +{ + post( audience_version ); +#include "audience~.tk2c" + audience_class_tilde = class_new(gensym("audience~"), (t_newmethod)audience_new, + (t_method)audience_free, sizeof(t_audience_tilde), 0, A_GIMME, 0); + CLASS_MAINSIGNALIN( audience_class_tilde, t_audience_tilde, x_f ); + class_addmethod(audience_class_tilde, (t_method)audience_dsp, gensym("dsp"), 0); + class_addmethod(audience_class_tilde, (t_method)audience_dialog, gensym("dialog"), A_GIMME, 0); + class_addmethod(audience_class_tilde, (t_method)audience_attenuation, gensym("attenuation"), A_DEFFLOAT, 0); + class_addmethod(audience_class_tilde, (t_method)audience_delay, gensym("delay"), A_DEFFLOAT, 0); + audience_widgetbehavior.w_getrectfn = audience_getrect; + audience_widgetbehavior.w_displacefn = audience_displace; + audience_widgetbehavior.w_selectfn = audience_select; + audience_widgetbehavior.w_activatefn = NULL; + audience_widgetbehavior.w_deletefn = audience_delete; + audience_widgetbehavior.w_visfn = audience_vis; + audience_widgetbehavior.w_clickfn = audience_click; + audience_widgetbehavior.w_propertiesfn = audience_properties; + audience_widgetbehavior.w_savefn = audience_save; + class_setwidget(audience_class_tilde, &audience_widgetbehavior); + class_sethelpsymbol(audience_class_tilde, gensym("help-audience~.pd")); +} diff --git a/audience~/audience~.h b/audience~/audience~.h new file mode 100644 index 0000000..b02d1b2 --- /dev/null +++ b/audience~/audience~.h @@ -0,0 +1,44 @@ +/* Copyright (c) 2002 Yves Degoyon +* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ + +/* a header for 2d_space which enables to spatialize +* several sound inputs with the mouse +*/ + +#ifndef __G_2D_SPACE_H +#define __G_2D_SPACE_H + +#define AUDIENCE_NONE 0 +#define AUDIENCE_INPUT 1 +#define AUDIENCE_OUTPUT 2 + +typedef struct _audience_tilde +{ + t_object x_obj; + t_glist *x_glist; + t_int x_nbinputs; + t_int x_nboutputs; + t_int *x_inputs_x; + t_int *x_inputs_y; + t_int *x_outputs_x; + t_int *x_outputs_y; + t_inlet **x_inputs; + t_outlet **x_outputs; + t_int x_allocate; /* indicates that audio buffer is */ + /* beeing reallocated */ + t_int x_audiobuffersize; /* audio buffer size */ + t_int x_audiowritepos; /* audio writing position */ + t_float **x_audiobuffer; /* audio buffer */ + t_int x_type_selected; /* type of selected object */ + /* e.g. inpout or output or none */ + t_int x_nselected; /* index of item selected */ + t_int x_height; /* height of the 2d_space object */ + t_int x_width; /* width of the 2d_space object */ + t_int x_selected; /* stores selected state */ + t_float x_attenuation; /* sound attenuation per meter */ + t_int x_applydelay; /* optional delay due to the distance */ + t_float x_f; /* classical float for signal input */ +} t_audience_tilde; + +#endif diff --git a/audience~/audience~.tk b/audience~/audience~.tk new file mode 100644 index 0000000..fcf7458 --- /dev/null +++ b/audience~/audience~.tk @@ -0,0 +1,90 @@ +############ audience procedures -- ydegoyon@free.fr ######### + +proc audience_apply {id} { +# strip "." from the TK id to make a variable name suffix + set vid [string trimleft $id .] +# for each variable, make a local variable to hold its name... + set var_graph_width [concat graph_width_$vid] + global $var_graph_width + set var_graph_height [concat graph_height_$vid] + global $var_graph_height + set var_graph_nboutputs [concat graph_nboutputs_$vid] + global $var_graph_nboutputs + + set cmd [concat $id dialog \ + [eval concat $$var_graph_width] \ + [eval concat $$var_graph_height] \ + [eval concat $$var_graph_nboutputs] \ + \;] + #puts stderr $cmd + pd $cmd +} + +proc audience_cancel {id} { + set cmd [concat $id cancel \;] + #puts stderr $cmd + pd $cmd +} + +proc audience_ok {id} { + audience_apply $id + audience_cancel $id +} + +proc pdtk_audience_dialog {id width height nboutputs} { + set vid [string trimleft $id .] + set var_graph_width [concat graph_width_$vid] + global $var_graph_width + set var_graph_height [concat graph_height_$vid] + global $var_graph_height + set var_graph_nboutputs [concat graph_nboutputs_$vid] + global $var_graph_nboutputs + + set $var_graph_width $width + set $var_graph_height $height + set $var_graph_nboutputs $nboutputs + + toplevel $id + wm title $id {audience} + wm protocol $id WM_DELETE_WINDOW [concat audience_cancel $id] + + label $id.label -text {2$ SPACE PROPERTIES} + pack $id.label -side top + + frame $id.buttonframe + pack $id.buttonframe -side bottom -fill x -pady 2m + button $id.buttonframe.cancel -text {Cancel}\ + -command "audience_cancel $id" + button $id.buttonframe.apply -text {Apply}\ + -command "audience_apply $id" + button $id.buttonframe.ok -text {OK}\ + -command "audience_ok $id" + pack $id.buttonframe.cancel -side left -expand 1 + pack $id.buttonframe.apply -side left -expand 1 + pack $id.buttonframe.ok -side left -expand 1 + + frame $id.1rangef + pack $id.1rangef -side top + label $id.1rangef.lwidth -text "Width :" + entry $id.1rangef.width -textvariable $var_graph_width -width 7 + pack $id.1rangef.lwidth $id.1rangef.width -side left + + frame $id.2rangef + pack $id.2rangef -side top + label $id.2rangef.lheight -text "Height :" + entry $id.2rangef.height -textvariable $var_graph_height -width 7 + pack $id.2rangef.lheight $id.2rangef.height -side left + + frame $id.3rangef + pack $id.3rangef -side top + label $id.3rangef.lnboutputs -text "Nb Listeners :" + entry $id.3rangef.nboutputs -textvariable $var_graph_nboutputs -width 7 + pack $id.3rangef.lnboutputs $id.3rangef.nboutputs -side left + + bind $id.1rangef.width [concat audience_ok $id] + bind $id.2rangef.height [concat audience_ok $id] + bind $id.3rangef.nboutputs [concat audience_ok $id] + focus $id.1rangef.width +} + +############ audience procedures END -- ydegoyon@free.fr ######### diff --git a/audience~/help-audience~.pd b/audience~/help-audience~.pd new file mode 100644 index 0000000..ee90caf --- /dev/null +++ b/audience~/help-audience~.pd @@ -0,0 +1,60 @@ +#N canvas 207 7 763 647 10; +#X text 370 378 * Width : graphical x size; +#X text 371 393 * Height : graphical y size; +#X text 358 456 bugs and comments @ ydegoyon@free.fr [-_-]; +#X obj 91 492 *~ 1; +#X obj 177 491 *~ 1; +#X obj 134 458 / 100; +#X floatatom 134 428 5 0 0; +#X floatatom 174 129 5 0 0; +#X floatatom 254 128 5 0 0; +#X floatatom 332 128 5 0 0; +#X floatatom 405 128 5 0 0; +#X text 332 210 audience~ is a moving audience simulation; +#X text 334 236 within a 2d space; +#X text 332 223 Each sound input and each listener can be moved; +#X text 371 407 * Nb Listeners : number of listeners; +#X obj 129 523 dac~; +#X msg 42 89 attenuation 0; +#X msg 42 64 attenuation 0.1; +#X msg 42 40 attenuation 1; +#X obj 406 153 osc~ 10000; +#X text 8 14 Sound attenuation per meter ( default = 0.01 ); +#X text 338 306 Example : audience~ 200 200 4 1 0.01 0; +#X text 339 349 (invoke with Properties ); +#X text 342 339 You can set the following properties :; +#X text 341 527 Note : the number of inputs + outputs is limited to +10; +#X text 341 540 ( can be easily changed in the code ); +#X obj 254 154 osc~ 500; +#X obj 331 154 osc~ 3000; +#X text 337 278 Constructor : audience~ + | audience~; +#X obj 175 155 osc~ 50; +#X obj 70 196 audience~ 200 200 4 2 0.01 0 0 0 193 188 126 118 145 +72 20 182 10 0; +#X msg 165 66 delay 0; +#X msg 165 91 delay 1; +#X text 296 41 ( due to the distance between speaker and listener ) +; +#X text 163 40 Apply delay option; +#X connect 3 0 15 0; +#X connect 4 0 15 1; +#X connect 5 0 3 1; +#X connect 5 0 4 1; +#X connect 6 0 5 0; +#X connect 7 0 29 0; +#X connect 8 0 26 0; +#X connect 9 0 27 0; +#X connect 10 0 19 0; +#X connect 16 0 30 0; +#X connect 17 0 30 0; +#X connect 18 0 30 0; +#X connect 19 0 30 4; +#X connect 26 0 30 2; +#X connect 27 0 30 3; +#X connect 29 0 30 1; +#X connect 30 0 3 0; +#X connect 30 1 4 0; +#X connect 31 0 30 0; +#X connect 32 0 30 0; diff --git a/audience~/speaker.gif b/audience~/speaker.gif new file mode 100644 index 0000000..6dd9fd4 Binary files /dev/null and b/audience~/speaker.gif differ diff --git a/audience~/wanderer.gif b/audience~/wanderer.gif new file mode 100644 index 0000000..b2a9f8c Binary files /dev/null and b/audience~/wanderer.gif differ -- cgit v1.2.1