This commit was generated by cvs2svn to compensate for changes in r189,

which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=190

76 files changed, 12067 insertions, 0 deletions

diff --git a/externals/grill/guitest/flgui.cpp b/externals/grill/guitest/flgui.cpp
new file mode 100644
index 00000000..86d8e4ea
--- /dev/null
+++ b/externals/grill/guitest/flgui.cpp
@@ -0,0 +1,646 @@
+#include "flgui.h"
+#include "flguiobj.h"
+#include "flinternal.h"
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+
+
+#ifdef PD
+t_class *flext_gui::px_class = NULL;
+t_class *flext_gui::pxkey_class = NULL;
+
+struct flext_gui::px_object  // no virtual table!
+{ 
+	t_object obj;			// MUST reside at memory offset 0
+	t_canvas *canv;
+
+	void init(t_canvas *c) { canv = c; }
+};
+
+struct flext_gui::pxkey_object  // no virtual table!
+{ 
+	t_object obj;			// MUST reside at memory offset 0
+	flext_gui *th;
+
+	void init(flext_gui *t) { th = t; }
+};
+#endif
+
+
+flext_gui::flext_gui(int xs,int ys):
+	objs(NULL),
+#ifdef PD
+	xsize(xs),ysize(ys),
+#endif
+#ifdef MAXMSP
+	curx(-1),cury(-1),curmod(-1),
+	created(false),
+#endif
+	bindsym(NULL)
+{
+	canvas = new Canvas(thisCanvas());
+	objs = new GuiGroup(canvas);
+
+#ifdef PD
+	AddCanvas();
+#else
+	t_box *b = (t_box *)gensym("#B")->s_thing;
+	
+	int x = b->b_rect.left,y = b->b_rect.top;
+	t_pxbox *p = thisHdr();	
+	box_new(&p->z_box, thisCanvas(), F_DRAWFIRSTIN | F_GROWBOTH | F_SAVVY,x,y,x+xs,y+ys);
+	p->z_box.b_firstin = (void *)p;  /* it's not really an inlet */
+	box_ready(&p->z_box);
+#endif
+}
+
+flext_gui::~flext_gui()
+{
+#ifdef PD
+	RmvCanvas();
+#endif
+
+	delete objs;
+	delete canvas;
+}
+
+
+void flext_gui::setup(t_class *c)
+{
+#ifdef PD
+	SetWidget(c);
+
+    pxkey_class = class_new(gensym("flext_gui key proxy"),NULL,NULL,sizeof(pxkey_object),CLASS_PD|CLASS_NOINLET, A_NULL);
+	add_anything(pxkey_class,pxkey_method); 
+    pxkey = (pxkey_object *)pd_new(pxkey_class);
+
+	pd_bind(&pxkey_class,gensym("#keyname"));
+//	pd_bind(&pxkey_class,gensym("#key"));
+//	pd_bind(&pxkey_class,gensym("#keyup"));
+
+	gcanv = NULL;
+
+#ifdef DIRECT_TK
+    px_class = class_new(gensym("flext_gui proxy"),NULL,NULL,sizeof(px_object),CLASS_PD|CLASS_NOINLET, A_NULL);
+	add_anything(px_class,px_method); 
+
+	gcm_motion = MakeSymbol("_tk_motion");
+	gcm_mousekey = MakeSymbol("_tk_mousekey");
+	gcm_mousewheel = MakeSymbol("_tk_mousewheel");
+	gcm_key = MakeSymbol("_tk_key");
+	gcm_destroy = MakeSymbol("_tk_destroy");
+#endif
+
+	// this is wrong if a modifier key is pressed during creation of the first object.....
+	curmod = 0;
+#else
+	addmess((method)sg_update, "update", A_CANT, A_NULL);
+	addmess((method)sg_click, "click", A_CANT, A_NULL);
+	addmess((method)sg_psave, "psave", A_CANT, A_NULL);
+	addmess((method)sg_bfont, "bfont", A_CANT, A_NULL);
+	addmess((method)sg_key, "key", A_CANT, A_NULL);
+	addmess((method)sg_bidle, "bidle", A_CANT, A_NULL);
+#endif
+}
+
+#ifdef PD
+
+int flext_gui::evmask = evMotion|evMouseDown|evKeyDown|evKeyUp;
+int flext_gui::curmod = 0;
+flext_gui::pxkey_object *flext_gui::pxkey = NULL;
+flext_gui::guicanv *flext_gui::gcanv = NULL;
+
+#ifdef DIRECT_TK
+const t_symbol *flext_gui::gcm_motion = NULL;
+const t_symbol *flext_gui::gcm_mousekey = NULL;
+const t_symbol *flext_gui::gcm_mousewheel = NULL;
+const t_symbol *flext_gui::gcm_key = NULL;
+const t_symbol *flext_gui::gcm_destroy = NULL;
+
+void flext_gui::px_method(px_object *obj,const t_symbol *s,int argc,t_atom *argv)
+{
+	guicanv *ix = gcanv;
+	for(; ix && ix->canv != obj->canv; ix = ix->nxt);
+
+	if(ix) {
+		CBParams parms;
+
+		if(s == gcm_motion) {
+			parms.kind = evMotion;
+			parms.pMotion.x = GetAInt(argv[0]);
+			parms.pMotion.y = GetAInt(argv[1]);
+			parms.pMotion.mod = GetAInt(argv[2]);
+		}
+		else if(s == gcm_mousekey) {
+			parms.kind = GetAInt(argv[0])?evMouseDown:evMouseUp;
+			parms.pMouseKey.x = GetAInt(argv[1]);
+			parms.pMouseKey.y = GetAInt(argv[2]);
+			parms.pMouseKey.b = GetAInt(argv[3]);
+			parms.pMouseKey.mod = GetAInt(argv[4]);
+		}
+		else if(s == gcm_mousewheel) {
+			parms.kind = evMouseWheel;
+			parms.pMouseWheel.x = GetAInt(argv[0]);
+			parms.pMouseWheel.y = GetAInt(argv[1]);
+			parms.pMouseWheel.mod = GetAInt(argv[2]);
+			parms.pMouseWheel.delta = GetAInt(argv[3]);
+		}
+		else if(s == gcm_key) {
+			parms.kind = GetAInt(argv[0])?evKeyDown:evKeyUp;
+			parms.pKey.k = GetAInt(argv[1]);
+			parms.pKey.a = GetAInt(argv[2]);
+//			parms.pKey.n = GetAInt(argv[3]);
+			parms.pKey.mod = GetAInt(argv[4]);
+		}
+		else if(s == gcm_destroy) {
+//			post("TK destroy");
+			DelCanvas(ix->canv);
+		}
+
+		if(parms.kind != evNone) {
+			for(canvobj *co = ix->head; co; co = co->nxt) 
+				co->guiobj->m_Method(parms);
+		}
+
+	}
+	else 
+		error("flext_gui: canvas not found!");
+}
+
+#endif
+
+static const char *extkeys[] = {
+	"Escape","F1","F2","F3","F4","F5","F6","F7","F8","F9","F10","F11","F12",
+	"Prior","Next","Home","End","Delete","Insert",""
+};
+
+void flext_gui::pxkey_method(pxkey_object *obj,const t_symbol *s,int argc,t_atom *argv)
+{
+/*
+	if(s == sym_float && argc == 1) {
+		lastkey = GetInt(argv[0]);
+	}
+	else 
+*/
+	if(s == sym_list && argc == 2) {
+		CBParams p;
+
+		bool down = GetABool(argv[0]);
+		const char *str = GetString(argv[1]);
+		int code = str[0];
+		int asc = code;
+		int mod = mod_None;
+		if(code && str[1] != 0) { 
+			code = asc = 0; 
+			if(GetSymbol(argv[1]) == MakeSymbol("Shift_L") || GetSymbol(argv[1]) == MakeSymbol("Shift_R")) {
+				code = 2001;
+				mod = mod_Shift;
+			}
+			else if(GetSymbol(argv[1]) == MakeSymbol("Control_L") || GetSymbol(argv[1]) == MakeSymbol("Control_R")) {
+				code = 2002;
+				mod = mod_Ctrl;
+			}
+			else if(GetSymbol(argv[1]) == MakeSymbol("Alt_L") || GetSymbol(argv[1]) == MakeSymbol("Alt_R")) {
+				code = 2003;
+				mod = mod_Alt;
+			}
+			else {
+				for(int i = 0;; ++i) {
+					const char *ci = extkeys[i];
+					if(!*ci) break;
+					if(GetSymbol(argv[1]) == MakeSymbol(ci)) {
+						code = 1000+i;
+						break;
+					}
+				}
+			}
+#ifdef DEBUG
+			else
+				post("unknown modifier %s",str);
+#endif
+		}
+
+		if(down) curmod |= mod;
+		else curmod &= ~mod;
+
+//		post("Key down=%i c=%c mod=%i",down?1:0,code,curmod);
+
+		if(code || mod) {
+			// button is pressed
+			p.kind = down?evKeyDown:evKeyUp;
+			p.ext = true;
+			p.pKey.k = code; //lastkey;
+			p.pKey.a = asc;
+			p.pKey.mod = curmod;
+
+			for(guicanv *ix = gcanv; ix; ix = ix->nxt)
+				for(canvobj *ci = ix->head; ci; ci = ci->nxt)
+					ci->guiobj->m_Method(p); 
+		}
+	}
+	else
+		post("flext_gui key proxy - unknown method");
+}
+
+
+flext_gui::guicanv::guicanv(t_canvas *c): 
+	canv(c),nxt(NULL),ref(0),
+	head(NULL),tail(NULL)
+{
+	char tmp[25];
+	sprintf(tmp,"FLCANV%x",c);
+	sym = MakeSymbol(tmp);
+
+#ifdef DIRECT_TK
+	// proxy for canvas messages
+    (px = (px_object *)pd_new(px_class))->init(c);  
+#endif
+}
+
+flext_gui::guicanv::~guicanv()
+{
+#ifdef DIRECT_TK
+	if(px) pd_free(&px->obj.ob_pd);
+#endif
+}
+
+void flext_gui::guicanv::Push(flext_gui *o) 
+{ 
+	canvobj *co = new canvobj(o);
+	if(tail) tail->nxt = co;
+	tail = co;
+	if(!head) head = tail;
+
+	++ref; 
+}
+
+void flext_gui::guicanv::Pop(flext_gui *o) 
+{ 
+	canvobj *prv = NULL,*ix = head;
+	for(; ix && ix->guiobj != o; prv = ix,ix = ix->nxt);
+
+	if(ix) {
+		--ref; 
+		if(prv) prv->nxt = ix->nxt;
+		else head = ix->nxt;
+		if(!ix->nxt) tail = prv;
+	}
+	else
+		error("flext_gui: object not found in canvas!");
+}
+
+
+void flext_gui::AddCanvas()
+{
+	t_canvas *c = thisCanvas();
+	guicanv *prv = NULL,*ix = gcanv;
+	for(; ix && ix->canv != c; prv = ix,ix = ix->nxt);
+
+	if(ix) {
+		ix->Push(this);
+	}
+	else {
+		guicanv *nc = new guicanv(c);
+		if(prv) prv->nxt = nc;
+		else gcanv = nc;
+
+		nc->Push(this);
+
+#ifdef DIRECT_TK
+		pd_bind(&nc->px->obj.ob_pd,(t_symbol *)nc->sym); 
+
+/*
+		// initialize new canvas object
+		sys_vgui("bind .x%x.c <Motion> {pd %s %s %%x %%y %%s \\;}\n",c,GetString(nc->sym),GetString(gcm_motion));
+
+		sys_vgui("bind .x%x.c <ButtonPress> {pd %s %s 1 %%x %%y %%b %%s \\;}\n",c,GetString(nc->sym),GetString(gcm_mousekey));
+		sys_vgui("bind .x%x.c <ButtonRelease> {pd %s %s 0 %%x %%y %%b %%s \\;}\n",c,GetString(nc->sym),GetString(gcm_mousekey));
+		sys_vgui("bind .x%x.c <MouseWheel> {pd %s %s %%x %%y %%s %%D \\;}\n",c,GetString(nc->sym),GetString(gcm_mousewheel));
+		sys_vgui("bind .x%x.c <KeyPress> {pd %s %s 1 %%k %%A %%N %%s \\;}\n",c,GetString(nc->sym),GetString(gcm_key));
+		sys_vgui("bind .x%x.c <KeyRelease> {pd %s %s 0 %%k %%A %%N %%s \\;}\n",c,GetString(nc->sym),GetString(gcm_key));
+
+		// what happend to objects in subpatchers?
+		sys_vgui("bind .x%x.c <Destroy> {pd %s %s \\;}\n",c,GetString(nc->sym),GetString(gcm_destroy));
+
+	//	sys_vgui("bind .x%x.c <Visibility> {pd %s %s %x %s \\;}\n",c,GetString(nc->sym),"_tk_visibility",this);
+*/
+#endif
+	}
+}
+
+void flext_gui::RmvCanvas()
+{
+	guicanv *ix = gcanv;
+	for(; ix && ix->canv != thisCanvas(); ix = ix->nxt);
+
+	if(ix) {
+		ix->Pop(this);
+		if(!ix->Refs()) DelCanvas(thisCanvas());
+	}
+	else {
+		error("flext_gui: Canvas not found!");
+	}
+}
+
+void flext_gui::DelCanvas(t_canvas *c)
+{
+	guicanv *prv = NULL,*ix = gcanv;
+	for(; ix && ix->canv != c; prv = ix,ix = ix->nxt);
+
+	if(ix) {
+#ifdef DIRECT_TK
+		pd_unbind(&ix->px->obj.ob_pd,(t_symbol *)ix->sym); 
+#endif
+
+		if(prv) prv->nxt = ix->nxt;
+		else gcanv = ix->nxt;
+	}
+	else {
+		error("flext_gui: Canvas not found!");
+	}
+}
+
+static GuiObj *GetGuiObj(const t_atom &a)
+{
+	GuiObj *th = NULL;
+	sscanf(flext::GetString(a),"%x",&th);
+	return th;
+}
+
+void flext_gui::g_Displace(int dx, int dy)
+{
+//	post("Displace");
+
+	XLo(XLo()+dx);
+	YLo(YLo()+dy);
+
+	Group().MoveRel(dx,dy);
+	FixLines();
+}
+
+void flext_gui::g_Delete()
+{
+	objs->Clear();
+	DelLines();
+}
+
+
+
+t_widgetbehavior flext_gui::widgetbehavior; 
+
+void flext_gui::SetWidget(t_class *c)
+{
+	// widgetbehavior struct MUST be resident... (static is just ok here)
+
+    widgetbehavior.w_getrectfn =    sg_getrect;
+    widgetbehavior.w_displacefn =   sg_displace;
+    widgetbehavior.w_selectfn =     sg_select;
+    widgetbehavior.w_activatefn =   NULL; //sg_activate;
+    widgetbehavior.w_deletefn =     sg_delete;
+    widgetbehavior.w_visfn =        sg_vis;
+    widgetbehavior.w_clickfn =      sg_click;
+    widgetbehavior.w_propertiesfn = sg_properties;
+    widgetbehavior.w_savefn =       sg_save;
+    class_setwidget(c, &widgetbehavior);
+}
+
+void flext_gui::sg_getrect(t_gobj *c, t_glist *,int *xp1, int *yp1, int *xp2, int *yp2) 
+{ 
+	flext_gui *th = thisObject(c); 
+	/*th->g_GetRect(*xp1,*yp1,*xp2,*yp2);*/ 
+	*xp1 = th->XLo(),*yp1 = th->YLo(),*xp2 = th->XHi(),*yp2 = th->YHi(); 
+}
+
+void flext_gui::sg_displace(t_gobj *c, t_glist *, int dx, int dy) 
+{ 
+	thisObject(c)->g_Displace(dx,dy); 
+}
+
+void flext_gui::sg_select(t_gobj *c, t_glist *, int selected) 
+{ 
+//	post("Select");
+
+	flext_gui *th = thisObject(c); 
+	th->g_Edit(th->selected = (selected != 0)); 
+}
+
+void flext_gui::sg_vis(t_gobj *c, t_glist *, int vis) 
+{ 
+	post("Visible %i",vis);
+	
+	if(vis) { 
+		flext_gui *g = thisObject(c); 
+		g->g_Create(); 
+		g->Group().MoveRel(g->XLo(),g->YLo());
+		g->FixLines(); 
+	}
+}
+
+int flext_gui::sg_click(t_gobj *c, t_glist *,int xpix, int ypix, int shift, int alt, int dbl, int doit)
+{
+	flext_gui *g = thisObject(c);
+	CBParams p;
+	int x = xpix-g->XLo();
+	int y = ypix-g->YLo();
+
+	// PD bug: shift isn't reported for idle mousing
+//	int mod = (alt?mod_Alt:0)+(shift?mod_Shift:0)+(dbl?mod_Double:0);
+
+	if(doit) {
+		// button is pressed
+		p.kind = evMouseDown;
+		p.pMouseKey.x = x;
+		p.pMouseKey.y = y;
+		p.pMouseKey.b = 1;
+		p.pMouseKey.mod = curmod; //mod;
+	}
+	else {
+		// only mouse position change
+		p.kind = evMotion;
+		p.pMotion.x = x;
+		p.pMotion.y = y;
+		p.pMotion.mod = curmod; //mod;
+	}
+	g->m_Method(p); 
+	return 1;
+}
+
+void flext_gui::sg_delete(t_gobj *c, t_glist *) 
+{ 
+	thisObject(c)->g_Delete(); 
+}
+
+void flext_gui::sg_properties(t_gobj *c, t_glist *) 
+{ 
+	thisObject(c)->g_Properties(); 
+}
+
+void flext_gui::sg_save(t_gobj *c, t_binbuf *b) 
+{ 
+	thisObject(c)->g_Save(b); 
+}
+
+/*
+bool flext_gui::sg_Key(flext_base *c,int argc,t_atom *argv)
+{
+	return true;
+}
+
+bool flext_gui::sg_KeyNum(flext_base *c,int &keynum)
+{
+	flext_gui *g = dynamic_cast<flext_gui *>(c);
+	post("KeyNum %i",keynum);
+	return true;
+}
+
+bool flext_gui::sg_KeyUp(flext_base *c,int &keynum)
+{
+	flext_gui *g = dynamic_cast<flext_gui *>(c);
+	post("KeyUp %i",keynum);
+	return true;
+}
+*/
+
+#else // MAXMSP
+
+int flext_gui::evmask = evMotion|evMouseDown|evKeyDown;
+
+static void dragfun()
+{
+}
+
+static void tmfun()
+{
+}
+
+void flext_gui::sg_click(t_object *x, Point pt, short m) 
+{ 
+	flext_gui *g = thisObject(x);
+	CBParams p(evMouseDown);
+	p.pMouseKey.x = pt.h-g->XLo();
+	p.pMouseKey.y = pt.v-g->YLo();
+	p.pMouseKey.b = 0;
+	p.pMouseKey.mod = (m&256?mod_Meta:0)+(m&512?mod_Shift:0)+(m&1024?mod_Caps:0)+(m&2048?mod_Alt:0)+(m&4096?mod_Ctrl:0);
+	g->m_Method(p); 
+}
+
+void flext_gui::sg_update(t_object *x) 
+{ 
+	flext_gui *g = thisObject(x);
+	if(!g->created) { g->g_Create(); g->created = true; }
+
+	// draw elements
+	g->Update();
+}
+
+void flext_gui::sg_psave (t_object *x, t_binbuf *dest) { thisObject(x)->g_Save(dest); }
+
+void flext_gui::sg_bfont (t_object *x, short size, short font) {}
+
+void flext_gui::sg_key (t_object *x, short keyvalue) 
+{ 
+	flext_gui *g = thisObject(x);
+
+	CBParams p(evKeyDown);
+	p.pKey.k = keyvalue;
+	p.pKey.a = 0;
+	p.pKey.mod = 0;
+	g->m_Method(p); 
+}
+
+void flext_gui::sg_enter (t_object *x) {}
+
+void flext_gui::sg_clipregion (t_object *x, RgnHandle *rgn, short *result) {}
+
+void flext_gui::sg_bidle (t_object *x) 
+{ 
+	flext_gui *g = thisObject(x);
+	Point pnt; GetMouse(&pnt);
+
+	CBParams p(evMotion);
+	p.pMotion.x = pnt.h-g->XLo();
+	p.pMotion.y = pnt.v-g->YLo();
+	p.pMotion.mod = 0;
+	
+	if(p.pMotion.x != g->curx || p.pMotion.y != g->cury || p.pMotion.mod != g->curmod) {
+		g->m_Method(p); 
+		g->curx = p.pMotion.x;
+		g->cury = p.pMotion.y;
+		g->curmod = p.pMotion.mod;
+	}
+}
+
+void flext_gui::g_Displace(int dx, int dy)
+{
+}
+
+void flext_gui::g_Delete()
+{
+	objs->Clear();
+}
+
+void flext_gui::Update()
+{
+	box_ready(&thisHdr()->z_box);
+
+	if(Group().Canv().Pre(XLo(),YLo())) 
+		Group().Draw();
+	Group().Canv().Post();
+}
+
+#endif // PD / MAXMSP
+
+void flext_gui::m_Method(const CBParams &p)
+{
+/*
+	switch(p.kind) {
+		case evMotion: {
+		//	if(!g->Selected() || mod) 
+			post("Motion: x=%i y=%i m=%i",p.pMotion.x,p.pMotion.y,p.pMotion.mod); 
+			break;
+		}
+		case evMouseDown: {
+			post("MouseDown: x=%i y=%i b=%i m=%i",p.pMouseKey.x,p.pMouseKey.y,p.pMouseKey.b,p.pMouseKey.mod);
+			break;
+		}
+		case evMouseUp: {
+			post("MouseUp: x=%i y=%i b=%i m=%i",p.pMouseKey.x,p.pMouseKey.y,p.pMouseKey.b,p.pMouseKey.mod);
+			break;
+		}
+		case evMouseWheel: {
+			post("Mousewheel: x=%i y=%i m=%i d=%i",p.pMouseWheel.x,p.pMouseWheel.y,p.pMouseWheel.mod,p.pMouseWheel.delta);
+			break;
+		}
+		case evKeyDown: {
+			post("KeyDown: k=%i a=%i m=%i",p.pKey.k,p.pKey.a,p.pKey.mod);
+			break;
+		}
+		case evKeyUp: {
+			post("KeyUp: k=%i a=%i m=%i",p.pKey.k,p.pKey.a,p.pKey.mod);
+			break;
+		}
+	}
+*/
+	if(!Selected() || p.kind != evMotion || p.kind != evMouseDown || p.kind != evMouseUp)
+		Group().Method(*this,p);
+  }
+
+bool flext_gui::BindEvent(GuiSingle &o,bool (*cb)(flext_gui &o,GuiSingle &obj,const CBParams &p),int evs)
+{
+	if((evs&EventMask()) == evs) {
+		o.AddEvent(evs,cb);
+		return true;
+	}
+	else 
+		// not all requested events supported
+		return false;
+}
+
+void flext_gui::UnbindEvent(GuiSingle &o,bool (*cb)(flext_gui &o,GuiSingle &obj,const CBParams &p),int evs)
+{
+	o.RmvEvent(evs,cb);
+}
+
+
diff --git a/externals/grill/guitest/flgui.h b/externals/grill/guitest/flgui.h
new file mode 100644
index 00000000..ac42ab7b
--- /dev/null
+++ b/externals/grill/guitest/flgui.h
@@ -0,0 +1,232 @@
+#ifndef __FLEXT_GUI
+#define __FLEXT_GUI
+
+#define FLEXT_GUI
+#include <flext.h>
+
+#ifdef PD
+#pragma warning( disable : 4091 ) 
+#include <g_canvas.h>
+#endif
+
+class Canvas;
+class GuiObj;
+class GuiGroup;
+class GuiSingle;
+
+class flext_gui:
+	virtual public flext_base
+{
+	FLEXT_HEADER_S(flext_gui,flext_base,setup)
+ 
+public:
+	flext_gui(int xs,int ys);
+	~flext_gui();
+
+	enum CBEvs { 
+		evNone = 0,
+		evMotion = 0x01,
+		evMouseDown = 0x02,
+		evMouseUp = 0x04,
+		evMouseWheel = 0x08,
+		evKeyDown = 0x10, 
+		evKeyUp = 0x20
+	};
+
+	class CBParams {
+	public:
+		CBParams(CBEvs k = evNone): kind(k),ext(false) {}
+
+		CBEvs kind;
+		union {
+			struct { int x,y,mod; } pMotion;
+			struct { int x,y,b,mod; } pMouseKey;
+			struct { int x,y,mod,delta; } pMouseWheel;
+			struct { int k,a,mod; } pKey;
+		};
+		bool ext;
+	};
+
+	static int EventMask() { return evmask; }
+
+	bool BindEvent(GuiSingle &o,bool (*cb)(flext_gui &o,GuiSingle &obj,const CBParams &p),int evs);
+	void UnbindEvent(GuiSingle &o,bool (*cb)(flext_gui &o,GuiSingle &obj,const CBParams &p),int evs);
+
+protected:
+
+	virtual void g_Create() {}
+	virtual void g_Delete();
+//	virtual void g_GetRect(int &xp1,int &yp1,int &xp2,int &yp2);
+	virtual void g_Edit(bool selected) {}
+	virtual void g_Displace(int dx, int dy);
+//	virtual void g_Activate(bool state) {}
+//	virtual int g_Click(int xpix, int ypix, int shift, int alt, int dbl, int doit) { return 0; }
+	virtual void g_Properties() {}
+	virtual void g_Save(t_binbuf *b) {}
+/*
+	virtual bool g_Motion(GuiObj &obj,int x,int y,int mod) { return false; }
+	virtual bool g_MouseKey(GuiObj &obj,bool down,int x,int y,int b,int mod) { return false; }
+	virtual bool g_MouseWheel(GuiObj &obj,int x,int y,int d,int mod) { return false; }
+	virtual bool g_Key(GuiObj &obj,bool down,int k,int a,int n,int mod) { return false; }
+	virtual bool g_Region(GuiObj &obj,bool on,int mod) { return false; }
+	virtual bool g_Focus(GuiObj &obj,bool on,int mod) { return false; }
+*/	
+
+#ifdef PD
+	bool Selected() const { return selected; }
+
+	void FixLines() { canvas_fixlinesfor( thisCanvas(), thisHdr() ); }
+    void DelLines() { canvas_deletelinesfor( glist_getcanvas(thisCanvas()), (t_text *)thisHdr()); }
+
+ 	int XLo() const { return thisHdr()->te_xpix; }
+	int YLo() const { return thisHdr()->te_ypix; }
+ 	int XHi() const { return XLo()+XSize()-1; }
+	int YHi() const { return YLo()+YSize()-1; }
+	void XLo(int x) { thisHdr()->te_xpix = x; }
+	void YLo(int y) { thisHdr()->te_ypix = y; }
+
+ 	int XSize() const { return xsize; }
+	int YSize() const { return ysize; }
+#else // MAXMSP
+	bool Selected() const { return box_ownerlocked((t_box *)(&thisHdr()->z_box)) == 0; }
+
+	void FixLines() {}
+    void DelLines() {}
+
+	int XLo() const { return thisHdr()->z_box.b_rect.left; } 
+	int YLo() const { return thisHdr()->z_box.b_rect.top; } 
+	int XHi() const { return thisHdr()->z_box.b_rect.right; } 
+	int YHi() const { return thisHdr()->z_box.b_rect.bottom; } 
+	void XLo(int x) { thisHdr()->z_box.b_rect.left = x; }
+	void YLo(int y) { thisHdr()->z_box.b_rect.top = y; }
+
+ 	int XSize() const { return XHi()-XLo()+1; }
+	int YSize() const { return YHi()-YLo()+1; }
+#endif
+
+	const t_symbol *Id() const { return bindsym; }
+
+	GuiGroup &Group() { return *objs; }
+
+
+	static void Setup(t_class *c);
+
+
+	enum Modifier {
+		mod_None = 0,
+		mod_Ctrl = 0x0001,
+		mod_Shift = 0x0002,
+		mod_Alt = 0x0004,
+		mod_Meta = 0x0008,
+		mod_Mod1 = 0x0010,
+		mod_Mod2 = 0x0020,
+		mod_Mod3 = 0x0040,
+		mod_Caps = 0x0080,
+		mod_Double = 0x0100,
+//		mod_Triple = 0x0200,
+		mod_Button1 = 0x1000,
+		mod_Button2 = 0x2000,
+		mod_Button3 = 0x4000,
+		mod_Button4 = 0x8000
+	};
+
+private:
+	bool visible;
+	Canvas *canvas;
+	GuiGroup *objs;
+
+	const t_symbol *bindsym;
+
+	static int evmask;
+	
+	static void setup(t_class *);
+	
+	virtual void m_Method(const CBParams &p);
+
+#ifdef PD
+	bool selected;
+	int xsize,ysize;
+
+	static void sg_getrect(t_gobj *c, t_glist *,int *xp1, int *yp1, int *xp2, int *yp2);
+	static void sg_displace(t_gobj *c, t_glist *, int dx, int dy);
+	static void sg_select(t_gobj *c, t_glist *, int selected);
+//	static void sg_activate(t_gobj *c, t_glist *, int state) { thisObject(c)->g_Activate(state != 0); }
+	static void sg_delete(t_gobj *c, t_glist *);
+	static void sg_vis(t_gobj *c, t_glist *, int vis); 
+	static int sg_click(t_gobj *c, t_glist *,int xpix, int ypix, int shift, int alt, int dbl, int doit);
+	static void sg_properties(t_gobj *c, t_glist *);
+	static void sg_save(t_gobj *c, t_binbuf *b);
+//	static void sg_motion(void *c, float dx,float dy) { thisObject((t_gobj *)c)->g_Motion(dx,dy); }
+
+	static bool sg_Key(flext_base *c,int argc,t_atom *argv);
+	static bool sg_KeyNum(flext_base *c,int &keynum);
+	static bool sg_KeyUp(flext_base *c,int &keynum);
+
+	static t_widgetbehavior widgetbehavior;
+	static void SetWidget(t_class *c);
+
+	struct px_object;
+	struct pxkey_object;
+	static int curmod; //,lastkey;
+	static pxkey_object *pxkey;
+
+	class canvobj {
+	public:
+		canvobj(flext_gui *go): guiobj(go),nxt(NULL) {}
+
+		flext_gui *guiobj;
+		canvobj *nxt;
+	};
+
+	class guicanv {
+	public:
+		guicanv(t_canvas *c);
+		~guicanv();
+
+		int Refs() const { return ref; }
+		void Push(flext_gui *o);
+		void Pop(flext_gui *o);
+
+#ifdef DIRECT_TK
+		px_object *px;
+#endif
+		const t_symbol *sym;
+		t_canvas *canv;
+		guicanv *nxt;
+		canvobj *head,*tail;
+		int ref;
+	};
+
+	static guicanv *gcanv;
+	static const t_symbol *gcm_motion,*gcm_mousekey,*gcm_mousewheel,*gcm_key,*gcm_destroy;
+	static void px_method(px_object *c,const t_symbol *s,int argc,t_atom *argv);
+	static void pxkey_method(pxkey_object *c,const t_symbol *s,int argc,t_atom *argv);
+
+	void AddCanvas();
+	void RmvCanvas();
+	static void DelCanvas(t_canvas *c);
+
+public:
+	static t_class *px_class,*pxkey_class;
+	static void sg_tk(t_canvas *c,const t_symbol *s,int argc,t_atom *argv);
+
+#else
+	int curx,cury,curmod;
+	bool created;
+	static t_clock clock;
+	static t_qelem qelem;
+	
+	void Update();
+
+	static void sg_click(t_object *x, Point pt, short modifiers);
+	static void sg_update(t_object *x);
+	static void sg_psave (t_object *x, t_binbuf *dest);
+	static void sg_bfont (t_object *x, short size, short font);
+	static void sg_key (t_object *x,short keyvalue);
+	static void sg_enter (t_object *x);
+	static void sg_clipregion (t_object *x, RgnHandle *rgn, short *result);
+	static void sg_bidle(t_object *x);
+#endif
+};
+
+#endif
diff --git a/externals/grill/guitest/flguiobj.cpp b/externals/grill/guitest/flguiobj.cpp
new file mode 100644
index 00000000..b845ae5e
--- /dev/null
+++ b/externals/grill/guitest/flguiobj.cpp
@@ -0,0 +1,801 @@
+#include "flguiobj.h"
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdarg.h>
+
+
+#define USETAGS
+
+#define BUFSIZE 20000
+#define ZONE 1000
+
+
+#ifdef PD
+bool Canvas::store = true;
+bool Canvas::debug = false;
+#endif
+
+Canvas::Canvas(t_canvas *c): 
+	canvas(c)
+#ifdef PD
+	,buffer(new char[BUFSIZE]),bufix(0),waiting(0) 
+#endif
+{}
+
+Canvas::~Canvas() 
+{ 
+#ifdef PD
+	if(buffer) delete[] buffer; 
+#endif
+}
+
+#ifdef PD
+void Canvas::Send(const char *t)
+{
+	if(debug) post("GUI - %s",t);
+	sys_gui((char *)t);
+}
+
+void Canvas::SendBuf()
+{
+	if(bufix) {
+		Send(buffer);
+		bufix = 0;
+	}
+}
+
+void Canvas::ToBuf(const char *t)
+{
+	int len = strlen(t);
+	if(!len) return;
+
+	bool end = t[len-1] == '\n';
+	if((store && waiting) || !end) {
+		int nxt = bufix+len;
+		if(nxt >= BUFSIZE || (end && nxt >= BUFSIZE-ZONE)) SendBuf();
+
+		memcpy(buffer+bufix,t,len);
+		buffer[bufix += len] = 0;
+	}
+	else {
+		SendBuf();
+		Send(t);
+	}
+}
+
+Canvas &Canvas::TkC()
+{
+	char tmp[20];
+	sprintf(tmp,".x%x.c ",canvas);
+	ToBuf(tmp);
+	return *this;
+}
+
+Canvas &Canvas::TkE()
+{
+	ToBuf("\n");
+	return *this;
+}
+
+Canvas &Canvas::Tk(char *fmt,...)
+{
+ //   int result, i;
+    char buf[2048];
+    va_list ap;
+
+    va_start(ap, fmt);
+    vsprintf(buf, fmt, ap);
+    ToBuf(buf);
+    va_end(ap);
+	return *this;
+}
+#endif
+
+bool Canvas::Pre(int x,int y) 
+{ 
+	xpos = x,ypos = y;
+#ifdef PD
+	++waiting;
+	return true;
+#else
+	svgp = patcher_setport(canvas); 
+	if(svgp != NULL) {
+		GetForeColor(&svcol);
+		GetPenState(&svpen);
+		::PenMode(patCopy);
+		return true;
+	}
+	else return false; 
+#endif
+}
+
+void Canvas::Post() 
+{ 
+#ifdef PD
+	if(!--waiting) SendBuf();
+#else
+	if(svgp) {
+		RGBForeColor(&svcol);
+		SetPenState(&svpen);
+		SetPort(svgp); 
+	}
+#endif
+}
+
+
+// --------------------------------------------------------------------------
+
+
+Rect &Rect::Add(const Pnt &p)
+{
+	if(p.x < lo.x) lo.x = p.x;
+	if(p.y < lo.y) lo.y = p.y;
+	if(p.x > hi.x) hi.x = p.x;
+	if(p.y > hi.y) hi.y = p.y;
+	return *this;
+}
+
+Rect &Rect::Add(const Rect &r)
+{
+	if(r.lo.x < lo.x) lo.x = r.lo.x;
+	if(r.lo.y < lo.y) lo.y = r.lo.y;
+	if(r.hi.x > hi.x) hi.x = r.hi.x;
+	if(r.hi.y > hi.y) hi.y = r.hi.y;
+	return *this;
+}
+
+bool Rect::In(const Pnt &p) const
+{
+	return p.x >= lo.x && p.x <= hi.x && p.y >= lo.y && p.y <= hi.y;
+}
+
+bool Rect::Inter(const Rect &r) const
+{
+	return true;
+}
+
+
+// --------------------------------------------------------------------------
+
+
+GuiObj::GuiObj(Canvas *c,GuiGroup *p): 
+	canvas(c),idsym(NULL),
+	parent(p)
+//	,ori(0,0)
+{}
+
+GuiObj::~GuiObj() 
+{ 
+//	Delete();
+}
+
+
+// --------------------------------------------------------------------------
+
+GuiSingle::Event::Event(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p)):
+	methfl(evmask),method(m),ext(false),nxt(NULL) 
+{}
+
+GuiSingle::Event::~Event() { if(nxt) delete nxt; }
+
+
+GuiSingle::GuiSingle(Canvas *c,GuiGroup *p,const t_symbol *s): 
+	GuiObj(c,p),sym(s),active(false),event(NULL)
+{
+	char tmp[20];
+#ifdef __MWERKS__
+	std::
+#endif
+		sprintf(tmp,"GUI%x",this);
+	idsym = MakeSymbol(tmp);
+}
+
+GuiSingle::~GuiSingle() 
+{ 
+	Delete(); 
+	if(event) delete event;
+}
+
+void GuiSingle::Symbol(const t_symbol *s) 
+{ 
+	sym = s;
+}
+
+GuiSingle *GuiSingle::Find(const t_symbol *s)
+{
+	return sym == s?this:NULL;
+}
+
+GuiObj &GuiSingle::MoveTo(int x,int y)
+{
+#ifdef PD
+    if(active) { 
+		canvas->TkC().Tk("coords %s %i %i\n",GetString(Id()), x, y);
+	}
+#endif
+	rect.MoveTo(x,y);
+	return *this;
+}
+
+GuiObj &GuiSingle::MoveRel(int dx,int dy)
+{
+#ifdef PD
+	if(active) {
+		canvas->TkC().Tk("move %s %i %i\n",GetString(Id()), dx, dy);
+	}
+#endif
+	rect.Move(dx,dy);
+	return *this;
+}
+
+GuiObj &GuiSingle::Delete()
+{
+#ifdef PD
+	if(active) {
+		canvas->TkC().Tk("delete -tags %s\n",GetString(Id()));
+		active = false;
+	}
+#endif
+	return *this;
+}
+
+GuiObj &GuiSingle::FillColor(unsigned long col)
+{
+#ifdef PD
+	if(active) {
+		canvas->TkC().Tk("itemconfigure %s -fill #%06x\n",GetString(Id()),col);
+	}
+#endif
+	return *this;
+}
+
+GuiObj &GuiSingle::Outline(unsigned long col)
+{
+#ifdef PD
+	if(active) {
+		canvas->TkC().Tk("itemconfigure %s -outline #%06x\n",GetString(Id()),col);
+	}
+#endif
+	return *this;
+}
+
+GuiObj &GuiSingle::Focus()
+{
+#ifdef PD
+	if(active) {
+		canvas->TkC().Tk("focus %s\n",GetString(Id()));
+	}
+#endif
+	return *this;
+}
+
+bool GuiSingle::Method(flext_gui &g,const flext_gui::CBParams &p)
+{
+	bool ret = true;
+	for(Event *ei = event; ei && ret; ei = ei->nxt)
+		ret = ret && ((ei->method && (ei->methfl&p.kind))?ei->method(g,*this,p):true);
+	return ret;
+}
+
+void GuiSingle::AddEvent(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p))
+{
+	Event *prv = NULL,*ix = event;
+	for(; ix && ix->method != m; prv = ix,ix = ix->nxt) {}
+
+	if(ix) 
+		// previous handler found -> update event mask
+		ix->methfl |= evmask;
+	else {
+		// no previous handler was found -> make new one
+
+		Event *nev = new Event(evmask,m);
+		if(prv) prv->nxt = nev;
+		else event = nev;
+	}
+}
+
+void GuiSingle::RmvEvent(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p))
+{
+	Event *prv = NULL,*ix = event;
+	for(; ix && ix->method != m; prv = ix,ix = ix->nxt) {}
+
+	if(ix) {
+		// handler found
+
+		if(!(ix->methfl &= ~evmask)) {
+			// mask has become zero -> remove handler
+
+			if(prv) prv->nxt = ix->nxt;
+			else event = ix->nxt;
+			ix->nxt = NULL;
+			delete ix;
+		}
+	}
+}
+
+
+
+// --------------------------------------------------------------------------
+
+
+GuiGroup::GuiGroup(Canvas *c,GuiGroup *p): 
+	GuiObj(c,p),head(NULL),tail(NULL)
+{
+	char tmp[20];
+#ifdef __MWERKS__
+	std::
+#endif
+		sprintf(tmp,"GRP%x",this);
+	idsym = MakeSymbol(tmp);
+}
+
+GuiGroup::~GuiGroup() { Clear(); }
+
+void GuiGroup::Clear()
+{
+	for(Part *ix = head; ix; ) {
+		Part *n = ix->nxt;
+#ifdef PD
+		RemoveTag(ix->obj);
+#endif
+		if(ix->owner) delete ix->obj;
+		delete ix;
+		ix = n;
+	}
+	head = tail = NULL;
+}
+
+void GuiGroup::Add(GuiObj *o,bool owner)
+{
+	o->canvas = canvas;
+#ifdef PD
+	AddTag(o); // valid only for GuiSingle!
+#endif
+	Part *n = new Part(o,owner);
+	if(!head) head = n;
+	else tail->nxt = n;
+	tail = n;
+	
+	rect.Add(o->rect);
+}
+
+GuiSingle *GuiGroup::Find(const t_symbol *s)
+{
+	GuiSingle *r = NULL;
+	for(Part *ix = head; ix && !r; ix = ix->nxt) {
+		r = ix->obj->Find(s);
+	}
+	return r;
+}
+
+GuiSingle *GuiGroup::Detach(const t_symbol *s)
+{
+	if(head) {
+		Part *p = NULL,*ix = head;
+		while(ix) {
+			if(ix->obj->Symbol() == s) {
+				// found
+				if(p) p->nxt = ix->nxt;
+				GuiSingle *ret = (GuiSingle *)(ix->obj);
+				
+#ifdef PD
+				RemoveTag(ret);
+#endif
+				if(head == ix) head = ix->nxt;
+				if(tail == ix) tail = p;
+				
+				delete ix;
+				
+				return ret;
+			}
+			else p = ix,ix = ix->nxt;
+		}
+	}
+	return NULL;
+}
+
+GuiObj &GuiGroup::MoveRel(int dx,int dy)
+{
+#ifdef PD
+	canvas->TkC().Tk("move %s %i %i\n",GetString(Id()), dx, dy);
+#endif
+	for(Part *ix = head; ix; ix = ix->nxt) {
+		ix->obj->rect.Move(dx,dy);
+	}
+	return *this;
+}
+
+GuiObj &GuiGroup::Delete()
+{	
+#ifdef PD
+	canvas->TkC().Tk("delete -tags %s\n",GetString(Id()));
+
+	for(Part *ix = head; ix; ix = ix->nxt) ix->obj->Inactive();
+#endif
+	return *this;
+}
+
+
+GuiObj &GuiGroup::Draw()
+{	
+	for(Part *ix = head; ix; ix = ix->nxt) ix->obj->Draw();
+	return *this;
+}
+
+
+#ifdef PD
+
+void GuiGroup::AddTag(GuiObj *o)
+{
+	canvas->TkC().Tk("addtag %s withtag %s\n",GetString(Id()),GetString(o->Id()));
+}
+
+void GuiGroup::RemoveTag(GuiObj *o)
+{
+	canvas->TkC().Tk("dtag %s %s\n",GetString(o->Id()),GetString(Id()));
+}
+
+#endif
+
+GuiGroup *GuiGroup::Add_Group()
+{
+	GuiGroup *obj = new GuiGroup(canvas,this);
+	Add(obj);
+	return obj;
+}
+
+
+GuiSingle *GuiGroup::Add_Point(int x,int y,long fill)
+{
+	GuiPoint *obj = new GuiPoint(canvas,this);
+	obj->Set(x,y,fill);
+	Add(obj);
+	return obj;
+}
+
+GuiSingle *GuiGroup::Add_Cloud(int n,const Pnt *p,long fill)
+{
+	GuiCloud *obj = new GuiCloud(canvas,this);
+	obj->Set(n,p,fill);
+	Add(obj);
+	return obj;
+}
+
+GuiSingle *GuiGroup::Add_Box(int x,int y,int xsz,int ysz,int width,long fill,long outl)
+{
+	GuiBox *obj = new GuiBox(canvas,this);
+	obj->Set(x,y,xsz,ysz,width,fill,outl);
+	Add(obj);
+	return obj;
+}
+
+GuiSingle *GuiGroup::Add_Rect(int x,int y,int xsz,int ysz,int width,long outl)
+{
+	GuiRect *obj = new GuiRect(canvas,this);
+	obj->Set(x,y,xsz,ysz,width,outl);
+	Add(obj);
+	return obj;
+}
+
+GuiSingle *GuiGroup::Add_Line(int x1,int y1,int x2,int y2,int width,long fill)
+{
+	GuiLine *obj = new GuiLine(canvas,this);
+	obj->Set(x1,y1,x2,y2,width,fill);
+	Add(obj);
+	return obj;
+}
+
+GuiSingle *GuiGroup::Add_Poly(int n,const Pnt *p,int width,long fill)
+{
+	GuiPoly *obj = new GuiPoly(canvas,this);
+	obj->Set(n,p,width,fill);
+	Add(obj);
+	return obj;
+}
+
+GuiSingle *GuiGroup::Add_Text(int x,int y,const char *txt,long fill,GuiText::just_t just)
+{
+	GuiText *obj = new GuiText(canvas,this);
+	obj->Set(x,y,txt,fill,just);
+	Add(obj);
+	return obj;
+}
+
+GuiSingle *GuiGroup::Remove(GuiSingle *go)
+{
+	for(Part *prv = NULL,*ix = head; ix; prv = ix,ix = ix->nxt) 
+		if(ix->obj == go) {
+			if(prv) prv->nxt = ix->nxt;
+			else head = ix->nxt;
+			if(!head) tail = NULL;
+
+			GuiObj *ret = ix->obj;
+			delete ix;
+
+			if(head) {
+				rect = head->obj->rect;
+				for(ix = head->nxt; ix; ix = ix->nxt) rect.Add(ix->obj->rect);
+			}
+
+			return (GuiSingle *)ret;
+		}
+
+	return NULL;
+}
+
+bool GuiGroup::Method(flext_gui &g,const flext_gui::CBParams &p)
+{
+	bool go = true;
+	for(Part *ix = head; go && ix; ix = ix->nxt) go = go && ix->obj->Method(g,p);
+	return go;
+}
+
+
+// --------------------------------------------------------------------------
+
+
+GuiObj &GuiPoint::Set(int x,int y,long fl)
+{
+	Delete();
+	fill = fl;
+	rect(x,y,x,y);
+
+#ifdef PD
+    canvas->TkC();
+	canvas->Tk("create line %i %i %i %i -tags %s",x,y,x+1,y,GetString(Id()));
+	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
+	canvas->TkE();
+
+	active = true;
+#endif
+	return *this;
+}
+
+GuiObj &GuiPoint::Draw()
+{
+#ifdef MAXMSP
+#endif
+	return *this;
+}
+
+
+GuiObj &GuiCloud::Set(int n,const Pnt *p,long fl)
+{
+	int i;
+	Delete();
+
+	fill = fl;
+	pnt = new Pnt[pnts = n];
+	rect(pnt[0] = p[0],p[0]);
+	for(i = 1; i < n; ++i) rect.Add(pnt[i] = p[i]);
+
+#ifdef PD
+    canvas->TkC().Tk("create line");
+	for(i = 0; i < n; ++i)
+		canvas->Tk(" %i %i",p[i].X(),p[i].Y());
+	canvas->Tk(" -tags %s",GetString(Id()));
+	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
+	canvas->TkE();
+
+	active = true;
+#endif
+	return *this;
+}
+
+GuiObj &GuiCloud::Draw()
+{
+#ifdef MAXMSP
+#endif
+	return *this;
+}
+
+GuiObj &GuiCloud::Delete()
+{
+	if(pnt) { delete[] pnt; pnt = NULL; }
+	return *this;
+}
+
+
+GuiObj &GuiBox::Set(int x,int y,int xsz,int ysz,int wd,long fl,long outl)
+{
+	Delete();
+	rect(x,y,x+xsz-1,y+ysz-1);
+	width = wd,fill = fl,outln = outl;
+
+#ifdef PD
+    canvas->TkC().Tk("create rectangle %i %i %i %i -tags %s",x,y,x+xsz,y+ysz,GetString(Id()));
+	if(wd >= 0) canvas->Tk(" -width %i",wd);
+	if(fl >= 0) canvas->Tk(" -fill #%06x",fl);
+	if(outl >= 0) canvas->Tk(" -outline #%06x",outl);
+	canvas->TkE();
+
+	active = true;
+#endif
+	return *this;
+}
+
+GuiObj &GuiBox::Draw()
+{
+#ifdef MAXMSP
+	::Rect r;
+	::RGBColor col;
+	int w = width; 
+	if(!w) w = 1;
+
+	r.left = Canv().X()+rect.Lo().X();
+	r.top = Canv().Y()+rect.Lo().Y();
+	r.right = Canv().X()+rect.Hi().X();
+	r.bottom = Canv().Y()+rect.Hi().Y();
+	
+	if(width >= 0) {
+		col.red = (outln>>8)&0xff00;
+		col.green = outln&0xff00;
+		col.blue = (outln&0xff)<<8;
+		::RGBForeColor(&col);
+		::PenSize(w,w);
+		::FrameRect(&r);
+	}
+	col.red = (fill>>8)&0xff00;
+	col.green = fill&0xff00;
+	col.blue = (fill&0xff)<<8;
+	::RGBForeColor(&col);
+	::PaintRect(&r);
+#endif
+	return *this;
+}
+
+
+GuiObj &GuiRect::Set(int x,int y,int xsz,int ysz,int wd,long outl)
+{
+	Delete();
+	rect(x,y,x+xsz-1,y+ysz-1);
+	width = wd,outln = outl;
+
+#ifdef PD
+    canvas->TkC().Tk("create line %i %i %i %i %i %i %i %i %i %i -tags %s",x,y,x+xsz,y,x+xsz,y+ysz,x,y+ysz,x,y,GetString(Id()));
+	if(width >= 0) canvas->Tk(" -width %i",width);
+	if(outl >= 0) canvas->Tk(" -fill #%06x",outl);
+	canvas->TkE();
+
+	active = true;
+#endif
+	return *this;
+}
+
+GuiObj &GuiRect::Draw()
+{
+#ifdef MAXMSP
+#endif
+	return *this;
+}
+
+
+GuiObj &GuiLine::Set(int x1,int y1,int x2,int y2,int wd,long fl)
+{
+	Delete();
+	rect(p1(x1,y1),p2(x2,y2));
+	width = wd,fill = fl;
+	
+#ifdef PD
+	canvas->TkC().Tk("create line %i %i %i %i -tags %s",x1,y1,x2,y2,GetString(Id()));
+	if(width >= 0) canvas->Tk(" -width %i",width);
+	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
+	canvas->TkE();
+
+	active = true;
+#endif
+	return *this;
+}
+
+GuiObj &GuiLine::Draw()
+{
+#ifdef MAXMSP
+	::Point p;
+	::RGBColor col;
+	int w = width; 
+	if(!w) w = 1;
+	
+	col.red = (fill>>8)&0xff00;
+	col.green = fill&0xff00;
+	col.blue = (fill&0xff)<<8;
+	::RGBForeColor(&col);
+	::PenSize(w,w);
+	p.h = Canv().X()+p1.X();
+	p.v = Canv().Y()+p1.Y();
+	::MoveTo(p.h,p.v);
+	p.h = Canv().X()+p2.X();
+	p.v = Canv().Y()+p2.Y();
+	::LineTo(p.h,p.v);
+#endif
+	return *this;
+}
+
+
+GuiObj &GuiPoly::Set(int n,const Pnt *p,int wd,long fl)
+{
+	int i;
+
+	Delete();
+
+	width = wd,fill = fl;
+	pnt = new Pnt[pnts = n];
+	rect(pnt[0] = p[0],p[0]);
+	for(i = 1; i < n; ++i) rect.Add(pnt[i] = p[i]);
+
+#ifdef PD	
+	canvas->TkC().Tk("create line");
+	for(i = 0; i < n; ++i)
+		canvas->Tk(" %i %i",p[i].X(),p[i].Y());
+	canvas->Tk(" -tags %s",GetString(Id()));
+	if(width >= 0) canvas->Tk(" -width %i",width);
+	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
+	canvas->TkE();
+
+	active = true;
+#endif
+	return *this;
+}
+
+GuiObj &GuiPoly::Draw()
+{
+#ifdef MAXMSP
+	::Point p;
+	::RGBColor col;
+	int ox = Canv().X(),oy = Canv().Y();
+	int w = width; 
+	if(!w) w = 1;
+	
+	col.red = (fill>>8)&0xff00;
+	col.green = fill&0xff00;
+	col.blue = (fill&0xff)<<8;
+	::RGBForeColor(&col);
+	::PenSize(w,w);
+	p.h = ox+pnt[0].X();
+	p.v = oy+pnt[0].Y();
+	::MoveTo(p.h,p.v);
+	for(int i = 1; i < pnts; ++i) {
+		p.h = ox+pnt[i].X();
+		p.v = oy+pnt[i].Y();
+		::LineTo(p.h,p.v);
+	}
+#endif
+	return *this;
+}
+
+GuiObj &GuiPoly::Delete()
+{
+	if(pnt) { delete[] pnt; pnt = NULL; }
+	return *this;
+}
+
+
+GuiObj &GuiText::Set(int x,int y,const char *txt,long fl,just_t jt)
+{
+	Delete();
+	rect(x,y,x,y);
+	fill = fl,just = jt;
+
+#ifdef PD
+	canvas->TkC().Tk("create text %i %i -tags %s",x,y,GetString(Id()));
+	if(txt) canvas->Tk(" -text %s",txt);
+	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
+	if(just != none) {
+		static const char justtxt[][7] = {"left","right","center"};
+		canvas->Tk(" -justify %s",justtxt[(int)just]);
+	}
+	canvas->TkE();
+
+	active = true;
+#endif
+	return *this;
+}
+
+GuiObj &GuiText::Draw()
+{
+#ifdef MAXMSP
+#endif
+	return *this;
+}
+
diff --git a/externals/grill/guitest/flguiobj.h b/externals/grill/guitest/flguiobj.h
new file mode 100644
index 00000000..66286cef
--- /dev/null
+++ b/externals/grill/guitest/flguiobj.h
@@ -0,0 +1,362 @@
+#ifndef __FLGUIOBJ_H
+#define __FLGUIOBJ_H
+
+#define FLEXT_GUI
+#include <flext.h>
+#include "flgui.h"
+
+
+class Canvas
+{
+public:
+	Canvas(t_canvas *c);
+	~Canvas();
+
+#ifdef PD
+	Canvas &Tk(char *fmt,...);
+	Canvas &TkC();
+	Canvas &TkE();
+
+	void ToBuf(const char *t);
+#endif
+
+	bool Pre(int x,int y);
+	void Post();
+
+	int X() const { return xpos; }
+	int Y() const { return ypos; }
+
+protected:
+
+	t_canvas *canvas;
+	int xpos,ypos;
+
+#ifdef PD
+	void Send(const char *t);
+	void SendBuf();
+
+	static bool debug,store;
+
+	char *buffer;
+	int bufix;
+	int waiting;
+#else
+	PenState svpen;
+	RGBColor svcol;
+	GrafPtr svgp;
+#endif
+};
+
+
+class Pnt 
+{
+public:
+	Pnt() {}
+	Pnt(const Pnt &p): x(p.x),y(p.y) {}
+	Pnt(int px,int py): x(px),y(py) {}
+
+	Pnt &operator =(const Pnt &p) { x = p.x,y = p.y; return *this; }
+	Pnt &operator ()(int px,int py) { x = px,y = py; return *this; }
+
+	Pnt &Move(int dx,int dy) { x += dx,y += dy; return *this; }
+
+	int X() const { return x; }
+	int Y() const { return y; }
+
+//protected:
+	int x,y;
+};
+
+class Rect
+{
+public:
+	Rect() {}
+	Rect(const Rect &r):  lo(r.lo),hi(r.hi) {}
+	Rect(int xlo,int ylo,int xhi,int yhi): lo(xlo,ylo),hi(xhi,yhi) {}
+	
+	Rect &operator =(const Rect &r) { lo = r.lo; hi = r.hi; return *this; }
+	Rect &operator ()(const Pnt &l,const Pnt &h) { lo = l; hi = h; return *this; }
+	Rect &operator ()(int xlo,int ylo,int xhi,int yhi) { lo(xlo,ylo); hi(xhi,yhi); return *this; }
+
+	Rect &Move(int dx,int dy) { lo.Move(dx,dy); hi.Move(dx,dy); return *this; }
+	Rect &MoveTo(int x,int y) { hi(x+hi.X()-lo.X(),y+hi.Y()-lo.Y()); lo(x,y); return *this; }
+
+	Pnt &Lo() { return lo; }
+	Pnt &Hi() { return hi; }
+	int SizeX() const { return hi.X()-lo.X()+1; }
+	int SizeY() const { return hi.Y()-lo.Y()+1; }
+	
+	Rect &Add(const Pnt &p);
+	Rect &Add(const Rect &r);
+	bool In(const Pnt &p) const;
+	bool Inter(const Rect &r) const;
+	
+protected:
+	Pnt lo,hi;
+};
+
+class GuiObj:
+	public flext
+{
+	friend class GuiGroup;
+public:
+	GuiObj(Canvas *c = NULL,GuiGroup *p = NULL);
+	virtual ~GuiObj();
+
+	const t_symbol *Id() const { return idsym; }
+	virtual const t_symbol *Symbol() const { return NULL; }
+
+	virtual void Active() {}
+	virtual void Inactive() {}
+
+/*
+	void Origin(int x,int y) { ori(x,y); }
+	void Origin(const Pnt &p) { ori = p; }
+	const Pnt &Origin() const { return ori; }
+	void OriMove(int dx,int dy) { ori.Move(dx,dy); }
+	int OriX() const { return ori.X(); }
+	int OriY() const { return ori.Y(); }
+*/
+
+	virtual GuiSingle *Find(const t_symbol *s) { return NULL; }
+	inline GuiSingle *Find(const char *s) { return Find(MakeSymbol(s)); }
+
+	virtual GuiObj &MoveRel(int dx,int dy) = 0;
+	virtual GuiObj &Focus() { return *this; }
+
+	virtual GuiObj &Draw() = 0;
+	
+	Canvas &Canv() { return *canvas; }
+
+protected:
+	virtual GuiObj &Delete() = 0;
+
+	GuiGroup *parent;
+	Canvas *canvas;
+	const t_symbol *idsym;
+
+	virtual bool Method(flext_gui &g,const flext_gui::CBParams &p) = 0;
+
+	Rect rect;
+};
+
+
+class GuiSingle:
+	public GuiObj
+{
+	friend class flext_gui;
+public:
+	GuiSingle(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL);
+	~GuiSingle();
+
+	virtual const t_symbol *Symbol() const { return sym; }
+	virtual void Symbol(const t_symbol *s);
+	void Symbol(const char *s) { Symbol(MakeSymbol(s)); }
+
+	virtual void Active() { active = true; }
+	virtual void Inactive() { active = false; }
+
+	virtual bool In(const Pnt &p) const { return false; }
+
+	virtual GuiSingle *Find(const t_symbol *s);
+	virtual GuiObj &MoveTo(int x,int y);
+	virtual GuiObj &MoveRel(int dx,int dy);
+	virtual GuiObj &FillColor(unsigned long col);
+	virtual GuiObj &Outline(unsigned long col);
+
+	virtual GuiObj &Focus();
+
+	GuiGroup &Parent() { return *parent; }
+
+protected:
+	virtual GuiObj &Delete();
+
+	const t_symbol *sym;
+	bool active;
+
+	class Event {
+	public:
+		Event(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p));
+		~Event();
+
+		int methfl;
+		bool (*method)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p);
+		bool ext;
+		Event *nxt;
+	} *event;
+
+	void AddEvent(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p));
+	void RmvEvent(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p));
+
+	virtual bool Method(flext_gui &g,const flext_gui::CBParams &p);
+};
+
+
+class GuiPoint:
+	public GuiSingle
+{
+	friend class GuiGroup;
+
+	GuiPoint(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL): GuiSingle(c,p,s) {}
+	GuiObj &Set(int x,int y,long fill = -1);
+	virtual GuiObj &Draw();
+	
+	long fill;
+public:
+};
+
+
+class GuiCloud:
+	public GuiSingle
+{
+	friend class GuiGroup;
+
+	GuiCloud(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL): GuiSingle(c,p,s),pnt(NULL) {}
+	GuiObj &Set(int n,const Pnt *p,long fill = -1);
+	virtual GuiObj &Draw();
+	virtual GuiObj &Delete();
+	
+	long fill;
+	int pnts;
+	Pnt *pnt;
+public:
+};
+
+
+class GuiBox:
+	public GuiSingle
+{
+	friend class GuiGroup;
+
+	GuiBox(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL): GuiSingle(c,p,s) {}
+	GuiObj &Set(int x,int y,int xsz,int ysz,int width = -1,long fill = -1,long outl = -1);
+	virtual GuiObj &Draw();
+	
+	virtual bool In(const Pnt &p) const { return rect.In(p); }
+
+	int width;
+	long fill,outln;
+public:
+};
+
+
+class GuiRect:
+	public GuiSingle
+{
+	friend class GuiGroup;
+
+	GuiRect(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL): GuiSingle(c,p,s) {}
+	GuiObj &Set(int x,int y,int xsz,int ysz,int width = -1,long outl = -1);
+	virtual GuiObj &Draw();
+	
+	virtual bool In(const Pnt &p) const { return rect.In(p); }
+
+	int width;
+	long outln;
+public:
+};
+
+
+class GuiLine:
+	public GuiSingle
+{
+	friend class GuiGroup;
+
+	GuiLine(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL): GuiSingle(c,p,s) {}
+	GuiObj &Set(int x1,int y1,int x2,int y2,int width = -1,long fill = -1);
+	virtual GuiObj &Draw();
+	
+	int width;
+	long fill;
+	Pnt p1,p2;
+public:
+};
+
+
+class GuiPoly:
+	public GuiSingle
+{
+	friend class GuiGroup;
+
+	GuiPoly(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL): GuiSingle(c,p,s),pnt(NULL) {}
+	GuiObj &Set(int n,const Pnt *p,int width = -1,long fill = -1);
+	virtual GuiObj &Draw();
+	virtual GuiObj &Delete();
+	
+	int width;
+	long fill;
+	int pnts;
+	Pnt *pnt;
+public:
+};
+
+
+class GuiText:
+	public GuiSingle
+{
+	friend class GuiGroup;
+public:
+	enum just_t { none = -1,left = 0,right,center };
+protected:
+	GuiText(Canvas *c = NULL,GuiGroup *p = NULL,const t_symbol *s = NULL): GuiSingle(c,p,s) {}
+	GuiObj &Set(int x,int y,const char *txt = NULL,long fill = -1,just_t just = none);
+	virtual GuiObj &Draw();
+	
+	just_t just;
+	long fill;
+};
+
+
+class GuiGroup:
+	public GuiObj
+{
+	friend class flext_gui;
+public:
+	GuiGroup(Canvas *c,GuiGroup *p = NULL);
+	~GuiGroup();
+
+	virtual GuiSingle *Find(const t_symbol *s);
+	virtual GuiObj &MoveRel(int dx,int dy);
+
+	void Clear();
+	void Add(GuiObj *o,bool own = true);
+	GuiSingle *Detach(const t_symbol *s);
+
+	virtual GuiObj &Draw();
+
+	GuiGroup *Add_Group();
+	GuiSingle *Add_Point(int x,int y,long fill = -1);
+	inline GuiSingle *Add_Point(const Pnt &p,long fill = -1) { return Add_Point(p.X(),p.Y(),fill); }
+	GuiSingle *Add_Cloud(int n,const Pnt *p,long fill = -1);
+	GuiSingle *Add_Box(int x,int y,int xsz,int ysz,int width = -1,long fill = -1,long outl = -1);
+	GuiSingle *Add_Rect(int x,int y,int xsz,int ysz,int width = -1,long outl = -1);
+	GuiSingle *Add_Line(int x1,int y1,int x2,int y2,int width = -1,long fill = -1);
+	inline GuiSingle *Add_Line(const Pnt &p1,const Pnt &p2,int width = -1,long fill = -1) { return Add_Line(p1.X(),p1.Y(),p2.X(),p2.Y(),width,fill); }
+	GuiSingle *Add_Poly(int n,const Pnt *p,int width = -1,long fill = -1);
+	GuiSingle *Add_Text(int x,int y,const char *txt,long fill = -1,GuiText::just_t just = GuiText::none);
+	inline GuiSingle *Add_Text(const Pnt &p,const char *txt,long fill = -1,GuiText::just_t just = GuiText::none) { return Add_Text(p.X(),p.Y(),txt,fill,just); }
+
+	GuiSingle *Remove(GuiSingle *obj);
+
+protected:
+#ifdef PD
+	void AddTag(GuiObj *o);
+	void RemoveTag(GuiObj *o);
+#endif
+	
+	virtual GuiObj &Delete();
+
+	class Part
+	{
+	public:
+		Part(GuiObj *o,bool own = true): obj(o),owner(own),nxt(NULL) {}
+
+		GuiObj *obj;
+		bool owner;
+		Part *nxt;
+	} *head,*tail;
+
+	virtual bool Method(flext_gui &g,const flext_gui::CBParams &p);
+};
+
+#endif
diff --git a/externals/grill/guitest/guitest.dsp b/externals/grill/guitest/guitest.dsp
new file mode 100644
index 00000000..e7dcf20e
--- /dev/null
+++ b/externals/grill/guitest/guitest.dsp
@@ -0,0 +1,112 @@
+# Microsoft Developer Studio Project File - Name="guitest" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** NICHT BEARBEITEN **
+
+# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
+
+CFG=guitest - Win32 Debug
+!MESSAGE Dies ist kein gόltiges Makefile. Zum Erstellen dieses Projekts mit NMAKE
+!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und fόhren Sie den Befehl
+!MESSAGE 
+!MESSAGE NMAKE /f "guitest.mak".
+!MESSAGE 
+!MESSAGE Sie kφnnen beim Ausfόhren von NMAKE eine Konfiguration angeben
+!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel:
+!MESSAGE 
+!MESSAGE NMAKE /f "guitest.mak" CFG="guitest - Win32 Debug"
+!MESSAGE 
+!MESSAGE Fόr die Konfiguration stehen zur Auswahl:
+!MESSAGE 
+!MESSAGE "guitest - Win32 Release" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "guitest - Win32 Debug" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE 
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName "max/guitest"
+# PROP Scc_LocalPath "."
+CPP=cl.exe
+MTL=midl.exe
+RSC=rc.exe
+
+!IF  "$(CFG)" == "guitest - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "msvc\r"
+# PROP Intermediate_Dir "msvc\r"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "GUITEST_EXPORTS" /YX /FD /c
+# ADD CPP /nologo /W3 /GR /O2 /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /I "F:\prog\packs\wxwindows-2.3.2\include" /I "F:\prog\packs\wxwindows-2.3.2\lib\mswdll" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "NT" /D "PD" /YX /FD /c
+# SUBTRACT CPP /Fr
+# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "NDEBUG"
+# ADD RSC /l 0xc07 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /machine:I386 /libpath:"c:\programme\audio\pd\bin" /libpath:"f:\prog\max\flext\pd-msvc" /libpath:"F:\prog\packs\wxwindows-2.2.9\lib"
+
+!ELSEIF  "$(CFG)" == "guitest - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "msvc\d"
+# PROP Intermediate_Dir "msvc\d"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "GUITEST_EXPORTS" /YX /FD /GZ /c
+# ADD CPP /nologo /W3 /Gm /GR /ZI /Od /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /I "F:\prog\packs\wxwindows-2.3.2\include" /I "F:\prog\packs\wxwindows-2.3.2\lib\mswdlld" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "NT" /D "PD" /FR /YX /FD /GZ /c
+# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "_DEBUG"
+# ADD RSC /l 0xc07 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib gdi32.lib pd.lib flext_d-pdwin.lib /nologo /dll /debug /machine:I386 /pdbtype:sept /libpath:"c:\programme\audio\pd\bin" /libpath:"f:\prog\max\flext\pd-msvc" /libpath:"F:\prog\packs\wxwindows-2.3.2\lib"
+
+!ENDIF 
+
+# Begin Target
+
+# Name "guitest - Win32 Release"
+# Name "guitest - Win32 Debug"
+# Begin Source File
+
+SOURCE=.\flgui.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\flgui.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\flguiobj.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\flguiobj.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\main.cpp
+# End Source File
+# End Target
+# End Project
diff --git a/externals/grill/guitest/main.cpp b/externals/grill/guitest/main.cpp
new file mode 100644
index 00000000..775a206b
--- /dev/null
+++ b/externals/grill/guitest/main.cpp
@@ -0,0 +1,152 @@
+#include "flgui.h"
+#include "flguiobj.h"
+
+#include <stdlib.h>
+/*
+#include <stdio.h>
+#include <string.h>
+#include <stdarg.h>
+*/
+
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 303)
+#error You need at least flext version 0.3.3
+#endif
+
+
+#define V void
+#define I int
+#define C char
+#define BL bool
+#define L long
+#define UL unsigned long
+
+class guitest:
+public flext_gui,virtual public flext_base
+{
+	FLEXT_HEADER(guitest,flext_gui)
+ 
+public:
+	guitest(I argc,t_atom *argv);
+	~guitest();
+
+	virtual void m_bang() 
+	{ 
+		post("%s - bang!",thisName()); 
+	}
+
+protected:
+
+	virtual void g_Create();
+	virtual void g_Edit(bool selected);
+
+	static bool g_Motion(flext_gui &g,GuiSingle &obj,const CBParams &p);
+	static bool g_MouseKey(flext_gui &g,GuiSingle &obj,const CBParams &p);
+	static bool g_Key(flext_gui &g,GuiSingle &obj,const CBParams &p);
+
+	virtual void g_Properties();
+	virtual void g_Save(t_binbuf *b);
+
+private:
+	FLEXT_CALLBACK(m_bang);
+};
+
+FLEXT_NEW_V("guitest",guitest)
+
+
+void guitest::g_Create()
+{
+	GuiSingle *frame = Group().Add_Box(0,0,XSize(),YSize(),-1,0xE0E0E0);
+	frame->Symbol("rect1");
+	GuiSingle *wave = Group().Add_Box(8,10,XSize()-16,YSize()-11,0,0x4040FF);
+	Group().Add_Text(1,1,"Hula",-1);
+
+	I n = XSize()-16;
+	Pnt *p = new Pnt[n];
+	for(int i = 0; i < n; ++i) {
+		p[i](8+i,10+rand()%(YSize()-11));
+	}
+	Group().Add_Poly(n,p,-1,0xC0C0C0);
+	delete[] p;
+
+	if(!BindEvent(*frame,g_Motion,evMotion)) post("Motion not supported");
+	if(!BindEvent(*wave,g_MouseKey,evMouseDown)) post("MouseDown not supported");
+	if(!BindEvent(*wave,g_MouseKey,evKeyDown)) post("KeyDown not supported");
+	if(!BindEvent(*wave,g_MouseKey,evKeyUp)) post("KeyUp not supported");
+}
+
+void guitest::g_Properties()
+{
+    post("properties");
+}
+
+void guitest::g_Save(t_binbuf *b)
+{
+	post("save");
+#ifdef PD
+	binbuf_addv(b, "ssiis;", gensym("#X"),gensym("obj"),
+		(t_int)XLo(), (t_int)YLo(),MakeSymbol(thisName())
+		// here the arguments
+	);
+#else
+#endif
+}
+
+void guitest::g_Edit(bool selected)
+{
+	post("select is=%d", selected);
+	
+	GuiSingle *obj = Group().Find(MakeSymbol("rect1"));
+	if(obj) 
+		obj->Outline(selected?0xFF0000:0x000000);
+	else
+		post("obj not found");
+}
+
+bool guitest::g_Motion(flext_gui &g,GuiSingle &obj,const CBParams &p)
+{
+	if(p.kind == evMotion) {
+		post("Motion %s x:%i y:%i mod:%i",GetString(obj.Id()),p.pMotion.x,p.pMotion.y,p.pMotion.mod);
+	}
+	else
+		post("Motion");
+	return true;
+}
+
+bool guitest::g_MouseKey(flext_gui &g,GuiSingle &obj,const CBParams &p)
+{
+	if(p.kind == evMouseDown) {
+		post("MouseDown %s x:%i y:%i b:%i mod:%i",GetString(obj.Id()),p.pMouseKey.x,p.pMouseKey.y,p.pMouseKey.b,p.pMouseKey.mod);
+	}
+	else if(p.kind == evKeyDown) {
+		post("KeyDown %s asc:%i key:%i mod:%i",GetString(obj.Id()),p.pKey.a,p.pKey.k,p.pKey.mod);
+	}
+	else if(p.kind == evKeyUp) {
+		post("KeyUp %s asc:%i key:%i mod:%i",GetString(obj.Id()),p.pKey.a,p.pKey.k,p.pKey.mod);
+	}
+	return true;
+}
+
+bool guitest::g_Key(flext_gui &g,GuiSingle &obj,const CBParams &p)
+{
+	post("Key");
+	return true;
+}
+
+
+
+
+
+guitest::guitest(I argc,t_atom *argv):
+	flext_gui(400,100)
+{ 
+	AddInAnything();  
+	AddOutInt(2); 
+
+	FLEXT_ADDBANG(0,m_bang);
+}
+
+guitest::~guitest()
+{
+}
+
+
diff --git a/externals/grill/pool/main.cpp b/externals/grill/pool/main.cpp
new file mode 100644
index 00000000..5d0cef10
--- /dev/null
+++ b/externals/grill/pool/main.cpp
@@ -0,0 +1,905 @@
+/* 
+
+pool - hierarchical storage object for PD and Max/MSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "pool.h"
+
+class pool:
+	public flext_base
+{
+	FLEXT_HEADER_S(pool,flext_base,setup)
+
+public:
+	pool(I argc,const A *argv);
+	~pool();
+
+	static V setup(t_class *);
+
+	pooldata *Pool() { return pl; }
+
+protected:
+
+	// switch to other pool
+	V m_pool(I argc,const A *argv);
+
+	// clear all data in pool
+	V m_reset();
+
+	// output absolute directory paths?
+	V m_absdir(BL abs) { absdir = abs; }
+	// always output current directory
+	V m_echodir(BL e) { echo = e; }
+
+	// handle directories
+	V m_getdir();
+
+	V m_mkdir(I argc,const A *argv,BL abs = true);		// make and change to dir
+	V m_chdir(I argc,const A *argv,BL abs = true);		// change to dir
+	V m_rmdir(I argc,const A *argv,BL abs = true);		// remove dir
+	V m_updir(I argc,const A *argv);		// one or more levels up
+
+	V m_mksub(I argc,const A *argv) { m_mkdir(argc,argv,false); }
+	V m_chsub(I argc,const A *argv) { m_chdir(argc,argv,false); }
+	V m_rmsub(I argc,const A *argv) { m_rmdir(argc,argv,false); }
+
+	// handle data
+	V m_set(I argc,const A *argv) { set(MakeSymbol("set"),argc,argv,true); }
+	V m_add(I argc,const A *argv) { set(MakeSymbol("add"),argc,argv,false); }
+	V m_clr(I argc,const A *argv);
+	V m_clrall();	// only values
+	V m_clrrec();	// also subdirectories
+	V m_clrsub();	// only subdirectories
+	V m_get(I argc,const A *argv);
+	V m_getall();	// only values
+	V m_getrec(I argc,const A *argv);	// also subdirectories
+	V m_getsub(I argc,const A *argv);	// only subdirectories
+	V m_cntall();	// only values
+	V m_cntrec(I argc,const A *argv);	// also subdirectories
+	V m_cntsub(I argc,const A *argv);	// only subdirectories
+
+	// cut/copy/paste
+	V m_paste(I argc,const A *argv) { paste(MakeSymbol("paste"),argc,argv,true); } // paste contents of clipboard
+	V m_pasteadd(I argc,const A *argv) { paste(MakeSymbol("pasteadd"),argc,argv,false); } // paste but don't replace
+	V m_clrclip();  // clear clipboard
+	V m_cut(I argc,const A *argv) { copy(MakeSymbol("cut"),argc,argv,true); } // cut value into clipboard
+	V m_copy(I argc,const A *argv) { copy(MakeSymbol("copy"),argc,argv,false); } 	// copy value into clipboard
+	V m_cutall() { copyall(MakeSymbol("cutall"),true,0); }   // cut all values in current directory into clipboard
+	V m_copyall() { copyall(MakeSymbol("copyall"),false,0); }   // copy all values in current directory into clipboard
+	V m_cutrec(I argc,const A *argv) { copyrec(MakeSymbol("cutrec"),argc,argv,true); }   // cut directory (and subdirs) into clipboard
+	V m_copyrec(I argc,const A *argv) { copyrec(MakeSymbol("copyrec"),argc,argv,false); }   // cut directory (and subdirs) into clipboard
+
+	// load/save from/to file
+	V m_load(I argc,const A *argv);
+	V m_save(I argc,const A *argv);
+
+	// load directories
+	V m_lddir(I argc,const A *argv);   // load values into current dir
+	V m_ldrec(I argc,const A *argv);   // load values recursively
+
+	// save directories
+	V m_svdir(I argc,const A *argv);   // save values in current dir
+	V m_svrec(I argc,const A *argv);   // save values recursively
+
+private:
+	static BL KeyChk(const A &a);
+	static BL ValChk(I argc,const A *argv);
+	static BL ValChk(const AtomList &l) { return ValChk(l.Count(),l.Atoms()); }
+	V ToOutAtom(I ix,const A &a);
+
+	V set(const S *tag,I argc,const A *argv,BL over);
+	V getdir(const S *tag);
+	I getrec(const S *tag,I level,BL cntonly = false,const AtomList &rdir = AtomList());
+	I getsub(const S *tag,I level,BL cntonly = false,const AtomList &rdir = AtomList());
+
+	V paste(const S *tag,I argc,const A *argv,BL repl);
+	V copy(const S *tag,I argc,const A *argv,BL cut);
+	V copyall(const S *tag,BL cut,I lvls);
+	V copyrec(const S *tag,I argc,const A *argv,BL cut);
+
+	V echodir() { if(echo) getdir(MakeSymbol("echo")); }
+
+	BL priv,absdir,echo;
+	pooldata *pl;
+	AtomList curdir;
+	pooldir *clip;
+
+	static pooldata *head,*tail;
+
+	V SetPool(const S *s);
+	V FreePool();
+
+	static pooldata *GetPool(const S *s);
+	static V RmvPool(pooldata *p);
+
+	FLEXT_CALLBACK_V(m_pool)
+	FLEXT_CALLBACK(m_reset)
+	FLEXT_CALLBACK_B(m_absdir)
+	FLEXT_CALLBACK_B(m_echodir)
+	FLEXT_CALLBACK(m_getdir)
+	FLEXT_CALLBACK_V(m_mkdir)
+	FLEXT_CALLBACK_V(m_chdir)
+	FLEXT_CALLBACK_V(m_updir)
+	FLEXT_CALLBACK_V(m_rmdir)
+	FLEXT_CALLBACK_V(m_mksub)
+	FLEXT_CALLBACK_V(m_chsub)
+	FLEXT_CALLBACK_V(m_rmsub)
+
+	FLEXT_CALLBACK_V(m_set)
+	FLEXT_CALLBACK_V(m_add)
+	FLEXT_CALLBACK_V(m_clr)
+	FLEXT_CALLBACK(m_clrall)
+	FLEXT_CALLBACK(m_clrrec)
+	FLEXT_CALLBACK(m_clrsub)
+	FLEXT_CALLBACK_V(m_get)
+	FLEXT_CALLBACK(m_getall)
+	FLEXT_CALLBACK_V(m_getrec)
+	FLEXT_CALLBACK_V(m_getsub)
+	FLEXT_CALLBACK(m_cntall)
+	FLEXT_CALLBACK_V(m_cntrec)
+	FLEXT_CALLBACK_V(m_cntsub)
+
+	FLEXT_CALLBACK_V(m_paste)
+	FLEXT_CALLBACK_V(m_pasteadd)
+	FLEXT_CALLBACK(m_clrclip)
+	FLEXT_CALLBACK_V(m_copy)
+	FLEXT_CALLBACK_V(m_cut)
+	FLEXT_CALLBACK(m_copyall)
+	FLEXT_CALLBACK(m_cutall)
+	FLEXT_CALLBACK_V(m_copyrec)
+	FLEXT_CALLBACK_V(m_cutrec)
+
+	FLEXT_CALLBACK_V(m_load)
+	FLEXT_CALLBACK_V(m_save)
+	FLEXT_CALLBACK_V(m_lddir)
+	FLEXT_CALLBACK_V(m_ldrec)
+	FLEXT_CALLBACK_V(m_svdir)
+	FLEXT_CALLBACK_V(m_svrec)
+};
+
+FLEXT_NEW_V("pool",pool);
+
+
+pooldata *pool::head,*pool::tail;
+
+
+V pool::setup(t_class *)
+{
+	post("");
+	post("pool %s - hierarchical storage object, (C)2002 Thomas Grill",POOL_VERSION);
+	post("");
+
+	head = tail = NULL;
+}
+
+pool::pool(I argc,const A *argv):
+	absdir(true),echo(false),pl(NULL),
+	clip(NULL)
+{
+	SetPool(argc >= 1 && IsSymbol(argv[0])?GetSymbol(argv[0]):NULL);
+
+	AddInAnything();
+	AddOutList();
+	AddOutAnything();
+	AddOutList();
+	AddOutAnything();
+
+	FLEXT_ADDMETHOD_(0,"set",m_set);
+	FLEXT_ADDMETHOD_(0,"add",m_add);
+	FLEXT_ADDMETHOD_(0,"reset",m_reset);
+	FLEXT_ADDMETHOD_(0,"absdir",m_absdir);
+	FLEXT_ADDMETHOD_(0,"echodir",m_echodir);
+	FLEXT_ADDMETHOD_(0,"getdir",m_getdir);
+	FLEXT_ADDMETHOD_(0,"mkdir",m_mkdir);
+	FLEXT_ADDMETHOD_(0,"chdir",m_chdir);
+	FLEXT_ADDMETHOD_(0,"rmdir",m_rmdir);
+	FLEXT_ADDMETHOD_(0,"updir",m_updir);
+	FLEXT_ADDMETHOD_(0,"mksub",m_mksub);
+	FLEXT_ADDMETHOD_(0,"chsub",m_chsub);
+	FLEXT_ADDMETHOD_(0,"rmsub",m_rmsub);
+
+	FLEXT_ADDMETHOD_(0,"set",m_set);
+	FLEXT_ADDMETHOD_(0,"clr",m_clr);
+	FLEXT_ADDMETHOD_(0,"clrall",m_clrall);
+	FLEXT_ADDMETHOD_(0,"clrrec",m_clrrec);
+	FLEXT_ADDMETHOD_(0,"clrsub",m_clrsub);
+	FLEXT_ADDMETHOD_(0,"get",m_get);
+	FLEXT_ADDMETHOD_(0,"getall",m_getall);
+	FLEXT_ADDMETHOD_(0,"getrec",m_getrec);
+	FLEXT_ADDMETHOD_(0,"getsub",m_getsub);
+	FLEXT_ADDMETHOD_(0,"cntall",m_cntall);
+	FLEXT_ADDMETHOD_(0,"cntrec",m_cntrec);
+	FLEXT_ADDMETHOD_(0,"cntsub",m_cntsub);
+
+	FLEXT_ADDMETHOD_(0,"paste",m_paste);
+	FLEXT_ADDMETHOD_(0,"pasteadd",m_pasteadd);
+	FLEXT_ADDMETHOD_(0,"clrclip",m_clrclip);
+	FLEXT_ADDMETHOD_(0,"cut",m_cut);
+	FLEXT_ADDMETHOD_(0,"copy",m_copy);
+	FLEXT_ADDMETHOD_(0,"cutall",m_cutall);
+	FLEXT_ADDMETHOD_(0,"copyall",m_copyall);
+	FLEXT_ADDMETHOD_(0,"cutrec",m_cutrec);
+	FLEXT_ADDMETHOD_(0,"copyrec",m_copyrec);
+
+	FLEXT_ADDMETHOD_(0,"load",m_load);
+	FLEXT_ADDMETHOD_(0,"save",m_save);
+	FLEXT_ADDMETHOD_(0,"lddir",m_lddir);
+	FLEXT_ADDMETHOD_(0,"ldrec",m_ldrec);
+	FLEXT_ADDMETHOD_(0,"svdir",m_svdir);
+	FLEXT_ADDMETHOD_(0,"svrec",m_svrec);
+}
+
+pool::~pool()
+{
+	FreePool();
+}
+
+V pool::SetPool(const S *s)
+{
+	if(pl) FreePool();
+
+	if(s) {
+		priv = false;
+		pl = GetPool(s);
+	}
+	else {
+		priv = true;
+		pl = new pooldata;
+	}
+}
+
+V pool::FreePool()
+{
+	curdir(); // reset current directory
+
+	if(pl) {
+		if(!priv) 
+			RmvPool(pl);
+		else
+			delete pl;
+		pl = NULL;
+	}
+
+	if(clip) { delete clip; clip = NULL; }
+}
+
+V pool::m_pool(I argc,const A *argv) 
+{
+	const S *s = NULL;
+	if(argc > 0) {
+		if(argc > 1) post("%s - pool: superfluous arguments ignored",thisName());
+		s = GetASymbol(argv[0]);
+		if(!s) post("%s - pool: invalid pool name, pool set to private",thisName());
+	}
+
+	SetPool(s);
+}
+
+V pool::m_reset() 
+{
+	pl->Reset();
+}
+
+
+V pool::getdir(const S *tag)
+{
+	ToOutAnything(3,tag,0,NULL);
+	ToOutList(2,curdir);
+}
+
+V pool::m_getdir() { getdir(MakeSymbol("getdir")); }
+
+V pool::m_mkdir(I argc,const A *argv,BL abs)
+{
+	if(!ValChk(argc,argv))
+		post("%s - mkdir: invalid directory name",thisName());
+	else {
+		AtomList ndir;
+		if(abs) ndir(argc,argv);
+		else (ndir = curdir).Append(argc,argv);
+		if(!pl->MkDir(ndir)) {
+			post("%s - mkdir: directory couldn't be created",thisName());
+		}
+	}
+
+	echodir();
+}
+
+V pool::m_chdir(I argc,const A *argv,BL abs)
+{
+	if(!ValChk(argc,argv)) 
+		post("%s - chdir: invalid directory name",thisName());
+	else {
+		AtomList prv(curdir);
+		if(abs) curdir(argc,argv);
+		else curdir.Append(argc,argv);
+		if(!pl->ChkDir(curdir)) {
+			post("%s - chdir: directory couldn't be changed",thisName());
+			curdir = prv;
+		}
+	}
+
+	echodir();
+}
+
+V pool::m_updir(I argc,const A *argv)
+{
+	I lvls = 1;
+	if(argc > 0) {
+		if(CanbeInt(argv[0])) {
+			if(argc > 1)
+				post("%s - updir: superfluous arguments ignored",thisName());
+			lvls = GetAInt(argv[0]);
+			if(lvls < 0)
+				post("%s - updir: invalid level specification - set to 1",thisName());
+		}
+		else
+			post("%s - updir: invalid level specification - set to 1",thisName());
+	}
+
+	AtomList prv(curdir);
+
+	if(lvls > curdir.Count()) {
+		post("%s - updir: level exceeds directory depth - corrected",thisName());
+		curdir();
+	}
+	else
+		curdir.Part(0,curdir.Count()-lvls);
+
+	if(!pl->ChkDir(curdir)) {
+		post("%s - updir: directory couldn't be changed",thisName());
+		curdir = prv;
+	}
+
+	echodir();
+}
+
+V pool::m_rmdir(I argc,const A *argv,BL abs)
+{
+	if(abs) curdir(argc,argv);
+	else curdir.Append(argc,argv);
+
+	if(!pl->RmDir(curdir)) 
+		post("%s - rmdir: directory couldn't be removed",thisName());
+	curdir();
+
+	echodir();
+}
+
+V pool::set(const S *tag,I argc,const A *argv,BL over)
+{
+	if(!argc || !KeyChk(argv[0])) 
+		post("%s - %s: invalid key",thisName(),GetString(tag));
+	else if(!ValChk(argc-1,argv+1)) {
+		post("%s - %s: invalid data values",thisName(),GetString(tag));
+	}
+	else 
+		if(!pl->Set(curdir,argv[0],new AtomList(argc-1,argv+1),over))
+			post("%s - %s: value couldn't be set",thisName(),GetString(tag));
+
+	echodir();
+}
+
+V pool::m_clr(I argc,const A *argv)
+{
+	if(!argc || !KeyChk(argv[0]))
+		post("%s - clr: invalid key",thisName());
+	else {
+		if(argc > 1) 
+			post("%s - clr: superfluous arguments ignored",thisName());
+
+		if(!pl->Clr(curdir,argv[0]))
+			post("%s - clr: value couldn't be cleared",thisName());
+	}
+
+	echodir();
+}
+
+V pool::m_clrall()
+{
+	if(!pl->ClrAll(curdir,false))
+		post("%s - clrall: values couldn't be cleared",thisName());
+
+	echodir();
+}
+
+V pool::m_clrrec()
+{
+	if(!pl->ClrAll(curdir,true))
+		post("%s - clrrec: values couldn't be cleared",thisName());
+
+	echodir();
+}
+
+V pool::m_clrsub()
+{
+	if(!pl->ClrAll(curdir,true,true))
+		post("%s - clrsub: directories couldn't be cleared",thisName());
+
+	echodir();
+}
+
+V pool::m_get(I argc,const A *argv)
+{
+	if(!argc || !KeyChk(argv[0]))
+		post("%s - get: invalid key",thisName());
+	else {
+		if(argc > 1) 
+			post("%s - get: superfluous arguments ignored",thisName());
+
+		AtomList *r = pl->Get(curdir,argv[0]);
+
+		ToOutAnything(3,MakeSymbol("get"),0,NULL);
+		if(absdir)
+			ToOutList(2,curdir);
+		else
+			ToOutList(2,0,NULL);
+		ToOutAtom(1,argv[0]);
+		if(r) {
+			ToOutList(0,*r);
+			delete r;
+		}
+		else
+			ToOutBang(0);
+	}
+
+	echodir();
+}
+
+I pool::getrec(const S *tag,I level,BL cntonly,const AtomList &rdir)
+{
+	AtomList gldir(curdir);
+	gldir.Append(rdir);
+
+	I ret = 0;
+
+	if(cntonly)
+		ret = pl->CntAll(gldir);
+	else {
+		A *k;
+		AtomList *r;
+		I cnt = pl->GetAll(gldir,k,r);
+		if(!k) 
+			post("%s - %s: error retrieving values",thisName(),GetString(tag));
+		else {
+			for(I i = 0; i < cnt; ++i) {
+				ToOutAnything(3,tag,0,NULL);
+				ToOutList(2,absdir?gldir:rdir);
+				ToOutAtom(1,k[i]);
+				ToOutList(0,r[i]);
+			}
+			delete[] k;
+			delete[] r;
+		}
+		ret = cnt;
+	}
+
+	if(level != 0) {
+		const A **r;
+		I cnt = pl->GetSub(gldir,r);
+		if(!r) 
+			post("%s - %s: error retrieving directories",thisName(),GetString(tag));
+		else {
+			I lv = level > 0?level-1:-1;
+			for(I i = 0; i < cnt; ++i) {
+				ret += getrec(tag,lv,cntonly,AtomList(rdir).Append(*r[i]));
+			}
+			delete[] r;
+		}
+	}
+	
+	return ret;
+}
+
+V pool::m_getall()
+{
+	getrec(MakeSymbol("getall"),0);
+	ToOutBang(3);
+
+	echodir();
+}
+
+V pool::m_getrec(I argc,const A *argv)
+{
+	I lvls = -1;
+	if(argc > 0) {
+		if(CanbeInt(argv[0])) {
+			if(argc > 1)
+				post("%s - getrec: superfluous arguments ignored",thisName());
+			lvls = GetAInt(argv[0]);
+		}
+		else 
+			post("%s - getrec: invalid level specification - set to infinite",thisName());
+	}
+	getrec(MakeSymbol("getrec"),lvls);
+	ToOutBang(3);
+
+	echodir();
+}
+
+
+I pool::getsub(const S *tag,I level,BL cntonly,const AtomList &rdir)
+{
+	AtomList gldir(curdir);
+	gldir.Append(rdir);
+	
+	I ret = 0;
+
+	const A **r;
+	I cnt = pl->GetSub(gldir,r);
+	if(!r) 
+		post("%s - %s: error retrieving directories",thisName(),GetString(tag));
+	else {
+		I lv = level > 0?level-1:-1;
+		for(I i = 0; i < cnt; ++i) {
+			AtomList ndir(absdir?gldir:rdir);
+			ndir.Append(*r[i]);
+
+			if(!cntonly) {
+				ToOutAnything(3,tag,0,NULL);
+				ToOutList(2,curdir);
+				ToOutList(1,ndir);
+			}
+
+			if(level != 0)
+				ret += getsub(tag,lv,cntonly,AtomList(rdir).Append(*r[i]));
+		}
+		delete[] r;
+	}
+	
+	return ret;
+}
+
+V pool::m_getsub(I argc,const A *argv)
+{
+	I lvls = 0;
+	if(argc > 0) {
+		if(CanbeInt(argv[0])) {
+			if(argc > 1)
+				post("%s - getsub: superfluous arguments ignored",thisName());
+			lvls = GetAInt(argv[0]);
+		}
+		else 
+			post("%s - getsub: invalid level specification - set to 0",thisName());
+	}
+
+	getsub(MakeSymbol("getsub"),lvls);
+	ToOutBang(3);
+
+	echodir();
+}
+
+
+V pool::m_cntall()
+{
+	const S *tag = MakeSymbol("cntall");
+	I cnt = getrec(tag,0,true);
+	ToOutSymbol(3,tag);
+	ToOutBang(2);
+	ToOutBang(1);
+	ToOutInt(0,cnt);
+
+	echodir();
+}
+
+V pool::m_cntrec(I argc,const A *argv)
+{
+	const S *tag = MakeSymbol("cntrec");
+
+	I lvls = -1;
+	if(argc > 0) {
+		if(CanbeInt(argv[0])) {
+			if(argc > 1)
+				post("%s - %s: superfluous arguments ignored",thisName(),GetString(tag));
+			lvls = GetAInt(argv[0]);
+		}
+		else 
+			post("%s - %s: invalid level specification - set to infinite",thisName(),GetString(tag));
+	}
+	
+	I cnt = getrec(tag,lvls,true);
+	ToOutSymbol(3,tag);
+	ToOutBang(2);
+	ToOutBang(1);
+	ToOutInt(0,cnt);
+
+	echodir();
+}
+
+
+V pool::m_cntsub(I argc,const A *argv)
+{
+	const S *tag = MakeSymbol("cntsub");
+
+	I lvls = 0;
+	if(argc > 0) {
+		if(CanbeInt(argv[0])) {
+			if(argc > 1)
+				post("%s - %s: superfluous arguments ignored",thisName(),GetString(tag));
+			lvls = GetAInt(argv[0]);
+		}
+		else 
+			post("%s - %s: invalid level specification - set to 0",thisName(),GetString(tag));
+	}
+
+	I cnt = getsub(tag,lvls,true);
+	ToOutSymbol(3,tag);
+	ToOutBang(2);
+	ToOutBang(1);
+	ToOutInt(0,cnt);
+
+	echodir();
+}
+
+
+V pool::paste(const S *tag,I argc,const A *argv,BL repl)
+{
+	if(clip) {
+		BL mkdir = true;
+		I depth = -1;
+
+		if(argc >= 1) {
+			if(CanbeInt(argv[0])) depth = GetAInt(argv[1]);
+			else
+				post("%s - %s: invalid depth argument - set to -1",thisName(),GetString(tag));
+
+			if(argc >= 2) {
+				if(CanbeBool(argv[1])) mkdir = GetABool(argv[1]);
+				else
+					post("%s - %s: invalid mkdir argument - set to true",thisName(),GetString(tag));
+
+				if(argc > 2) post("%s - %s: superfluous arguments ignored",thisName(),GetString(tag));
+			}
+		}
+		
+		pl->Paste(curdir,clip,depth,repl,mkdir);
+	}
+	else
+		post("%s - %s: clipboard is empty",thisName(),GetString(tag));
+
+	echodir();
+}
+
+
+V pool::m_clrclip()
+{
+	if(clip) { delete clip; clip = NULL; }
+}
+
+
+V pool::copy(const S *tag,I argc,const A *argv,BL cut)
+{
+	if(!argc || !KeyChk(argv[0]))
+		post("%s - %s: invalid key",thisName(),GetString(tag));
+	else {
+		if(argc > 1) 
+			post("%s - %s: superfluous arguments ignored",thisName(),GetString(tag));
+
+		m_clrclip();
+		clip = pl->Copy(curdir,argv[0],cut);
+
+		if(!clip)
+			post("%s - %s: Copying into clipboard failed",thisName(),GetString(tag));
+	}
+
+	echodir();
+}
+
+
+V pool::copyall(const S *tag,BL cut,I depth)
+{
+	m_clrclip();
+	clip = pl->CopyAll(curdir,depth,cut);
+
+	if(!clip)
+		post("%s - %s: Copying into clipboard failed",thisName(),GetString(tag));
+
+	echodir();
+}
+
+
+V pool::copyrec(const S *tag,I argc,const A *argv,BL cut) 
+{
+	I lvls = -1;
+	if(argc > 0) {
+		if(CanbeInt(argv[0])) {
+			if(argc > 1)
+				post("%s - %s: superfluous arguments ignored",thisName(),GetString(tag));
+			lvls = GetAInt(argv[0]);
+		}
+		else 
+			post("%s - %s: invalid level specification - set to infinite",thisName(),GetString(tag));
+	}
+
+	copyall(tag,cut,lvls);
+}
+
+V pool::m_load(I argc,const A *argv)
+{
+	const C *flnm = NULL;
+	if(argc > 0) {
+		if(argc > 1) post("%s - load: superfluous arguments ignored",thisName());
+		if(IsString(argv[0])) flnm = GetString(argv[0]);
+	}
+
+	if(!flnm) 
+		post("%s - load: no filename given",thisName());
+	else if(!pl->Load(flnm))
+		post("%s - load: error loading data",thisName());
+
+	echodir();
+}
+
+V pool::m_save(I argc,const A *argv)
+{
+	const C *flnm = NULL;
+	if(argc > 0) {
+		if(argc > 1) post("%s - save: superfluous arguments ignored",thisName());
+		if(IsString(argv[0])) flnm = GetString(argv[0]);
+	}
+
+	if(!flnm) 
+		post("%s - save: no filename given",thisName());
+	else if(!pl->Save(flnm))
+		post("%s - save: error saving data",thisName());
+
+	echodir();
+}
+
+V pool::m_lddir(I argc,const A *argv)
+{
+	const C *flnm = NULL;
+	if(argc > 0) {
+		if(argc > 1) post("%s - lddir: superfluous arguments ignored",thisName());
+		if(IsString(argv[0])) flnm = GetString(argv[0]);
+	}
+
+	if(!flnm)
+		post("%s - lddir: invalid filename",thisName());
+	else {
+		if(!pl->LdDir(curdir,flnm,0)) 
+		post("%s - lddir: directory couldn't be loaded",thisName());
+	}
+
+	echodir();
+}
+
+V pool::m_ldrec(I argc,const A *argv)
+{
+	const C *flnm = NULL;
+	I depth = -1;
+	BL mkdir = true;
+	if(argc >= 1) {
+		if(IsString(argv[0])) flnm = GetString(argv[0]);
+
+		if(argc >= 2) {
+			if(CanbeInt(argv[1])) depth = GetAInt(argv[1]);
+			else
+				post("%s - ldrec: invalid depth argument - set to -1",thisName());
+
+			if(argc >= 3) {
+				if(CanbeBool(argv[2])) mkdir = GetABool(argv[2]);
+				else
+					post("%s - ldrec: invalid mkdir argument - set to true",thisName());
+
+				if(argc > 3) post("%s - ldrec: superfluous arguments ignored",thisName());
+			}
+		}
+	}
+
+	if(!flnm)
+		post("%s - ldrec: invalid filename",thisName());
+	else {
+		if(!pl->LdDir(curdir,flnm,depth,mkdir)) 
+		post("%s - ldrec: directory couldn't be saved",thisName());
+	}
+
+	echodir();
+}
+
+V pool::m_svdir(I argc,const A *argv)
+{
+	const C *flnm = NULL;
+	if(argc > 0) {
+		if(argc > 1) post("%s - svdir: superfluous arguments ignored",thisName());
+		if(IsString(argv[0])) flnm = GetString(argv[0]);
+	}
+
+	if(!flnm)
+		post("%s - svdir: invalid filename",thisName());
+	else {
+		if(!pl->SvDir(curdir,flnm,0,absdir)) 
+		post("%s - svdir: directory couldn't be saved",thisName());
+	}
+
+	echodir();
+}
+
+V pool::m_svrec(I argc,const A *argv)
+{
+	const C *flnm = NULL;
+	if(argc > 0) {
+		if(argc > 1) post("%s - svrec: superfluous arguments ignored",thisName());
+		if(IsString(argv[0])) flnm = GetString(argv[0]);
+	}
+
+	if(!flnm)
+		post("%s - svrec: invalid filename",thisName());
+	else {
+		if(!pl->SvDir(curdir,flnm,-1,absdir)) 
+		post("%s - svrec: directory couldn't be saved",thisName());
+	}
+
+	echodir();
+}
+
+
+
+BL pool::KeyChk(const t_atom &a)
+{
+	return IsSymbol(a) || IsFloat(a) || IsInt(a);
+}
+
+BL pool::ValChk(I argc,const t_atom *argv)
+{
+	for(I i = 0; i < argc; ++i) {
+		const t_atom &a = argv[i];
+		if(!IsSymbol(a) && !IsFloat(a) && !IsInt(a)) return false;
+	}
+	return true;
+}
+
+V pool::ToOutAtom(I ix,const t_atom &a)
+{
+	if(IsSymbol(a))
+		ToOutSymbol(ix,GetSymbol(a));
+	else if(IsFloat(a))
+		ToOutFloat(ix,GetFloat(a));
+	else if(IsInt(a))
+		ToOutInt(ix,GetInt(a));
+	else
+		post("%s - output atom: type not supported!",thisName());
+}
+
+
+
+pooldata *pool::GetPool(const S *s)
+{
+	pooldata *pi = head;
+	for(; pi && pi->sym != s; pi = pi->nxt) (V)0;
+
+	if(pi) {
+		pi->Push();
+		return pi;
+	}
+	else {
+		pooldata *p = new pooldata(s);
+		p->Push();
+
+		// now add to chain
+		if(head) head->nxt = p;
+		else head = p;
+		tail = p;
+		return p;
+	}
+}
+
+V pool::RmvPool(pooldata *p)
+{
+	pooldata *prv = NULL,*pi = head;
+	for(; pi && pi != p; prv = pi,pi = pi->nxt) (V)0;
+
+	if(pi && !pi->Pop()) {
+		if(prv) prv->nxt = pi->nxt;
+		else head = pi->nxt;
+		if(!pi->nxt) tail = pi;
+
+		delete pi;
+	}
+}
+
diff --git a/externals/grill/pool/pool.cpp b/externals/grill/pool/pool.cpp
new file mode 100644
index 00000000..629ab7fb
--- /dev/null
+++ b/externals/grill/pool/pool.cpp
@@ -0,0 +1,645 @@
+/* 
+
+pool - hierarchical storage object for PD and Max/MSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "pool.h"
+
+#include <string.h>
+#include <fstream.h>
+#include <ctype.h>
+#include <stdlib.h>
+
+
+inline I compare(I a,I b) { return a == b?0:(a < b?-1:1); }
+inline I compare(F a,F b) { return a == b?0:(a < b?-1:1); }
+
+static I compare(const S *a,const S *b) 
+{
+	if(a == b)
+		return 0;
+	else
+		return strcmp(flext::GetString(a),flext::GetString(b));
+}
+
+static I compare(const A &a,const A &b) 
+{
+	if(a.a_type == b.a_type) {
+		switch(a.a_type) {
+		case A_FLOAT:
+			return compare(a.a_w.w_float,b.a_w.w_float);
+#ifdef MAXMSP
+		case A_LONG:
+			return compare((I)a.a_w.w_long,(I)b.a_w.w_long);
+#endif
+		case A_SYMBOL:
+			return compare(a.a_w.w_symbol,b.a_w.w_symbol);
+#ifdef PD
+		case A_POINTER:
+			return a.a_w.w_gpointer == b.a_w.w_gpointer?0:(a.a_w.w_gpointer < b.a_w.w_gpointer?-1:1);
+#endif
+		default:
+			LOG("pool - atom comparison: type not handled");
+			return -1;
+		}
+	}
+	else
+		return a.a_type < b.a_type?-1:1;
+}
+
+
+poolval::poolval(const A &k,AtomList *d):
+	data(d),nxt(NULL)
+{
+	SetAtom(key,k);
+}
+
+poolval::~poolval()
+{
+	if(data) delete data;
+	if(nxt) delete nxt;
+}
+
+poolval &poolval::Set(AtomList *d)
+{
+	if(data) delete data;
+	data = d;
+	return *this;
+}
+
+poolval *poolval::Dup() const
+{
+	return new poolval(key,data?new AtomList(*data):NULL); 
+}
+
+
+pooldir::pooldir(const A &d):
+	dirs(NULL),vals(NULL),nxt(NULL)
+{
+	CopyAtom(&dir,&d);
+}
+
+pooldir::~pooldir()
+{
+	Clear(true);
+	if(nxt) delete nxt;
+}
+
+V pooldir::Clear(BL rec,BL dironly)
+{
+	if(rec && dirs) { delete dirs; dirs = NULL; }
+	if(!dironly && vals) { delete vals; vals = NULL; }
+}
+
+pooldir *pooldir::AddDir(I argc,const A *argv)
+{
+	if(!argc) return this;
+
+	I c = 1;
+	pooldir *prv = NULL,*ix = dirs;
+	for(; ix; prv = ix,ix = ix->nxt) {
+		c = compare(argv[0],ix->dir);
+		if(c <= 0) break;
+	}
+
+	if(c || !ix) {
+		pooldir *nd = new pooldir(argv[0]);
+		nd->nxt = ix;
+
+		if(prv) prv->nxt = nd;
+		else dirs = nd;
+		ix = nd;
+	}
+
+	return ix->AddDir(argc-1,argv+1);
+}
+
+pooldir *pooldir::GetDir(I argc,const A *argv,BL rmv)
+{
+	if(!argc) return this;
+
+	I c = 1;
+	pooldir *prv = NULL,*ix = dirs;
+	for(; ix; prv = ix,ix = ix->nxt) {
+		c = compare(argv[0],ix->dir);
+		if(c <= 0) break;
+	}
+
+	if(c || !ix) 
+		return NULL;
+	else {
+		if(argc > 1)
+			return ix->GetDir(argc-1,argv+1,rmv);
+		else if(rmv) {
+			pooldir *nd = ix->nxt;
+			if(prv) prv->nxt = nd;
+			else dirs = nd;
+			ix->nxt = NULL;
+			return ix;
+		}
+		else 
+			return ix;
+	}
+}
+
+BL pooldir::DelDir(const AtomList &d)
+{
+	pooldir *pd = GetDir(d,true);
+	if(pd && pd != this) {
+		delete pd;
+		return true;
+	}
+	else 
+		return false;
+}
+
+V pooldir::SetVal(const A &key,AtomList *data,BL over)
+{
+	I c = 1;
+	poolval *prv = NULL,*ix = vals;
+	for(; ix; prv = ix,ix = ix->nxt) {
+		c = compare(key,ix->key);
+		if(c <= 0) break;
+	}
+
+	if(c || !ix) {
+		// no existing data found
+	
+		if(data) {
+			poolval *nv = new poolval(key,data);
+			nv->nxt = ix;
+
+			if(prv) prv->nxt = nv;
+			else vals = nv;
+		}
+	}
+	else if(over) { 
+		// data exists... only set if overwriting enabled
+		
+		if(data)
+			ix->Set(data);
+		else {
+			poolval *nv = ix->nxt;
+			if(prv) prv->nxt = nv;
+			else vals = nv;
+			ix->nxt = NULL;
+			delete ix;
+		}
+	}
+}
+
+flext::AtomList *pooldir::GetVal(const A &key,BL cut)
+{
+	I c = 1;
+	poolval *prv = NULL,*ix = vals;
+	for(; ix; prv = ix,ix = ix->nxt) {
+		c = compare(key,ix->key);
+		if(c <= 0) break;
+	}
+
+	if(c || !ix) 
+		return NULL;
+	else {
+		AtomList *ret;
+		if(cut) {
+			poolval *nv = ix->nxt;
+			if(prv) prv->nxt = nv;
+			else vals = nv;
+			ix->nxt = NULL;
+			ret = ix->data; ix->data = NULL;
+			delete ix;
+		}
+		else
+			ret = new AtomList(*ix->data);
+		return ret;
+	}
+}
+
+I pooldir::CntAll()
+{
+	I cnt = 0;
+	poolval *ix = vals;
+	for(; ix; ix = ix->nxt,++cnt) {}
+	return cnt;
+}
+
+I pooldir::GetAll(A *&keys,AtomList *&lst,BL cut)
+{
+	I cnt = CntAll();
+	keys = new A[cnt];
+	lst = new AtomList[cnt];
+
+	poolval *ix = vals;
+	for(I i = 0; ix; ++i) {
+		SetAtom(keys[i],ix->key);
+		lst[i] = *ix->data;
+
+		if(cut) {
+			poolval *t = ix;
+			vals = ix = ix->nxt;
+			t->nxt = NULL; delete t;
+		}
+		else
+			ix = ix->nxt;
+	}
+
+	return cnt;
+}
+
+I pooldir::GetSub(const A **&lst)
+{
+	I cnt = 0;
+	pooldir *ix = dirs;
+	for(; ix; ix = ix->nxt,++cnt) {}
+	lst = new const A *[cnt];
+
+	ix = dirs;
+	for(I i = 0; ix; ix = ix->nxt,++i) {
+		lst[i] = &ix->dir;
+	}
+
+	return cnt;
+}
+
+
+BL pooldir::Paste(const pooldir *p,I depth,BL repl,BL mkdir)
+{
+	BL ok = true;
+
+	for(poolval *ix = p->vals; ix; ix = ix->nxt) {
+		SetVal(ix->key,new AtomList(*ix->data),repl);
+	}
+
+	if(ok && depth) {
+		for(pooldir *dix = p->dirs; ok && dix; dix = dix->nxt) {
+			pooldir *ndir = mkdir?AddDir(1,&dix->dir):GetDir(1,&dix->dir);
+			if(ndir) { 
+				ok = ndir->Paste(dix,depth > 0?depth-1:depth,repl,mkdir);
+			}
+		}
+	}
+
+	return ok;
+}
+
+BL pooldir::Copy(pooldir *p,I depth,BL cut)
+{
+	BL ok = true;
+
+	if(cut) {
+		if(p->vals) 
+			ok = false;
+		else
+			p->vals = vals, vals = NULL;
+	}
+	else {
+		// inefficient!! p->SetVal has to search through list unnecessarily!!
+		for(poolval *ix = vals; ix; ix = ix->nxt) {
+			p->SetVal(ix->key,new AtomList(*ix->data));
+		}
+	}
+
+	if(ok && depth) {
+		// also quite inefficient for cut 
+		for(pooldir *dix = dirs; ok && dix; dix = dix->nxt) {
+			pooldir *ndir = p->AddDir(1,&dix->dir);
+			if(ndir)
+				ok = ndir->Copy(dix,depth > 0?depth-1:depth,cut);
+			else
+				ok = false;
+		}
+	}
+
+	return ok;
+}
+
+
+static C *ReadAtom(C *c,A *a)
+{
+	// skip whitespace
+	while(*c && isspace(*c)) ++c;
+	if(!*c) return NULL;
+
+	const C *m = c; // remember position
+
+	// check for word type (s = 0,1,2 ... int,float,symbol)
+	I s = 0;
+	for(; *c && !isspace(*c); ++c) {
+		if(!isdigit(*c)) 
+			s = (*c != '.' || s == 1)?2:1;
+	}
+
+	if(a) {
+		switch(s) {
+		case 0: // integer
+#ifdef MAXMSP
+			a->a_type = A_LONG;
+			a->a_w.w_long = atol(m);
+			break;
+#endif
+		case 1: // float
+			a->a_type = A_FLOAT;
+			a->a_w.w_float = (F)atof(m);
+			break;
+		default: { // anything else is a symbol
+			C t = *c; *c = 0;
+			a->a_type = A_SYMBOL;
+			a->a_w.w_symbol = (S *)flext::MakeSymbol(m);
+			*c = t;
+			break;
+		}
+		}
+	}
+
+	return c;
+}
+
+static BL ReadAtoms(istream &is,flext::AtomList &l,C del)
+{
+	C tmp[1024];
+	is.getline(tmp,sizeof tmp,del); 
+	if(is.eof() || !is.good()) return false;
+
+	I i,cnt;
+	C *t = tmp;
+	for(cnt = 0; ; ++cnt) {
+		t = ReadAtom(t,NULL);
+		if(!t) break;
+	}
+
+	l(cnt);
+	if(cnt) {
+		for(i = 0,t = tmp; i < cnt; ++i)
+			t = ReadAtom(t,&l[i]);
+	}
+	return true;
+}
+
+static V WriteAtom(ostream &os,const A &a)
+{
+	switch(a.a_type) {
+	case A_FLOAT:
+		os << a.a_w.w_float;
+		break;
+#ifdef MAXMSP
+	case A_LONG:
+		os << a.a_w.w_long;
+		break;
+#endif
+	case A_SYMBOL:
+		os << flext::GetString(a.a_w.w_symbol);
+		break;
+	}
+}
+
+static V WriteAtoms(ostream &os,const flext::AtomList &l)
+{
+	for(I i = 0; i < l.Count(); ++i) {
+		WriteAtom(os,l[i]);
+		os << ' ';
+	}
+}
+
+BL pooldir::LdDir(istream &is,I depth,BL mkdir)
+{
+	BL r;
+	for(I i = 1; !is.eof(); ++i) {
+		AtomList d,k,*v = new AtomList;
+		r = ReadAtoms(is,d,',');
+		r = r && ReadAtoms(is,k,',') && k.Count() == 1;
+		r = r && ReadAtoms(is,*v,'\n') && v->Count();
+
+		if(r) {
+			if(depth < 0 || d.Count() <= depth) {
+				pooldir *nd = mkdir?AddDir(d):GetDir(d);
+				if(nd) {
+					nd->SetVal(k[0],v); v = NULL;
+				}
+	#ifdef _DEBUG
+				else
+					post("pool - directory was not found",i);
+	#endif
+			}
+		}
+		else if(!is.eof())
+			post("pool - format mismatch encountered, skipped line %i",i);
+
+		if(v) delete v;
+	}
+	return true;
+}
+
+BL pooldir::SvDir(ostream &os,I depth,const AtomList &dir)
+{
+	{
+		for(poolval *ix = vals; ix; ix = ix->nxt) {
+			WriteAtoms(os,dir);
+			os << ", ";
+			WriteAtom(os,ix->key);
+			os << " , ";
+			WriteAtoms(os,*ix->data);
+			os << endl;
+		}
+	}
+	if(depth) {
+		I nd = depth > 0?depth-1:-1;
+		for(pooldir *ix = dirs; ix; ix = ix->nxt) {
+			ix->SvDir(os,nd,AtomList(dir).Append(ix->dir));
+		}
+	}
+	return true;
+}
+
+
+
+
+pooldata::pooldata(const S *s):
+	sym(s),nxt(NULL),refs(0),
+	root(nullatom)
+{
+	LOG1("new pool %s",sym?flext_base::GetString(sym):"<private>");
+}
+
+pooldata::~pooldata()
+{
+	LOG1("free pool %s",sym?flext_base::GetString(sym):"<private>");
+}
+
+t_atom pooldata::nullatom = { A_NULL };
+
+
+V pooldata::Reset()
+{
+	root.Clear(true);
+}
+
+BL pooldata::MkDir(const AtomList &d)
+{
+	root.AddDir(d);
+	return true;
+}
+
+BL pooldata::ChkDir(const AtomList &d)
+{
+	return root.GetDir(d) != NULL;
+}
+
+BL pooldata::RmDir(const AtomList &d)
+{
+	return root.DelDir(d);
+}
+
+BL pooldata::Set(const AtomList &d,const A &key,AtomList *data,BL over)
+{
+	pooldir *pd = root.GetDir(d);
+	if(!pd) return false;
+	pd->SetVal(key,data,over);
+	return true;
+}
+
+BL pooldata::Clr(const AtomList &d,const A &key)
+{
+	pooldir *pd = root.GetDir(d);
+	if(!pd) return false;
+	pd->ClrVal(key);
+	return true;
+}
+
+BL pooldata::ClrAll(const AtomList &d,BL rec,BL dironly)
+{
+	pooldir *pd = root.GetDir(d);
+	if(!pd) return false;
+	pd->Clear(rec,dironly);
+	return true;
+}
+
+flext::AtomList *pooldata::Get(const AtomList &d,const A &key)
+{
+	pooldir *pd = root.GetDir(d);
+	return pd?pd->GetVal(key):NULL;
+}
+
+I pooldata::CntAll(const AtomList &d)
+{
+	pooldir *pd = root.GetDir(d);
+	return pd?pd->CntAll():0;
+}
+
+I pooldata::GetAll(const AtomList &d,A *&keys,AtomList *&lst)
+{
+	pooldir *pd = root.GetDir(d);
+	if(pd)
+		return pd->GetAll(keys,lst);
+	else {
+		keys = NULL; lst = NULL;
+		return 0;
+	}
+}
+
+I pooldata::GetSub(const AtomList &d,const t_atom **&dirs)
+{
+	pooldir *pd = root.GetDir(d);
+	if(pd)
+		return pd->GetSub(dirs);
+	else {
+		dirs = NULL;
+		return 0;
+	}
+}
+
+
+BL pooldata::Paste(const AtomList &d,const pooldir *clip,I depth,BL repl,BL mkdir)
+{
+	pooldir *pd = root.GetDir(d);
+	if(pd)
+		return pd->Paste(clip,depth,repl,mkdir);
+	else
+		return false;
+}
+
+pooldir *pooldata::Copy(const AtomList &d,const A &key,BL cut)
+{
+	pooldir *pd = root.GetDir(d);
+	if(pd) {
+		AtomList *val = pd->GetVal(key,cut);
+		if(val) {
+			pooldir *ret = new pooldir(nullatom);
+			ret->SetVal(key,val);
+			return ret;
+		}
+		else
+			return NULL;
+	}
+	else
+		return NULL;
+}
+
+pooldir *pooldata::CopyAll(const AtomList &d,I depth,BL cut)
+{
+	pooldir *pd = root.GetDir(d);
+	if(pd) {
+		pooldir *ret = new pooldir(nullatom);
+		if(pd->Copy(ret,depth,cut))
+			return ret;
+		else {
+			delete ret;
+			return NULL;
+		}
+	}
+	else
+		return NULL;
+}
+
+
+static const C *CnvFlnm(C *dst,const C *src,I sz)
+{
+#if defined(PD) && defined(NT)
+	I cnt = strlen(src);
+	if(cnt >= sz-1) return NULL;
+	for(I i = 0; i < cnt; ++i)
+		dst[i] = src[i] != '/'?src[i]:'\\';
+	dst[i] = 0;
+	return dst;
+#else
+	return src;
+#endif
+}
+
+BL pooldata::LdDir(const AtomList &d,const C *flnm,I depth,BL mkdir)
+{
+	pooldir *pd = root.GetDir(d);
+	if(pd) {
+		C tmp[1024];
+		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);
+		if(t) {
+			ifstream fl(t);
+			return fl.good() && pd->LdDir(fl,depth,mkdir);
+		}
+		else return false;
+	}
+	else
+		return false;
+}
+
+BL pooldata::SvDir(const AtomList &d,const C *flnm,I depth,BL absdir)
+{
+	pooldir *pd = root.GetDir(d);
+	if(pd) {
+		C tmp[1024];
+		const C *t = CnvFlnm(tmp,flnm,sizeof tmp);
+		if(t) {
+			ofstream fl(t);
+			return fl.good() && pd->SvDir(fl,depth,absdir?d:AtomList());
+		}
+		else return false;
+	}
+	else
+		return false;
+}
+
+
diff --git a/externals/grill/pool/pool.cw b/externals/grill/pool/pool.cw
new file mode 100755
index 00000000..66e93306
--- /dev/null
+++ b/externals/grill/pool/pool.cw
diff --git a/externals/grill/pool/pool.dsp b/externals/grill/pool/pool.dsp
new file mode 100644
index 00000000..dbe09386
--- /dev/null
+++ b/externals/grill/pool/pool.dsp
@@ -0,0 +1,103 @@
+# Microsoft Developer Studio Project File - Name="pool" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** NICHT BEARBEITEN **
+
+# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
+
+CFG=pool - Win32 Debug
+!MESSAGE Dies ist kein gόltiges Makefile. Zum Erstellen dieses Projekts mit NMAKE
+!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und fόhren Sie den Befehl
+!MESSAGE 
+!MESSAGE NMAKE /f "pool.mak".
+!MESSAGE 
+!MESSAGE Sie kφnnen beim Ausfόhren von NMAKE eine Konfiguration angeben
+!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel:
+!MESSAGE 
+!MESSAGE NMAKE /f "pool.mak" CFG="pool - Win32 Debug"
+!MESSAGE 
+!MESSAGE Fόr die Konfiguration stehen zur Auswahl:
+!MESSAGE 
+!MESSAGE "pool - Win32 Release" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "pool - Win32 Debug" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE 
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName "max/pool"
+# PROP Scc_LocalPath "."
+CPP=cl.exe
+MTL=midl.exe
+RSC=rc.exe
+
+!IF  "$(CFG)" == "pool - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "pd-msvc/r"
+# PROP Intermediate_Dir "pd-msvc/r"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "POOL_EXPORTS" /YX /FD /c
+# ADD CPP /nologo /W3 /GX /O2 /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "NT" /D "PD" /YX /FD /c
+# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "NDEBUG"
+# ADD RSC /l 0xc07 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /machine:I386 /libpath:"c:\programme\audio\pd\bin" /libpath:"f:\prog\max\flext\pd-msvc"
+
+!ELSEIF  "$(CFG)" == "pool - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "pd-msvc/d"
+# PROP Intermediate_Dir "pd-msvc/d"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "POOL_EXPORTS" /YX /FD /GZ /c
+# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "NT" /D "PD" /FR /YX /FD /GZ /c
+# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "_DEBUG"
+# ADD RSC /l 0xc07 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib gdi32.lib pd.lib flext_d-pdwin.lib /nologo /dll /debug /machine:I386 /pdbtype:sept /libpath:"c:\programme\audio\pd\bin" /libpath:"f:\prog\max\flext\pd-msvc"
+
+!ENDIF 
+
+# Begin Target
+
+# Name "pool - Win32 Release"
+# Name "pool - Win32 Debug"
+# Begin Source File
+
+SOURCE=.\main.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\pool.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\pool.h
+# End Source File
+# End Target
+# End Project
diff --git a/externals/grill/pool/pool.h b/externals/grill/pool/pool.h
new file mode 100644
index 00000000..21fe4eb3
--- /dev/null
+++ b/externals/grill/pool/pool.h
@@ -0,0 +1,124 @@
+/* 
+
+pool - hierarchical storage object for PD and Max/MSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#ifndef __POOL_H
+#define __POOL_H
+
+#include <flext.h>
+
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
+#error You need at least flext version 0.4.0
+#endif
+
+#define POOL_VERSION "0.0.5"
+
+#include <iostream.h>
+
+typedef void V;
+typedef int I;
+typedef float F;
+typedef char C;
+typedef bool BL;
+typedef t_atom A;
+typedef t_symbol S;
+
+class poolval:
+	public flext
+{
+public:
+	poolval(const A &key,AtomList *data);
+	~poolval();
+
+	poolval &Set(AtomList *data);
+	poolval *Dup() const;
+
+	A key;
+	AtomList *data;
+	poolval *nxt;
+};
+
+	class pooldir:
+	public flext
+{
+public:
+	pooldir(const A &dir);
+	~pooldir();
+
+	V Clear(BL rec,BL dironly = false);
+
+	pooldir *GetDir(I argc,const A *argv,BL cut = false);
+	pooldir *GetDir(const AtomList &d,BL cut = false) { return GetDir(d.Count(),d.Atoms(),cut); }
+	BL DelDir(const AtomList &d);
+	pooldir *AddDir(I argc,const A *argv);
+	pooldir *AddDir(const AtomList &d) { return AddDir(d.Count(),d.Atoms()); }
+
+	V SetVal(const A &key,AtomList *data,BL over = true);
+	V ClrVal(const A &key) { SetVal(key,NULL); }
+	AtomList *GetVal(const A &key,BL cut = false);
+	I CntAll();
+	I GetAll(A *&keys,AtomList *&lst,BL cut = false);
+	I GetSub(const t_atom **&dirs);
+
+	BL Paste(const pooldir *p,I depth,BL repl,BL mkdir);
+	BL Copy(pooldir *p,I depth,BL cur);
+
+	BL LdDir(istream &is,I depth,BL mkdir);
+	BL SvDir(ostream &os,I depth,const AtomList &dir = AtomList());
+
+	A dir;
+	pooldir *nxt;
+
+	pooldir *dirs;
+	poolval *vals;
+};
+
+	class pooldata:
+	public flext
+{
+public:
+	pooldata(const S *s = NULL);
+	~pooldata();
+
+	V Push() { ++refs; }
+	BL Pop() { return --refs > 0; }
+
+	V Reset();
+	BL MkDir(const AtomList &d); 
+	BL ChkDir(const AtomList &d);
+	BL RmDir(const AtomList &d);
+
+	BL Set(const AtomList &d,const A &key,AtomList *data,BL over = true);
+	BL Clr(const AtomList &d,const A &key);
+	BL ClrAll(const AtomList &d,BL rec,BL dironly = false);
+	AtomList *Get(const AtomList &d,const A &key);
+	I CntAll(const AtomList &d);
+	I GetAll(const AtomList &d,A *&keys,AtomList *&lst);
+	I GetSub(const AtomList &d,const t_atom **&dirs);
+
+	BL Paste(const AtomList &d,const pooldir *clip,I depth = -1,BL repl = true,BL mkdir = true);
+	pooldir *Copy(const AtomList &d,const A &key,BL cut);
+	pooldir *CopyAll(const AtomList &d,I depth,BL cut);
+
+	BL LdDir(const AtomList &d,const C *flnm,I depth,BL mkdir = true);
+	BL SvDir(const AtomList &d,const C *flnm,I depth,BL absdir);
+	BL Load(const C *flnm) { return LdDir(AtomList(),flnm,-1); }
+	BL Save(const C *flnm) { return SvDir(AtomList(),flnm,-1,true); }
+
+	I refs;
+	const S *sym;
+	pooldata *nxt;
+
+	pooldir root;
+
+private:
+	static t_atom nullatom;
+};
+
+#endif
diff --git a/externals/grill/pool/pool.help b/externals/grill/pool/pool.help
new file mode 100755
index 00000000..24d189b7
--- /dev/null
+++ b/externals/grill/pool/pool.help
diff --git a/externals/grill/pool/pool.pd b/externals/grill/pool/pool.pd
new file mode 100644
index 00000000..ffd49615
--- /dev/null
+++ b/externals/grill/pool/pool.pd
@@ -0,0 +1,201 @@
+#N canvas 25 23 966 669 12;

+#X obj 273 441 pool;

+#X msg 236 52 set 1 2 3;

+#X obj 272 563 print K;

+#X msg 602 156 getall;

+#X msg 236 81 set A k g;

+#X obj 251 594 print V;

+#X obj 290 532 print D;

+#X msg 236 111 set A l m;

+#X msg 239 140 set 2 34;

+#X msg 238 171 set 3 17;

+#X msg 423 50 clr A;

+#X msg 427 126 get A;

+#X msg 427 158 get 2;

+#X msg 20 79 echodir \$1;

+#X obj 20 58 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1

+;

+#X obj 20 160 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1

+;

+#X msg 20 181 absdir \$1;

+#X text 422 30 clear value;

+#X text 423 104 get value;

+#X obj 309 505 print C;

+#X text 375 504 command;

+#X text 357 531 directory (abs or rel to current);

+#X text 320 594 data value;

+#X text 338 562 data key;

+#X msg 26 279 pool pool1;

+#X msg 27 308 pool;

+#X text 69 308 set to private;

+#X msg 27 370 reset;

+#X text 26 349 clear all pool data;

+#X msg 608 56 clrall;

+#X text 599 34 clear all values in dir;

+#X text 602 135 get all values in dir;

+#X text 314 442 pool name can be given as argument;

+#X text 598 81 clear all values and dirs;

+#X msg 606 103 clrrec;

+#X msg 600 203 getrec;

+#X text 600 181 get all values in dir and subdirs;

+#X text 652 232 bang at EOL;

+#X text 661 150 bang at EOL;

+#X text 655 202 depth may be given;

+#X text 22 258 data is shared among pool objects;

+#X text 23 237 set pool name;

+#X text 20 36 at each command;

+#X text 20 20 echo current dir;

+#X text 233 27 set values;

+#X text 15 141 (default on);

+#X text 7 125 report absolute dirs;

+#X msg 28 417 help;

+#X text 70 418 get some info;

+#X text 658 219 default=-1 (= infinite);

+#X msg 604 283 cntall;

+#X text 663 281 count all values in dir;

+#X msg 604 309 cntrec;

+#X text 665 307 ... and subdirs;

+#X text 661 321 (depth may be given);

+#X msg 237 226 add 3 14;

+#X text 235 205 set but don't replace;

+#N canvas 0 0 421 528 dirs 0;

+#X msg 109 27 mkdir fld1;

+#X msg 111 122 chdir;

+#X msg 110 217 updir;

+#X msg 111 354 getsub -1;

+#X text 110 7 make absolute dir;

+#X text 109 51 make relative dir;

+#X msg 110 72 mksub fld2;

+#X text 109 104 change to absolute dir;

+#X msg 110 165 chsub fld2;

+#X text 108 146 change to relative dir;

+#X text 106 198 change to upper dir;

+#X text 107 250 remove absolute dir;

+#X msg 108 269 rmdir fld1;

+#X msg 110 308 rmsub fld2;

+#X text 109 289 remove relative dir;

+#X text 109 336 get subdirs;

+#X text 239 379 -1 ... infinite;

+#X text 161 213 depth may be given;

+#X text 162 229 default=1;

+#X text 192 348 depth may be given;

+#X text 192 365 default=1;

+#X text 108 377 count subdirs;

+#X msg 111 398 cntsub -1;

+#X obj 11 239 outlet;

+#X msg 111 458 getdir;

+#X text 110 438 get current dir;

+#X text 172 457 always absolute;

+#X connect 0 0 23 0;

+#X connect 1 0 23 0;

+#X connect 2 0 23 0;

+#X connect 3 0 23 0;

+#X connect 6 0 23 0;

+#X connect 8 0 23 0;

+#X connect 12 0 23 0;

+#X connect 13 0 23 0;

+#X connect 22 0 23 0;

+#X connect 24 0 23 0;

+#X restore 713 494 pd dirs;

+#X text 710 468 directory operations;

+#N canvas 0 0 467 434 file 0;

+#X text 117 207 save dir and subdirs;

+#X text 117 165 save data in current dir;

+#X msg 117 184 svdir c:/temp/pool.dat;

+#X msg 117 226 svrec c:/temp/pool.dat;

+#X msg 116 272 lddir c:/temp/pool.dat;

+#X msg 116 319 ldrec c:/temp/pool.dat;

+#X text 117 253 load data into current dir;

+#X text 115 300 load data into current dir and below;

+#X text 132 340 depth (default -1) and;

+#X text 134 356 mkdir flag (default 1) can be given;

+#X obj 22 188 outlet;

+#X text 117 37 save all;

+#X text 117 81 load all (add to existing data);

+#X msg 118 100 load c:/temp/pool.dat;

+#X msg 120 54 save c:/temp/pool.dat;

+#X text 22 12 file operations;

+#X connect 2 0 10 0;

+#X connect 3 0 10 0;

+#X connect 4 0 10 0;

+#X connect 5 0 10 0;

+#X connect 13 0 10 0;

+#X connect 14 0 10 0;

+#X restore 714 549 pd file;

+#X text 712 526 file operations;

+#X text 712 583 clipboard operations;

+#N canvas 0 0 529 577 clip 0;

+#X obj 17 183 outlet;

+#X text 97 56 copy value associated to key into clipboard;

+#X msg 100 77 copy A;

+#X msg 98 119 cut B;

+#X text 96 101 cut value associated to key into clipboard;

+#X msg 96 401 paste;

+#X msg 98 179 copyall;

+#X text 95 158 copy all values in current dir into clipboard;

+#X msg 97 221 cutall;

+#X text 95 201 cut all values in current dir into clipboard;

+#X text 94 263 copy all values in current dir into clipboard;

+#X text 94 306 cut all values in current dir into clipboard;

+#X msg 97 284 copyrec;

+#X text 194 285 depth may be given (default=-1);

+#X text 193 326 depth may be given (default=-1);

+#X msg 96 326 cutrec 1;

+#X text 194 345 1..only with first level subdirs;

+#X text 96 379 paste clipboard contents into current directory;

+#X text 167 397 depth (default -1) and;

+#X text 169 413 mkdir flag (default 1) can be given;

+#X text 171 448 depth (default -1) and;

+#X text 173 466 mkdir flag (default 1) can be given;

+#X msg 95 453 pasteadd;

+#X text 95 431 paste but don't replace;

+#X msg 94 521 clrclip;

+#X text 160 523 clear clipboard (free memory);

+#X text 22 12 clipboard operations (this is an internal clipboard...)

+;

+#X connect 2 0 0 0;

+#X connect 3 0 0 0;

+#X connect 5 0 0 0;

+#X connect 6 0 0 0;

+#X connect 8 0 0 0;

+#X connect 12 0 0 0;

+#X connect 15 0 0 0;

+#X connect 22 0 0 0;

+#X connect 24 0 0 0;

+#X restore 714 606 pd clip;

+#X text 712 437 more commands:;

+#X obj 780 494 s \$0-pool;

+#X obj 778 549 s \$0-pool;

+#X obj 778 606 s \$0-pool;

+#X obj 349 392 r \$0-pool;

+#X connect 0 0 5 0;

+#X connect 0 1 2 0;

+#X connect 0 2 6 0;

+#X connect 0 3 19 0;

+#X connect 1 0 0 0;

+#X connect 3 0 0 0;

+#X connect 4 0 0 0;

+#X connect 7 0 0 0;

+#X connect 8 0 0 0;

+#X connect 9 0 0 0;

+#X connect 10 0 0 0;

+#X connect 11 0 0 0;

+#X connect 12 0 0 0;

+#X connect 13 0 0 0;

+#X connect 14 0 13 0;

+#X connect 15 0 16 0;

+#X connect 16 0 0 0;

+#X connect 24 0 0 0;

+#X connect 25 0 0 0;

+#X connect 27 0 0 0;

+#X connect 29 0 0 0;

+#X connect 34 0 0 0;

+#X connect 35 0 0 0;

+#X connect 47 0 0 0;

+#X connect 50 0 0 0;

+#X connect 52 0 0 0;

+#X connect 55 0 0 0;

+#X connect 57 0 64 0;

+#X connect 59 0 65 0;

+#X connect 62 0 66 0;

+#X connect 67 0 0 0;

diff --git a/externals/grill/py/build-pd-bcc.bat b/externals/grill/py/build-pd-bcc.bat
new file mode 100644
index 00000000..3dd21329
--- /dev/null
+++ b/externals/grill/py/build-pd-bcc.bat
@@ -0,0 +1,3 @@
+@echo --- Building with BorlandC++ ---
+
+make -f makefile.pd-bcc
diff --git a/externals/grill/py/build-pd-cygwin.sh b/externals/grill/py/build-pd-cygwin.sh
new file mode 100644
index 00000000..8eb7bcab
--- /dev/null
+++ b/externals/grill/py/build-pd-cygwin.sh
@@ -0,0 +1,10 @@
+#!/bin/sh
+
+. config-pd-cygwin.txt
+
+make -f makefile.pd-cygwin &&
+{
+	if [ $INSTALL = "yes" ]; then
+		make -f makefile.pd-cygwin install
+	fi
+}
diff --git a/externals/grill/py/build-pd-linux.sh b/externals/grill/py/build-pd-linux.sh
new file mode 100755
index 00000000..90e4a04a
--- /dev/null
+++ b/externals/grill/py/build-pd-linux.sh
@@ -0,0 +1,11 @@
+#!/bin/sh  
+
+. config-pd-linux.txt
+
+make -f makefile.pd-linux &&
+{ 
+	if [ $INSTALL = "yes" ]; then
+		echo Now install as root
+		su -c "make -f makefile.pd-linux install"
+	fi
+}
diff --git a/externals/grill/py/build-pd-msvc.bat b/externals/grill/py/build-pd-msvc.bat
new file mode 100644
index 00000000..d6187f08
--- /dev/null
+++ b/externals/grill/py/build-pd-msvc.bat
@@ -0,0 +1,4 @@
+@echo --- Building with MS Visual C++ ---
+
+nmake -f makefile.pd-msvc clean
+nmake -f makefile.pd-msvc
diff --git a/externals/grill/py/config-pd-bcc.txt b/externals/grill/py/config-pd-bcc.txt
new file mode 100644
index 00000000..83d23264
--- /dev/null
+++ b/externals/grill/py/config-pd-bcc.txt
@@ -0,0 +1,31 @@
+# py/pyext - python script objects for PD and Max/MSP
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+#
+
+# where is PD?
+PDPATH=c:\programme\audio\pd		
+
+# where do the flext libraries reside?
+FLEXTPATH=$(PDPATH)\flext
+
+# where is BorlandC++?
+BCCPATH=c:\programme\prog\bcc55		
+
+# which version of Python?
+PYTHONVER=python22
+
+# where are the python header files?
+PYTHONINCLUDE=c:\programme\prog\$(PYTHONVER)\include
+
+# what is the python library file?
+PYTHONBIN=c:\windows\system32\$(PYTHONVER).dll
+
+# where should the external(s) be built?
+OUTPATH=.\pd-bcc
+
+# should the external be installed? (yes/no)
+INSTALL=yes
+
+# where should the external be installed?
+INSTDIR=$(PDPATH)\extra
+
diff --git a/externals/grill/py/config-pd-cygwin.txt b/externals/grill/py/config-pd-cygwin.txt
new file mode 100644
index 00000000..7c7bebd8
--- /dev/null
+++ b/externals/grill/py/config-pd-cygwin.txt
@@ -0,0 +1,29 @@
+# py/pyext - python script objects for PD and Max/MSP
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+#
+
+# where is PD?
+PDPATH=/cygdrive/c/programme/audio/pd
+
+# where do the flext libraries reside?
+FLEXTPATH=${PDPATH}/flext
+
+# which version of Python?
+PYTHONVER=python22
+
+# where are the python header files?
+PYTHONINCLUDE=/cygdrive/c/programme/prog/${PYTHONVER}/include
+
+# what is the python library file?
+PYTHONLIB=/cygdrive/c/programme/prog/${PYTHONVER}/libs/${PYTHONVER}.lib
+
+# where should the external(s) be built?
+TARGDIR=./pd-cygwin
+
+# should the external be installed? (yes/no)
+INSTALL=yes
+
+# where should the external be installed?
+INSTDIR=${PDPATH}/extra
+
+
diff --git a/externals/grill/py/config-pd-linux.txt b/externals/grill/py/config-pd-linux.txt
new file mode 100644
index 00000000..bc63be41
--- /dev/null
+++ b/externals/grill/py/config-pd-linux.txt
@@ -0,0 +1,33 @@
+# py/pyext - python script objects for PD and Max/MSP
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+#
+
+# your c++ compiler (normally g++)
+CXX=g++-3.2
+
+# where are the PD header files?
+# leave it blank if it is a system directory (like /usr/local/include), 
+# 	since gcc 3.2 complains about it
+PDPATH=
+
+# where do the flext libraries reside?
+FLEXTPATH=/usr/local/lib/pd/flext
+
+# what is the python version?
+PYTHONVER=2.2
+# where are the python header files?
+PYTHONINCLUDE=/usr/include/python${PYTHONVER}
+# where is the python library file?
+PYTHONLIB=/usr/lib/python${PYTHONVER}/config
+
+# where should flext libraries be built?
+TARGDIR=./pd-linux
+
+# should the flext stuff be installed? (yes/no)
+INSTALL=yes
+
+# where should py/pyext be installed?
+INSTPATH=/usr/local/lib/pd/extra
+
+
+
diff --git a/externals/grill/py/config-pd-msvc.txt b/externals/grill/py/config-pd-msvc.txt
new file mode 100644
index 00000000..e5c4d044
--- /dev/null
+++ b/externals/grill/py/config-pd-msvc.txt
@@ -0,0 +1,30 @@
+# py/pyext - python script objects for PD and Max/MSP
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+#
+
+# where is PD?
+PDPATH=c:\programme\audio\pd		
+
+# where do the flext libraries reside?
+FLEXTPATH=$(PDPATH)\flext
+
+# where is MS VC++?
+MSVCPATH="c:\programme\prog\microsoft visual studio\VC98"
+
+# which version of Python?
+PYTHONVER=python22
+
+# where are the python header files?
+PYTHONINCLUDE=c:\programme\prog\$(PYTHONVER)\include
+
+# what is the python library file?
+PYTHONLIB=c:\programme\prog\$(PYTHONVER)\libs\$(PYTHONVER).lib
+
+# where should the external be built?
+OUTPATH=pd-msvc
+
+# should the external be installed? (yes/no)
+INSTALL=yes
+
+# where should the external be installed?
+INSTDIR=$(PDPATH)\extra
diff --git a/externals/grill/py/gpl.txt b/externals/grill/py/gpl.txt
new file mode 100644
index 00000000..5ea29a7d
--- /dev/null
+++ b/externals/grill/py/gpl.txt
@@ -0,0 +1,346 @@
+		    GNU GENERAL PUBLIC LICENSE
+		       Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+                       59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+			    Preamble
+ 
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.)  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+
+		    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+
+
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+			    NO WARRANTY
+
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+		     END OF TERMS AND CONDITIONS
+
+
+	    How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) 19yy  <name of author>
+
+    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.
+
+    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
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+    Gnomovision version 69, Copyright (C) 19yy name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Library General
+Public License instead of this License.
+
diff --git a/externals/grill/py/license.txt b/externals/grill/py/license.txt
new file mode 100644
index 00000000..949207fd
--- /dev/null
+++ b/externals/grill/py/license.txt
@@ -0,0 +1,50 @@
+py/pyext - python script objects for PD and MaxMSP
+Copyright (C) 2002 Thomas Grill
+
+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.
+ 
+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.
+
+In the official py/pyext distribution, the GNU General Public License is
+in the file gpl.txt
+
+---------------------------------------------------------
+
+             OTHER COPYRIGHT NOTICES
+
+---------------------------------------------------------
+This package uses the flext C++ layer - See its license text below:
+
+
+--- flext ----------------------------------------------
+flext - C++ layer for Max/MSP and pd (pure data) externals
+Copyright (C) 2001,2002 Thomas Grill
+
+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.
+ 
+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.
+
+In the official flext distribution, the GNU General Public License is
+in the file gpl.txt
+
+
diff --git a/externals/grill/py/makefile.pd-bcc b/externals/grill/py/makefile.pd-bcc
new file mode 100644
index 00000000..e94abdf4
--- /dev/null
+++ b/externals/grill/py/makefile.pd-bcc
@@ -0,0 +1,82 @@
+# py/pyext - python script object for PD and MaxMSP
+# Copyright (C) 2002 Thomas Grill
+#
+# Makefile for BorlandC++ 
+#
+# usage: make -f makefile.pd-bcc
+#
+# ... no threads!
+#
+# ---------------------------------------------
+
+!include config-pd-bcc.txt
+
+NAME=py
+SETUPFUNCTION=$(NAME)_setup
+
+# flext stuff
+TARGET=pdwin
+
+# includes, libs
+INCPATH=-I$(BCCPATH)\include -I$(PYTHONINCLUDE) -I$(PDPATH)\src -I$(FLEXTPATH)
+LIBPATH=-L$(BCCPATH)\lib -L$(PDPATH)\lib 
+LIBS=cw32.lib import32.lib C0D32.OBJ 
+
+# compiler definitions and flags
+DEFS=-DPD -DNT 
+CFLAGS=-6 -O2 -OS -ff -tWD 
+
+
+# the rest can stay untouched
+# ----------------------------------------------
+
+# all the source files from the package
+SRCS= main.cpp py.cpp pyext.cpp modmeth.cpp clmeth.cpp register.cpp pyargs.cpp bound.cpp
+HDRS= main.h pyext.h
+
+# default target
+all: $(OUTPATH)\$(NAME).dll
+
+# remove build
+clean:
+	-del /s /q $(OUTPATH) > nul
+	rmdir $(OUTPATH)
+
+
+install:
+	cp $(OUTPATH)\$(NAME).dll $(INSTDIR)
+	
+# ----------------------------------------------
+
+OBJS= $(SRCS:.cpp=.obj)
+
+#.PATH.OBJ=$(OUTPATH)
+
+#$(SRCS): $(HDRS)
+#	-touch $<
+
+{source}.cpp.obj:
+	bcc32 -c $(CFLAGS) $(DEFS) $(INCPATH) -n$(OUTPATH) $<
+
+$(OUTPATH):
+	-@if not exist $< mkdir $<
+
+$(OUTPATH)\pd.lib: $(PDPATH)\bin\pd.dll 
+	implib -a $< $**
+
+$(OUTPATH)\python.lib: $(PYTHONBIN) 
+	implib -a $< $** 
+
+$(OUTPATH)\$(NAME).def:
+	@echo EXPORTS $(SETUPFUNCTION) = _$(SETUPFUNCTION) > $<
+	@echo IMPORTS _Py_Initialize = $(PYTHONVER).Py_Initialize >> $<
+	@echo IMPORTS _Py_Finalize = $(PYTHONVER).Py_Finalize >> $<
+
+$(OUTPATH)\$(NAME).dll :: $(OUTPATH) $(OUTPATH)\$(NAME).def $(OUTPATH)\pd.lib $(OUTPATH)\python.lib
+
+$(OUTPATH)\$(NAME).dll :: $(OBJS) 
+	cd $(OUTPATH)
+	ilink32 -C -Tpd $(LIBPATH) $** ,..\$<,,$(LIBS) pd.lib python.lib $(FLEXTPATH)\flext-$(TARGET).lib ,$(NAME).def
+	cd ..
+
+	
\ No newline at end of file
diff --git a/externals/grill/py/makefile.pd-linux b/externals/grill/py/makefile.pd-linux
new file mode 100644
index 00000000..af2b58d2
--- /dev/null
+++ b/externals/grill/py/makefile.pd-linux
@@ -0,0 +1,75 @@
+# py/pyext - python script object for PD and Max/MSP
+# Copyright (C) 2002 Thomas Grill (xovo@gmx.net)
+#
+# Makefile for gcc @ linux
+#
+# usage:
+# to build run "make -f makefile.pd-linux"
+# to install (as root), do "make -f makefile.pd-linux install"
+#
+
+CONFIG=config-pd-linux.txt
+
+include $(CONFIG)
+
+FLEXTLIB=$(FLEXTPATH)/flext_t.a
+
+# compiler+linker stuff	
+INCLUDES=$(PDPATH) $(PYTHONINCLUDE)
+LIBPATH=$(PYTHONLIB)
+FLAGS=-DPD -DFLEXT_THREADS
+CFLAGS=-O6 -mcpu=pentiumpro
+#CFLAGS=-g
+LIBS=m util python$(PYTHONVER)  
+
+
+# ---------------------------------------------
+# the rest can stay untouched
+# ----------------------------------------------
+
+NAME=py
+
+# all the source files from the package
+SRCS=main.cpp py.cpp pyext.cpp bound.cpp clmeth.cpp modmeth.cpp pyargs.cpp register.cpp
+HDRS=main.h pyext.h
+
+TARGET=$(TARGDIR)/$(NAME).pd_linux
+
+# default target
+all: $(TARGDIR) $(TARGET)
+
+$(patsubst %,source/%,$(SRCS)): $(patsubst %,source/%,$(HDRS)) $(FLEXTLIB) $(CONFIG)
+	touch $@
+
+$(TARGDIR):
+	mkdir $(TARGDIR)
+
+$(TARGDIR)/%.o : source/%.cpp
+	$(CXX) -c $(CFLAGS) $(FLAGS) $(patsubst %,-I%,$(INCLUDES) $(FLEXTPATH)) $< -o $@
+
+$(TARGET) : $(patsubst %.cpp,$(TARGDIR)/%.o,$(SRCS)) $(FLEXTLIB) 
+	$(CXX) -shared $^ $(patsubst %,-L%,$(LIBPATH)) $(patsubst %,-l%,$(LIBS)) -o $@ 
+	chmod 755 $@
+
+$(INSTPATH):
+	mkdir $(INSTDIR)
+
+install:: $(INSTDIR)
+
+install:: $(TARGET)
+	cp $^ $(INSTPATH)
+	chown root.root  $(patsubst %,$(INSTPATH)/%,$(notdir $^))
+	chmod 755 $(patsubst %,$(INSTPATH)/%,$(notdir $^))
+
+.PHONY: clean
+clean:
+	rm -f $(TARGDIR)/*.o $(TARGET)
+	
+
+
+
+
+
+
+
+
diff --git a/externals/grill/py/pd/script-1.pd b/externals/grill/py/pd/script-1.pd
new file mode 100644
index 00000000..e143d5e8
--- /dev/null
+++ b/externals/grill/py/pd/script-1.pd
@@ -0,0 +1,50 @@
+#N canvas 297 17 672 523 12;

+#X obj 39 278 print;

+#X obj 345 251 print;

+#X msg 499 149 freakhole;

+#X msg 148 149 list H e l l o;

+#X msg 166 175 Hello friend;

+#X obj 42 460 print;

+#X msg 102 367 0 1 2 3 4;

+#X msg 197 367 5 67 3;

+#X obj 350 456 print;

+#X obj 326 365 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1

+-1;

+#X obj 515 455 print;

+#X obj 514 386 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1

+-1;

+#X msg 188 204 1 3;

+#X msg 345 155 help;

+#X msg 360 327 set ret1;

+#X msg 379 351 set ret2;

+#X text 434 326 functions can be set;

+#X msg 421 120 somewhere_past_mars;

+#X text 152 101 reload with new arguments;

+#X msg 40 104 reload 1 2 3;

+#X text 23 13 py/pyext - Python script objects \, (C)2002 Thomas Grill

+;

+#X text 21 42 This demonstrates simple scripting. See the script.py

+file.;

+#X obj 39 241 py script strcat;

+#X obj 43 424 py script addall;

+#X obj 350 420 py script;

+#X obj 516 419 py script ret3;

+#X obj 346 204 py script strlen;

+#X connect 2 0 26 1;

+#X connect 3 0 22 1;

+#X connect 4 0 22 1;

+#X connect 6 0 23 1;

+#X connect 7 0 23 1;

+#X connect 9 0 24 0;

+#X connect 11 0 25 0;

+#X connect 12 0 22 1;

+#X connect 13 0 26 0;

+#X connect 14 0 24 0;

+#X connect 15 0 24 0;

+#X connect 17 0 26 1;

+#X connect 19 0 22 0;

+#X connect 22 0 0 0;

+#X connect 23 0 5 0;

+#X connect 24 0 8 0;

+#X connect 25 0 10 0;

+#X connect 26 0 1 0;

diff --git a/externals/grill/py/pd/sendrecv-1.pd b/externals/grill/py/pd/sendrecv-1.pd
new file mode 100644
index 00000000..d2d4b50a
--- /dev/null
+++ b/externals/grill/py/pd/sendrecv-1.pd
@@ -0,0 +1,25 @@
+#N canvas 343 246 466 316 12;
+#X msg 125 52 reload mi ma;
+#X floatatom 48 173 5 0 0;
+#X floatatom 181 174 5 0 0;
+#X obj 181 198 s mi;
+#X floatatom 49 265 5 0 0;
+#X floatatom 181 266 5 0 0;
+#X obj 181 239 r ma;
+#X obj 48 197 s he;
+#X obj 49 238 r hu;
+#X text 233 51 reload with different args;
+#X msg 20 17 help;
+#X msg 19 49 doc;
+#X msg 58 49 doc+;
+#X obj 49 100 pyext sendrecv ex1 he hu;
+#X text 28 151 scroll here;
+#X text 176 152 or here;
+#X connect 0 0 13 0;
+#X connect 1 0 7 0;
+#X connect 2 0 3 0;
+#X connect 6 0 5 0;
+#X connect 8 0 4 0;
+#X connect 10 0 13 0;
+#X connect 11 0 13 0;
+#X connect 12 0 13 0;
diff --git a/externals/grill/py/pd/sendrecv-2.pd b/externals/grill/py/pd/sendrecv-2.pd
new file mode 100644
index 00000000..9f015b4c
--- /dev/null
+++ b/externals/grill/py/pd/sendrecv-2.pd
@@ -0,0 +1,8 @@
+#N canvas 133 322 454 304 12;
+#X obj 36 135 pyext sendrecv ex2 huha;
+#X floatatom 36 165 5 0 0;
+#X floatatom 35 38 5 0 0;
+#X obj 34 65 s huha;
+#X text 22 19 scroll here;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
diff --git a/externals/grill/py/pd/sendrecv-3.pd b/externals/grill/py/pd/sendrecv-3.pd
new file mode 100644
index 00000000..0f42edfc
--- /dev/null
+++ b/externals/grill/py/pd/sendrecv-3.pd
@@ -0,0 +1,5 @@
+#N canvas 294 237 484 334 12;
+#X obj 283 258 pyext sendrecv ex3;
+#X obj 437 255 bng 25 250 50 0 empty ugh empty 0 -6 64 8 -258699 -1
+-1;
+#X connect 1 0 0 1;
diff --git a/externals/grill/py/pd/simple-1.pd b/externals/grill/py/pd/simple-1.pd
new file mode 100644
index 00000000..2d60db5b
--- /dev/null
+++ b/externals/grill/py/pd/simple-1.pd
@@ -0,0 +1,41 @@
+#N canvas 156 192 650 389 12;

+#X obj 53 123 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

+-1;

+#X floatatom 52 155 5 0 0;

+#X text 388 337 watch the console output!;

+#X msg 52 186 2 3 4;

+#X msg 277 131 ho;

+#X msg 233 155 lets;

+#X msg 283 190 go;

+#X msg 212 214 !!!;

+#X msg 205 113 hey;

+#X obj 183 301 pyext simple ex1;

+#X msg 434 114 onearg 123;

+#X msg 456 167 threeargs 9 8 7;

+#X msg 463 196 varargs 8 4 2 1;

+#X msg 447 140 twoargs 41 15;

+#X msg 453 239 twoargs 1 2 3;

+#X msg 71 299 help;

+#X text 16 15 py/pyext - Python script objects \, (C)2002 Thomas Grill

+;

+#X text 15 57 This demonstrates message handling. See the simple.py

+file.;

+#X text 232 322 file class;

+#X msg 70 324 doc;

+#X msg 106 325 doc+;

+#X connect 0 0 9 1;

+#X connect 1 0 9 1;

+#X connect 3 0 9 1;

+#X connect 4 0 9 2;

+#X connect 5 0 9 2;

+#X connect 6 0 9 2;

+#X connect 7 0 9 2;

+#X connect 8 0 9 2;

+#X connect 10 0 9 3;

+#X connect 11 0 9 3;

+#X connect 12 0 9 3;

+#X connect 13 0 9 3;

+#X connect 14 0 9 3;

+#X connect 15 0 9 0;

+#X connect 19 0 9 0;

+#X connect 20 0 9 0;

diff --git a/externals/grill/py/pd/simple-2.pd b/externals/grill/py/pd/simple-2.pd
new file mode 100644
index 00000000..e20be506
--- /dev/null
+++ b/externals/grill/py/pd/simple-2.pd
@@ -0,0 +1,37 @@
+#N canvas 225 210 689 411 12;
+#X floatatom 251 106 5 0 0;
+#X text 409 291 watch the console output!;
+#X msg 55 213 help;
+#X text 15 57 This demonstrates message handling. See the simple.py
+file.;
+#X msg 54 238 doc;
+#X msg 90 239 doc+;
+#X floatatom 308 106 5 0 0;
+#X msg 218 228 msg 2;
+#X obj 172 282 pyext simple ex2;
+#X floatatom 172 327 5 0 0;
+#X floatatom 289 328 5 0 0;
+#X text 17 22 py/pyext - Python script objects \, (C)2002 Thomas Grill
+;
+#X msg 149 197 msg 1 3;
+#X msg 283 213 msg a b;
+#X msg 169 167 hello;
+#X msg 242 173 hello;
+#X msg 315 172 msg;
+#X msg 374 147 hello 3;
+#X text 418 172 special case: 'hello' handler doesn't like args \,
+so _anything_ is called!;
+#X connect 0 0 8 1;
+#X connect 2 0 8 0;
+#X connect 4 0 8 0;
+#X connect 5 0 8 0;
+#X connect 6 0 8 2;
+#X connect 7 0 8 2;
+#X connect 8 0 9 0;
+#X connect 8 1 10 0;
+#X connect 12 0 8 1;
+#X connect 13 0 8 3;
+#X connect 14 0 8 1;
+#X connect 15 0 8 3;
+#X connect 16 0 8 2;
+#X connect 17 0 8 3;
diff --git a/externals/grill/py/pd/simple-3.pd b/externals/grill/py/pd/simple-3.pd
new file mode 100644
index 00000000..70416ad0
--- /dev/null
+++ b/externals/grill/py/pd/simple-3.pd
@@ -0,0 +1,27 @@
+#N canvas 307 249 546 386 12;

+#X msg 88 279 help;

+#X text 15 50 This demonstrates message handling. See the simple.py

+file.;

+#X msg 87 304 doc;

+#X msg 123 305 doc+;

+#X floatatom 288 345 5 0 0;

+#X text 17 22 py/pyext - Python script objects \, (C)2002 Thomas Grill

+;

+#X floatatom 316 119 5 0 0;

+#X floatatom 399 119 5 0 0;

+#X obj 225 279 pyext simple ex3 1;

+#X msg 39 195 reload.;

+#X msg 39 223 reload -10;

+#X text 110 194 reload script and keep arguments;

+#X text 128 224 reload script with new arguments;

+#X text 281 140 triggers;

+#X text 340 344 result;

+#X text 410 140 sets argument;

+#X connect 0 0 8 0;

+#X connect 2 0 8 0;

+#X connect 3 0 8 0;

+#X connect 6 0 8 1;

+#X connect 7 0 8 2;

+#X connect 8 0 4 0;

+#X connect 9 0 8 0;

+#X connect 10 0 8 0;

diff --git a/externals/grill/py/pd/tcltk.pd b/externals/grill/py/pd/tcltk.pd
new file mode 100644
index 00000000..c1c3b246
--- /dev/null
+++ b/externals/grill/py/pd/tcltk.pd
@@ -0,0 +1,18 @@
+#N canvas 156 192 610 329 12;

+#X obj 328 118 bng 25 250 50 0 empty empty empty 0 -6 0 8 -258699 -1

+-1;

+#X msg 94 128 help;

+#X text 16 15 py/pyext - Python script objects \, (C)2002 Thomas Grill

+;

+#X msg 139 127 doc;

+#X text 14 49 This demonstrates a tcl/tk dialog. See the tcltk.py file.

+;

+#X text 10 263 Note: When used concurrently with audio \, you will

+notice clicks. This Tk window is NOT called over a net socket \, like

+PD is;

+#X obj 206 169 pyext tcltk myapp;

+#X obj 206 200 print tcltk;

+#X connect 0 0 6 1;

+#X connect 1 0 6 0;

+#X connect 3 0 6 0;

+#X connect 6 0 7 0;

diff --git a/externals/grill/py/pd/thread-1.pd b/externals/grill/py/pd/thread-1.pd
new file mode 100644
index 00000000..892c37ce
--- /dev/null
+++ b/externals/grill/py/pd/thread-1.pd
@@ -0,0 +1,47 @@
+#N canvas 307 249 576 388 12;

+#X msg 38 265 help;

+#X msg 37 290 doc;

+#X msg 73 291 doc+;

+#X floatatom 145 323 5 0 0;

+#X text 16 14 py/pyext - Python script objects \, (C)2002 Thomas Grill

+;

+#X text 14 44 This demonstrates threading. See the threads.py file.

+;

+#X obj 145 279 pyext threads ex1;

+#X obj 140 216 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0

+1;

+#X msg 140 236 detach \$1;

+#X floatatom 253 324 5 0 0;

+#X obj 275 123 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1

+-1;

+#X obj 146 127 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1

+-1;

+#X obj 146 154 t b b b;

+#X obj 275 150 t b b b;

+#X obj 289 179 1;

+#X obj 160 181 0;

+#X text 87 87 without threads;

+#X text 113 105 blocking;

+#X text 251 85 with threads;

+#X text 252 102 non-blocking;

+#X text 178 345 watch that!;

+#X msg 414 127 stop;

+#X text 384 106 you can even stop it;

+#X connect 0 0 6 0;

+#X connect 1 0 6 0;

+#X connect 2 0 6 0;

+#X connect 6 0 3 0;

+#X connect 6 1 9 0;

+#X connect 7 0 8 0;

+#X connect 8 0 6 0;

+#X connect 10 0 13 0;

+#X connect 11 0 12 0;

+#X connect 12 0 6 1;

+#X connect 12 1 6 2;

+#X connect 12 2 15 0;

+#X connect 13 0 6 1;

+#X connect 13 1 6 2;

+#X connect 13 2 14 0;

+#X connect 14 0 7 0;

+#X connect 15 0 7 0;

+#X connect 21 0 6 0;

diff --git a/externals/grill/py/py.cw b/externals/grill/py/py.cw
new file mode 100644
index 00000000..f5f6fc7f
--- /dev/null
+++ b/externals/grill/py/py.cw
diff --git a/externals/grill/py/py.dsp b/externals/grill/py/py.dsp
new file mode 100644
index 00000000..8171624c
--- /dev/null
+++ b/externals/grill/py/py.dsp
@@ -0,0 +1,229 @@
+# Microsoft Developer Studio Project File - Name="py" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** NICHT BEARBEITEN **
+
+# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
+
+CFG=py - Win32 Threads Debug
+!MESSAGE Dies ist kein gόltiges Makefile. Zum Erstellen dieses Projekts mit NMAKE
+!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und fόhren Sie den Befehl
+!MESSAGE 
+!MESSAGE NMAKE /f "py.mak".
+!MESSAGE 
+!MESSAGE Sie kφnnen beim Ausfόhren von NMAKE eine Konfiguration angeben
+!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel:
+!MESSAGE 
+!MESSAGE NMAKE /f "py.mak" CFG="py - Win32 Threads Debug"
+!MESSAGE 
+!MESSAGE Fόr die Konfiguration stehen zur Auswahl:
+!MESSAGE 
+!MESSAGE "py - Win32 Release" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "py - Win32 Debug" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "py - Win32 Threads Release" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "py - Win32 Threads Debug" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE 
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName "py"
+# PROP Scc_LocalPath "."
+CPP=cl.exe
+MTL=midl.exe
+RSC=rc.exe
+
+!IF  "$(CFG)" == "py - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "pd-msvc\r"
+# PROP Intermediate_Dir "pd-msvc\r"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PY_EXPORTS" /YX /FD /c
+# ADD CPP /nologo /W3 /GR- /O2 /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /I "C:\Programme\prog\Python22\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /D "NT" /YX /FD /c
+# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "NDEBUG"
+# ADD RSC /l 0xc07 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /machine:I386 /libpath:"c:/programme/audio/pd/bin" /libpath:"..\flext\pd-msvc" /libpath:"C:\Programme\prog\Python22\libs"
+
+!ELSEIF  "$(CFG)" == "py - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "pd-msvc\d"
+# PROP Intermediate_Dir "pd-msvc\d"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PY_EXPORTS" /YX /FD /GZ /c
+# ADD CPP /nologo /W3 /Gm /GR /ZI /Od /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /I "C:\Programme\prog\Python22\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /D "NT" /FR /YX /FD /GZ /c
+# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "_DEBUG"
+# ADD RSC /l 0xc07 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext_d-pdwin.lib /nologo /dll /debug /machine:I386 /pdbtype:sept /libpath:"c:/programme/audio/pd/bin" /libpath:"..\flext\pd-msvc" /libpath:"f:\prog\packs\Python-2.2.1\PCbuild"
+
+!ELSEIF  "$(CFG)" == "py - Win32 Threads Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "py___Win32_Threads_Release"
+# PROP BASE Intermediate_Dir "py___Win32_Threads_Release"
+# PROP BASE Ignore_Export_Lib 0
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "pd-msvc\tr"
+# PROP Intermediate_Dir "pd-msvc\tr"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /W3 /GR /GX /O2 /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext" /I "C:\Programme\prog\Python22\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /D "NT" /YX /FD /c
+# ADD CPP /nologo /MT /W3 /GR /O2 /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /I "C:\Programme\prog\Python22\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /D "NT" /D "FLEXT_THREADS" /YX /FD /c
+# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "NDEBUG"
+# ADD RSC /l 0xc07 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /machine:I386 /libpath:"c:/programme/audio/pd/bin" /libpath:"..\flext\msvc" /libpath:"C:\Programme\prog\Python22\libs"
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext_t-pdwin.lib pthreadVC.lib /nologo /dll /machine:I386 /out:"pd-msvc\py.dll" /libpath:"c:/programme/audio/pd/bin" /libpath:"..\flext\pd-msvc" /libpath:"C:\Programme\prog\Python22\libs"
+
+!ELSEIF  "$(CFG)" == "py - Win32 Threads Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "py___Win32_Threads_Debug"
+# PROP BASE Intermediate_Dir "py___Win32_Threads_Debug"
+# PROP BASE Ignore_Export_Lib 0
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "pd-msvc\td"
+# PROP Intermediate_Dir "pd-msvc\td"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /W3 /Gm /GR /GX /ZI /Od /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext" /I "C:\Programme\prog\Python22\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /D "NT" /FR /YX /FD /GZ /c
+# ADD CPP /nologo /MTd /W3 /Gm /GR /GX /ZI /Od /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /I "C:\Programme\prog\Python22\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /D "NT" /D "FLEXT_THREADS" /FR /YX /FD /GZ /c
+# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "_DEBUG"
+# ADD RSC /l 0xc07 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /debug /machine:I386 /pdbtype:sept /libpath:"c:/programme/audio/pd/bin" /libpath:"..\flext\msvc-debug" /libpath:"f:\prog\packs\Python-2.2.1\PCbuild"
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext_td-pdwin.lib pthreadVC.lib /nologo /dll /debug /machine:I386 /pdbtype:sept /libpath:"c:/programme/audio/pd/bin" /libpath:"..\flext\pd-msvc" /libpath:"f:\prog\packs\Python-2.2.1\PCbuild"
+
+!ENDIF 
+
+# Begin Target
+
+# Name "py - Win32 Release"
+# Name "py - Win32 Debug"
+# Name "py - Win32 Threads Release"
+# Name "py - Win32 Threads Debug"
+# Begin Group "scripts"
+
+# PROP Default_Filter ""
+# Begin Source File
+
+SOURCE=.\scripts\script.py
+# End Source File
+# Begin Source File
+
+SOURCE=.\scripts\sendrecv.py
+# End Source File
+# Begin Source File
+
+SOURCE=.\scripts\simple.py
+# End Source File
+# Begin Source File
+
+SOURCE=.\scripts\tcltk.py
+# End Source File
+# Begin Source File
+
+SOURCE=.\scripts\threads.py
+# End Source File
+# End Group
+# Begin Group "doc"
+
+# PROP Default_Filter ""
+# Begin Source File
+
+SOURCE=.\gpl.txt
+# End Source File
+# Begin Source File
+
+SOURCE=.\license.txt
+# End Source File
+# Begin Source File
+
+SOURCE=.\readme.txt
+# End Source File
+# End Group
+# Begin Source File
+
+SOURCE=.\source\bound.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\clmeth.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\main.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\main.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\modmeth.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\py.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\pyargs.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\pyext.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\pyext.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\source\register.cpp
+# End Source File
+# End Target
+# End Project
diff --git a/externals/grill/py/py.mpw b/externals/grill/py/py.mpw
new file mode 100644
index 00000000..54c507a0
--- /dev/null
+++ b/externals/grill/py/py.mpw
@@ -0,0 +1,91 @@
+# py - python script object for PD and MaxMSP
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+#
+# Makefile for Apple MPW-PR 
+#
+# usage: make -f py.mpw
+#
+# ---------------------------------------------
+
+MAKEFILE        = py.mpw
+€MondoBuild€    = {MAKEFILE}  # Make blank to avoid rebuilds when makefile is modified
+
+Name			= py
+
+ObjDir          = :MPW:
+MaxSDK			= HD Daten:Prog Stuff:Max/MSP SDK:SDK Examples
+flext			= ::flext:
+Python			= HD Daten:Prog Stuff:Packs:Python-2.2
+PythonIncludes  = {Python}:Include
+PythonMacIncludes = {Python}:Mac:Include
+PythonCore 		= HD MacOS:Applications (Mac OS 9):dev:Python 2.2:PythonCore
+
+
+
+Includes        = -i :,"{flext}","{MaxSDK}:Max Includes","{MaxSDK}:MSP Includes","{GUSI}include","{PythonIncludes}","{PythonMacIncludes}"
+### MPW Shell - Command "Includes" was not found.
+
+Defines			= -d MAXMSP -d USE_GUSI2
+
+Sym-PPC         = -sym off
+Flags			= -bool on -enum int -includes unix -opt speed,unroll,unswitch  
+
+
+PPCCPlusOptions = {Includes} {Sym-PPC} {Defines} {Flags} 
+
+
+### Source Files ###
+
+SrcFiles        =  main.cpp
+Headers			=  
+
+
+### Object Files ###
+
+Obj-PPC    =  		
+				  "{ObjDir}main.cpp.x" 
+
+LibFiles-Ext    =  
+				  "{flext}MPW:flext.o" 
+				  "{MaxSDK}:Max Includes:MaxLib" 
+				  "{MaxSDK}:MSP Includes:MaxAudioLib" 
+				  "{PythonCore}"
+
+### Libraries ###
+
+LibFiles-PPC    =  
+				  "{SharedLibraries}StdCLib" 
+				  "{SharedLibraries}MathLib" 
+				  "{PPCLibraries}StdCRuntime.o" 
+				  "{PPCLibraries}PPCCRuntime.o" 
+				  "{PPCLibraries}MrCPlusLib.o" 
+
+
+### Default Rules ###
+
+{ObjDir} Ÿ :
+
+.cpp.x  Ÿ  .cpp  {€MondoBuild€} {Headers}
+	{PPCCPlus} {depDir}{default}.cpp -o {targDir}{default}.cpp.x {PPCCPlusOptions}
+
+
+### Build Rules ###
+
+all Ÿ Folder {€MondoBuild€} {ObjDir}{Name}
+
+Folder ŸŸ
+	if !`Exists {ObjDir}` ; NewFolder {ObjDir} ; end
+
+{ObjDir}{Name}  Ÿ {Obj-PPC} 
+	PPCLink 
+		-o {Targ} 
+		{deps} 
+		{LibFiles-Ext}  
+		{LibFiles-PPC} 
+		{Sym-PPC} 
+		-mf -d 
+		-t 'iLaF' 
+		-c 'max2' 
+		-xm s 
+		-export main 
+		-main main
diff --git a/externals/grill/py/readme.txt b/externals/grill/py/readme.txt
new file mode 100644
index 00000000..fc82880b
--- /dev/null
+++ b/externals/grill/py/readme.txt
@@ -0,0 +1,106 @@
+py/pyext - python script objects for PD (and MaxMSP... once, under MacOSX and Windows)
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+Donations for further development of the package are highly appreciated.
+
+----------------------------------------------------------------------------
+
+You will need the flext C++ layer for PD and Max/MSP externals to compile this.
+
+Package files:
+- readme.txt: this one
+- gpl.txt,license.txt: GPL license stuff
+- main.cpp, main.h, modmeth.cpp, pyargs.cpp, register.cpp: base class
+- py.cpp: py object
+- pyext.cpp, pyext.h, clmeth.cpp, bound.cpp: pyext object
+
+----------------------------------------------------------------------------
+
+Goals/features of the package:
+
+Access the flexibility of the python language in PD/MaxMSP
+
+
+PD - Load it as i library with e.g. "pd -lib py -path scripts"
+Max/MSP - Wait for Windows or MacOSX version. MacOS9 doesn't want it.
+
+
+Check out the sample patches and scripts
+
+
+Description:
+
+With the py object you can load python modules and execute the functions therein.
+With the pyext you can use python classes to represent full-featured pd/Max message objects.
+Multithreading (detached methods) is supported for both objects.
+You can send messages to named objects or receive (with pyext) with Python methods.
+
+----------------------------------------------------------------------------
+
+The py/pyext package should run with Python version >= 2.1.
+It has been thoroughly tested with version 2.2
+
+
+The package should at least compile (and is tested) with the following compilers:
+
+pd - Windows:
+-------------
+o Borland C++ 5.5 (free): edit "config-pd-bcc.txt" & run "build-pd-bcc.bat" 
+
+o Microsoft Visual C++ 6: edit the project file "py.dsp" & build 
+
+pd - linux:
+-----------
+Python doesn't provide a shared lib by default - static linking produces huge externals
+Ok, debian is an exception... the precompiled binary is for debian, therefore.
+
+o GCC: edit "config-pd-linux.txt" & run "sh build-pd-linux.sh" 
+
+----------------------------------------------------------------------------
+
+Version history:
+
+0.1.1:
+- FIX: crash when module couldn't be loaded
+- FIX: GetBound method (modmeth.cpp, line 138) doesn't exist in flext any more
+- FIX: deadlock occured when connecting to py/pyext boxes in non-detached mode
+- ADD: current path and path of the canvas is added to the python path
+
+0.1.0:
+- completely reworked all code
+- added class functionality for full-featured objects and renamed the merge to pyext
+- enabled threads and made everything thread-safe ... phew!
+- using flext 0.3.2
+- pyext now gets full python path
+- python's argv[0] is now "py" or "pyext"
+- etc.etc.
+
+0.0.2:
+- fixed bug when calling script with no function defined (thanks to Ben Saylor)
+- cleaner gcc makefile
+
+0.0.1:
+- using flext 0.2.1
+
+---------------------------------------------------------------------------
+
+TODO list:
+
+general:
+- Documentation and better example patches
+
+features:
+- enable multiple interpreters?
+- make a pygui object where Tkinter draws to the PD canvas...
+- stop individual threads
+
+tests:
+- check for python threading support
+
+bugs:
+- the python interpreter can't be unloaded due to some bug at re-initialization
+- named (keyword) arguments are not supported
+
diff --git a/externals/grill/py/scripts/script.py b/externals/grill/py/scripts/script.py
new file mode 100644
index 00000000..4796949c
--- /dev/null
+++ b/externals/grill/py/scripts/script.py
@@ -0,0 +1,53 @@
+# py/pyext - python script objects for PD and MaxMSP
+#
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+# For information on usage and redistribution, and for a DISCLAIMER OF ALL
+# WARRANTIES, see the file, "license.txt," in this distribution.  
+#
+
+"""Several functions to show the py script functionality"""
+
+import sys
+
+print "Script initialized"
+
+try:
+	print "Script arguments: ",sys.argv
+except:
+	print 
+
+def numargs(*args):   # variable argument list
+	"""Return the number of arguments"""
+	return len(args)
+
+def strlen(arg):   
+	"""Return the string length"""
+	return len(arg)
+
+
+def strcat(*args):
+	"""Concatenate several symbols"""
+	s = ""
+	for si in args:
+		s += str(si)
+	return s
+
+
+def addall(*args):   # variable argument list
+	s = 0
+	for si in args:
+		s += si
+	return s
+
+
+def ret1():
+	return 1,2,3,4
+
+
+def ret2():
+	return "sd","lk","ki"
+
+
+def ret3():
+	return ["sd","lk","ki"]
+
diff --git a/externals/grill/py/scripts/sendrecv.py b/externals/grill/py/scripts/sendrecv.py
new file mode 100644
index 00000000..f31eae2d
--- /dev/null
+++ b/externals/grill/py/scripts/sendrecv.py
@@ -0,0 +1,173 @@
+# py/pyext - python script objects for PD and MaxMSP
+#
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+# For information on usage and redistribution, and for a DISCLAIMER OF ALL
+# WARRANTIES, see the file, "license.txt," in this distribution.  
+#
+
+"""This is an example script for the py/pyext object's send/receive functionality.
+
+You can:
+- bind
+
+
+There are several classes exposing py/pyext features:
+- ex1: A class receiving messages and sending them out again
+- ex2: A class receiving messages and putting them out to an outlet
+- ex3: Do some PD scripting
+
+"""
+
+import pyext
+from time import sleep
+
+#################################################################
+
+def recv_gl(arg):
+	"""This is a global receive function, it has no access to class members."""
+	print "GLOBAL",arg
+
+class ex1(pyext._class):
+	"""Example of a class which receives and sends messages
+
+	It has two creation arguments: a receiver and a sender name.
+	There are no inlets and outlets.
+	Python functions (one global function, one class method) are bound to PD's or Max/MSP's receive symbols.
+	The class method sends the received messages out again.
+	"""
+
+
+	# no inlets and outlets
+	_inlets=0
+	_outlets=0
+
+	recvname=""   
+	sendname=""
+
+	def recv(self,arg):
+		"""This is a class-local receive function, which has access to class members."""
+
+		# print some stuff
+		print "CLASS",self.recvname,arg
+
+		# send data to specified send address
+		self._send(self.sendname,arg)
+
+
+	def __init__(self,args):
+		"""Class constructor"""
+
+		# store sender/receiver names
+		if len(args) >= 1: self.recvname = args[0]
+		if len(args) >= 2: self.sendname = args[1]
+
+		# bind functions to receiver names
+		# both are called upon message 
+		self._bind(self.recvname,self.recv)
+		self._bind(self.recvname,recv_gl)
+
+
+	def __del__(self):
+		"""Class destructor"""
+
+		# you can but you don't need to
+		# unbinding is automatically done at destruction
+		# you can also comment the _unbind lines
+		self._unbind(self.recvname,self.recv)
+		self._unbind(self.recvname,recv_gl)
+
+		pass
+
+
+#################################################################
+
+class ex2(pyext._class):
+	"""Example of a class which receives a message and forwards it to an outlet
+
+	It has one creation argument: the receiver name.
+	"""
+
+
+	# define inlets and outlets
+	_inlets=0
+	_outlets=1
+
+	recvname=""   
+
+	def recv(self,arg):
+		"""This is a class-local receive function"""
+
+		# send received data to outlet
+		self._outlet(1,arg)
+
+
+	def __init__(self,rname):
+		"""Class constructor"""
+
+		# store receiver names
+		self.recvname = rname
+
+		# bind function to receiver name
+		self._bind(self.recvname,self.recv)
+
+
+#################################################################
+
+from math import sin,cos,pi
+from cmath import exp
+from random import random,randint
+
+class ex3(pyext._class):
+	"""Example of a class which does some object manipulation by scripting"""
+
+
+	# define inlets and outlets
+	_inlets=1
+	_outlets=0
+
+	def __init__(self):
+		"""Class constructor"""
+
+		# called scripting method should run on its own thread
+		self._detach(1)  
+
+
+	def bang_1(self):
+		"""Do some scripting - PD only!"""
+
+		num = 12				# number of objects
+		ori = complex(150,150)  # origin
+		rad = 100				# radius
+		l = range(num)			# initialize list
+
+		# make flower
+		self._tocanvas("obj",ori.real,ori.imag,"bng",20,250,50,0,"empty","yeah","empty",0,-6,64,8,-24198,-1,-1)
+		for i in range(num):
+			l[i] = ori+rad*exp(complex(0,i*2*pi/num))
+			self._tocanvas("obj",l[i].real,l[i].imag,"bng",15,250,50,0,"empty","yeah"+str(i),"empty",0,-6,64,8,0,-1,-1)
+			self._tocanvas("connect",2,0,3+i,0)
+
+		# blink
+		for i in range(10):
+			self._send("yeah","bang")
+			sleep(1./(i+1))
+
+		# move objects around
+		for i in range(200):
+			ix	= randint(0,num-1)
+			l[ix] = ori+rad*complex(2*random()-1,2*random()-1)
+			self._send("yeah"+str(ix),"pos",l[ix].real,l[ix].imag)
+			sleep(0.02)
+
+		# now delete
+		# this is not well-done... from time to time an object remains
+		self._tocanvas("editmode",1)
+		for i in range(num):
+			self._tocanvas("mouse",l[i].real,l[i].imag,0,0)
+			self._tocanvas("cut")
+
+		self._tocanvas("mouse",ori.real+1,ori.imag+1,0,0)
+		self._tocanvas("cut")
+
+		self._tocanvas("editmode",0)
+
diff --git a/externals/grill/py/scripts/simple.py b/externals/grill/py/scripts/simple.py
new file mode 100644
index 00000000..60cebec7
--- /dev/null
+++ b/externals/grill/py/scripts/simple.py
@@ -0,0 +1,206 @@
+# py/pyext - python script objects for PD and MaxMSP
+#
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+# For information on usage and redistribution, and for a DISCLAIMER OF ALL
+# WARRANTIES, see the file, "license.txt," in this distribution.  
+#
+
+"""This is an example script for the py/pyext object's basic functionality.
+
+pyext Usage:
+- Import pyext
+
+- Inherit your class from pyext._class
+
+- Specfiy the number of inlets and outlets:
+	Use the class members (variables) _inlets and _outlets
+	If not given they default to 1
+	You can also use class methods with the same names to return the respective number
+
+- Constructors/Destructors
+	You can specify an __init__ constructor and/or an __del__ destructor.
+	The constructor will be called with the object's arguments
+
+	e.g. if your PD or MaxMSP object looks like
+	[pyext script class arg1 arg2 arg3]
+
+	then the __init__(self,args) function will be called with a tuple argument
+	args = (arg1,arg2,arg3) 
+	With this syntax, you will have to give at least one argument.
+	By defining the constructor as __init__(self,*args) you can also initialize 
+	the class without arguments.
+
+- Methods called by pyext
+	The general format is 'tag_inlet(self,args)' resp. 'tag_inlet(self,*args)':
+		tag is the PD or MaxMSP message header.. either bang, float, list etc.
+		inlet is the inlet (starting from 1) from which messages are received.
+		args is a tuple which corresponds to the content of the message. args can be omitted.
+
+	The inlet index can be omitted. The method name then has the format 'tag_(self,inlet,args)'.
+	Here, the inlet index is a additional parameter to the method
+
+	You can also set up methods which react on any message. These have the special forms
+		_anything_inlet(self,args)
+	or
+		_anything_(self,inlet,args) 
+
+	Please see below for examples.
+
+	Any return values are ignored - use _outlet (see below).
+
+	Generally, you should avoid method_, method_xx forms for your non-pyext class methods.
+	Identifiers (variables and functions) with leading underscores are reserved for pyext.
+
+- Send messages to outlets:
+	Use the inherited _outlet method.
+	You can either use the form
+		self._outlet(outlet,arg1,arg2,arg3,arg4) ... where all args are atoms (no sequence types!)
+	or
+		self._outlet(outlet,arg) ... where arg is a sequence containing only atoms
+
+- Use pyext functions and methods: 
+	See the __doc__ strings of the pyext module and the pyext._class base class.
+
+"""
+
+import pyext
+
+#################################################################
+
+class ex1(pyext._class):
+	"""Example of a simple class which receives messages and prints to the console"""
+
+	# number of inlets and outlets
+	_inlets=3
+	_outlets=0
+
+
+	# methods for first inlet
+
+	def bang_1(self):
+		print "Bang into first inlet"
+
+	def float_1(self,f):
+		print "Float ",f," into first inlet"
+
+	def list_1(self,s):
+		print "List ",s," into first inlet"
+
+
+	# methods for second inlet
+
+	def hey_2(self):
+		print "Tag 'hey' into second inlet"
+
+	def ho_2(self):
+		print "Tag 'ho' into second inlet"
+
+	def lets_2(self):
+		print "Tag 'lets' into second inlet"
+
+	def go_2(self):
+		print "Tag 'go' into second inlet"
+
+	def _anything_2(self,args):
+		print "Some other message into second inlet:",args
+
+
+	# methods for third inlet
+
+	def onearg_3(self,a):
+		print "Tag 'onearg' into third inlet:",a
+
+	def twoargs_3(self,a):
+		if len(a) == 2:
+			print "Tag 'twoargs' into third inlet:",a[0],a[1]
+		else:
+			print "Tag 'twoargs': wrong number of arguments"
+
+	def threeargs_3(self,a):
+		if len(a) == 3:
+			print "Tag 'threeargs' into third inlet",a[0],a[1],a[2]
+		else:
+			print "Tag 'threeargs': wrong number of arguments"
+
+	def varargs_3(self,*args):
+		# with *args there can be arguments or not
+
+		print "Tag 'varargs' into third inlet",args
+
+
+
+#################################################################
+
+class ex2(pyext._class):
+	"""Example of a simple class which receives messages and writes to outlets"""
+
+	# number of inlets and outlets
+	_inlets=3
+	_outlets=2
+
+	# methods for all inlets
+
+	def hello_(self,n):
+		print "Tag 'hello' into inlet",n
+
+	def _anything_(self,n,args):
+		print "Message into inlet",n,":",args
+
+
+	# methods for first inlet
+
+	def float_1(self,f):
+		self._outlet(2,f)
+
+	# methods for second inlet
+
+	def float_2(self,f):
+		self._outlet(1,f)
+
+
+#################################################################
+
+# helper function - determine whether argument is a numeric type
+def isNumber(value):
+	import types
+	if type(value) in (types.FloatType, types.IntType, types.LongType):
+		return 1
+	else:
+		return 0
+
+
+class ex3(pyext._class):
+	"""Example of a simple class doing a typical number addition
+	
+	It uses a constructor and a class member as temporary storage.
+	"""
+
+	# number of inlets and outlets
+	_inlets=2
+	_outlets=1
+
+	# temporary storage
+	tmp=0
+
+	# constructor
+	def __init__(self,*args):
+		if len(args) == 1: 
+			if isNumber(args[0]):
+				self.tmp = args[0]
+			else:
+				print "ex3: __init__ has superfluous arguments"
+
+	# methods 
+
+	def float_1(self,f):
+		self._outlet(1,self.tmp+f)
+
+	def float_2(self,f):
+		self.tmp = f
+
+	# handlers for MaxMSP int type
+	def int_1(self,f):  
+		self.float_1(f)
+
+	def int_2(self,f):  
+		self.float_2(f)
diff --git a/externals/grill/py/scripts/tcltk.py b/externals/grill/py/scripts/tcltk.py
new file mode 100644
index 00000000..154a51b1
--- /dev/null
+++ b/externals/grill/py/scripts/tcltk.py
@@ -0,0 +1,77 @@
+# py/pyext - python script objects for PD and MaxMSP
+#
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+# For information on usage and redistribution, and for a DISCLAIMER OF ALL
+# WARRANTIES, see the file, "license.txt," in this distribution.  
+#
+
+"""This is an example script for showing a nonsense tcl/tk application."""
+
+import pyext
+from Tkinter import *
+import random
+
+
+class Application(Frame):                                           
+	"""This is the TK application class"""
+
+	# Button pressed
+	def say_hi(self):                                                    
+		self.extcl._outlet(1,"hi there, everyone!")
+
+	# Mouse motion over canvas
+	def evfunc(self, ev):
+		x = random.uniform(-3,3)
+		y = random.uniform(-3,3)
+		self.mcanv.move('group',x,y)	
+
+	# Create interface stuff
+	def createWidgets(self):                                             
+		self.hi = Button(self)                                         
+		self.hi["text"] = "Hi!"                                       
+		self.hi["fg"]   = "red"                                       
+		self.hi["command"] =  self.say_hi                                                                       
+		self.hi.pack({"side": "left"})                                
+                                                                    
+		self.mcanv = Canvas(self)
+		self.mcanv.pack({"side": "left"})
+		self.mcanv.bind("<Motion>", self.evfunc)
+		self.mcanv.create_rectangle(50,50,200,200)
+		r = self.mcanv.create_rectangle(50,50,200,200)
+		self.mcanv.addtag_withtag('group',r)
+
+		for i in range(500):
+			x = random.uniform(50,200)
+			y = random.uniform(50,200)
+			l = self.mcanv.create_line(x,y,x+1,y)
+			self.mcanv.addtag_withtag('group',l)
+                                                                    
+	# Constructor
+	def __init__(self,cl):
+		self.extcl = cl
+		Frame.__init__(self)
+		self.pack()
+		self.createWidgets()
+		pass
+
+
+# derive class from pyext._class
+
+class myapp(pyext._class):   
+	"""This class demonstrates how a TCL/TK can be openened from within a pyext external"""
+
+	# how many inlets and outlets?
+	_inlets = 1
+	_outlets = 1
+
+	# Constructor
+	def __init__(self):
+		# detach bang method
+		self._detach(1)
+
+	def bang_1(self):
+		self._priority(-3)
+		# display the tcl/tk dialog
+		app = Application(self)
+		app.mainloop()
+
diff --git a/externals/grill/py/scripts/threads.py b/externals/grill/py/scripts/threads.py
new file mode 100644
index 00000000..e8486699
--- /dev/null
+++ b/externals/grill/py/scripts/threads.py
@@ -0,0 +1,43 @@
+# py/pyext - python script objects for PD and MaxMSP
+#
+# Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+# For information on usage and redistribution, and for a DISCLAIMER OF ALL
+# WARRANTIES, see the file, "license.txt," in this distribution.  
+#
+
+"""This is an example script for the py/pyext object's threading functionality.
+
+For threading support pyext exposes several function and variables
+
+- _detach([0/1]): by enabling thread detaching, threads will run in their own threads
+- _priority(prio+-): you can raise or lower the priority of the current thread
+- _stop({wait time in ms}): stop all running threads (you can additionally specify a wait time in ms)
+- _shouldexit: this is a flag which indicates that the running thread should terminate
+
+"""
+
+import pyext
+from time import sleep
+
+#################################################################
+
+class ex1(pyext._class):
+	"""This is a simple class with one method looping over time."""
+
+	# number of inlets and outlets
+	_inlets=2
+	_outlets=2
+
+	sltime=0.2 # sleep time
+	loops=30   # loops to iterate
+
+	# method for bang to any inlet
+	def bang_(self,n):
+		for i in range(30):
+			# if _shouldexit is true, the thread ought to stop
+			if self._shouldexit: break
+
+			self._outlet(n,i)
+			sleep(self.sltime)
+
+
diff --git a/externals/grill/py/source/bound.cpp b/externals/grill/py/source/bound.cpp
new file mode 100644
index 00000000..651bb52b
--- /dev/null
+++ b/externals/grill/py/source/bound.cpp
@@ -0,0 +1,143 @@
+/* 
+
+py/pyext - python external object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "pyext.h"
+#include "flinternal.h"
+
+t_class *pyext::px_class;
+pyext::py_proxy *pyext::px_head,*pyext::px_tail;
+
+void pyext::py_proxy::px_method(py_proxy *obj,const t_symbol *s,int argc,t_atom *argv)
+{
+	PY_LOCK
+
+	PyObject *args = MakePyArgs(s,AtomList(argc,argv),-1,obj->self != NULL);
+	PyObject *ret = PyObject_CallObject(obj->func,args);
+	if(!ret) {
+		PyErr_Print();
+	}
+	Py_XDECREF(ret);
+
+	PY_UNLOCK
+}
+
+
+PyObject *pyext::pyext_bind(PyObject *,PyObject *args)
+{
+    PyObject *self,*meth;
+	C *name;
+    if(!PyArg_ParseTuple(args, "OsO:pyext_bind", &self,&name,&meth))
+		post("py/pyext - Wrong arguments!");
+	else if(!PyInstance_Check(self) || !(PyMethod_Check(meth) || PyFunction_Check(meth))) {
+		post("py/pyext - Wrong argument types!");
+    }
+	else {
+		t_symbol *recv = gensym(name);
+/*
+		if(GetBound(recv))
+			post("py/pyext - Symbol \"%s\" is already hooked",GetString(recv));
+*/		
+		// make a proxy object
+		py_proxy *px = (py_proxy *)object_new(px_class);
+		if(PyMethod_Check(meth)) {
+			PyObject *no = PyObject_GetAttrString(meth,"__name__");
+			meth  = PyObject_GetAttr(self,no); 
+			Py_DECREF(no);
+		}
+		px->init(recv,self,meth);  
+
+		// add it to the list
+		if(px_tail) px_tail->nxt = px;
+		else px_head = px;
+		px_tail = px;
+
+		// Do bind
+		pd_bind(&px->obj.ob_pd,recv);  
+
+		Py_INCREF(self); // self is borrowed reference
+	}
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+PyObject *pyext::pyext_unbind(PyObject *,PyObject *args)
+{
+    PyObject *self,*meth;
+	C *name;
+    if(!PyArg_ParseTuple(args, "OsO:pyext_bind", &self,&name,&meth))
+		post("py/pyext - Wrong arguments!");
+	else if(!PyInstance_Check(self) || !(PyMethod_Check(meth) || PyFunction_Check(meth))) {
+		post("py/pyext - Wrong argument types!");
+    }
+	else {
+		t_symbol *recv = gensym(name);
+		if(PyMethod_Check(meth)) {
+			PyObject *no = PyObject_GetAttrString(meth,"__name__");
+			meth  = PyObject_GetAttr(self,no); // meth is given a new reference!
+			Py_DECREF(no);
+		}
+
+		// search proxy object
+		py_proxy *pp = NULL,*px = px_head;
+		while(px) {
+			py_proxy *pn = px->nxt;
+			if(recv == px->name && self == px->self && meth == px->func) {
+				if(pp)
+					pp->nxt = pn;
+				else
+					px_head = pn;
+				if(!pn) px_tail = pp;
+				break;
+			}
+			else pp = px;
+			px = pn;
+		}
+
+		// do unbind
+		if(px) {
+			pd_unbind(&px->obj.ob_pd,recv);  
+			object_free(px->obj);
+
+			Py_DECREF(self);
+			if(PyMethod_Check(meth)) Py_DECREF(meth);
+		}
+	}
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+
+V pyext::ClearBinding()
+{
+	// search proxy object
+	py_proxy *pp = NULL,*px = px_head;
+	while(px) {
+		py_proxy *pn = px->nxt;
+		if(px->self == pyobj) {
+			if(pp)
+				pp->nxt = pn;
+			else
+				px_head = pn;
+			if(!pn) px_tail = pp;
+
+			Py_DECREF(px->self);
+			if(PyMethod_Check(px->func)) Py_DECREF(px->func);
+
+			pd_unbind(&px->obj.ob_pd,px->name);  
+			object_free(px->obj);
+		}
+		else pp = px;	
+		px = pn;
+	}
+}
+
+
diff --git a/externals/grill/py/source/clmeth.cpp b/externals/grill/py/source/clmeth.cpp
new file mode 100644
index 00000000..0a30d1f7
--- /dev/null
+++ b/externals/grill/py/source/clmeth.cpp
@@ -0,0 +1,278 @@
+/* 
+
+py/pyext - python external object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "pyext.h"
+
+
+PyMethodDef pyext::meth_tbl[] = 
+{
+    {"__init__", pyext::pyext__init__, METH_VARARGS, "Constructor"},
+    {"__del__", pyext::pyext__del__, METH_VARARGS, "Destructor"},
+
+    {"_outlet", pyext::pyext_outlet, METH_VARARGS,"Send message to outlet"},
+	{"_tocanvas", pyext::pyext_tocanvas, METH_VARARGS,"Send message to canvas" },
+
+	{ "_bind", pyext::pyext_bind, METH_VARARGS,"Bind function to a receiving symbol" },
+	{ "_unbind", pyext::pyext_unbind, METH_VARARGS,"Unbind function from a receiving symbol" },
+#ifdef FLEXT_THREADS
+	{ "_detach", pyext::pyext_detach, METH_VARARGS,"Set detach flag for called methods" },
+	{ "_stop", pyext::pyext_stop, METH_VARARGS,"Stop running threads" },
+#endif
+    {NULL, NULL, 0, NULL}        /* Sentinel */
+};
+
+PyMethodDef pyext::attr_tbl[] =
+{
+	{ "__setattr__", pyext::pyext_setattr, METH_VARARGS,"Set class attribute" },
+	{ "__getattr__", pyext::pyext_getattr, METH_VARARGS,"Get class attribute" },
+	{ NULL, NULL,0,NULL },
+};
+
+
+const C *pyext::pyext_doc =
+	"py/pyext - python external object for PD and MaxMSP, (C)2002 Thomas Grill\n"
+	"\n"
+	"This is the pyext base class. Available methods:\n"
+	"_outlet(self,ix,args...): Send a message to an indexed outlet\n"
+	"_tocanvas(self,args...): Send a message to the parent canvas\n"
+#ifdef FLEXT_THREADS
+	"_detach(self,int): Define whether a called Python method has its own thread\n"
+#endif
+	"_bind(self,name,func): Bind a python function to a symbol\n"
+	"_unbind(self,name,func): Unbind a python function from a symbol\n"
+;
+
+PyObject* pyext::pyext__init__(PyObject *,PyObject *args)
+{
+//    post("pyext.__init__ called");
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+PyObject* pyext::pyext__del__(PyObject *,PyObject *args)
+{
+//    post("pyext.__del__ called");
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+PyObject* pyext::pyext_setattr(PyObject *,PyObject *args)
+{
+    PyObject *self,*name,*val,*ret = NULL;
+    if(!PyArg_ParseTuple(args, "OOO:test_foo", &self,&name,&val)) {
+        // handle error
+		ERRINTERNAL();
+		return NULL;
+    }
+
+	BL handled = false;
+    if(PyString_Check(name)) {
+	    char* sname = PyString_AsString(name);
+		if (sname) {
+//			post("pyext::setattr %s",sname);
+		}
+	}
+
+	if(!handled) {
+		if(PyInstance_Check(self)) 
+			PyDict_SetItem(((PyInstanceObject *)self)->in_dict, name,val);
+		else
+			ERRINTERNAL();
+	}
+
+	Py_INCREF(Py_None);
+	return Py_None;
+}
+
+PyObject* pyext::pyext_getattr(PyObject *,PyObject *args)
+{
+    PyObject *self,*name,*ret = NULL;
+    if(!PyArg_ParseTuple(args, "OO:test_foo", &self,&name)) {
+        // handle error
+		ERRINTERNAL();
+    }
+
+    if(PyString_Check(name)) {
+	    char* sname = PyString_AsString(name);
+		if (sname) {
+			if(!strcmp(sname,"_shouldexit")) {
+				pyext *ext = GetThis(self); 
+				if(ext)
+					ret = PyLong_FromLong(ext->shouldexit?1:0);
+			}
+//			post("pyext::getattr %s",sname);
+		}
+	}
+
+	if(!ret) { 
+#if PY_VERSION_HEX >= 0x02020000
+		ret = PyObject_GenericGetAttr(self,name);
+#else
+		if(PyInstance_Check(self))
+			ret = PyDict_GetItem(((PyInstanceObject *)self)->in_dict,name);	
+#endif
+	}
+	return ret;
+}
+
+
+//! Send message to outlet
+PyObject *pyext::pyext_outlet(PyObject *,PyObject *args)
+{
+	BL ok = false;
+    if(PySequence_Check(args)) {
+		PyObject *self = PySequence_GetItem(args,0);
+		PyObject *outl = PySequence_GetItem(args,1);
+		if(
+			self && PyInstance_Check(self) && 
+			outl && PyInt_Check(outl)
+		) {
+			pyext *ext = GetThis(self);
+
+			I sz = PySequence_Size(args);
+			PyObject *val;
+			BL tp = sz == 3 && PySequence_Check(PySequence_GetItem(args,2));
+
+			if(tp)
+				val = PySequence_GetItem(args,2); // borrowed
+			else
+				val = PySequence_GetSlice(args,2,sz);  // new ref
+
+			AtomList *lst = GetPyArgs(val);
+			if(lst) {
+				I o = PyInt_AsLong(outl);
+				if(o >= 1 && o <= ext->Outlets()) {
+					// by using the queue there is no immediate call of the next object
+					// deadlock would occur if this was another py/pyext object!
+					if(lst->Count() && IsSymbol((*lst)[0]))
+						ext->ToQueueAnything(o-1,GetSymbol((*lst)[0]),lst->Count()-1,lst->Atoms()+1);
+					else
+						ext->ToQueueList(o-1,*lst);
+				}
+				else
+					post("pyext: outlet index out of range");
+
+				ok = true;
+			}
+			else 
+				post("py/pyext - No data to send");
+			if(lst) delete lst;
+
+			if(!tp) Py_DECREF(val);
+		}
+	}
+
+	if(!ok)	post("pyext - Syntax: _outlet(self,outlet,args...)");
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+
+
+#ifdef FLEXT_THREADS
+//! Detach threads
+PyObject *pyext::pyext_detach(PyObject *,PyObject *args)
+{
+	PyObject *self; 
+	int val;
+    if(!PyArg_ParseTuple(args, "Oi:pyext_detach",&self,&val)) {
+        // handle error
+		post("pyext - Syntax: _detach(self,[0/1])");
+    }
+	else {
+		pyext *ext = GetThis(self);
+		ext->m_detach(val != 0);
+	}
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+//! Stop running threads
+PyObject *pyext::pyext_stop(PyObject *,PyObject *args)
+{
+	PyObject *self; 
+	int val = -1;
+    if(!PyArg_ParseTuple(args, "O|i:pyext_stop",&self,&val)) {
+        // handle error
+		post("pyext - Syntax: _stop(self,{wait time}");
+    }
+	else {
+		pyext *ext = GetThis(self);
+		I cnt = 0;
+		t_atom at;
+		if(val >= 0) flext::SetInt(at,val);
+		ext->m_stop(cnt,&at);
+	}
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+#endif
+
+//! Send message to canvas
+PyObject *pyext::pyext_tocanvas(PyObject *,PyObject *args)
+{
+	BL ok = false;
+    if(PySequence_Check(args)) {
+		PyObject *self = PySequence_GetItem(args,0);
+		if(self && PyInstance_Check(self)) {
+			pyext *ext = GetThis(self);
+
+#ifdef PD
+			I sz = PySequence_Size(args);
+			PyObject *val;
+			BL tp = sz == 2 && PySequence_Check(PyTuple_GetItem(args,1));
+
+			if(tp)
+				val = PySequence_GetItem(args,1); // borrowed
+			else
+				val = PySequence_GetSlice(args,1,sz);  // new ref
+
+			AtomList *lst = GetPyArgs(val);
+			if(lst) {
+				t_glist *gl = ext->thisCanvas(); //canvas_getcurrent();
+			    t_class **cl = (t_pd *)gl;
+				if(cl) {
+#ifdef PD
+					pd_forwardmess(cl,lst->Count(),lst->Atoms());
+#else
+					#pragma message ("Send is not implemented")
+#endif
+				}
+#ifdef _DEBUG
+				else
+					post("pyext - no parent canvas?!");
+#endif
+				ok = true;
+			}
+			else 
+				post("py/pyext - No data to send");
+			if(lst) delete lst;
+
+			if(!tp) Py_DECREF(val);
+#else
+#pragma message ("Not implemented for MaxMSP")
+#endif
+		}
+	}
+
+	if(!ok)	post("pyext - Syntax: _tocanvas(self,args...)");
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+
+
diff --git a/externals/grill/py/source/main.cpp b/externals/grill/py/source/main.cpp
new file mode 100644
index 00000000..65e1d274
--- /dev/null
+++ b/externals/grill/py/source/main.cpp
@@ -0,0 +1,212 @@
+/* 
+
+py/pyext - python external object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+
+V py::lib_setup()
+{
+	post("");
+	post("py/pyext %s - python script objects, (C)2002 Thomas Grill",PY__VERSION);
+	post("");
+
+	FLEXT_SETUP(pyobj);
+	FLEXT_SETUP(pyext);
+
+	pyref = 0;
+}
+
+FLEXT_LIB_SETUP(py,py::lib_setup)
+
+PyInterpreterState *py::pystate = NULL;
+
+
+I py::pyref = 0;
+PyObject *py::module_obj = NULL;
+PyObject *py::module_dict = NULL;
+
+
+py::py(): 
+	module(NULL),
+	detach(false),shouldexit(false),thrcount(0),
+	clk(NULL),stoptick(0)
+{
+	Lock();
+	// under Max/MSP: doesn't survive next line.....
+
+	if(!(pyref++)) {
+		Py_Initialize();
+
+	#ifdef FLEXT_THREADS
+		PyEval_InitThreads();
+
+		pystate = PyThreadState_Get()->interp;
+	#endif
+		// register/initialize pyext module only once!
+		module_obj = Py_InitModule(PYEXT_MODULE, func_tbl);
+		module_dict = PyModule_GetDict(module_obj);
+
+		PyModule_AddStringConstant(module_obj,"__doc__",(C *)py_doc);
+
+	#ifdef FLEXT_THREADS
+		pythrmain = PyEval_SaveThread();
+	#endif
+	}
+	else {
+		PY_LOCK
+		Py_INCREF(module_obj);
+		Py_INCREF(module_dict);
+		PY_UNLOCK
+	}
+
+	Unlock();
+
+	clk = clock_new(this,(t_method)tick);
+}
+
+py::~py()
+{
+	if(thrcount) {
+		shouldexit = true;
+
+		// Wait for a certain time
+		for(int i = 0; i < (PY_STOP_WAIT/PY_STOP_TICK) && thrcount; ++i) Sleep((F)(PY_STOP_TICK/1000.));
+
+		// Wait forever
+		post("%s - Waiting for thread termination!",thisName());
+		while(thrcount) Sleep(0.2f);
+		post("%s - Okay, all threads have terminated",thisName());
+	}
+		
+/*
+	// don't unregister
+
+	Lock();
+
+    if(!(--pyref)) {
+		Py_DECREF(module_obj);
+		module_obj = NULL;
+		Py_DECREF(module_dict);
+		module_dict = NULL;
+
+		Py_XDECREF(module);
+
+//		delete modules; modules = NULL;
+
+		PyEval_AcquireThread(pythrmain); 
+		PyThreadState *new_state = PyThreadState_New(pystate); // must have lock 
+		PyThreadState *prev_state = PyThreadState_Swap(new_state);
+
+		Py_Finalize();
+	}
+
+	Unlock();
+*/
+	if(clk) clock_free(clk);
+}
+
+
+V py::m_doc()
+{
+	if(dict) {
+		PyObject *docf = PyDict_GetItemString(dict,"__doc__"); // borrowed!!!
+		if(docf && PyString_Check(docf)) {
+			post("");
+			post(PyString_AsString(docf));
+		}
+	}
+}
+
+
+
+
+V py::SetArgs(I argc,t_atom *argv)
+{
+	// script arguments
+	C **sargv = new C *[argc+1];
+	for(int i = 0; i <= argc; ++i) {
+		sargv[i] = new C[256];
+		if(!i) 
+			strcpy(sargv[i],thisName());
+		else
+			GetAString(argv[i-1],sargv[i],255);
+	}
+
+	// the arguments to the module are only recognized once! (at first use in a patcher)
+	PySys_SetArgv(argc+1,sargv);
+
+	for(int j = 0; j <= argc; ++j) delete[] sargv[j];
+	delete[] sargv;
+}
+
+V py::ImportModule(const C *name)
+{
+	if(!name) return;
+
+	module = PyImport_ImportModule((C *)name);
+	if (!module) {
+		PyErr_Print();
+		dict = NULL;
+	}
+	else
+		dict = PyModule_GetDict(module); // borrowed
+
+}
+
+
+V py::ReloadModule()
+{
+	if(module) {
+		PyObject *newmod = PyImport_ReloadModule(module);
+		if(!newmod) {
+			PyErr_Print();
+			// old module still exists?!
+//			dict = NULL;
+		}
+		else {
+			Py_XDECREF(module);
+			module = newmod;
+			dict = PyModule_GetDict(module); // borrowed
+		}
+	}
+	else 
+		post("%s - No module to reload",thisName());
+}
+
+V py::GetModulePath(const C *mod,C *dir,I len)
+{
+#ifdef PD
+	// uarghh... pd doesn't show it's path for extra modules
+
+	C *name;
+	I fd = open_via_path("",mod,".py",dir,&name,len,0);
+	if(fd > 0) close(fd);
+	else name = NULL;
+
+	// if dir is current working directory... name points to dir
+	if(dir == name) strcpy(dir,".");
+#elif defined(MAXMSP)
+	*dir = 0;
+#endif
+}
+
+V py::AddToPath(const C *dir)
+{
+	if(dir && *dir) {
+		PyObject *pobj = PySys_GetObject("path");
+		if(pobj && PyList_Check(pobj)) {
+			PyObject *ps = PyString_FromString(dir);
+			PyList_Append(pobj,ps);
+		}
+		PySys_SetObject("path",pobj);
+	}
+}
+
+
diff --git a/externals/grill/py/source/main.h b/externals/grill/py/source/main.h
new file mode 100644
index 00000000..66b332cf
--- /dev/null
+++ b/externals/grill/py/source/main.h
@@ -0,0 +1,147 @@
+/* 
+
+py/pyext - python script object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#ifndef __MAIN_H
+#define __MAIN_H
+
+#include <flext.h>
+#include <Python.h>
+#ifndef NT
+#include <unistd.h>
+#endif
+
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
+#error You need at least flext version 0.4.0
+#endif
+
+#define PY__VERSION "0.1.1pre3"
+
+
+#define PYEXT_MODULE "pyext" // name for module
+#define PYEXT_CLASS "_class"  // name for base class
+
+#define PY_STOP_WAIT 1000  // ms
+#define PY_STOP_TICK 10  // ms
+
+
+
+#define I int
+#define C char
+#define V void
+#define BL bool
+#define F float
+#define D double
+
+
+#include "main.h"
+
+class py:
+	public flext_base
+{
+	FLEXT_HEADER(py,flext_base)
+
+public:
+	py();
+	~py();
+	static V lib_setup();
+
+	static PyObject *MakePyArgs(const t_symbol *s,const AtomList &args,I inlet = -1,BL withself = false);
+	static AtomList *GetPyArgs(PyObject *pValue,PyObject **self = NULL);
+
+protected:
+
+	V m_doc();
+
+	PyObject *module,*dict; // inherited user class module and associated dictionary
+
+	static I pyref;
+	static const C *py_doc;
+
+	V GetModulePath(const C *mod,C *dir,I len);
+	V AddToPath(const C *dir);
+	V SetArgs(I argc,t_atom *argv);
+	V ImportModule(const C *name);
+	V ReloadModule();
+
+	V Register(const C *reg);
+	V Unregister(const C *reg);
+	V Reregister(const C *reg);
+	virtual V Reload() = 0;
+
+	static BL IsAnything(const t_symbol *s) { return s && s != sym_bang && s != sym_float && s != sym_int && s != sym_symbol && s != sym_list && s != sym_pointer; }
+
+	enum retval { nothing,atom,sequ /*,tuple,list*/ };
+
+	// --- module stuff -----
+
+	static PyObject *module_obj,*module_dict;
+	static PyMethodDef func_tbl[];
+
+	static PyObject *py__doc__(PyObject *,PyObject *args);
+	static PyObject *py_send(PyObject *,PyObject *args);
+#ifdef FLEXT_THREADS
+	static PyObject *py_priority(PyObject *,PyObject *args);
+#endif
+
+	static PyObject *py_samplerate(PyObject *,PyObject *args);
+	static PyObject *py_blocksize(PyObject *,PyObject *args);
+	static PyObject *py_inchannels(PyObject *,PyObject *args);
+	static PyObject *py_outchannels(PyObject *,PyObject *args);
+
+	// ----thread stuff ------------
+
+	V m_detach(BL det) { detach = det; }
+	virtual V m_stop(int argc,t_atom *argv);
+
+	BL detach,shouldexit;
+	I thrcount;
+	t_clock *clk;
+	I stoptick;
+
+	static V tick(py *obj);
+
+public:
+	static PyInterpreterState *pystate;
+	PyThreadState *pythrmain;
+
+#ifdef FLEXT_THREADS
+	ThrMutex mutex;
+	V Lock() { mutex.Unlock(); }
+	V Unlock() { mutex.Unlock(); }
+#else
+	V Lock() {}
+	V Unlock() {}
+#endif
+
+protected:
+	// callbacks
+
+	FLEXT_CALLBACK_B(m_detach)
+	FLEXT_CALLBACK_V(m_stop)
+	FLEXT_CALLBACK(m_doc)
+};
+
+#ifdef FLEXT_THREADS
+#define PY_LOCK \
+	{ \
+	PyThreadState *thrst = PyThreadState_New(pystate); \
+	PyEval_AcquireThread(thrst); 
+
+#define PY_UNLOCK \
+    PyThreadState_Clear(thrst);        /* must have lock */ \
+    PyEval_ReleaseThread(thrst);  \
+    PyThreadState_Delete(thrst);       /* needn't have lock */ \
+	}
+#else
+#define PY_LOCK 
+#define PY_UNLOCK 
+#endif
+
+#endif
diff --git a/externals/grill/py/source/modmeth.cpp b/externals/grill/py/source/modmeth.cpp
new file mode 100644
index 00000000..51e103ed
--- /dev/null
+++ b/externals/grill/py/source/modmeth.cpp
@@ -0,0 +1,183 @@
+/* 
+
+py/pyext - python external object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+
+// function table for module
+PyMethodDef py::func_tbl[] = 
+{
+	{ "_send", py::py_send, METH_VARARGS,"Send message to a named object" },
+#ifdef FLEXT_THREADS
+	{ "_priority", py::py_priority, METH_VARARGS,"Set priority of current thread" },
+#endif
+
+	{ "_samplerate", py::py_samplerate, 0,"Get system sample rate" },
+	{ "_blocksize", py::py_blocksize, 0,"Get system block size" },
+	{ "_inchannels", py::py_inchannels, 0,"Get number of audio in channels" },
+	{ "_outchannels", py::py_outchannels, 0,"Get number of audio out channels" },
+
+	{NULL, NULL, 0, NULL} // sentinel
+};
+
+const C *py::py_doc =
+	"py/pyext - python external object for PD and MaxMSP, (C)2002 Thomas Grill\n"
+	"\n"
+	"This is the pyext module. Available function:\n"
+	"_send(args...): Send a message to a send symbol\n"
+#ifdef FLEXT_THREADS
+	"_priority(int): Raise/lower thread priority\n"
+#endif
+	"_samplerate(): Get system sample rate\n"
+	"_blocksize(): Get current blocksize\n"
+	"_inchannels(): Get number of audio in channels\n"
+	"_outchannels(): Get number of audio out channels\n"
+;
+
+
+
+V py::tick(py *th)
+{
+	th->Lock();
+
+	if(!th->thrcount) {
+		// all threads have stopped
+		th->shouldexit = false;
+		th->stoptick = 0;
+	}
+	else {
+		// still active threads 
+		if(!--th->stoptick) {
+			post("%s - Threads couldn't be stopped entirely - %i remaining",th->thisName(),th->thrcount);
+			th->shouldexit = false;
+		}
+		else
+			// continue waiting
+			clock_delay(th->clk,PY_STOP_TICK);
+	}
+
+	th->Unlock();
+}
+
+V py::m_stop(int argc,t_atom *argv)
+{
+	if(thrcount) {
+		Lock();
+
+		I wait = PY_STOP_WAIT;
+		if(argc >= 1 && CanbeInt(argv[0])) wait = GetAInt(argv[0]);
+
+		I ticks = wait/PY_STOP_TICK;
+		if(stoptick) {
+			// already stopping
+			if(ticks < stoptick) stoptick = ticks;
+		}
+		else
+			stoptick = ticks;
+		shouldexit = true;
+		clock_delay(clk,PY_STOP_TICK);
+
+		Unlock();
+	}
+		
+}
+
+PyObject *py::py_samplerate(PyObject *self,PyObject *args)
+{
+	return PyFloat_FromDouble(sys_getsr());
+}
+
+PyObject *py::py_blocksize(PyObject *self,PyObject *args)
+{
+	return PyLong_FromLong(sys_getblksize());
+}
+
+PyObject *py::py_inchannels(PyObject *self,PyObject *args)
+{
+#ifdef PD
+	I ch = sys_get_inchannels();
+#else // MAXMSP
+	I ch = sys_getch(); // not functioning
+#endif
+	return PyLong_FromLong(ch);
+}
+
+PyObject *py::py_outchannels(PyObject *self,PyObject *args)
+{
+#ifdef PD
+	I ch = sys_get_outchannels();
+#else // MAXMSP
+	I ch = sys_getch(); // not functioning
+#endif
+	return PyLong_FromLong(ch);
+}
+
+PyObject *py::py_send(PyObject *,PyObject *args)
+{
+    if(PySequence_Check(args)) {
+		PyObject *name = PySequence_GetItem(args,0); // borrowed
+		if(name && PyString_Check(name)) {
+			const t_symbol *recv = MakeSymbol(PyString_AsString(name));
+			I sz = PySequence_Size(args);
+			PyObject *val;
+			BL tp = sz == 2 && PySequence_Check(PySequence_GetItem(args,1));
+
+			if(tp)
+				val = PySequence_GetItem(args,1); // borrowed
+			else
+				val = PySequence_GetSlice(args,1,sz);  // new ref
+
+			AtomList *lst = GetPyArgs(val);
+			if(lst) {
+//				t_class **cl = (t_class **)GetBound(recv);
+				t_class **cl = (t_class **)recv->s_thing;
+				if(cl) {
+#ifdef PD
+					pd_forwardmess(cl,lst->Count(),lst->Atoms());
+#else
+					#pragma message ("Send is not implemented")
+#endif
+				}
+#ifdef _DEBUG
+				else 
+					post("py/pyext - Receiver doesn't exist");
+#endif
+			}
+			else 
+				post("py/pyext - No data to send");
+			if(lst) delete lst;
+
+			if(!tp) Py_DECREF(val);
+		}
+		else
+			post("py/pyext - Send name is invalid");
+	}
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+
+#ifdef FLEXT_THREADS
+PyObject *py::py_priority(PyObject *self,PyObject *args)
+{
+	int val;
+    if(!PyArg_ParseTuple(args, "i:py_priority", &val)) {
+		post("py/pyext - Syntax: _priority [int]");
+    }
+	else
+		ChangePriority(val);
+
+    Py_INCREF(Py_None);
+    return Py_None;
+}
+#endif
+
+
+
diff --git a/externals/grill/py/source/py.cpp b/externals/grill/py/source/py.cpp
new file mode 100644
index 00000000..83c5d9b5
--- /dev/null
+++ b/externals/grill/py/source/py.cpp
@@ -0,0 +1,327 @@
+/* 
+
+py/pyext - python script object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+
+class pyobj:
+	public py
+{
+	FLEXT_HEADER(pyobj,py)
+
+public:
+	pyobj(I argc,t_atom *argv);
+	~pyobj();
+
+protected:
+	BL m_method_(I n,const t_symbol *s,I argc,t_atom *argv);
+
+	V work(const t_symbol *s,I argc,t_atom *argv); 
+
+	V m_bang() { work(sym_bang,0,NULL); }
+	V m_reload();
+	V m_reload_(I argc,t_atom *argv);
+	V m_set(I argc,t_atom *argv);
+	V m_doc_();
+
+	virtual V m_help();
+
+	// methods for python arguments
+	V callwork(const t_symbol *s,I argc,t_atom *argv);
+	
+	V m_py_list(I argc,t_atom *argv) { callwork(sym_list,argc,argv); }
+	V m_py_float(I argc,t_atom *argv) { callwork(sym_float,argc,argv); }
+	V m_py_int(I argc,t_atom *argv) { callwork(sym_int,argc,argv); }
+	V m_py_any(const t_symbol *s,I argc,t_atom *argv) { callwork(s,argc,argv); }
+
+	const t_symbol *funname;
+	PyObject *function;
+
+	virtual V Reload();
+
+	V SetFunction(const C *func);
+	V ResetFunction();
+
+private:
+
+	FLEXT_CALLBACK(m_bang)
+	FLEXT_CALLBACK(m_reload)
+	FLEXT_CALLBACK_V(m_reload_)
+	FLEXT_CALLBACK_V(m_set)
+	FLEXT_CALLBACK(m_doc_)
+
+	FLEXT_CALLBACK_V(m_py_float)
+	FLEXT_CALLBACK_V(m_py_list)
+	FLEXT_CALLBACK_V(m_py_int)
+	FLEXT_CALLBACK_A(m_py_any)
+
+#ifdef FLEXT_THREADS
+	FLEXT_THREAD_A(work)
+#else
+	FLEXT_CALLBACK_A(work)
+#endif
+};
+
+FLEXT_LIB_V("py",pyobj)
+
+
+pyobj::pyobj(I argc,t_atom *argv):
+	function(NULL),funname(NULL)
+{ 
+	PY_LOCK
+
+	AddInAnything(2);  
+	AddOutAnything();  
+
+	FLEXT_ADDBANG(0,m_bang);
+	FLEXT_ADDMETHOD_(0,"reload",m_reload_);
+	FLEXT_ADDMETHOD_(0,"reload.",m_reload);
+	FLEXT_ADDMETHOD_(0,"set",m_set);
+	FLEXT_ADDMETHOD_(0,"doc",m_doc);
+	FLEXT_ADDMETHOD_(0,"doc+",m_doc_);
+#ifdef FLEXT_THREADS
+	FLEXT_ADDMETHOD_(0,"detach",m_detach);
+	FLEXT_ADDMETHOD_(0,"stop",m_stop);
+#endif
+
+	FLEXT_ADDMETHOD_(1,"float",m_py_float);
+	FLEXT_ADDMETHOD_(1,"int",m_py_int);
+	FLEXT_ADDMETHOD(1,m_py_list);
+	FLEXT_ADDMETHOD(1,m_py_any);
+
+	if(argc > 2) 
+		SetArgs(argc-2,argv+2);
+	else
+		SetArgs(0,NULL);
+
+	// init script module
+	if(argc >= 1) {
+		C dir[1024];
+		GetModulePath(GetString(argv[0]),dir,sizeof(dir));
+		// set script path
+		AddToPath(dir);
+
+		if(!IsString(argv[0])) 
+			post("%s - script name argument is invalid",thisName());
+		else
+			ImportModule(GetString(argv[0]));
+	}
+
+	Register("_py");
+
+	if(argc >= 2) {
+		// set function name
+		if(!IsString(argv[1])) 
+			post("%s - function name argument is invalid",thisName());
+		else {
+			// Set function
+			SetFunction(GetString(argv[1]));
+		}
+	}
+
+	PY_UNLOCK
+}
+
+pyobj::~pyobj() 
+{
+	PY_LOCK
+	Unregister("_py");
+	PY_UNLOCK
+}
+
+
+
+
+BL pyobj::m_method_(I n,const t_symbol *s,I argc,t_atom *argv)
+{
+	if(n == 1)
+		post("%s - no method for type %s",thisName(),GetString(s));
+	return false;
+}
+
+V pyobj::m_reload()
+{
+	PY_LOCK
+
+	Unregister("_py");
+
+	ReloadModule();
+	Reregister("_py");
+	Register("_py");
+	SetFunction(funname?GetString(funname):NULL);
+
+	PY_UNLOCK
+}
+
+V pyobj::m_reload_(I argc,t_atom *argv)
+{
+	PY_LOCK
+	SetArgs(argc,argv);
+	PY_UNLOCK
+
+	m_reload();
+}
+
+V pyobj::m_set(I argc,t_atom *argv)
+{
+	PY_LOCK
+
+	I ix = 0;
+	if(argc >= 2) {
+		if(!IsString(argv[ix])) {
+			post("%s - script name is not valid",thisName());
+			return;
+		}
+		const C *sn = GetString(argv[ix]);
+
+		if(!module || !strcmp(sn,PyModule_GetName(module))) {
+			ImportModule(sn);
+			Register("_py");
+		}
+
+		++ix;
+	}
+
+	if(!IsString(argv[ix])) 
+		post("%s - function name is not valid",thisName());
+	else
+		SetFunction(GetString(argv[ix]));
+
+	PY_UNLOCK
+}
+
+
+V pyobj::m_doc_()
+{
+	PY_LOCK
+
+	if(function) {
+		PyObject *docf = PyObject_GetAttrString(function,"__doc__"); // borrowed!!!
+		if(docf && PyString_Check(docf)) {
+			post("");
+			post(PyString_AsString(docf));
+		}
+	}
+
+	PY_UNLOCK
+}
+
+
+V pyobj::m_help()
+{
+	post("");
+	post("py %s - python script object, (C)2002 Thomas Grill",PY__VERSION);
+#ifdef _DEBUG
+	post("compiled on " __DATE__ " " __TIME__);
+#endif
+
+	post("Arguments: %s [script name] [function name] {args...}",thisName());
+
+	post("Inlet 1:messages to control the py object");
+	post("      2:call python function with message as argument(s)");
+	post("Outlet: 1:return values from python function");	
+	post("Methods:");
+	post("\thelp: shows this help");
+	post("\tbang: call script without arguments");
+	post("\tset [script name] [function name]: set (script and) function name");
+	post("\treload {args...}: reload python script");
+	post("\treload. : reload with former arguments");
+	post("\tdoc: display module doc string");
+	post("\tdoc+: display function doc string");
+#ifdef FLEXT_THREADS
+	post("\tdetach 0/1: detach threads");
+	post("\tstop {wait time (ms)}: stop threads");
+#endif
+	post("");
+}
+
+V pyobj::ResetFunction()
+{
+	if(!module || !dict) 
+	{ 
+		post("%s - No module loaded",thisName());
+		function = NULL; 
+		return; 
+	}
+
+	function = funname?PyDict_GetItemString(dict,(C *)GetString(funname)):NULL; // borrowed!!!
+	if(!function) {
+		PyErr_Clear();
+		if(funname) post("%s - Function %s could not be found",thisName(),GetString(funname));
+	}
+	else if(!PyFunction_Check(function)) {
+		post("%s - Object %s is not a function",thisName(),GetString(funname));
+		function = NULL;
+	}
+}
+
+V pyobj::SetFunction(const C *func)
+{
+	if(func) {
+		funname = MakeSymbol(func);
+		ResetFunction();
+	}
+	else 
+		function = NULL,funname = NULL;
+}
+
+
+V pyobj::Reload()
+{
+	ResetFunction();
+}
+
+
+V pyobj::work(const t_symbol *s,I argc,t_atom *argv)
+{
+	AtomList *rargs = NULL;
+
+	++thrcount;
+	PY_LOCK
+
+	if(function) {
+		PyObject *pArgs = MakePyArgs(s,AtomList(argc,argv));
+		PyObject *pValue = PyObject_CallObject(function, pArgs);
+
+		rargs = GetPyArgs(pValue);
+		if(!rargs) PyErr_Print();
+
+		Py_XDECREF(pArgs);
+		Py_XDECREF(pValue);
+	}
+	else {
+		post("%s: no function defined",thisName());
+	}
+
+	PY_UNLOCK
+	--thrcount;
+
+	if(rargs) {
+		// call to outlet _outside_ the Mutex lock!
+		// otherwise (if not detached) deadlock will occur
+		ToOutList(0,*rargs);
+		delete rargs;
+	}
+}
+
+V pyobj::callwork(const t_symbol *s,I argc,t_atom *argv)
+{
+	if(detach) {
+		if(shouldexit)
+			post("%s - New threads can't be launched now!",thisName());
+		else
+			if(!FLEXT_CALLMETHOD_A(work,s,argc,argv))
+				post("%s - Failed to launch thread!",thisName());
+	}
+	else
+		work(s,argc,argv);
+}
+
+
diff --git a/externals/grill/py/source/pyargs.cpp b/externals/grill/py/source/pyargs.cpp
new file mode 100644
index 00000000..be4adaa1
--- /dev/null
+++ b/externals/grill/py/source/pyargs.cpp
@@ -0,0 +1,131 @@
+/* 
+
+py/pyext - python external object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+
+PyObject *py::MakePyArgs(const t_symbol *s,const AtomList &args,I inlet,BL withself)
+{
+	PyObject *pArgs;
+
+	BL any = IsAnything(s);
+	pArgs = PyTuple_New(args.Count()+(any?1:0)+(inlet >= 0?1:0));
+
+	I pix = 0;
+
+	if(inlet >= 0) {
+		PyObject *pValue = PyInt_FromLong(inlet); 
+		
+		// reference stolen:
+		PyTuple_SetItem(pArgs, pix++, pValue); 
+	}
+
+	I ix;
+	PyObject *tmp;
+	if(!withself || args.Count() < (any?1:2)) tmp = pArgs,ix = pix;
+	else tmp = PyTuple_New(args.Count()+(any?1:0)),ix = 0;
+
+	if(any) {
+		PyObject *pValue = PyString_FromString(GetString(s));
+
+		// reference stolen here: 
+		PyTuple_SetItem(tmp, ix++, pValue); 
+	}
+
+	for(I i = 0; i < args.Count(); ++i) {
+		PyObject *pValue = NULL;
+		
+		if(IsFloat(args[i])) pValue = PyFloat_FromDouble((D)GetFloat(args[i]));
+		else if(IsInt(args[i])) pValue = PyInt_FromLong(GetInt(args[i]));
+		else if(IsSymbol(args[i])) pValue = PyString_FromString(GetString(args[i]));
+		else if(IsPointer(args[i])) pValue = NULL; // not handled
+
+		if(!pValue) {
+			post("py/pyext: cannot convert argument %i",any?i+1:i);
+			continue;
+		}
+
+		/* pValue reference stolen here: */
+		PyTuple_SetItem(tmp, ix++, pValue); 
+	}
+
+	if(tmp != pArgs) {
+		PyTuple_SetItem(pArgs, pix++, tmp); 
+#if PY_VERSION_HEX >= 0x02020000
+		_PyTuple_Resize(&pArgs,pix);
+#else
+		_PyTuple_Resize(&pArgs,pix,0);
+#endif
+	}
+
+	return pArgs;
+}
+
+flext::AtomList *py::GetPyArgs(PyObject *pValue,PyObject **self)
+{
+	if(pValue == NULL) return NULL; 
+	AtomList *ret = NULL;
+
+	// analyze return value or tuple
+
+	I rargc = 0;
+	BL ok = true;
+	retval tp = nothing;
+
+	if(PyString_Check(pValue)) {
+		rargc = 1;
+		tp = atom;
+	}
+	else if(PySequence_Check(pValue)) {
+		rargc = PySequence_Size(pValue);
+		tp = sequ;
+	}
+	else {
+		rargc = 1;
+		tp = atom;
+	}
+
+	ret = new AtomList(rargc);
+
+	for(I ix = 0; ix < rargc; ++ix) {
+		PyObject *arg;
+		switch(tp) {
+			case sequ: arg = PySequence_GetItem(pValue,ix); break;
+			default: arg = pValue;
+		}
+
+		if(PyInt_Check(arg)) SetInt((*ret)[ix],PyInt_AsLong(arg));
+		else if(PyLong_Check(arg)) SetInt((*ret)[ix],PyLong_AsLong(arg));
+		else if(PyFloat_Check(arg)) SetFloat((*ret)[ix],(F)PyFloat_AsDouble(arg));
+		else if(PyString_Check(arg)) SetString((*ret)[ix],PyString_AsString(arg));
+		else if(ix == 0 && self && PyInstance_Check(arg)) {
+			// assumed to be self ... that should be checked _somehow_ !!!
+			*self = arg;
+		}
+		else {
+			PyObject *tp = PyObject_Type(arg);
+			PyObject *stp = tp?PyObject_Str(tp):NULL;
+			C *tmp = "";
+			if(stp) tmp = PyString_AsString(stp);
+			post("py/pyext: Could not convert argument %s",tmp);
+			Py_XDECREF(stp);
+			Py_XDECREF(tp);
+			ok = false;
+		}
+		// No DECREF for arg -> borrowed from pValue!
+	}
+
+	if(!ok) { 
+		delete ret; 
+		ret = NULL; 
+	}
+	return ret;
+}
+
diff --git a/externals/grill/py/source/pyext.cpp b/externals/grill/py/source/pyext.cpp
new file mode 100644
index 00000000..8e971873
--- /dev/null
+++ b/externals/grill/py/source/pyext.cpp
@@ -0,0 +1,465 @@
+/* 
+
+py/pyext - python script object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "pyext.h"
+#include <flinternal.h>
+
+
+FLEXT_LIB_V("pyext",pyext)
+
+V pyext::setup(t_class *)
+{
+	px_head = px_tail = NULL;
+
+	px_class = class_new(gensym("pyext proxy"),NULL,NULL,sizeof(py_proxy),CLASS_PD|CLASS_NOINLET, A_NULL);
+	::add_anything(px_class,py_proxy::px_method); // for other inlets
+}
+
+pyext *pyext::GetThis(PyObject *self)
+{
+	PyObject *th = PyObject_GetAttrString(self,"_this");
+	pyext *ret = th?(pyext *)PyLong_AsVoidPtr(th):NULL;
+	PyErr_Clear();
+	Py_XDECREF(th);
+	return ret;
+}
+
+
+I pyext::pyextref = 0;
+PyObject *pyext::class_obj = NULL;
+PyObject *pyext::class_dict = NULL;
+
+pyext::pyext(I argc,t_atom *argv):
+	pyobj(NULL),pythr(NULL),
+	inlets(0),outlets(0),
+	methname(NULL)
+{ 
+	PY_LOCK
+
+	if(!pyextref++) {
+		// register/initialize pyext base class along with module
+		class_dict = PyDict_New();
+		PyObject *className = PyString_FromString(PYEXT_CLASS);
+		PyMethodDef *def;
+
+		// add setattr/getattr to class 
+		for(def = attr_tbl; def->ml_name; def++) {
+			  PyObject *func = PyCFunction_New(def, NULL);
+			  PyDict_SetItemString(class_dict, def->ml_name, func);
+			  Py_DECREF(func);
+		}
+
+		class_obj = PyClass_New(NULL, class_dict, className);
+		PyDict_SetItemString(module_dict, PYEXT_CLASS,class_obj);
+		Py_DECREF(className);
+    
+		// add methods to class 
+		for (def = meth_tbl; def->ml_name != NULL; def++) {
+			PyObject *func = PyCFunction_New(def, NULL);
+			PyObject *method = PyMethod_New(func, NULL, class_obj);
+			PyDict_SetItemString(class_dict, def->ml_name, method);
+			Py_DECREF(func);
+			Py_DECREF(method);
+		}
+
+#if PY_VERSION_HEX >= 0x02020000
+		// not absolutely necessary, existent in python 2.2 upwards
+		// make pyext functions available in class scope
+		PyDict_Merge(class_dict,module_dict,0);
+#endif
+
+		PyDict_SetItemString(class_dict,"__doc__",PyString_FromString(pyext_doc));
+ 	}
+	else {
+		Py_INCREF(class_obj);
+		Py_INCREF(class_dict);
+	}
+
+	// init script module
+	if(argc >= 1) {
+		C dir[1024];
+#ifdef PD
+		// add dir of current patch to path
+		strcpy(dir,GetString(canvas_getdir(thisCanvas())));
+		AddToPath(dir);
+		// add current dir to path
+		strcpy(dir,GetString(canvas_getcurrentdir()));
+		AddToPath(dir);
+#else
+		#pragma message("Adding current dir to path is not implemented")
+#endif
+
+		GetModulePath(GetString(argv[0]),dir,sizeof(dir));
+		// add to path
+		AddToPath(dir);
+
+		if(!IsString(argv[0])) 
+			post("%s - script name argument is invalid",thisName());
+		else {
+			SetArgs(0,NULL);
+			ImportModule(GetString(argv[0]));
+		}
+	}
+
+	Register("_pyext");
+
+//	t_symbol *sobj = NULL;
+	if(argc >= 2) {
+		// object name
+		if(!IsString(argv[1])) 
+			post("%s - object name argument is invalid",thisName());
+		else {
+			methname = GetSymbol(argv[1]);
+		}
+
+		args(argc-2,argv+2);
+	}
+
+	if(methname) {
+		SetClssMeth();
+
+		// now get number of inlets and outlets
+		inlets = 1,outlets = 1;
+
+		if(pyobj) {
+			PyObject *res;
+			res = PyObject_GetAttrString(pyobj,"_inlets"); // get ref
+			if(res) {
+				if(PyCallable_Check(res)) {
+					PyObject *fres = PyEval_CallObject(res,NULL);
+					Py_DECREF(res);
+					res = fres;
+				}
+				if(PyInt_Check(res)) 
+					inlets = PyInt_AsLong(res);
+				Py_DECREF(res);
+			}
+			else 
+				PyErr_Clear();
+
+			res = PyObject_GetAttrString(pyobj,"_outlets"); // get ref
+			if(res) {
+				if(PyCallable_Check(res)) {
+					PyObject *fres = PyEval_CallObject(res,NULL);
+					Py_DECREF(res);
+					res = fres;
+				}
+				if(PyInt_Check(res))
+					outlets = PyInt_AsLong(res);
+				Py_DECREF(res);
+			}
+			else
+				PyErr_Clear();
+		}
+	}
+
+	PY_UNLOCK
+	
+	AddInAnything(1+inlets);  
+	AddOutAnything(outlets);  
+
+	FLEXT_ADDMETHOD_(0,"reload.",m_reload);
+	FLEXT_ADDMETHOD_(0,"reload",m_reload_);
+	FLEXT_ADDMETHOD_(0,"doc",m_doc);
+	FLEXT_ADDMETHOD_(0,"doc+",m_doc_);
+
+#ifdef FLEXT_THREADS
+	FLEXT_ADDMETHOD_(0,"detach",m_detach);
+	FLEXT_ADDMETHOD_(0,"stop",m_stop);
+#endif
+
+	if(!pyobj)
+		InitProblem();
+}
+
+pyext::~pyext()
+{
+	PY_LOCK
+
+	ClearBinding();
+	Unregister("_pyext");
+	
+	Py_XDECREF(pyobj);
+
+	Py_XDECREF(class_obj);
+	Py_XDECREF(class_dict);
+/*
+	// Don't unregister
+
+	if(!--pyextref) {
+		class_obj = NULL;
+		class_dict = NULL;
+	}
+*/
+	PY_UNLOCK
+}
+
+BL pyext::SetClssMeth() //I argc,t_atom *argv)
+{
+	// pyobj should already have been decref'd / cleared before getting here!!
+	
+	if(module && methname) {
+		PyObject *pref = PyObject_GetAttrString(module,const_cast<C *>(GetString(methname)));  
+		if(!pref) 
+			PyErr_Print();
+		else if(PyClass_Check(pref)) {
+			// make instance, but don't call __init__ 
+			pyobj = PyInstance_NewRaw(pref,NULL);
+
+			Py_DECREF(pref);
+			if(pyobj == NULL) 
+				PyErr_Print();
+			else {
+				// remember the this pointer
+				PyObject *th = PyLong_FromVoidPtr(this); 
+				int ret = PyObject_SetAttrString(pyobj,"_this",th); // ref is taken
+
+				// call init now, after _this has been set, which is
+				// important for eventual callbacks from __init__ to c
+				PyObject *pargs = MakePyArgs(NULL,args,-1,true);
+				if (pargs == NULL) PyErr_Print();
+
+				PyObject *init;
+				init = PyObject_GetAttrString(pyobj,"__init__"); // get ref
+				if(init && PyCallable_Check(init)) {
+					PyObject *res = PyEval_CallObject(init,pargs);
+					if(!res)
+						PyErr_Print();
+					else
+						Py_DECREF(res);
+				}
+				
+				Py_XDECREF(pargs);
+			}
+		}
+		else 
+			post("%s - Type of \"%s\" is unhandled!",thisName(),GetString(methname));
+		return true;
+	}
+	else
+		return false;
+}
+
+V pyext::Reload()
+{
+	ClearBinding();
+	Py_XDECREF(pyobj);
+	// by here, the Python class destructor should have been called!
+
+	SetArgs(0,NULL);
+	ReloadModule();
+	
+	SetClssMeth();
+}
+
+
+V pyext::m_reload()
+{
+	PY_LOCK
+
+	Unregister("_pyext"); // self
+
+	Reload();
+
+	Reregister("_pyext"); // the others
+	Register("_pyext"); // self
+
+	PY_UNLOCK
+}
+
+V pyext::m_reload_(I argc,t_atom *argv)
+{
+	args(argc,argv);
+	m_reload();
+}
+
+V pyext::m_doc_()
+{
+	if(pyobj) {
+		PY_LOCK
+
+		PyObject *docf = PyObject_GetAttrString(pyobj,"__doc__"); // borrowed!!!
+		if(docf && PyString_Check(docf)) {
+			post("");
+			post(PyString_AsString(docf));
+		}
+
+		PY_UNLOCK
+	}
+}
+
+
+
+
+BL pyext::m_method_(I n,const t_symbol *s,I argc,t_atom *argv)
+{
+	if(pyobj && n >= 1) {
+		return callwork(n,s,argc,argv);
+	}
+	else {
+		post("%s - no method for type '%s' into inlet %i",thisName(),GetString(s),n);
+		return false;
+	}
+}
+
+
+V pyext::m_help()
+{
+	post("");
+	post("pyext %s - python script object, (C)2002 Thomas Grill",PY__VERSION);
+#ifdef _DEBUG
+	post("compiled on " __DATE__ " " __TIME__);
+#endif
+
+	post("Arguments: %s [script name] [class name] {args...}",thisName());
+
+	post("Inlet 1: messages to control the pyext object");
+	post("      2...: python inlets");
+	post("Outlets: python outlets");	
+	post("Methods:");
+	post("\thelp: shows this help");
+	post("\treload {args...}: reload python script");
+	post("\treload. : reload with former arguments");
+	post("\tdoc: display module doc string");
+	post("\tdoc+: display class doc string");
+#ifdef FLEXT_THREADS
+	post("\tdetach 0/1: detach threads");
+	post("\tstop {wait time (ms)}: stop threads");
+#endif
+	post("");
+}
+
+PyObject *pyext::call(const C *meth,I inlet,const t_symbol *s,I argc,t_atom *argv) 
+{
+	PyObject *ret = NULL;
+
+	PyObject *pmeth  = PyObject_GetAttrString(pyobj,const_cast<char *>(meth)); /* fetch bound method */
+	if(pmeth == NULL) {
+		PyErr_Clear(); // no method found
+	}
+	else {
+		PyObject *pargs = MakePyArgs(s,AtomList(argc,argv),inlet?inlet:-1,true);
+		if(!pargs)
+			PyErr_Print();
+		else {
+			ret = PyEval_CallObject(pmeth, pargs); 
+			if (ret == NULL) // function not found resp. arguments not matching
+#ifdef _DEBUG
+				PyErr_Print();
+#else
+				PyErr_Clear();  
+#endif
+			else {
+//				Py_DECREF(pres);
+			}
+
+			Py_DECREF(pargs);
+		}
+		Py_DECREF(pmeth);
+	}
+
+	return ret;
+}
+
+V pyext::work_wrapper(V *data)
+{
+	++thrcount;
+#ifdef _DEBUG
+	if(!data) 
+		post("%s - no data!",thisName());
+	else
+#endif
+	{
+		work_data *w = (work_data *)data;
+		work(w->n,w->Header(),w->Count(),w->Atoms());
+//		delete w;
+	}
+	--thrcount;
+}
+
+BL pyext::callwork(I n,const t_symbol *s,I argc,t_atom *argv)
+{
+	if(detach) {
+		if(shouldexit) {
+			post("%s - Stopping.... new threads can't be launched now!",thisName());
+			return true;
+		}
+		else {
+			BL ret = FLEXT_CALLMETHOD_X(work_wrapper,new work_data(n,s,argc,argv));
+			if(!ret) post("%s - Failed to launch thread!",thisName());
+			return true;
+		}
+	}
+	else 
+		return work(n,s,argc,argv);
+}
+
+BL pyext::work(I n,const t_symbol *s,I argc,t_atom *argv)
+{
+	BL retv = false;
+
+	PY_LOCK
+
+	PyObject *ret = NULL;
+	char *str = new char[strlen(GetString(s))+10];
+
+	{
+		// try tag/inlet
+		sprintf(str,"%s_%i",GetString(s),n);
+		ret = call(str,0,NULL,argc,argv);
+	}
+
+	if(!ret) {
+		// try anything/inlet
+		sprintf(str,"_anything_%i",n);
+		if(s == sym_bang && !argc) {
+			t_atom argv;
+			SetString(argv,"");
+			ret = call(str,0,s,1,&argv);
+		}
+		else
+			ret = call(str,0,s,argc,argv);
+	}
+	if(!ret) {
+		// try tag at any inlet
+		sprintf(str,"%s_",GetString(s));
+		ret = call(str,n,NULL,argc,argv);
+	}
+	if(!ret) {
+		// try anything at any inlet
+		strcpy(str,"_anything_");
+		if(s == sym_bang && !argc) {
+			t_atom argv;
+			SetString(argv,"");
+			ret = call(str,n,s,1,&argv);
+		}
+		else
+			ret = call(str,n,s,argc,argv);
+	}
+
+	if(!ret) 
+		// no matching python method found
+		post("%s - no matching method found for '%s' into inlet %i",thisName(),GetString(s),n);
+
+	if(str) delete[] str;
+
+	if(ret) {
+		if(!PyObject_Not(ret)) post("%s - returned value is ignored",thisName());
+		Py_DECREF(ret);
+		retv = true;
+	}
+
+	PY_UNLOCK
+
+	return retv;
+}
+
+
+
diff --git a/externals/grill/py/source/pyext.h b/externals/grill/py/source/pyext.h
new file mode 100644
index 00000000..2aba0e8e
--- /dev/null
+++ b/externals/grill/py/source/pyext.h
@@ -0,0 +1,127 @@
+/* 
+
+py/pyext - python external object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#ifndef __PYEXT_H
+#define __PYEXT_H
+
+#include "main.h"
+
+class pyext:
+	public py
+{
+	FLEXT_HEADER_S(pyext,py,setup)
+
+public:
+	pyext(I argc,t_atom *argv);
+	~pyext();
+
+	static PyObject *pyext__doc__(PyObject *,PyObject *args);
+	static PyObject *pyext__init__(PyObject *,PyObject *args);
+	static PyObject *pyext__del__(PyObject *,PyObject *args);
+
+	static PyObject *pyext_outlet(PyObject *,PyObject *args);
+	static PyObject *pyext_tocanvas(PyObject *,PyObject *args);
+
+	static PyObject *pyext_setattr(PyObject *,PyObject *args);
+	static PyObject *pyext_getattr(PyObject *,PyObject *args);
+
+	static PyObject *pyext_detach(PyObject *,PyObject *args);
+	static PyObject *pyext_stop(PyObject *,PyObject *args);
+
+	I Inlets() const { return inlets; }
+	I Outlets() const { return outlets; }
+
+protected:
+	BL m_method_(I n,const t_symbol *s,I argc,t_atom *argv);
+
+	BL work(I n,const t_symbol *s,I argc,t_atom *argv); 
+
+	V m_reload();
+	V m_reload_(I argc,t_atom *argv);
+	V m_doc_();
+	virtual V m_help();
+
+	const t_symbol *methname;
+	PyObject *pyobj;
+	I inlets,outlets;
+
+private:
+	static V setup(t_class *);
+
+	static pyext *GetThis(PyObject *self);
+	V ClearBinding();
+	BL SetClssMeth(); //I argc,t_atom *argv);
+
+	AtomList args;
+
+	virtual V Reload();
+
+	static I pyextref;
+	static PyObject *class_obj,*class_dict;
+	static PyMethodDef attr_tbl[],meth_tbl[];
+	static const C *pyext_doc;
+
+	// -------- bound stuff ------------------
+
+	static t_class *px_class;
+
+	friend class py_proxy;
+
+	class py_proxy  // no virtual table!
+	{ 
+	public:
+		t_object obj;			// MUST reside at memory offset 0
+		PyObject *self,*func;
+		t_symbol *name;
+
+		py_proxy *nxt;
+
+		void init(t_symbol *n,PyObject *s,PyObject *f) { name = n,self = s,func = f,nxt = NULL; }
+//		bool cmp(PyObject *s,PyObject *f) const { return self == s && func == f; }
+//		void init(PyObject *s,char *f) { self = s,func = f,nxt = NULL; }
+//		bool cmp(PyObject *s,char *f) const { return self == s && func == f; }
+		static void px_method(py_proxy *c,const t_symbol *s,int argc,t_atom *argv);
+	};
+	static py_proxy *px_head,*px_tail;
+
+	static PyObject *pyext_bind(PyObject *,PyObject *args);
+	static PyObject *pyext_unbind(PyObject *,PyObject *args);
+
+	// ---------------------------
+
+	PyObject *call(const C *meth,I inlet,const t_symbol *s,I argc,t_atom *argv);
+
+	V work_wrapper(void *data); 
+	BL callwork(I n,const t_symbol *s,I argc,t_atom *argv); 
+
+	class work_data:
+		public flext::AtomAnything
+	{
+	public:
+		work_data(I _n,const t_symbol *_s,I _argc,t_atom *_argv): n(_n),AtomAnything(_s,_argc,_argv) {}
+		I n;
+	};
+
+#ifdef FLEXT_THREADS
+	FLEXT_THREAD_X(work_wrapper)
+#else
+	FLEXT_CALLBACK_X(work_wrapper)
+#endif
+
+	PyThreadState *pythr;
+
+private:
+	FLEXT_CALLBACK(m_reload)
+	FLEXT_CALLBACK_V(m_reload_)
+	FLEXT_CALLBACK(m_doc_)
+};
+
+
+#endif
\ No newline at end of file
diff --git a/externals/grill/py/source/register.cpp b/externals/grill/py/source/register.cpp
new file mode 100644
index 00000000..63a9f952
--- /dev/null
+++ b/externals/grill/py/source/register.cpp
@@ -0,0 +1,86 @@
+/* 
+
+py/pyext - python external object for PD and MaxMSP
+
+Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+
+V py::Register(const C *regnm)
+{
+	if(module) {
+		// add this to module registry
+
+		PyObject *reg = PyDict_GetItemString(dict,(C *)regnm); // borrowed!!!
+		PyObject *add = Py_BuildValue("[i]",(long)this);
+		if(!reg || !PyList_Check(reg)) {
+			if(PyDict_SetItemString(dict,(C *)regnm,add)) {
+				post("%s - Could not set registry",thisName());
+			}
+			// Py_XDECREF(reg);
+		}
+		else {
+			PySequence_InPlaceConcat(reg,add);
+		}
+	}
+
+}
+
+V py::Unregister(const C *regnm)
+{
+	if(module) {
+		// remove this from module registry
+		
+		PyObject *reg = PyDict_GetItemString(dict,(C *)regnm); // borrowed!!!
+		PyObject *add = Py_BuildValue("i",(int)this);
+		if(!reg || !PySequence_Check(reg)) 
+			post("%s - Registry not found!?",thisName());
+		else {
+			I ix = PySequence_Index(reg,add);
+			if(ix < 0) {
+				post("%s - This object not found in registry?!",thisName());
+			}
+			else {	
+				PySequence_DelItem(reg,ix);
+			}
+		}
+		Py_DECREF(add);
+	}
+
+}
+
+V py::Reregister(const C *regnm)
+{
+	if(module) {
+		// remove this from module registry
+		
+		PyObject *reg = PyDict_GetItemString(dict,(C *)regnm); // borrowed!!!
+
+		if(!reg || !PySequence_Check(reg)) 
+			post("%s - Registry not found!?",thisName());
+		else {
+			I cnt = PySequence_Size(reg);
+			for(I i = 0; i < cnt; ++i) {
+				PyObject *it = PySequence_GetItem(reg,i); // borrowed!!
+				if(!it || !PyInt_Check(it)) {
+					post("%s - Corrupt registry?!",thisName());
+				}
+				else {
+					py *th = (py *)PyInt_AsLong(it);
+					th->module = module;
+					th->dict = dict;
+					th->Reload();
+				}
+			}
+		}
+	}
+
+}
+
+
+
diff --git a/externals/grill/xsample/MPW/MakeAliases b/externals/grill/xsample/MPW/MakeAliases
new file mode 100755
index 00000000..681b5f17
--- /dev/null
+++ b/externals/grill/xsample/MPW/MakeAliases
@@ -0,0 +1 @@
+(This file must be converted with BinHex 4.0)
:!!""8&"-BA"XG#!!!!!MR!!!&83XSIlYqXi!!!!5!*!(!J!!!!S!!!6-!!!!"3!
!!!%!!!!iAep338G&@N956`#3$"!!N"J%!!!!!3!!!34IAe4&@&3!N!`3!!!!%!#
3"a!!N!3(!!!!"3!!!!-!N!4IAh4PH(3!N!TIAe4&@&3!N!`EL!!!!bJ!!!Z)!!!
!!J#3#)!!"!#3#9pIBh0dFQPZC`#3"epI9%9B9!#3$"k`!!!!R!!!$V!!!!!#!*!
,!J#3#&pIF'PMFhPYBQpXAh0dG@*IAe4&@&3!N!`I6!!!!,3!!!p-!!!!!J#3#)!
!"!J!N!FN!!!!!3!!!BaIAd4"9%%!N!`J!!!!%!!!!"!!!!!3!*!%"`!!!!-!!!!
&!*!%AepNBA4K!*!+Aep%394"!*!-)!#3""!!!"!!N!3#!*!8AepXB9pcH@eLEfa
IF(4b!&pI4%&833#3$#!3!!!!&!!!%"!!!!!#!*!,"`!!!!8!N!4IAfjXAh0jE@*
[E&p`G()!Aep%394"!*!-)#3!!!!8!!!3*!!!!!)!N!X'!!!!#J#3"&pIC(PXC!#
3#PpI4%&833#3$#!i!!!!(!!!%$J!!!!#!*!8AepMEfeYEfi!N!KIAd4"9%%!N!`
JB!!!!%!!N!F%!*!,!3#3#`%!!!!iAep-58j,484*9!#3#$!!!!!$R!!!)!!!!!1
F!!!!"`!!!!%!N!F%!!!!$J!!!"`!!!!-,h9cFLpXD@)[C(PXC!#3"J`!!!"N!!!
!'$UHiV!!#3!!!!%!!#p6HA0dC@d[6'PLFQ&bH5p'FQ&YCAG[FQYc,d0[FQ96CA*
fD@0PFbjQFQ&YCAG[FQX[9Q9bFfP[ER-[35p$Eh*P8f9bGQPMCA-!N!B-!!!!0!!
!!"JkPeF%!$)!!!!"!!![GA0b,faTBLpXD@*6HA0dC@dZ3LjNH@aTBJ#3"3)!!!!
B!!!J!*!%'3!!)@J!!!)d!!!!#`!!!&!!N!m4!!!!%3!!!!J!N"SK,!!!!!m!N"-
&!!!!X!!!!!%!!!!S!!!EL!#3r`#3r`#3r`#3r`#3r`#3r`#3r`#33h`k#hJi)Ir
m9#%!0$J!!!#3!!%!!*3Krm#!HJ!!1*S!"$YM!!&AHa!kI+6D&%J!!!Pri!!)I!J
#TVq"rr#3!!%!#*3Krl"#R`!&IqJ#TRam'hKmRL0iI,dVH%J!!HNp2`!!NiN%-$d
r!!#6b33d26m!!*1T"$Jp2`!!J5N%C)%T!!!X#3!!3B)!%(dS!kCp,%Yi6S!!)6d
r!!#"+34JJ5N!!#`*!!""JJ!3I5J$TRdX5hK1J!!K5!!$@8J!!6dp2`!!J5N%A)!
*!!!X!!!!3B)!#%J!""%p2`!!J5N%@)!*!!!X!!!!3B)!%(q$ihKra20i5!!$k6a
r!!!iB`,N1)%!1%J!!C@!B3!i,!-!!%'#!!K)!!,C26m!!)%T"&3i!!!!N!!*!!#
!(J!!I!N$H#`!!!""JJ"F18!!!$PJ!!"m#J#Z,!!!!%'#!#Km#9LZ,!!!,d##!!K
p59S81@X!!B%q!!"m#9LZ,!!!!%#Lrq!X#J!!3B)!%$J+!!%p2`!!5!!!$$dr!!#
!(J!!N!!*"$`i!!!!N!!"!$`i`3!mIkRVH)!G!!!X!!!!3B)!%)3*!!3X!!!!3+,
rq$J*!!3pB,rrB@[rrh`!@%""J3!FJ5N!"(`*!%"!J3!3I!PB3%'"!!Km"J0iIi2
MH(r%mhKrTHYi5!!!p8J!!G9m#!+QNq(rr*!!!3!)P#(rX%+I!!9rk!+Q2(m!!$K
M!6`iJ3!i5!!!IB!"!$Km#!1QI!`$H%k!!#'!!3"B1#%!8(`)!kD$iIrm6S!!)$e
J!!#"Db!i,)X!!%''!!K1J!!J1+!!6ML!!!"JK"lm1'!!!MJ!!!4%!!!#1'!!1cJ
!!!&%!!!#Iq!!#$f!!!#!$#!iI!N$TMf!!!"KM"!!6S!%)$eJ!!#"Db!mI@N$TNk
!"#"m#!+QN!!"!!L8)Ir!15!!!*!!B3!m1!!!!CNK!$Q`!3!k1'%!1*NK!$K)!!'
*J!%!5$JK!%"m#!1Q6S!!)(`)!UD3!!%!#*3Krm!mB'&`2)"cBf"ME(4JK("d5!!
"0AaJ'hNiB!!"3B)!%(`$!hK,rrq91'!!!)!"!%Ji)3"!I!J$TNk!!#!!N!4IAf4
jE'4IE@pNAh4PFQeICR9ZBh-!!!"IAf4jE'4IE@&VC9pNC@aKH@9NAfe[C(9XC9p
TEQPdD@&XDATPFPpMB@aXF`#3"&4SC5"VCA*ZC@`JFh9`F'pbG#"QEh)JG'KP)'4
jEQ&YD@-JE'PZDf9b)'Pc)'j[G#"`FQ9cC@jd)(4[)(*eEL"dD'Pc)("bEfGbB@d
Z#J!!I!J#TN+I!!9pD!+Q2@X!!(`)!kD"L`#mIBN$TMPV!,a1J!3JI!J#TN+I!!9
pD!+Q2@X!!(`)!kD"L`#FIBN$TMPV!*a1J!3JI!J#TN+I!!9pD!+Q2@X!!(`)!kD
"L`"mIBN$TMPV!(a1J!3JI!J#TN+I!!9pD!+Q2@X!!(`)!kD"L`"FIBN$TMPV!&a
1J!3JI!J#TN+I!!9pD!+Q2@X!!(`)!kD"L`!mIBN$TMPV!$a1J!3J!*!1(V!!!"i
%!!!H"!!!(J3!!"i%!!!H"!#3"L"J!!!JD!#3(Ki%!*$r!*$r!*$r!*$r!*$r!*$
r!*$r!*$r!*$r!*$r!*$r!*$r!*$r!*$r!*$r!*$#"!m%!"!!!#!!N!3-$`3!%!!
!)!3!!!!8!`!!%!!!%!#3"#J2#!!3!!!JE!!!!$m2#!!3!!!JF!!!!&`2#!!3!!!
JG!!!!))2#!!3!!!JH!!!!*82#!!3!!!JI!!!!+m2#!!3!!!JJ!!!!-S2#!!3!!!
JK!!!!1F2#!!3!!!JL!!!!3%2#!!3!!!JM!!!!5)2#!!3!!!JN!!!!!&%$`J!%!!
!)*3!!!&S$`J!%!!!)*J!!!'*$`3!%!!!)!J!!!'5$`J!%!!!)*`!!!'M!3!!!3#
3"J'k!3!!!3#3"J(3!3!!!3#3"J(c!3#3#3)+!3!!!3#3"J)5!3#3#3)C!3!!!3#
3"J)I!3#3#KF!!!!9!!!!%`!!!")!!!!4!!!!&`!!!"8!!!!6!!!!%J!!!"%!!!!
@J!!!!)!!N!B8!!!!'!#3"&p1@%&bCf-!AdjB3A*RGJ"IAfeSAf9iC@0eG'9ID'9
KC'9b!&pMBA4MD&pPH'0PF(4TEfjIFQ&TFf8!Af0KG'0SAf9iBf9`G'P[EPpbB@P
cC9pcG'&dC3"IBf&dBfKICAKMCA"dD@pZAh*KDA0PAh0dBA4PAfPNC@jdDA4j!&p
ME'pMDepKE'&bE9pbCA"XH3"IC'pIE@&MD&pZEh4TCRPIC'9KC&pZB@eP!&pNEep
YB@0SAfj[G'PQH9pZEepcC@jNCA*c!&pNEepYB@0SAfj[G'PQH9p`Eh*dAf4PE'9
dC@3!Af4[AfeKBfKIEQpdD@CjAh0PEQ4IEfjMC3"IC'pIFf9aEQpcAfeKBfKIEQp
dD@CjAf4PB@4IEQ&YC3"IC'pIFf9aEQpcAfeKBfKIEQpdD@CjAfj[Ah0PEQ4PFR-
!Af4[Ah0PF@j[FepYB@0SAfj[G'PQH9p`Eh*dAf4PE'9dC@3!Af4[Ah0PF@j[Fep
YB@0SAfj[G'PQH9pcC@jNAfpZBf8!Af9ZGQPbEfi!Ah*PBf9TGQ9IFf&YF'aPF`"
I3f&XE%0[EA"[EQ9ZG%4TFh"KG'0S!&p2F'9Z4'9QBA9XG%0[EA"[EQ9ZG!"IAep
VCAPYCh*IC(GKFQBbAh*PCfPcG'9bAh0PBh4TEfjc!&pIBh4SFQ9KC&pTEQPdAh*
[GA4TEQ8!Af&dCAKTG!"ICA*bEQm!Af9iDA3!AfeKBfKID@jTG&pbEh9dD@jP!!!
!Q(!!!!%!!!!6ZJ!!%VS!!!'+!*$c'N!!N"`I6@&VC5"KE'PKFf9c)(4[)(KcB@e
`E'8JE'PLFQ&bH3!!!"B!!3#3"3i!#J!3!!!!$!#3#3)!N!8B!!!!+!#3"`J!!!!
J!'3r2!!"UI!!!!$#!!!!!8j@rrJ[!hB!,`-`2+'YTdBQ(be)rrJ[!c!mU*qR4LB
I)#lrq,(!Cb![!b!mBh"ZG%(Zrr`L5+'Y)SJQ(dT!CJK+V[rmC`*f!4!$*Llrp%j
H6R@24fpd3fpYF'pZC@jd6@Gb!!"19J!!,`a1Z[q85J"R+PQ2,caKF'ad,cacBh"
dF#'S+LKI)!aR%PQ2,``[2!!!!!&`!+JUUI4B6h!$2`#Tb(!$2`#Tb#KZrra1ANj
eLN&`F'aPG&0dG@)!N!B+@1!!!b!!!!-J!*!)('&`E(3!!!!"4P*&4J#3"B"*3di
M!*!&PJ!!!!%!N!3(39"36!#3"3%!!!%!!!!#J!!!"%!!!(JJ!!#%%!!"!JJ!!J)
%!!3%!J!)#!%!%"3!J#!L!%"!33!Jm)#!%)N!3!L'!#!%K!!J!N!!%!%J!"!#%!!
3"!J!%!J%!#!3!J"!)!%!J%!#J3#!"))"!!K%!J!)5!3!#&J)!!4N%!!$`L!!!!&
!!!!!J!!!!3!!!!1!!!!(`!!!Iq!!!2r`!!(rq!!$rr`!"rrq!!rrr`!Irrq!2rr
r`(rrrq$rrrr`rrrrq2rrrrcrrrrqIrrrrcrrrriIrrrm$rrrq!Irrr!$rrrJ!Ir
r`!2rri!(rrm!$rrq!!rrr!!2rrJ!"qI`!!2$i!!!!F!!!!#!!!!!!J#3#!m!N!r
`m!#3$3m!$`#3#`rrm!!!m!#3#[$-h`!!$`#3#3m!$-c`!!$`!*!)m!$-cI!!!!m
!N!F2!!c-h`#3"2!!N!E`!-c0m!#3"!m!N!82!!c-hpm!N!A`!*!%m!$-cIhGm!#
3"!m!!!!2!!c-hph-h`#3"I!!!2rrc-hph-$0m!#3"!m!!2lFr0rGc!`-h`#3"I!
!rFc2rGc!`-$0m!#3"!m!r-`2cF`-$!!-r3#3"I!2!-$-`-$!!!cI!*!%$-m!m!b
3"!!!c0m!N!6-m!!2!-$!`!!-$0m!!!!-c`!!!2!-$!!!`-cI!!!!c2!!!!!2!-!
!$!c0r!!!$-m!N!A`!!$!c0r-!!$-m!#3"3m!$!c0r-`!$-m!N!Epm-$-hmc!!-c
`!*!&$phm$-hmc!!-c`#3"[hFcmcIc-!!c2!!N!Epc-r0r-`!$-m!N!Imc!rIr-!
!c2!!N!F2`-r`$m`-c`#3#Irr!!$mc2!!N!d2c`#3$r!!N!T!!B!13"%J)4"##18
%Q)+3!%&!)5!L%%3BL#83*L!G3!#!!B!2`"rJ2r"rq2rmrrlrrhrr2riIr"ri2r!
ri"h!!)!!!!#!!!!!$r!!N!Arm!m!N!32$!m!m!!!!2$!c`!2!!!2$!c`!!$`!2r
`cpm!!!m!rGrpc2!!!2$p$p`-c`!!$`m!`-$0m!$2!2!-$-h`$2!!$`$-hm$2!!!
2m-hm$2!!!2h2hm$2!!!!r-rm$2!!!!!2r`r2!*!(m!#3"Lp6Dh*TF(4`FQpRFQ&
YE3d06@&VC5"KE'PKFf9c)(4[)(KcB@e`E'8JE'PLFQ&bH3!!!")!!J#3#3%!"J!
'%iN!!!!8!%m!-3,*!f`!6`!a!XN$E!#3"Jd!4Q&cC&9"8b!a,M%`-5ia-!i!!!!
%$rrr!!%!!J!$!Irr!!!0!!%!!@X!N!F%!J!%!!)!"3!'$3!&!!*X!!)!!!"M!!I
rrJd!"`!#6`#3"@-!#!!*$3!)!!&V!!!!"!"L!!S#!!S!!J!,!!`0!!X!!Q`!!J!
%!!6rrIrm!Irp!!!"rr`!!!)!$!!#!!d!$Jd!$3!#FJ!!!!3!"`!2!"!0!!m!!@d
!!!!%!!8!%3`!%3!0!!GiFf&YF'aP!!)!!!d!%!!"E`#3"[rl#rrl!!``!!K[FQP
RD@jKE!!!!J!1!!)!%J!6$3!5!!*b!!!!#!!2!"3!&3d!&!!"5J!!!!J!$3!@!J!
@!!)!&`!B$3!A!!&Y!!!!#!!*!"N-!"N!$J!)H'GbEfpfCAi!!J!!!J!B!!)!'J!
E$3!D!!&Y!!!!#3!+!"`-!"`!$!!'H("XBAPq!!)!!!)!'`!#!"hrqJd!(3!"E3!
!!!S!#`!H$!!H!!i!#(KbC@0[FQ4q!!)!!!,rqJ!!$3!9!!&[!*!'rrN,rrN!$6!
!#@9iG'9bEQ&XF`!!!J!6!!)!(`!J$3!I!!*X!!)!%!!3rrMrp`(rq!!!!Irh!!!
#!#!!!J!K!#)0!#%!!Q`!!!!3!"$rpJ!M!Irf!!!-!#-!#`!&)'4[)5!!!J!!!J!
L!!)!*!!P$3!N!!*X!!)!%!!3rrArp!(rp3!!!Ird!!!#!#8!!J!Q!#F0!#B!!R)
!!!!3!"N!+!!T$3!S!!*X!!8!%!!A!#Vrm`d!+J!#EJ!!!"!!&`!V!#`0!#X!!@d
!!!!9!"IrmJVrmJ!%#Q0dER)0!#`!!Q`!"3!3!"8!,Ira$3!Y!!0*!!)!%!!9rr!
!,[r[#[r`!"JZC@&bFfCQC(*KE'Pc!*!')!"KCQ4b$3!Z!!"Q!!!!%!!4![r[!!!
"rr%!!!(rm`!!$3!T!!&[!*!'rqi,rqi!#M!!"Q0eFQ4TFJ!!!J!R!!)!,`!`$3!
[!!*b!!!!'J!J!$%!-Jd!-3!#E!!&!"S!(J!crqd0!$-!!Qi!!!!D!"i!0!!e$3!
d!!)d!!!!'`!Hrq`!0JVrl!!%#QCTE'80!$B!!@m!!!!F!"hrk`[rk`!--!!)Eh*
TCfPZB@`!!!d!03!"E`!!!"S!'rrU#rrU!!S`!!CMGA*NDA)!!!(rl3!!$3!b!!&
[!*!'rqN,rqN!"c!!!fpbD3!!!J!`!!)!0`!i$3!h!!*X!!)!)3!KrqMrj`(rk!!
!!IrR!!!#!$J!!J!j!$S0!$N!!Q`!!!!K!#(rjJ!l!IrQ!!!-!$X!)!!D)'CTFR0
d)'4PE'9dC5"KE'`JB@aTBA0PFb!!!J!!!J!k!!)!2!!p$3!m!!0*!!)!)3!arq8
!2[rN#[rP!"JZBfpbC@4PE'mUN!3!N!D3!!!UN!30!$i!!Q`!"3!K!#d!2rrM$3!
r!!)f!3!!)3!Y!%!!33d!3!!#EJ!!!#%!*!"#!%-0!%)!!6)!!!!L!#6riJVriJ!
%#Q&XD@%0!%-!!@m!!!!K!#,ri3[ri3!+-!!'Bh9bC'Pb!!!0!%%!!N8!!3!P!#`
!4!"&$3"%!!&[!!!!*J!Srq!,rq!!$6!!#@9iG'9bEQ&XF`!!$3"&!!%a!!!!+3!
Vrpm+rpm!"!T`EQ&Y!IrM!!!#rq3!!!)!23!#!%B!4`d!4J!#E!!#!$)!-[rHrpd
"rpi!!!(rh3!!!J"(!!)!5!"*$3")!!*X!!!!-J!brp`!5J(rh!!!$!"+!"N!%b"
ZEhFJE@&VC5"ZCAFJEfjPFb!!!J!!!J"*!!)!5rrE$3",!!0B!!!!-J"L!%crfJ"
0$3"-!!*b!!!!4J"G!%i!6`d!6J!"E`!!!%B!4rrC#rrC!!F`!!0PH(3!!!d!6`!
#EJ#3"e!!83d!8!!"-3!!!&S!A2rB#[rB!!3+F'jKE3d!83!#E!!&!%F!@J"5rpF
0!&)!!dN!!J"(!&Vre[r9!&-+rpB!'#jMEh*PBh*PE#U3"!#3"T!!!'jeE'`"rp8
!!!B!8`!$rp3!9!"9#[r8!!3+DfpME!d!9!!"E3!!!%X!62r6#[r6!!3+B@aTB3B
!93!$rp)!9J"A#[r5!!3+D@jcD!d!9J!"E`!!!%m!82r4#rr4!!S`!!CMGA*NDA)
!!!B!9`!$rp!!@2r2#[r3!!3+G'mJ)!d!@!!"E`!!!&-!92r1#rr1!!F`!!0[FQN
!!!Erc`!!!IrA!!!,rpS!"c!!!f9iG!!!$3"0!!&[!!!!03!frmd,rmd!$6!!#@9
iG'9bEQ&XF`!!![rE!!!0!!N!!@d!N!8"!&N2!&N"-!KZG@aX!*!&!Gq%rrm!!!!
H"NCTEQ4PFJ!!!"62&%!!!daN&-+L@!!!S'88ca4!!I543"6#@D3!!$JbrJ)!!!!
2Zl38ca5!!!$rU!#3"Ne"3e-!!"%!B@aTF`#3"G)!!J!!#%K%)%eKBdp6!*!6Z"p
,#8*%!*!&(JC'D@jNCA)!N$X1BEFj2m"'6N4568&$8rq3"!#3%`a6HA0dC@e[FQ4
ZCA)!!3!%!!!!(J!#!"a)4#"0B@028cT6HA0dC@e[FQ4ZCA)k4QPZC'9brrm!!!(
rrJ!!!J!'!!)!@[r-$3"D!!*X!!)!N!6rbrr+!Ir,!!!"rmS!!!,rc!!!$J!#!!!
2%!!$!!Vrb3"E!&`!%3"G!&i!Arr)rmIraJ(rb3!!%!"E!!MraIr%rm2r`[r"rm$
r[rqq#[r&!"JZB@9fG'pKF("ZG@aX!!#!!!!!N!!!+T!%#rr%!!``!!K[FQPRD@j
KE!!!#rr$!!d`!!PPH(4PFQjKE(-!!![r`J!+-!!'Bh9bC'Pb!!!,rm%!"c!!!fp
bD3!!!Ir!!!!"rlm!!!(r[J!!$J"F!!F3rld!B2qmrlX!B3"LrlS+rld!'#jKCAC
dEf&`F'jeE'`!!)!!!!#3!!!UN!30!'!!!@X!N!9M!'-#!'-!!J!&rlN#rlN!!!(
r[!!!![ql!!!3!'%!!Iqi#rqi!!F`!!0PH(3!!"!!BJ!A!&N!%Iqh!"N!(!!HrlE
rYIqdrl2rX[qarl!!C2q[rklrVIqXrk[rU[qTrkMrT`[rY`!--!!)Eh*TCfPZB@`
!!![rYJ!0-!!*CAKdCA*ZB@ac!!!+rl8!'#jPBA*cCQCNFQ&XDA-!N!BJ!'&QC()
+rl3!"!TMG'jb#rqc!!S`!!CMGA*NDA)!!!VrXJ!%#QCTE'8,rl%!"c!!!fpbD3!
!#[q`!!3+B@aTB3i!C!!!%`VrV`!%#R"ZB@d+rki!'#jMEh*PC'9XEbU3"!#3"T!
!!#U3"!VrV3!%#QY[Bf`+rk`!"!TMEf*U#[qV!"JZBfpbC@0ZG'8UN!3!N!B3!#U
3"!VrUJ!%#QPZFfJ+rkN!"!TdEb!J!rqS!!B+rkF!'#jMEh*PBh*PE#U3"!#3"T!
!!'jeE'`4rlS!C1!5!'$K4G*2iq6PEAC&eNmTDJ`!"qJX4GP2bHV#,dAE6mRX,He
E@XCFlLa!-@S-!!p2&`![aPYK!""K!"&X$!!5DfJE!!#J+Q%!%1aK!"2*B3!8bf%
!&3`!&ZiX4PY2@IrM93m1!&d!!J6rTJ"P!rqQ!!-1!'8!!`!!'3!F!"i1!&i!!43
!CJi!CJ!$'!"Rrk8!D!i!C`!$'!"Trk3!DJi!D3!$'!"Vrk-!E!i!D`!$'!"Yrk)
!EJi!E3!$'!"Crk%!E`VrS3!%#Q0NDA--!'m!$J!)5%3J4'&dC@i!!J!!#[qL!!3
+BfC[E!`!EJ!3!!T3FQpR)(0dG@CQ!!)!!!VrS`!%#Q0QEf`-!'`!#3!$E@&i!!)
!!!VrT!!%#Q0QEf`-!'S!$3!(H(0KEA"XC3!#!!!+rk8!"!TMCQpX$!"S!!N!!de
39`!#!!!1!&m!!43!F!i!F!!$'!"ark!!FJi!F3!$'!"crjm!G!i!F`!$'!"erji
!GJi!G3!$'!"hrjd!H!i!G`!$'!"jrj`!HJi!H3!$'!"CrjX!H`VrQ`!%#Q0NDA-
-!(X!$J!)5%3J4'&dC@i!!J!!#[qF!!3+BfC[E!`!HJ!3!!T3FQpR)(0dG@CQ!!)
!!!VrR3!%#Q0QEf`-!(J!#3!$E@&i!!)!!!VrRJ!%#Q0QEf`-!(B!$3!(H(0KEA"
XC3!#!!!+rjm!"!TMCQpX$!"d!!N!!de39`!#!!!+rk!!"!TQD@aP$!"b!!d!"hK
cB@e`E'8!!J!!!Ir)!!!"rmF!!!(raJ!!!'&cBh)!!3!0qYlHV3!!!3!!!"1k!!!
5ZJ!!!BT66e*8!IB!J!!F!BS!%%*14%`!!!#+3dp%43!"!*C'8N9'!!!!VNP$6L-
!!!#k8dPD43!!!-C849K8!!%!dPG3Eh-!!!$UBA"XG!!!!2CMBA*L!!!"!QKQC()
!!!%1D@0X0!!!!4TTBh-M!!!"*QPMFc3!!!%bFf0`G!!!!6jcBh0k!!!"5R0`FfJ
!!!&@Fh4jE!!!!@)!J2rr!!!"93#3"[rr)!!!B46%k3J!!Irr&!!!I46%k63!J2r
r!!!"HJ#3"CErr`!!!B8!N!6rN!3!!!&$!*!%"'Mrr`!!!"i!N!36LIrr!!!&93#
3"B$rr`!!"Ci!N!Err`!!!A8!N!Err`!!!9%!N!6T`2rr!!!&L!#3"CErr`!!!SN
!N!@@rrm!!!50!*!&P[rr!!!%d3#3"B$rr`!!"EB8a6PJ!!$rr`#3#[rr!!!!@`#
3"!4Srrm!!!""!*!%))i:
\ No newline at end of file
diff --git a/externals/grill/xsample/gpl.txt b/externals/grill/xsample/gpl.txt
new file mode 100644
index 00000000..5ea29a7d
--- /dev/null
+++ b/externals/grill/xsample/gpl.txt
@@ -0,0 +1,346 @@
+		    GNU GENERAL PUBLIC LICENSE
+		       Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+                       59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+			    Preamble
+ 
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.)  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+
+		    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+
+
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+			    NO WARRANTY
+
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+		     END OF TERMS AND CONDITIONS
+
+
+	    How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) 19yy  <name of author>
+
+    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.
+
+    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
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+    Gnomovision version 69, Copyright (C) 19yy name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Library General
+Public License instead of this License.
+
diff --git a/externals/grill/xsample/license.txt b/externals/grill/xsample/license.txt
new file mode 100644
index 00000000..dc45deed
--- /dev/null
+++ b/externals/grill/xsample/license.txt
@@ -0,0 +1,84 @@
+xsample - extended sample objects for Max/MSP and pd (pure data)
+Copyright (C) 2001,2002 Thomas Grill
+
+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.
+ 
+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.
+
+In the official xsample distribution, the GNU General Public License is
+in the file gpl.txt
+
+---------------------------------------------------------
+
+             OTHER COPYRIGHT NOTICES
+
+---------------------------------------------------------
+This package uses the flext C++ layer and some code snippets 
+from pd (pure data). 
+See the license texts below:
+
+
+--- flext ----------------------------------------------
+flext - C++ layer for Max/MSP and pd (pure data) externals
+Copyright (C) 2001,2002 Thomas Grill
+
+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.
+ 
+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.
+
+In the official flext distribution, the GNU General Public License is
+in the file gpl.txt
+
+
+--- pd (pure data) --------------------------------------
+This software is copyrighted by Miller Puckette and others.  The following
+terms apply to all files associated with the software unless explicitly
+disclaimed in individual files.
+
+The authors hereby grant permission to use, copy, modify, distribute,
+and license this software and its documentation for any purpose, provided
+that existing copyright notices are retained in all copies and that this
+notice is included verbatim in any distributions. No written agreement,
+license, or royalty fee is required for any of the authorized uses.
+Modifications to this software may be copyrighted by their authors
+and need not follow the licensing terms described here, provided that
+the new terms are clearly indicated on the first page of each file where
+they apply.
+
+IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
+FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
+DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
+IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
+NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
+MODIFICATIONS.
+
+RESTRICTED RIGHTS: Use, duplication or disclosure by the government
+is subject to the restrictions as set forth in subparagraph (c) (1) (ii)
+of the Rights in Technical Data and Computer Software Clause as DFARS
+252.227-7013 and FAR 52.227-19.
diff --git a/externals/grill/xsample/maxmsp/xgroove~.help b/externals/grill/xsample/maxmsp/xgroove~.help
new file mode 100644
index 00000000..c26c6eff
--- /dev/null
+++ b/externals/grill/xsample/maxmsp/xgroove~.help
diff --git a/externals/grill/xsample/maxmsp/xplay~.help b/externals/grill/xsample/maxmsp/xplay~.help
new file mode 100644
index 00000000..cb4f7cad
--- /dev/null
+++ b/externals/grill/xsample/maxmsp/xplay~.help
diff --git a/externals/grill/xsample/maxmsp/xrecord~.help b/externals/grill/xsample/maxmsp/xrecord~.help
new file mode 100644
index 00000000..a45de207
--- /dev/null
+++ b/externals/grill/xsample/maxmsp/xrecord~.help
diff --git a/externals/grill/xsample/pd/xgroove~.help.pd b/externals/grill/xsample/pd/xgroove~.help.pd
new file mode 100644
index 00000000..74b9e312
--- /dev/null
+++ b/externals/grill/xsample/pd/xgroove~.help.pd
@@ -0,0 +1,166 @@
+#N canvas 92 110 837 556 12;
+#X obj 258 240 hsl 128 15 0.001 3 1 1 empty empty empty 20 8 0 8 -225271
+-1 -1 0 1;
+#X floatatom 255 261 8 0 0;
+#X floatatom 275 312 8 0 0;
+#X floatatom 350 312 8 0 0;
+#X floatatom 273 372 8 0 0;
+#X floatatom 348 372 8 0 0;
+#X obj 275 419 loadbang;
+#X obj 274 445 metro 30;
+#X obj 250 470 snapshot~;
+#X floatatom 250 494 8 0 0;
+#X msg 258 82 loop \$1;
+#X obj 159 27 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1
+-1;
+#X msg 158 47 stop;
+#N canvas 0 0 450 300 graph7 0;
+#X array buf 300 float 1;
+#A 0 0.841115 0.9094 0.95923 0.989636 0.999991 0.990063 0.960094 0.910649
+0.842757 0.757796 0.65746 0.543816 0.419143 0.285978 0.147021 0.00508036
+-0.136962 -0.276228 -0.409895 -0.535265 -0.649771 -0.751121 -0.83725
+-0.906401 -0.957205 -0.988587 -0.999947 -0.991051 -0.962051 -0.913577
+-0.846573 -0.762418 -0.662823 -0.549777 -0.425604 -0.292801 -0.154064
+-0.0122066 0.129898 0.269372 0.403387 0.529223 0.644347 0.746395 0.833328
+0.903378 0.955105 0.987498 0.99986 0.991967 0.963983 0.91644 0.850346
+0.767009 0.668129 0.555721 0.432034 0.299602 0.161097 0.0193266 -0.122836
+-0.262506 -0.396859 -0.523173 -0.638875 -0.741645 -0.82937 -0.900294
+-0.952984 -0.986339 -0.999729 -0.992844 -0.965842 -0.919283 -0.854067
+-0.771564 -0.673418 -0.561622 -0.438457 -0.306392 -0.168126 -0.0264512
+0.115759 0.255627 0.390308 0.517083 0.633384 0.736837 0.825374 0.89717
+0.95079 0.985156 0.999531 0.993672 0.967666 0.922048 0.857765 0.776069
+0.678665 0.567504 0.444838 0.313167 0.175141 0.0335691 -0.108684 -0.248732
+-0.383745 -0.510974 -0.627851 -0.732014 -0.821324 -0.894008 -0.948562
+-0.983895 -0.999309 -0.994439 -0.96944 -0.924788 -0.861391 -0.780556
+-0.683878 -0.573355 -0.451214 -0.319922 -0.182154 -0.0406903 0.101596
+0.241826 0.37715 0.504839 0.62229 0.727131 0.81725 0.890784 0.946286
+0.982602 0.999003 0.99518 0.971156 0.927473 0.864993 0.784974 0.689065
+0.579174 0.457555 0.326665 0.189149 0.047805 -0.0945095 -0.234908 -0.370551
+-0.498674 -0.616703 -0.722227 -0.813114 -0.887541 -0.943952 -0.981256
+-0.998669 -0.995836 -0.972845 -0.93011 -0.868543 -0.789377 -0.694202
+-0.584975 -0.463879 -0.333389 -0.196144 -0.0549212 0.0874133 0.227976
+0.363918 0.492493 0.611072 0.717282 0.80895 0.88422 0.941593 0.979852
+0.998275 0.996467 0.974453 0.932714 0.872048 0.793723 0.699318 0.590728
+0.47018 0.340094 0.20312 0.0620311 -0.0803164 -0.221037 -0.357277 -0.486275
+-0.605431 -0.712297 -0.804743 -0.880878 -0.939154 -0.97842 -0.99783
+-0.997035 -0.976038 -0.935246 -0.875523 -0.798037 -0.704388 -0.596471
+-0.476452 -0.346789 -0.210093 -0.0691412 0.0732124 0.21408 0.350613
+0.480039 0.599733 0.707289 0.800488 0.87748 0.936691 0.976908 0.997349
+0.997554 0.977556 0.937754 0.87893 0.802314 0.709426 0.602164 0.482708
+0.353456 0.217051 0.0762439 -0.0661074 -0.207122 -0.343933 -0.473779
+-0.594024 -0.702224 -0.796211 -0.87404 -0.934169 -0.975372 -0.996792
+-0.998035 -0.979032 -0.940196 -0.882319 -0.806539 -0.714434 -0.60784
+-0.48893 -0.36012 -0.224 -0.0833475 0.0589955 0.200142 0.337238 0.467489
+0.588274 0.69714 0.791867 0.870566 0.931602 0.973768 0.996211 0.998443
+0.980464 0.9426 0.885637 0.810741 0.719392 0.613481 0.495132 0.366748
+0.230939 0.0904412 -0.0518851 -0.193161 -0.33052 -0.461188 -0.582499
+-0.692013 -0.787507 -0.867028 -0.928998 -0.972125 -0.995556 -0.998827
+-0.98183 -0.944959 -0.888927 -0.81488 -0.724336 -0.619089 -0.501311
+-0.373371;
+#X coords 0 1 299 -1 300 200 1;
+#X restore 521 23 graph;
+#X obj 144 486 dac~;
+#X msg 157 86 reset;
+#X text 290 292 min/max points;
+#X text 289 390 min/max points;
+#X text 323 494 position;
+#X text 181 24 start;
+#X text 198 45 stop;
+#X msg 156 113 help;
+#X text 416 234 speed;
+#X text 337 254 (float or signal);
+#X obj 656 365 table buf2;
+#X floatatom 519 380 8 0 0;
+#X obj 519 353 soundfiler;
+#X msg 158 172 set buf2;
+#X msg 157 144 set buf;
+#X msg 372 82 interp \$1;
+#X msg 240 312 all;
+#X obj 198 341 xgroove~ buf;
+#X text 255 10 looping mode;
+#X text 370 9 interpolation;
+#X msg 20 170 pos 100;
+#X msg 35 199 pos 200;
+#X obj 152 447 *~;
+#X obj 22 242 ramp 10;
+#X msg 10 105 xzone \$1;
+#X obj 13 62 hsl 128 15 0 300 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#X floatatom 10 83 5 0 0;
+#X obj 258 32 vdl 15 0 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1
+1;
+#X text 277 29 once;
+#X text 277 45 forward;
+#X text 277 61 bidir;
+#X obj 372 31 vdl 15 0 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1
+1;
+#X text 391 28 none;
+#X text 391 44 linear;
+#X text 391 60 4-point;
+#X obj 520 299 openpanel;
+#X msg 521 326 read -resize \$1 buf2;
+#X obj 521 275 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 256 134 vdl 15 0 0 4 empty empty empty 0 -6 0 8 -262144 -1 -1
+2;
+#X text 255 113 units;
+#X msg 256 199 units \$1;
+#X obj 364 134 vdl 15 0 0 4 empty empty empty 0 -6 0 8 -262144 -1 -1
+0;
+#X text 363 113 scale mode;
+#X msg 364 199 sclmode \$1;
+#X text 275 131 frames;
+#X text 275 147 buffer sz;
+#X text 275 163 ms;
+#X text 275 178 s;
+#X text 383 147 units in loop;
+#X text 383 163 buffer;
+#X text 383 178 loop;
+#X text 383 131 units in buffer;
+#X obj 524 440 osc~ 1000;
+#X obj 524 498 tabwrite~ buf;
+#X obj 536 467 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 557 468 stop;
+#X connect 0 0 1 0;
+#X connect 1 0 31 0;
+#X connect 2 0 31 1;
+#X connect 3 0 31 2;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 10 0 31 0;
+#X connect 11 0 31 0;
+#X connect 12 0 31 0;
+#X connect 15 0 31 0;
+#X connect 21 0 31 0;
+#X connect 26 0 25 0;
+#X connect 27 0 31 0;
+#X connect 28 0 31 0;
+#X connect 29 0 31 0;
+#X connect 30 0 31 0;
+#X connect 31 0 36 1;
+#X connect 31 1 8 0;
+#X connect 31 2 4 0;
+#X connect 31 3 5 0;
+#X connect 34 0 37 0;
+#X connect 35 0 37 0;
+#X connect 36 0 14 0;
+#X connect 36 0 14 1;
+#X connect 37 0 36 0;
+#X connect 37 1 31 0;
+#X connect 38 0 31 0;
+#X connect 39 0 40 0;
+#X connect 40 0 38 0;
+#X connect 41 0 10 0;
+#X connect 45 0 29 0;
+#X connect 49 0 50 0;
+#X connect 50 0 26 0;
+#X connect 51 0 49 0;
+#X connect 52 0 54 0;
+#X connect 54 0 31 0;
+#X connect 55 0 57 0;
+#X connect 57 0 31 0;
+#X connect 66 0 67 0;
+#X connect 68 0 67 0;
+#X connect 69 0 67 0;
diff --git a/externals/grill/xsample/pd/xplay~.help.pd b/externals/grill/xsample/pd/xplay~.help.pd
new file mode 100644
index 00000000..9bca8cbb
--- /dev/null
+++ b/externals/grill/xsample/pd/xplay~.help.pd
@@ -0,0 +1,57 @@
+#N canvas 297 114 616 300 12;
+#X obj 69 252 dac~;
+#X obj 19 54 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1
+-1;
+#X msg 18 74 stop;
+#X msg 16 141 reset;
+#X text 41 51 start;
+#X text 58 72 stop;
+#X obj 125 155 *~ 300;
+#X text 107 176 position signal;
+#X msg 16 115 help;
+#X graph graph7 0 -1 299 1 284 217 584 17;
+#X array buf 300 float 1;
+#A 0 -0.03 -0.03 -0.03 -0.0366667 -0.0433333 -0.05 -0.065 -0.08 -0.085
+-0.09 -0.096 -0.102 -0.108 -0.114 -0.12 -0.1275 -0.135 -0.1425 -0.15
+-0.156 -0.162 -0.168 -0.174 -0.18 -0.186 -0.192 -0.198 -0.204 -0.21
+-0.2175 -0.225 -0.2325 -0.24 -0.246 -0.252 -0.258 -0.264 -0.27 -0.276
+-0.282 -0.288 -0.294 -0.3 -0.305 -0.31 -0.315 -0.32 -0.325 -0.33 -0.335
+-0.34 -0.34375 -0.3475 -0.35125 -0.355 -0.35875 -0.3625 -0.36625 -0.37
+-0.373333 -0.376667 -0.38 -0.383333 -0.386667 -0.39 -0.393333 -0.396667
+-0.4 -0.402 -0.404 -0.406 -0.408 -0.41 -0.4125 -0.415 -0.4175 -0.42
+-0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.42
+-0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.42 -0.4175 -0.415 -0.4125 -0.41
+-0.41 -0.4 -0.39 -0.39 -0.385 -0.38 -0.36 -0.35 -0.34 -0.33 -0.32 -0.31
+-0.3 -0.29 -0.28 -0.27 -0.26 -0.25 -0.2425 -0.235 -0.2275 -0.22 -0.21
+-0.2 -0.19 -0.18 -0.17 -0.16 -0.15 -0.14 -0.132 -0.124 -0.116 -0.108
+-0.1 -0.09 -0.08 -0.07 -0.06 -0.05 -0.0425 -0.035 -0.0275 -0.02 -0.01
+0 0.01 0.0175 0.025 0.0325 0.04 0.05 0.06 0.07 0.08 0.08875 0.0975
+0.10625 0.115 0.12375 0.1325 0.14125 0.15 0.156 0.162 0.168 0.174 0.18
+0.186 0.192 0.198 0.204 0.21 0.22 0.23 0.24 0.25 0.26 0.27 0.278 0.286
+0.294 0.302 0.31 0.318 0.326 0.334 0.342 0.35 0.355556 0.361111 0.366667
+0.372222 0.377778 0.383333 0.388889 0.394444 0.4 0.405714 0.411429
+0.417143 0.45 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46
+0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46 0.46
+0.46 0.46 0.46 0.46 0.46 0.456667 0.453333 0.45 0.45 0.45 0.448333
+0.446667 0.445 0.443333 0.441667 0.44 0.44 0.43625 0.4325 0.42875 0.425
+0.42125 0.4175 0.41375 0.41 0.405 0.4 0.4 0.3925 0.385 0.3775 0.37
+0.37 0.355 0.35 0.34 0.33 0.32 0.31 0.29 0.283333 0.276667 0.27 0.26
+0.25 0.24 0.23 0.22 0.21 0.2 0.19 0.18 0.16 0.15 0.14 0.13 0.12 0.11
+0.105 0.1 0.09 0.075 0.06 0.05 0.04 0.03 0.02 0 -0.02 -0.0266667 -0.0333333
+-0.04 -0.05;
+#X pop;
+#X obj 117 82 hsl 128 15 1 100 1 1 empty empty empty 20 8 0 8 -225271
+-1 -1 11100 1;
+#X obj 77 203 xplay~ buf;
+#X msg 17 168 print;
+#X obj 124 124 phasor~ 100;
+#X connect 1 0 11 0;
+#X connect 2 0 11 0;
+#X connect 3 0 11 0;
+#X connect 6 0 11 0;
+#X connect 8 0 11 0;
+#X connect 10 0 13 0;
+#X connect 11 0 0 0;
+#X connect 11 0 0 1;
+#X connect 12 0 11 0;
+#X connect 13 0 6 0;
diff --git a/externals/grill/xsample/pd/xrecord~.help.pd b/externals/grill/xsample/pd/xrecord~.help.pd
new file mode 100644
index 00000000..5226f539
--- /dev/null
+++ b/externals/grill/xsample/pd/xrecord~.help.pd
@@ -0,0 +1,136 @@
+#N canvas 134 12 855 608 12;
+#X obj 14 15 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1
+-1;
+#X msg 13 35 stop;
+#X floatatom 165 248 5 0 0;
+#X floatatom 219 248 5 0 0;
+#X floatatom 190 170 5 0 0;
+#X floatatom 239 171 5 0 0;
+#N canvas 0 0 450 300 graph7 0;
+#X array buf 10000 float 0;
+#X coords 0 1 9999 -1 200 140 1;
+#X restore 52 431 graph;
+#X obj 91 212 xrecord~ buf;
+#X msg 11 69 reset;
+#X obj 70 287 snapshot~;
+#X floatatom 72 312 7 0 0;
+#X obj 18 220 loadbang;
+#X msg 10 99 help;
+#X obj 175 96 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 1 1
+;
+#X msg 193 93 loop \$1;
+#X msg 173 36 0;
+#X msg 209 36 200;
+#X msg 172 64 draw \$1;
+#X obj 411 275 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1
+-1;
+#X msg 410 295 stop;
+#X floatatom 565 485 5 0 0;
+#X floatatom 619 485 5 0 0;
+#X floatatom 568 427 5 0 0;
+#X floatatom 617 428 5 0 0;
+#X obj 500 458 xrecord~ buf;
+#X msg 409 334 reset;
+#X obj 500 518 snapshot~;
+#X floatatom 500 548 7 0 0;
+#X obj 411 446 loadbang;
+#X obj 537 242 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 0
+1;
+#X msg 556 239 loop \$1;
+#X msg 452 206 0;
+#X msg 451 234 draw \$1;
+#X obj 538 265 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 1
+1;
+#X msg 556 263 sigmode \$1;
+#X msg 409 360 print;
+#X obj 581 353 hsl 128 15 -0.001 1 0 1 empty empty empty 20 8 0 8 -225271
+-1 -1 12700 1;
+#X obj 537 291 tgl 15 0 empty empty empty 20 8 0 8 -225271 -1 -1 0
+1;
+#X msg 557 288 mixmode \$1;
+#X floatatom 629 381 8 0 0;
+#X obj 411 473 metro 30;
+#X obj 18 247 metro 30;
+#X obj 640 21 osc~ 10;
+#X obj 91 133 r~ rec;
+#X obj 482 339 r~ rec;
+#X obj 678 95 s~ rec;
+#X obj 623 48 *~ 1;
+#X obj 622 25 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 1 1
+;
+#X obj 719 50 *~ 1;
+#X obj 718 27 tgl 15 0 empty empty empty 20 8 0 8 -225271 -1 -1 0 1
+;
+#X obj 736 23 adc~;
+#X text 198 149 min/max position;
+#X text 166 267 min/max position;
+#X text 262 96 looping on/off;
+#X text 237 65 display refresh;
+#X text 52 13 start;
+#X text 53 35 stop;
+#X text 26 270 position signal;
+#X text 619 238 looping on/off;
+#X text 644 264 signal mode on/off;
+#X text 700 381 trigger signal;
+#X text 379 121 <----- message triggered;
+#X text 173 368 signal triggered ------->;
+#X text 493 185 click to activate auto update;
+#X text 432 271 start;
+#X text 450 295 stop;
+#X text 538 307 mix-in by trigger signal on/off;
+#X msg 153 170 all;
+#X msg 488 206 100;
+#X obj 521 426 line~;
+#X msg 520 401 \$1 20;
+#X connect 0 0 7 0;
+#X connect 1 0 7 0;
+#X connect 4 0 7 2;
+#X connect 5 0 7 3;
+#X connect 7 0 9 0;
+#X connect 7 1 2 0;
+#X connect 7 2 3 0;
+#X connect 8 0 7 0;
+#X connect 9 0 10 0;
+#X connect 11 0 41 0;
+#X connect 12 0 7 0;
+#X connect 13 0 14 0;
+#X connect 14 0 7 0;
+#X connect 15 0 17 0;
+#X connect 16 0 17 0;
+#X connect 17 0 7 0;
+#X connect 18 0 24 0;
+#X connect 19 0 24 0;
+#X connect 22 0 24 2;
+#X connect 23 0 24 3;
+#X connect 24 0 26 0;
+#X connect 24 1 20 0;
+#X connect 24 2 21 0;
+#X connect 25 0 24 0;
+#X connect 26 0 27 0;
+#X connect 28 0 40 0;
+#X connect 29 0 30 0;
+#X connect 30 0 24 0;
+#X connect 31 0 32 0;
+#X connect 32 0 24 0;
+#X connect 33 0 34 0;
+#X connect 34 0 24 0;
+#X connect 35 0 24 0;
+#X connect 36 0 39 0;
+#X connect 36 0 70 0;
+#X connect 37 0 38 0;
+#X connect 38 0 24 0;
+#X connect 40 0 26 0;
+#X connect 41 0 9 0;
+#X connect 42 0 46 0;
+#X connect 43 0 7 0;
+#X connect 44 0 24 0;
+#X connect 46 0 45 0;
+#X connect 47 0 46 1;
+#X connect 48 0 45 0;
+#X connect 49 0 48 1;
+#X connect 50 0 48 0;
+#X connect 50 1 48 0;
+#X connect 67 0 7 0;
+#X connect 68 0 32 0;
+#X connect 69 0 24 1;
+#X connect 70 0 69 0;
diff --git a/externals/grill/xsample/readme.txt b/externals/grill/xsample/readme.txt
new file mode 100644
index 00000000..cf678085
--- /dev/null
+++ b/externals/grill/xsample/readme.txt
@@ -0,0 +1,142 @@
+xsample - extended sample objects for Max/MSP and pd (pure data)
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+Donations for further development of the package are highly appreciated.
+
+----------------------------------------------------------------------------
+
+IMPORTANT INFORMATION for all MaxMSP users:
+
+It is advisable to put the xsample shared library file into the "startup" folder. Hence it will be
+loaded at Max startup.
+
+If you want to load the xsample library on demand, please run MakeAliases inside the MPW folder.
+This will create aliases to the several xsample objects contained in the library. 
+Move these into the "externals" folder.
+(This latter procedure is only tested for OS 9.2, you may experience problems with other MacOS versions)
+
+----------------------------------------------------------------------------
+
+You will need the flext C++ layer for PD and Max/MSP externals to compile this.
+
+
+Package files:
+- readme.txt: this one
+- gpl.txt,license.txt: GPL license stuff
+- main.h,main.cpp,inter.cpp,inter.ci: base class definition for all the other objects
+- record.cpp: xrecord~
+- play.cpp: xplay~
+- groove.cpp: xgroove~
+
+----------------------------------------------------------------------------
+
+The package should at least compile (and is tested) with the following compilers:
+
+pd - Windows:
+-------------
+o Borland C++ 5.5 (free): edit & run "make -f makefile.bcc"
+
+o Microsoft Visual C++ 6: edit "xsample.dsp" project file
+> due to a compiler bug the optimization using templates is not functional
+
+pd - linux:
+-----------
+o GCC for linux: run "make -f makefile.pd-linux" and as root "make -f makefile.pd-linux install"
+> various versions of GCC die during compile with template optimization turned on 
+
+Max/MSP - MacOS:
+----------------
+o Metrowerks CodeWarrior V6: edit "xsample.cw" project file functions
+
+o Apple MPW-PR: edit & use the "flext.mpw" makefile
+
+
+----------------------------------------------------------------------------
+
+Goals/features of the package:
+
+- portable and effective sample recording/playing objects for pd and Max/MSP
+- MSP-like groove~ object for PD 
+- message- or signal-triggered recording object with mix-in capability
+- avoid the various bugs of the original MSP2 objects
+- multi-channel capability 
+- live update of respective buffer/array content
+- switchable 4-point or linear interpolation for xplay~/xgroove~ object
+- cross-fading loop zone (inside or outside to loop) for xgroove~
+
+----------------------------------------------------------------------------
+
+Version history:
+
+0.2.5:
+- added resources to MaxMSP build
+- xgroove~, xrecord~: introduced a loop/end bang outlet 
+- added MaxMSP buffer resize recognition
+- xgroove~: introduced a crossfading loop zone
+- adapted source for flext 0.4.0
+
+0.2.4:
+- according to flext 0.2.3 changed sample type to t_sample (S)
+- xrecord~: fixed mix mode bug
+- fixed argument buffer problem
+
+0.2.3:
+- using flext 0.2.2 - xsample is now a library under MaxMSP
+- cleaner gcc makefile
+- xgroove~, xrecord~: added "all" message to select entire buffer length
+- xgroove~, xplay~: revisited dsp methods, restructured the code, fixed small interpolation bugs 
+- xgroove~, xplay~: added linear interpolation (message "interp 2") 
+- enabled 0 output channels -> xgroove~: position output only
+- xgroove~: added bidirectional looping (message "loop 2")
+
+0.2.2:
+- using flext 0.2.0
+- xrecord~ for PD: new flext brings better graphics update behavior
+- xrecord~: recording position doesn't jump to start when recording length is reached
+- fixed bug with refresh message (min/max reset)
+- xgroove~: position (by pos message) isn't sample rounded anymore
+- reset/refresh messages readjust dsp routines to current buffer format (e.g. channel count)
+- corrected Max/MSP assist method for multi-channel
+- fixed xplay~ help method 
+- changed syntax to x*~ [channels=1] [buffer] for future enhancements (MaxMSP only, warning for old syntax)
+- fixed small bug concerning startup position in xgroove~ and xrecord~
+- fixed deadly bug in xplay~ dsp code (only active with template optimization) 
+
+0.2.1:
+- no leftmost float inlet for position setting - use pos method
+- changed dsp handling for flext 0.1.1 conformance
+- workarounds for buggy/incomplete compilers
+- prevent buffer warning message at patcher load (wait for loadbang)
+- fixed bug: current pos is reset when changing min or max points
+
+0.2.0: 
+- first version for flext
+
+---------------------------------------------------------------------------
+
+
+TODO list:
+
+general:
+- Documentation and better example patches
+
+- do a smooth (line~) mixin in xrecord~ help patch
+
+features:
+- multi-buffer handling (aka multi-channel for pd)
+- vasp handling
+- performance comparison to respective PD/Max objects
+- anti-alias filter? (possible?)
+
+- delay min/max changes when cur pos in cross-fade zone
+
+tests:
+- reconsider startup sequence of set buffer,set units,set sclmode,set pos/min/max
+
+bugs:
+- PD: problems with timed buffer redrawing (takes a lot of cpu time) - flext bug?
+- Apple MPW doesn't correctly compile template optimization 
+- Max help files aren't correctly opened due to xsample objects residing in a library
diff --git a/externals/grill/xsample/source/groove.cpp b/externals/grill/xsample/source/groove.cpp
new file mode 100644
index 00000000..5c2b056f
--- /dev/null
+++ b/externals/grill/xsample/source/groove.cpp
@@ -0,0 +1,709 @@
+/*
+
+xsample - extended sample objects for Max/MSP and pd (pure data)
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+#include <math.h>
+
+#ifdef _MSC_VER
+#pragma warning (disable:4244)
+#endif
+
+
+#define XZONE_TABLE 512
+
+
+class xgroove:
+	public xinter
+{
+//	FLEXT_HEADER_S(xgroove,xinter,setup)
+	FLEXT_HEADER(xgroove,xinter)
+
+public:
+	xgroove(I argc,t_atom *argv);
+	~xgroove();
+
+	virtual BL Init();
+		
+#ifdef MAXMSP
+	virtual V m_assist(L msg,L arg,C *s);
+#endif
+
+	virtual V m_help();
+	virtual V m_print();
+
+	virtual V m_units(xs_unit mode = xsu__);
+
+	virtual BL m_reset();
+
+	virtual V m_pos(F pos);
+	virtual V m_all();
+	virtual V m_min(F mn);
+	virtual V m_max(F mx);
+	
+	V m_xzone(F xz);
+	V m_xsymm(F xz);
+	V m_xshape(I argc = 0,t_atom *argv = NULL);
+	V m_xkeep(BL k);
+
+	enum xs_loop {
+		xsl__ = -1,  // don't change
+		xsl_once = 0,xsl_loop,xsl_bidir
+	};
+	
+	V m_loop(xs_loop lp = xsl__);
+	
+protected:
+
+	xs_loop loopmode;
+	D curpos;  // in samples
+	I bidir;
+
+	F _xzone,xzone,xsymm;
+	F znmin,znmax;
+	I xkeep;
+	S **znbuf;
+	S *znpos,*znmul,*znidx;
+	I pblksz;
+
+	outlet *outmin,*outmax; // float outlets	
+	
+	V outputmin() { ToOutFloat(outmin,curmin*s2u); }
+	V outputmax() { ToOutFloat(outmax,curmax*s2u); }
+	
+	inline V setpos(F pos)
+	{
+		if(pos < curmin) pos = curmin;
+		else if(pos > curmax) pos = curmax;
+		curpos = pos;
+	}
+
+private:
+//	static V setup(t_class *c);
+
+	virtual V s_dsp();
+
+	DEFSIGFUN(s_pos_off);
+	DEFSIGFUN(s_pos_once);
+	DEFSIGFUN(s_pos_loop);
+	DEFSIGFUN(s_pos_loopzn);
+	DEFSIGFUN(s_pos_bidir);
+
+	DEFSIGCALL(posfun);
+
+	DEFSTCALL(zonefun);
+
+	V do_xzone();
+
+	virtual V m_signal(I n,S *const *in,S *const *out) 
+	{ 
+		bufchk();
+		posfun(n,in,out); 
+	}
+
+	FLEXT_CALLBACK_F(m_pos)
+	FLEXT_CALLBACK(m_all)
+	FLEXT_CALLBACK_F(m_min)
+	FLEXT_CALLBACK_F(m_max)
+	
+	FLEXT_CALLBACK_F(m_xzone)
+	FLEXT_CALLBACK_F(m_xsymm)
+	FLEXT_CALLBACK_V(m_xshape)
+	FLEXT_CALLBACK_B(m_xkeep)
+
+	FLEXT_CALLBACK_1(m_loop,xs_loop)
+};
+
+
+FLEXT_LIB_DSP_V("xgroove~",xgroove)
+
+/*
+V xgroove::setup(t_class *)
+{
+#ifndef PD
+	post("loaded xgroove~ - part of xsample objects, version " XSAMPLE_VERSION " - (C) Thomas Grill, 2001-2002");
+#endif
+}
+*/
+
+xgroove::xgroove(I argc,t_atom *argv):
+	loopmode(xsl_loop),curpos(0),
+	_xzone(0),xzone(0),xsymm(0.5),xkeep(0),pblksz(0),
+	znbuf(NULL),znmul(NULL),znidx(NULL),znpos(NULL),
+	bidir(1)
+{
+	I argi = 0;
+#ifdef MAXMSP
+	if(argc > argi && CanbeInt(argv[argi])) {
+		outchns = GetAInt(argv[argi]);
+		argi++;
+	}
+#endif
+
+	if(argc > argi && IsSymbol(argv[argi])) {
+		buf = new buffer(GetSymbol(argv[argi]),true);
+		argi++;
+		
+#ifdef MAXMSP
+		// oldstyle command line?
+		if(argi == 1 && argc == 2 && CanbeInt(argv[argi])) {
+			outchns = GetAInt(argv[argi]);
+			argi++;
+			post("%s: old style command line detected - please change to '%s [channels] [buffer]'",thisName(),thisName()); 
+		}
+#endif
+	}
+	else
+		buf = new buffer(NULL,true);		
+
+	AddInSignal(); // speed signal
+	AddInFloat(2); // min & max play pos
+	AddOutSignal(outchns); // output
+	AddOutSignal(); // position
+	AddOutFloat(2); // play min & max	
+	AddOutBang();  // loop bang
+	
+	FLEXT_ADDMETHOD(1,m_min);
+	FLEXT_ADDMETHOD(2,m_max);
+	FLEXT_ADDMETHOD_F(0,"min",m_min); 
+	FLEXT_ADDMETHOD_F(0,"max",m_max);
+	FLEXT_ADDMETHOD_F(0,"pos",m_pos);
+	FLEXT_ADDMETHOD_(0,"all",m_all);
+	FLEXT_ADDMETHOD_B(0,"loop",m_loop);
+
+	FLEXT_ADDMETHOD_F(0,"xzone",m_xzone);
+	FLEXT_ADDMETHOD_F(0,"xsymm",m_xsymm);
+	FLEXT_ADDMETHOD_(0,"xshape",m_xshape);
+	FLEXT_ADDMETHOD_B(0,"xkeep",m_xkeep);
+
+	znbuf = new S *[outchns];
+	for(I i = 0; i < outchns; ++i) znbuf[i] = new S[0];
+	znpos = new S[0];
+	znidx = new S[0];
+	m_xshape();
+}
+
+xgroove::~xgroove()
+{
+	if(znbuf) {
+		for(I i = 0; i < outchns; ++i) delete[] znbuf[i]; 
+		delete[] znbuf;
+	}
+
+	if(znmul) delete[] znmul;
+	if(znpos) delete[] znpos;
+	if(znidx) delete[] znidx;
+}
+
+BL xgroove::Init()
+{
+	if(xinter::Init()) {
+		outmin = GetOut(outchns+1);
+		outmax = GetOut(outchns+2);
+
+		m_reset();
+		return true;
+	}
+	else
+		return false;
+}
+		
+V xgroove::m_units(xs_unit mode)
+{
+	xsample::m_units(mode);
+	
+	m_sclmode();
+	outputmin();
+	outputmax();
+}
+
+V xgroove::m_min(F mn)
+{
+	xsample::m_min(mn);
+	m_pos(curpos*s2u);
+	do_xzone();
+	outputmin();
+}
+
+V xgroove::m_max(F mx)
+{
+	xsample::m_max(mx);
+	m_pos(curpos*s2u);
+	do_xzone();
+	outputmax();
+}
+
+V xgroove::m_pos(F pos)
+{
+	setpos(pos?pos/s2u:0);
+}
+
+V xgroove::m_all()
+{
+	xsample::m_all();
+	do_xzone();
+	outputmin();
+	outputmax();
+}
+
+BL xgroove::m_reset()
+{
+	curpos = 0; 
+	bidir = 1;
+	return xsample::m_reset();
+}
+
+V xgroove::m_xzone(F xz) 
+{ 
+	bufchk();
+	_xzone = xz < 0?0:xz/s2u; 
+	do_xzone();
+	s_dsp(); 
+}
+
+V xgroove::m_xsymm(F xs) 
+{ 
+	if(xs < 0) 
+		xsymm = -1;
+	else if(xs <= 1) 
+		xsymm = xs;
+	else {
+		post("%s - xsymm value out of range - set to center (0.5)",thisName());
+		xsymm = 0.5;
+	}
+	do_xzone();
+}
+
+V xgroove::m_xshape(I argc,t_atom *argv) 
+{ 
+	const F pi = 3.14159265358979f;
+	I i,sh = 0;
+	F param = 1;
+	if(argc >= 1 && CanbeInt(argv[0])) sh = GetAInt(argv[0]);
+	if(argc >= 2 && CanbeFloat(argv[1])) {
+		param = GetAFloat(argv[1]);
+		// clip to 0..1
+		if(param < 0) param = 0;
+		else if(param > 1) param = 1;
+	}
+
+	if(znmul) delete[] znmul; 
+	znmul = new S[XZONE_TABLE+1];
+
+	switch(sh) {
+	case 1:
+		for(i = 0; i <= XZONE_TABLE; ++i) 
+			znmul[i] = sin(i*(pi/2./XZONE_TABLE))*param+i*(1./XZONE_TABLE)*(1-param);
+		break;
+	case 0:
+	default:
+		for(i = 0; i <= XZONE_TABLE; ++i) 
+			znmul[i] = i*(1./XZONE_TABLE);
+	}
+}
+
+V xgroove::m_xkeep(BL k) 
+{ 
+	xkeep = k; 
+	do_xzone();
+}
+
+V xgroove::do_xzone()
+{
+	xzone = _xzone;
+	I smin = curmin,smax = curmax,plen = smax-smin; //curlen;
+	if(xsymm < 0) {
+		// crossfade zone is inside the loop (-> loop is shorter than nominal!)
+		if(xzone >= plen) xzone = plen-1;
+		znmin = smin+xzone,znmax = smax-xzone;
+	}
+	else {
+		// desired crossfade points
+		znmin = smin+xzone*xsymm,znmax = smax+xzone*(xsymm-1);
+		// extra space at beginning and end
+		F o1 = znmin-xzone,o2 = buf->Frames()-(znmax+xzone);
+
+		if(o1 < 0 || o2 < 0) { // or (o1*o2 < 0)
+			if(o1+o2 < 0) {
+				// must reduce crossfade/loop length
+				if(!xkeep) {	
+					// prefer preservation of cross-fade length
+					if(xzone >= plen) // have to reduce cross-fade length
+						xzone = plen-1;
+					znmin = smin+xzone,znmax = smax-xzone;
+				}
+				else {	
+					// prefer preservation of loop length
+					znmin += o1,znmax -= o2;
+					xzone = (buf->Frames()-znmax+znmin)/2;
+				}
+				smin = 0,plen = smax = buf->Frames();
+			}
+			else if(o1 < 0) {
+				// min point is out of bounds (but enough space for mere shift)
+				I i1 = (I)o1;
+				smin -= i1,smax -= i1;
+				znmin = smin+xzone*xsymm,znmax = smax+xzone*(xsymm-1);
+			}
+			else /* o2 < 0 */ { 
+				// max point is out of bounds (but enough space for mere shift)
+				I i2 = (I)o2;
+				smin += i2,smax += i2;
+				znmin = smin+xzone*xsymm,znmax = smax+xzone*(xsymm-1);
+			}
+		}
+	}
+}
+
+V xgroove::m_loop(xs_loop lp) 
+{ 
+	loopmode = lp; 
+	bidir = 1;
+	s_dsp();
+}
+	
+
+V xgroove::s_pos_off(I n,S *const *invecs,S *const *outvecs)
+{
+	S *pos = outvecs[outchns];
+
+	const F oscl = scale(curpos);
+	for(I si = 0; si < n; ++si) pos[si] = oscl;
+	
+	playfun(n,&pos,outvecs); 
+}
+
+V xgroove::s_pos_once(I n,S *const *invecs,S *const *outvecs)
+{
+	const S *speed = invecs[0];
+	S *pos = outvecs[outchns];
+	BL lpbang = false;
+
+	const I smin = curmin,smax = curmax,plen = smax-smin; //curlen;
+
+	if(buf && plen > 0) {
+		register D o = curpos;
+
+		for(I i = 0; i < n; ++i) {	
+			const S spd = speed[i];  // must be first because the vector is reused for output!
+			
+			if(o >= smax) { o = smax; lpbang = true; }
+			else if(o < smin) { o = smin; lpbang = true; }
+			
+			pos[i] = scale(o);
+			o += spd;
+		}
+		// normalize and store current playing position
+		setpos(o);
+
+		playfun(n,&pos,outvecs); 
+	} 
+	else 
+		s_pos_off(n,invecs,outvecs);
+		
+	if(lpbang) ToOutBang(outchns+3);
+}
+
+V xgroove::s_pos_loop(I n,S *const *invecs,S *const *outvecs)
+{
+	const S *speed = invecs[0];
+	S *pos = outvecs[outchns];
+	BL lpbang = false;
+
+	const I smin = curmin,smax = curmax,plen = smax-smin; //curlen;
+
+	if(buf && plen > 0) {
+		register D o = curpos;
+
+		for(I i = 0; i < n; ++i) {	
+			const S spd = speed[i];  // must be first because the vector is reused for output!
+
+			// normalize offset
+			if(o >= smax) {
+				o = fmod(o-smin,plen)+smin;
+				lpbang = true;
+			}
+			else if(o < smin) {
+				o = fmod(o-smin,plen)+smax; 
+				lpbang = true;
+			}
+
+			pos[i] = scale(o);
+			o += spd;
+		}
+		// normalize and store current playing position
+		setpos(o);
+
+		playfun(n,&pos,outvecs); 
+	} 
+	else 
+		s_pos_off(n,invecs,outvecs);
+		
+	if(lpbang) ToOutBang(outchns+3);
+}
+
+V xgroove::s_pos_loopzn(I n,S *const *invecs,S *const *outvecs)
+{
+	const S *speed = invecs[0];
+	S *pos = outvecs[outchns];
+	BL lpbang = false;
+
+	const I smin = curmin,smax = curmax,plen = smax-smin; //curlen;
+	const F xz = xzone,lmin = znmin,lmax = znmax;
+	const F xf = (F)XZONE_TABLE/xz;
+
+	if(buf && plen > 0) {
+		BL inzn = false;
+		register D o = curpos;
+
+		for(I i = 0; i < n; ++i) {	
+			const S spd = speed[i];  // must be first because the vector is reused for output!
+
+			// normalize offset
+			if(o >= smax) {
+				o = fmod(o-smin,plen)+smin;
+				lpbang = true;
+			}
+			else if(o < smin) {
+				o = fmod(o-smin,plen)+smax; 
+				lpbang = true;
+			}
+
+			if(o >= lmax) // in late cross-fade zone
+				o -= lmax-smin;
+
+			if(o < lmin) {
+				// in early cross-fade zone
+				register F inp = o-smin;
+				znidx[i] = inp*xf;
+				znpos[i] = scale(lmax+inp);
+				inzn = true;
+			}
+			else
+				znidx[i] = XZONE_TABLE,znpos[i] = 0;
+
+			pos[i] = scale(o);
+			o += spd;
+		}
+		// normalize and store current playing position
+		setpos(o);
+
+		playfun(n,&pos,outvecs); 
+
+		if(inzn) {
+			// only if we were in cross-fade zone
+			playfun(n,&znpos,znbuf); 
+			
+			for(I i = 0; i < n; ++i) znpos[i] = XZONE_TABLE-znidx[i];
+			zonefun(znmul,0,XZONE_TABLE+1,1,n,1,1,&znidx,&znidx);
+			zonefun(znmul,0,XZONE_TABLE+1,1,n,1,1,&znpos,&znpos);
+
+			for(I o = 0; o < outchns; ++o) {
+				F *ov = outvecs[o],*ob = znbuf[o];
+				for(I i = 0; i < n; ++i,ov++,ob++)
+					*ov = (*ov)*znidx[i]+(*ob)*znpos[i];
+			}
+		}
+	} 
+	else 
+		s_pos_off(n,invecs,outvecs);
+		
+	if(lpbang) ToOutBang(outchns+3);
+}
+
+V xgroove::s_pos_bidir(I n,S *const *invecs,S *const *outvecs)
+{
+	const S *speed = invecs[0];
+	S *pos = outvecs[outchns];
+	BL lpbang = false;
+
+	const I smin = curmin,smax = curmax,plen = smax-smin; //curlen;
+
+	if(buf && plen > 0) {
+		register D o = curpos;
+		register F bd = bidir;
+
+		for(I i = 0; i < n; ++i) {	
+			const S spd = speed[i];  // must be first because the vector is reused for output!
+
+			// normalize offset
+			if(o >= smax) {
+				o = smax-fmod(o-smin,plen); // mirror the position at smax
+				bd = -bd;
+				lpbang = true;
+			}
+			else if(o < smin) {
+				o = smin-fmod(o-smin,plen); // mirror the position at smin
+				bd = -bd;
+				lpbang = true;
+			}
+
+			pos[i] = scale(o);
+			o += spd*bd;
+		}
+		// normalize and store current playing position
+		setpos(o);
+
+		bidir = (I)bd;
+		playfun(n,&pos,outvecs); 
+	} 
+	else 
+		s_pos_off(n,invecs,outvecs);
+		
+	if(lpbang) ToOutBang(outchns+3);
+}
+
+
+V xgroove::s_dsp()
+{
+	if(doplay) {
+		switch(loopmode) {
+		case xsl_once: SETSIGFUN(posfun,SIGFUN(s_pos_once)); break;
+		case xsl_loop: 
+			if(xzone > 0) {
+				const I blksz = Blocksize();
+
+				if(pblksz != blksz) {
+					for(I o = 0; o < outchns; ++o) {
+						delete[] znbuf[o]; 
+						znbuf[o] = new S[blksz]; 
+					}
+				
+					delete[] znpos; znpos = new S[blksz];
+					delete[] znidx;	znidx = new S[blksz];
+
+					pblksz = blksz;
+				}
+
+				SETSIGFUN(posfun,SIGFUN(s_pos_loopzn)); 
+
+				if(interp == xsi_4p) 
+					switch(outchns) {
+						case 1:	SETSTFUN(zonefun,TMPLSTF(st_play4,1,1)); break;
+						case 2:	SETSTFUN(zonefun,TMPLSTF(st_play4,1,2)); break;
+						case 4:	SETSTFUN(zonefun,TMPLSTF(st_play4,1,4)); break;
+						default: SETSTFUN(zonefun,TMPLSTF(st_play4,1,-1));
+					}
+				else if(interp == xsi_lin) 
+					switch(outchns) {
+						case 1:	SETSTFUN(zonefun,TMPLSTF(st_play2,1,1)); break;
+						case 2:	SETSTFUN(zonefun,TMPLSTF(st_play2,1,2)); break;
+						case 4:	SETSTFUN(zonefun,TMPLSTF(st_play2,1,4)); break;
+						default: SETSTFUN(zonefun,TMPLSTF(st_play2,1,-1));
+					}
+				else 
+					switch(outchns) {
+						case 1:	SETSTFUN(zonefun,TMPLSTF(st_play1,1,1)); break;
+						case 2:	SETSTFUN(zonefun,TMPLSTF(st_play1,1,2)); break;
+						case 4:	SETSTFUN(zonefun,TMPLSTF(st_play1,1,4)); break;
+						default: SETSTFUN(zonefun,TMPLSTF(st_play1,1,-1));
+					}
+			}
+			else
+				SETSIGFUN(posfun,SIGFUN(s_pos_loop)); 
+			break;
+		case xsl_bidir: SETSIGFUN(posfun,SIGFUN(s_pos_bidir)); break;
+		}
+	}
+	else
+		SETSIGFUN(posfun,SIGFUN(s_pos_off));
+	xinter::s_dsp();
+}
+
+
+
+V xgroove::m_help()
+{
+	post("%s - part of xsample objects, version " XSAMPLE_VERSION,thisName());
+#ifdef _DEBUG
+	post("compiled on " __DATE__ " " __TIME__);
+#endif
+	post("(C) Thomas Grill, 2001-2002");
+#ifdef MAXMSP
+	post("Arguments: %s [channels=1] [buffer]",thisName());
+#else
+	post("Arguments: %s [buffer]",thisName());
+#endif
+	post("Inlets: 1:Messages/Speed signal, 2:Min position, 3:Max position");
+	post("Outlets: 1:Audio signal, 2:Position signal, 3:Min position (rounded), 4:Max position (rounded)");	
+	post("Methods:");
+	post("\thelp: shows this help");
+	post("\tset [name]: set buffer or reinit");
+	post("\tenable 0/1: turn dsp calculation off/on");	
+	post("\treset: reset min/max playing points and playing offset");
+	post("\tprint: print current settings");
+	post("\tloop 0/1/2: sets looping to off/forward/bidirectional");
+	post("\tinterp 0/1/2: set interpolation to off/4-point/linear");
+	post("\tmin {unit}: set minimum playing point");
+	post("\tmax {unit}: set maximum playing point");
+	post("\tall: select entire buffer length");
+	post("\tpos {unit}: set playing position (obeying the current scale mode)");
+	post("\tbang/start: start playing");
+	post("\tstop: stop playing");
+	post("\trefresh: checks buffer and refreshes outlets");
+	post("\tunits 0/1/2/3: set units to frames/buffer size/ms/s");
+	post("\tsclmode 0/1/2/3: set range of position to units/units in loop/buffer/loop");
+	post("\txzone {unit}: length of loop crossfade zone");
+	post("\txsymm -1,0...1: symmetry of crossfade zone inside/outside point");
+	post("\txshape 0/1 [param 0...1]: shape of crossfading (linear/trig)");
+	post("");
+} 
+
+V xgroove::m_print()
+{
+	static const C *sclmode_txt[] = {"units","units in loop","buffer","loop"};
+	static const C *interp_txt[] = {"off","4-point","linear"};
+	static const C *loop_txt[] = {"once","looping","bidir"};
+
+	// print all current settings
+	post("%s - current settings:",thisName());
+	post("bufname = '%s', length = %.3f, channels = %i",buf->Name(),(F)(buf->Frames()*s2u),buf->Channels()); 
+	post("out channels = %i, frames/unit = %.3f, scale mode = %s",outchns,(F)(1./s2u),sclmode_txt[sclmode]); 
+	post("loop = %s, interpolation = %s",loop_txt[(I)loopmode],interp_txt[interp >= xsi_none && interp <= xsi_lin?interp:xsi_none]); 
+	post("loop crossfade zone = %.3f",(F)(xzone*s2u)); 
+	post("");
+}
+
+#ifdef MAXMSP
+V xgroove::m_assist(long msg, long arg, char *s)
+{
+	switch(msg) {
+	case 1: //ASSIST_INLET:
+		switch(arg) {
+		case 0:
+			sprintf(s,"Signal of playing speed"); break;
+		case 1:
+			sprintf(s,"Starting point"); break;
+		case 2:
+			sprintf(s,"Ending point"); break;
+		}
+		break;
+	case 2: //ASSIST_OUTLET:
+		if(arg < outchns)
+			sprintf(s,"Audio signal channel %li",arg+1); 
+		else
+			switch(arg-outchns) {
+			case 0:
+				sprintf(s,"Position currently played"); break;
+			case 1:
+				sprintf(s,"Starting point (rounded to frame)"); break;
+			case 2:
+				sprintf(s,"Ending point (rounded to frame)"); break;
+			case 3:
+				sprintf(s,"Bang on loop end/rollover"); break;
+			}
+		break;
+	}
+}
+#endif
+
+
+
+
+
diff --git a/externals/grill/xsample/source/inter.ci b/externals/grill/xsample/source/inter.ci
new file mode 100644
index 00000000..2902c386
--- /dev/null
+++ b/externals/grill/xsample/source/inter.ci
@@ -0,0 +1,355 @@
+#ifndef __INTER_H
+#define __INTER_H
+
+TMPLDEF V xinter::st_play0(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+{
+	// stopped
+	SIGCHNS(BCHNS,inchns,OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	
+	for(I ci = 0; ci < outchns; ++ci) 
+		for(I si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+TMPLDEF V xinter::st_play1(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+{
+	SIGCHNS(BCHNS,inchns,OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	register I si = 0;
+	
+	// no interpolation
+	// ----------------
+	
+	for(I i = 0; i < n; ++i,++si) {	
+		register const I oint = (I)(*(pos++)/s2u);
+		register const S *fp;
+		if(oint < smin) {
+			// position < 0 ... take only 0th sample
+			fp = bdt+smin*BCHNS;
+		}
+		else if(oint >= smax) {
+			// position > last sample ... take only last sample
+			fp = bdt+(smax-1)*BCHNS;
+		}
+		else {
+			// normal
+			fp = bdt+oint*BCHNS;
+		}
+
+		for(I ci = 0; ci < OCHNS; ++ci)
+			sig[ci][si] = fp[ci];
+	}
+
+	// clear rest of output channels (if buffer has less channels)
+	for(I ci = OCHNS; ci < outchns; ++ci) 
+		for(si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+TMPLDEF V xinter::st_play2(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+{
+	const I plen = smax-smin; //curlen;
+	if(plen < 2) {
+		st_play1 TMPLCALL (bdt,smin,smax,s2u,n,inchns,outchns,invecs,outvecs);
+		return;
+	}
+
+	SIGCHNS(BCHNS,inchns,OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	register I si = 0;
+	
+	// linear interpolation
+	// --------------------
+
+	const I maxo = smax-1;  // last sample in buffer
+
+	for(I i = 0; i < n; ++i,++si) {	
+		const F o = *(pos++)/s2u;
+		register const I oint = (I)o;
+
+		if(oint < smin) {
+			// position is before first sample -> take the first sample
+			register const S *const fp = bdt+smin*BCHNS;
+			for(I ci = 0; ci < OCHNS; ++ci) 
+				sig[ci][si] = fp[ci]; 
+		}
+		else if(oint >= maxo) {
+			// position is past last sample -> take the last sample
+			register const S *const fp = bdt+maxo*BCHNS;
+			for(I ci = 0; ci < OCHNS; ++ci) 
+				sig[ci][si] = fp[ci]; 
+		}
+		else {
+			// normal interpolation
+			register const F frac = o-oint;
+			register const S *const fp0 = bdt+oint*BCHNS;
+			register const S *const fp1 = fp0+BCHNS;
+			for(I ci = 0; ci < OCHNS; ++ci) 
+				sig[ci][si] = fp0[ci]+frac*(fp1[ci]-fp0[ci]);
+		}
+	}
+
+	// clear rest of output channels (if buffer has less channels)
+	for(I ci = OCHNS; ci < outchns; ++ci) 
+		for(si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+TMPLDEF V xinter::st_play4(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+{
+	const I plen = smax-smin; //curlen;
+	if(plen < 4) {
+		if(plen < 2) st_play1 TMPLCALL (bdt,smin,smax,s2u,n,inchns,outchns,invecs,outvecs);
+		else st_play2 TMPLCALL (bdt,smin,smax,s2u,n,inchns,outchns,invecs,outvecs);
+		return;
+	}
+
+	SIGCHNS(BCHNS,inchns,OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	register I si = 0;
+	
+	// 4-point interpolation
+	// ---------------------
+	const I maxo = smax-1; // last sample in play region
+
+	for(I i = 0; i < n; ++i,++si) {	
+		F o = *(pos++)/s2u;
+		register I oint = (I)o,ointm,oint1,oint2;
+
+		if(oint <= smin) { 
+			if(oint < smin) oint = smin,o = smin;
+			// position is first simple
+			ointm = smin; // first sample 
+			oint1 = oint+1;
+			oint2 = oint1+1;
+		}
+		else if(oint >= maxo-2) { 
+			if(oint > maxo) oint = maxo,o = smax;
+			ointm = oint-1;
+			oint1 = oint >= maxo?maxo:oint+1;
+			oint2 = oint1 >= maxo?maxo:oint1+1;
+		}
+		else {
+			ointm = oint-1;
+			oint1 = oint+1;
+			oint2 = oint1+1;
+		}
+
+		register F frac = o-oint;
+		
+		register const S *fa = bdt+ointm*BCHNS;
+		register const S *fb = bdt+oint*BCHNS;
+		register const S *fc = bdt+oint1*BCHNS;
+		register const S *fd = bdt+oint2*BCHNS;
+
+		for(I ci = 0; ci < OCHNS; ++ci) {
+			const F cmb = fc[ci]-fb[ci];
+			sig[ci][si] = fb[ci] + frac*( 
+				cmb - 0.5f*(frac-1.) * ((fa[ci]-fd[ci]+3.0f*cmb)*frac + (fb[ci]-fa[ci]-cmb))
+			);
+		}
+	}
+
+	// clear rest of output channels (if buffer has less channels)
+	for(I ci = OCHNS; ci < outchns; ++ci) 
+		for(si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+#if 0
+
+TMPLDEF V xinter::s_play0(I n,S *const *invecs,S *const *outvecs)
+{
+	// stopped
+	SIGCHNS(BCHNS,buf->Channels(),OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	
+	for(I ci = 0; ci < outchns; ++ci) 
+		for(I si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+TMPLDEF V xinter::s_play4(I n,S *const *invecs,S *const *outvecs)
+{
+	const I smin = curmin,smax = curmax,plen = smax-smin; //curlen;
+	if(plen < 4) {
+		if(plen < 2) s_play1 TMPLCALL (n,invecs,outvecs);
+		else s_play2 TMPLCALL (n,invecs,outvecs);
+		return;
+	}
+
+	SIGCHNS(BCHNS,buf->Channels(),OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	register I si = 0;
+	const S *bdt = buf->Data();
+	
+	// 4-point interpolation
+	// ---------------------
+	const I maxo = smax-1; // last sample in play region
+
+	for(I i = 0; i < n; ++i,++si) {	
+		F o = *(pos++)/s2u;
+		register I oint = (I)o,ointm,oint1,oint2;
+
+		if(oint <= smin) { 
+			if(oint < smin) oint = smin,o = smin;
+			// position is first simple
+			ointm = smin; // first sample 
+			oint1 = oint+1;
+			oint2 = oint1+1;
+		}
+		else if(oint >= maxo-2) { 
+			if(oint > maxo) oint = maxo,o = smax;
+			ointm = oint-1;
+			oint1 = oint >= maxo?maxo:oint+1;
+			oint2 = oint1 >= maxo?maxo:oint1+1;
+		}
+		else {
+			ointm = oint-1;
+			oint1 = oint+1;
+			oint2 = oint1+1;
+		}
+
+		register F frac = o-oint;
+		
+		register const S *fa = bdt+ointm*BCHNS;
+		register const S *fb = bdt+oint*BCHNS;
+		register const S *fc = bdt+oint1*BCHNS;
+		register const S *fd = bdt+oint2*BCHNS;
+
+		for(I ci = 0; ci < OCHNS; ++ci) {
+			const F cmb = fc[ci]-fb[ci];
+			sig[ci][si] = fb[ci] + frac*( 
+				cmb - 0.5f*(frac-1.) * ((fa[ci]-fd[ci]+3.0f*cmb)*frac + (fb[ci]-fa[ci]-cmb))
+			);
+		}
+	}
+
+	// clear rest of output channels (if buffer has less channels)
+	for(I ci = OCHNS; ci < outchns; ++ci) 
+		for(si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+TMPLDEF V xinter::s_play2(I n,S *const *invecs,S *const *outvecs)
+{
+	const I smin = curmin,smax = curmax,plen = smax-smin; //curlen;
+	if(plen < 2) {
+		s_play1 TMPLCALL (n,invecs,outvecs);
+		return;
+	}
+
+	SIGCHNS(BCHNS,buf->Channels(),OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	register I si = 0;
+	
+	// linear interpolation
+	// --------------------
+
+	const I maxo = smax-1;  // last sample in buffer
+	const S *bdt = buf->Data();
+
+	for(I i = 0; i < n; ++i,++si) {	
+		const F o = *(pos++)/s2u;
+		register const I oint = (I)o;
+
+		if(oint < smin) {
+			// position is before first sample -> take the first sample
+			register const S *const fp = bdt+smin*BCHNS;
+			for(I ci = 0; ci < OCHNS; ++ci) 
+				sig[ci][si] = fp[ci]; 
+		}
+		else if(oint >= maxo) {
+			// position is past last sample -> take the last sample
+			register const S *const fp = bdt+maxo*BCHNS;
+			for(I ci = 0; ci < OCHNS; ++ci) 
+				sig[ci][si] = fp[ci]; 
+		}
+		else {
+			// normal interpolation
+			register const F frac = o-oint;
+			register const S *const fp0 = bdt+oint*BCHNS;
+			register const S *const fp1 = fp0+BCHNS;
+			for(I ci = 0; ci < OCHNS; ++ci) 
+				sig[ci][si] = fp0[ci]+frac*(fp1[ci]-fp0[ci]);
+		}
+	}
+
+	// clear rest of output channels (if buffer has less channels)
+	for(I ci = OCHNS; ci < outchns; ++ci) 
+		for(si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+TMPLDEF V xinter::s_play1(I n,S *const *invecs,S *const *outvecs)
+{
+	SIGCHNS(BCHNS,buf->Channels(),OCHNS,outchns);
+
+	const S *pos = invecs[0];
+	S *const *sig = outvecs;
+	register I si = 0;
+	const I smin = curmin,smax = curmax;
+	const S *bdt = buf->Data();
+	
+	// no interpolation
+	// ----------------
+	
+	for(I i = 0; i < n; ++i,++si) {	
+		register const I oint = (I)(*(pos++)/s2u);
+		register const S *fp;
+		if(oint < smin) {
+			// position < 0 ... take only 0th sample
+			fp = bdt+smin*BCHNS;
+		}
+		else if(oint >= smax) {
+			// position > last sample ... take only last sample
+			fp = bdt+(smax-1)*BCHNS;
+		}
+		else {
+			// normal
+			fp = bdt+oint*BCHNS;
+		}
+
+		for(I ci = 0; ci < OCHNS; ++ci)
+			sig[ci][si] = fp[ci];
+	}
+
+	// clear rest of output channels (if buffer has less channels)
+	for(I ci = OCHNS; ci < outchns; ++ci) 
+		for(si = 0; si < n; ++si) sig[ci][si] = 0;
+}
+
+#else
+
+TMPLDEF V xinter::s_play0(I n,S *const *invecs,S *const *outvecs)
+{
+	st_play0 TMPLCALL (buf->Data(),curmin,curmax,s2u,n,buf->Channels(),outchns,invecs,outvecs);
+}
+
+TMPLDEF V xinter::s_play1(I n,S *const *invecs,S *const *outvecs)
+{
+	st_play1 TMPLCALL (buf->Data(),curmin,curmax,s2u,n,buf->Channels(),outchns,invecs,outvecs);
+}
+
+TMPLDEF V xinter::s_play2(I n,S *const *invecs,S *const *outvecs)
+{
+	st_play2 TMPLCALL (buf->Data(),curmin,curmax,s2u,n,buf->Channels(),outchns,invecs,outvecs);
+}
+
+TMPLDEF V xinter::s_play4(I n,S *const *invecs,S *const *outvecs)
+{
+	st_play4 TMPLCALL (buf->Data(),curmin,curmax,s2u,n,buf->Channels(),outchns,invecs,outvecs);
+}
+
+#endif
+
+
+#endif
diff --git a/externals/grill/xsample/source/inter.cpp b/externals/grill/xsample/source/inter.cpp
new file mode 100644
index 00000000..095fba6f
--- /dev/null
+++ b/externals/grill/xsample/source/inter.cpp
@@ -0,0 +1,95 @@
+/* 
+
+xsample - extended sample objects for Max/MSP and pd (pure data)
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+#include <math.h>
+
+#ifdef _MSC_VER
+#pragma warning (disable:4244)
+#endif
+
+#ifndef TMPLOPT
+#include "inter.ci"
+#endif
+
+
+xinter::xinter():
+	doplay(false),outchns(1),
+	interp(xsi_4p)
+{
+	FLEXT_ADDMETHOD_E(0,"interp",m_interp);
+}
+
+I xinter::m_set(I argc,t_atom *argv) 
+{
+	I r = xsample::m_set(argc,argv);
+	if(r < 0) m_reset(); // resets pos/min/max
+	if(r != 0) m_units();
+	return r;
+}
+
+V xinter::m_start() 
+{ 
+	m_refresh(); 
+	doplay = true; 
+	s_dsp(); 
+}
+
+V xinter::m_stop() 
+{ 
+	doplay = false; 
+	s_dsp(); 
+}
+
+V xinter::s_dsp()
+{
+	if(doplay) {
+		if(interp == xsi_4p) 
+			switch(buf->Channels()*1000+outchns) {
+				case 1001:	SETSIGFUN(playfun,TMPLFUN(s_play4,1,1)); break;
+				case 1002:	SETSIGFUN(playfun,TMPLFUN(s_play4,1,2)); break;
+				case 2001:	SETSIGFUN(playfun,TMPLFUN(s_play4,2,1)); break;
+				case 2002:	SETSIGFUN(playfun,TMPLFUN(s_play4,2,2)); break;
+				case 4001:
+				case 4002:
+				case 4003:	SETSIGFUN(playfun,TMPLFUN(s_play4,4,-1)); break;
+				case 4004:	SETSIGFUN(playfun,TMPLFUN(s_play4,4,4)); break;
+				default:	SETSIGFUN(playfun,TMPLFUN(s_play4,-1,-1));
+			}
+		else if(interp == xsi_lin) 
+			switch(buf->Channels()*1000+outchns) {
+				case 1001:	SETSIGFUN(playfun,TMPLFUN(s_play2,1,1)); break;
+				case 1002:	SETSIGFUN(playfun,TMPLFUN(s_play2,1,2)); break;
+				case 2001:	SETSIGFUN(playfun,TMPLFUN(s_play2,2,1)); break;
+				case 2002:	SETSIGFUN(playfun,TMPLFUN(s_play2,2,2)); break;
+				case 4001:
+				case 4002:
+				case 4003:	SETSIGFUN(playfun,TMPLFUN(s_play2,4,-1)); break;
+				case 4004:	SETSIGFUN(playfun,TMPLFUN(s_play2,4,4)); break;
+				default:	SETSIGFUN(playfun,TMPLFUN(s_play2,-1,-1));
+			}
+		else 
+			switch(buf->Channels()*1000+outchns) {
+				case 1001:	SETSIGFUN(playfun,TMPLFUN(s_play1,1,1)); break;
+				case 1002:	SETSIGFUN(playfun,TMPLFUN(s_play1,1,2)); break;
+				case 2001:	SETSIGFUN(playfun,TMPLFUN(s_play1,2,1)); break;
+				case 2002:	SETSIGFUN(playfun,TMPLFUN(s_play1,2,2)); break;
+				case 4001:
+				case 4002:
+				case 4003:	SETSIGFUN(playfun,TMPLFUN(s_play1,4,-1)); break;
+				case 4004:	SETSIGFUN(playfun,TMPLFUN(s_play1,4,4)); break;
+				default:	SETSIGFUN(playfun,TMPLFUN(s_play1,-1,-1));
+			}
+	}
+	else
+		SETSIGFUN(playfun,TMPLFUN(s_play0,-1,-1));
+}
+
+
diff --git a/externals/grill/xsample/source/main.cpp b/externals/grill/xsample/source/main.cpp
new file mode 100644
index 00000000..410746ff
--- /dev/null
+++ b/externals/grill/xsample/source/main.cpp
@@ -0,0 +1,203 @@
+/*
+
+xsample - extended sample objects for Max/MSP and pd (pure data)
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+
+// Initialization function for xsample library
+V lib_setup()
+{
+	post("xsample objects, version " XSAMPLE_VERSION ", (C)2001,2002 Thomas Grill");
+	post("xsample: xrecord~, xplay~, xgroove~ - send objects a 'help' message to get assistance");
+	post("");
+
+	// call the objects' setup routines
+	FLEXT_DSP_SETUP(xrecord);
+	FLEXT_DSP_SETUP(xplay);
+	FLEXT_DSP_SETUP(xgroove);
+	
+#ifdef MAXMSP
+	// That's not the right place..... (doesn't work)
+	finder_addclass((char *)"MSP Sampling",(char *)"xgroove~");
+	finder_addclass((char *)"MSP Sampling",(char *)"xplay~");
+	finder_addclass((char *)"MSP Sampling",(char *)"xrecord~");
+#endif
+
+}
+
+// setup the library
+FLEXT_LIB_SETUP(xsample,lib_setup)
+
+// ------------------------------
+
+xsample::xsample():
+	buf(NULL),
+#ifdef PD
+	unitmode(xsu_sample),  // PD defaults to samples
+#else
+	unitmode(xsu_ms),	   // Max/MSP defaults to milliseconds
+#endif
+	sclmode(xss_unitsinbuf),
+	curmin(0),curmax(1<<30)
+{
+	FLEXT_ADDBANG(0,m_start);
+	FLEXT_ADDMETHOD_(0,"start",m_start);
+	FLEXT_ADDMETHOD_(0,"stop",m_stop);
+
+	FLEXT_ADDMETHOD_(0,"set",m_set);
+	FLEXT_ADDMETHOD_(0,"print",m_print);
+	FLEXT_ADDMETHOD_(0,"refresh",m_refresh);
+	FLEXT_ADDMETHOD_(0,"reset",m_reset);
+
+	FLEXT_ADDMETHOD_E(0,"units",m_units);
+	FLEXT_ADDMETHOD_E(0,"sclmode",m_sclmode);
+}
+	
+xsample::~xsample()
+{
+//	m_enable(false); // switch off DSP
+
+	if(buf) delete buf; 
+}
+
+
+
+I xsample::m_set(I argc, t_atom *argv)
+{
+	return buf->Set(argc >= 1?GetASymbol(argv[0]):NULL);
+}
+
+BL xsample::m_refresh()
+{
+//	bufchk();
+
+	BL ret;
+	if(buf->Set()) { s_dsp(); ret = true; } // channel count may have changed
+	else ret = false;
+	
+	m_min((F)curmin*s2u); // also checks pos
+	m_max((F)curmax*s2u); // also checks pos
+
+	return ret;
+}
+
+BL xsample::m_reset()
+{
+//	bufchk();
+
+	BL ret;
+	if(buf->Set()) { s_dsp(); ret = true; } // channel count may have changed
+	else ret = false;
+	
+	m_units();
+	m_sclmode();	
+	m_min(0);
+    m_max(buf->Frames()*s2u);
+
+	return ret;
+}
+
+V xsample::m_loadbang() 
+{
+	m_reset();
+}
+
+V xsample::m_units(xs_unit mode)
+{
+	bufchk();
+
+	if(mode != xsu__) unitmode = mode;
+	switch(unitmode) {
+		case xsu_sample: // samples
+			s2u = 1;
+			break;
+		case xsu_buffer: // buffer size
+			s2u = 1.f/buf->Frames();
+			break;
+		case xsu_ms: // ms
+			s2u = 1000.f/Samplerate();
+			break;
+		case xsu_s: // s
+			s2u = 1.f/Samplerate();
+			break;
+		default:
+			post("%s: Unknown unit mode",thisName());
+	}
+}
+
+V xsample::m_sclmode(xs_sclmd mode)
+{
+	bufchk();
+
+	if(mode != xss__) sclmode = mode;
+	switch(sclmode) {
+		case 0: // samples/units
+			sclmin = 0; sclmul = s2u;
+			break;
+		case 1: // samples/units from recmin to recmax
+			sclmin = curmin; sclmul = s2u;
+			break;
+		case 2: // unity between 0 and buffer size
+			sclmin = 0; sclmul = buf->Frames()?1.f/buf->Frames():0;
+			break;
+		case 3:	// unity between recmin and recmax
+//			sclmin = curmin; sclmul = curlen?1.f/curlen:0;
+			sclmin = curmin; sclmul = curmin != curmax?1.f/(curmax-curmin):0;
+			break;
+		default:
+			post("%s: Unknown scale mode",thisName());
+	}
+}
+
+V xsample::m_min(F mn)
+{
+	bufchk();
+
+	mn /= s2u;  // conversion to samples
+	if(mn < 0) mn = 0;
+	else if(mn > curmax) mn = (F)curmax;
+	curmin = (I)(mn+.5);
+//	curlen = curmax-curmin;
+
+	m_sclmode();
+}
+
+V xsample::m_max(F mx)
+{
+	bufchk();
+
+	mx /= s2u;  // conversion to samples
+	if(mx > buf->Frames()) mx = (F)buf->Frames();
+	else if(mx < curmin) mx = (F)curmin;
+	curmax = (I)(mx+.5);
+//	curlen = curmax-curmin;
+
+	m_sclmode();
+}
+
+V xsample::m_all()
+{
+	bufchk();
+
+//	curlen = (curmax = buf->Frames())-(curmin = 0);
+	curmin = 0; curmax = buf->Frames();
+	m_sclmode();
+}
+
+V xsample::m_dsp(I /*n*/,S *const * /*insigs*/,S *const * /*outsigs*/)
+{
+	// this is hopefully called at change of sample rate ?!
+
+	if(!m_refresh()) s_dsp();
+}
+
+
+
+
diff --git a/externals/grill/xsample/source/main.h b/externals/grill/xsample/source/main.h
new file mode 100644
index 00000000..db78a630
--- /dev/null
+++ b/externals/grill/xsample/source/main.h
@@ -0,0 +1,277 @@
+/*
+
+xsample - extended sample objects for Max/MSP and pd (pure data)
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#ifndef __XSAMPLE_H
+#define __XSAMPLE_H
+
+#define XSAMPLE_VERSION "0.2.5pre1"
+
+ 
+#include <flext.h>
+
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
+#error You need at least flext version 0.4.0
+#endif
+
+
+// most compilers are somehow broken.....
+// in other words: can't handle all C++ features
+
+#if defined(_MSC_VER)
+// MS VC 6.0 can't handle <int,int> templates?! -> no optimization
+//	#define TMPLOPT
+#elif defined(__BORLANDC__) 
+// handles all optimizations
+	#define TMPLOPT 
+#elif defined(__GNUC__)
+// GNUC 2.95.2 dies at compile with <int,int> templates
+#if __GNUC__ >= 3
+	#define TMPLOPT  // only workable with gcc >= 3.0
+#endif
+#elif defined(__MWERKS__)
+// CodeWarrior can't take address of a template member function 
+	#define TMPLOPT
+	#define SIGSTATIC
+#elif defined(__MRC__)
+// Apple MPW - MrCpp
+//	#define TMPLOPT  // template optimation for more speed
+#else
+// another compiler
+//	#define TMPLOPT  // template optimation for more speed (about 10%)
+	//#define SIGSTATIC  // another redirection to avoid addresses of class member functions
+#endif
+
+
+// lazy me
+#define F float
+#define D double
+#define I int
+#define L long
+#define C char
+#define V void
+#define BL bool
+#define S t_sample
+
+
+class xsample:
+	public flext_dsp
+{
+	FLEXT_HEADER(xsample,flext_dsp)
+	
+public:
+	xsample();
+	~xsample();
+	
+	enum xs_unit {
+		xsu__ = -1,  // don't change
+		xsu_sample = 0,xsu_buffer,xsu_ms,xsu_s
+	};
+	
+	enum xs_intp {
+		xsi__ = -1,  // don't change
+		xsi_none = 0,xsi_4p,xsi_lin
+	};
+	
+	enum xs_sclmd {
+		xss__ = -1,  // don't change
+		xss_unitsinbuf = 0,xss_unitsinloop,xss_buffer,xss_loop
+	};
+	
+protected:
+	buffer *buf;
+
+	virtual V m_start() = 0;
+	virtual V m_stop() = 0;
+	virtual BL m_reset();
+
+  	virtual I m_set(I argc,t_atom *argv);
+	virtual V m_print() = 0;
+	virtual BL m_refresh();
+	virtual V m_loadbang();
+
+	virtual V m_units(xs_unit u = xsu__);
+	virtual V m_sclmode(xs_sclmd u = xss__);
+
+	virtual V m_all();
+	virtual V m_min(F mn);
+	virtual V m_max(F mx);
+
+	virtual V m_dsp(I n,F *const *insigs,F *const *outsigs);
+	virtual V s_dsp() = 0;
+
+	xs_unit unitmode; //iunitmode,ounitmode;
+	xs_sclmd sclmode; //isclmode,osclmode;
+
+	I curmin,curmax; //,curlen;  // in samples
+	I sclmin; // in samples
+	F sclmul;
+	F s2u;  // sample to unit conversion factor
+
+	inline F scale(F smp) const { return (smp-sclmin)*sclmul; }
+
+	BL bufchk() { if(buf->Update()) { m_refresh(); return true; } return false; }
+
+private:
+
+	FLEXT_CALLBACK(m_start)
+	FLEXT_CALLBACK(m_stop)
+
+	FLEXT_CALLBACK_V(m_set)
+	FLEXT_CALLBACK(m_print)
+	FLEXT_CALLBACK(m_refresh)
+	FLEXT_CALLBACK(m_reset)
+
+	FLEXT_CALLBACK_1(m_units,xs_unit)
+	FLEXT_CALLBACK_1(m_sclmode,xs_sclmd)
+};
+
+
+// defines which are used in the derived classes
+#ifdef SIGSTATIC
+	#ifdef TMPLOPT
+		#define TMPLFUN(FUN,BCHNS,IOCHNS) &thisType::st_##FUN<BCHNS,IOCHNS>
+		#define TMPLSTF(FUN,BCHNS,IOCHNS) &thisType::FUN<BCHNS,IOCHNS>
+		#define SIGFUN(FUN) &thisType::st_##FUN
+		#define TMPLDEF template <int _BCHNS_,int _IOCHNS_>
+		#define TMPLCALL <_BCHNS_,_IOCHNS_>
+	#else
+		#define TMPLFUN(FUN,BCHNS,IOCHNS) &thisType::st_##FUN
+		#define TMPLSTF(FUN,BCHNS,IOCHNS) &thisType::FUN
+		#define SIGFUN(FUN) &thisType::st_##FUN
+		#define TMPLDEF 
+		#define TMPLCALL
+	#endif
+
+	#define DEFSIGFUN(NAME) \
+	static V st_##NAME(thisType *obj,I n,S *const *in,S *const *out)  { obj->NAME (n,in,out); } \
+	V NAME(I n,S *const *in,S *const *out)
+
+	#define TMPLSIGFUN(NAME) \
+	TMPLDEF static V st_##NAME(thisType *obj,I n,S *const *in,S *const *out)  { obj->NAME TMPLCALL (n,in,out); } \
+	TMPLDEF V NAME(I n,S *const *in,S *const *out)
+
+	#define TMPLSTFUN(NAME) TMPLDEF static V NAME(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+
+	#define SETSIGFUN(VAR,FUN) v_##VAR = FUN
+
+	#define SETSTFUN(VAR,FUN) VAR = FUN
+
+	#define DEFSIGCALL(NAME) \
+	inline V NAME(I n,S *const *in,S *const *out) { (*v_##NAME)(this,n,in,out); } \
+	V (*v_##NAME)(thisType *obj,I n,S *const *in,S *const *out) 
+
+	#define DEFSTCALL(NAME) \
+	V (*NAME)(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+
+#else
+	#ifdef TMPLOPT
+		#define TMPLFUN(FUN,BCHNS,IOCHNS) &thisType::FUN<BCHNS,IOCHNS>
+		#define SIGFUN(FUN) &thisType::FUN
+		#define TMPLDEF template <int _BCHNS_,int _IOCHNS_>
+		#define TMPLCALL <_BCHNS_,_IOCHNS_>
+	#else
+		#define TMPLFUN(FUN,BCHNS,IOCHNS) &thisType::FUN
+		#define SIGFUN(FUN) &thisType::FUN
+		#define TMPLDEF 
+		#define TMPLCALL
+	#endif
+	
+	#define TMPLSTF(FUN,BCHNS,IOCHNS) TMPLFUN(FUN,BCHNS,IOCHNS) 
+
+	#define DEFSIGFUN(NAME)	V NAME(I n,S *const *in,S *const *out)
+	#define TMPLSIGFUN(NAME) TMPLDEF V NAME(I n,S *const *in,S *const *out)
+	#define TMPLSTFUN(NAME) TMPLDEF static V NAME(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+
+	#define SETSIGFUN(VAR,FUN) v_##VAR = FUN
+
+	#define DEFSIGCALL(NAME) \
+	inline V NAME(I n,S *const *in,S *const *out) { (this->*v_##NAME)(n,in,out); } \
+	V (thisType::*v_##NAME)(I n,S *const *invecs,S *const *outvecs)
+
+	#define SETSTFUN(VAR,FUN) VAR = FUN
+
+	#define DEFSTCALL(NAME) \
+	V (*NAME)(const S *bdt,const I smin,const I smax,const F s2u,const I n,const I inchns,const I outchns,S *const *invecs,S *const *outvecs)
+#endif
+
+
+
+
+
+#ifndef MIN
+#define MIN(x,y) ((x) < (y)?(x):(y))
+#endif
+
+// in the signal functions
+#ifdef TMPLOPT
+	// optimization by using constants for channel numbers
+	#define SIGCHNS(BCHNS,bchns,IOCHNS,iochns)  \
+		const I BCHNS = _BCHNS_ < 0?(bchns):_BCHNS_;  \
+		const I IOCHNS = _IOCHNS_ < 0?MIN(iochns,BCHNS):MIN(_IOCHNS_,BCHNS)
+#else 
+	// no template optimization
+	#ifdef PD // only mono buffers
+		#define SIGCHNS(BCHNS,bchns,IOCHNS,iochns)   \
+			const I BCHNS = 1;  \
+			const I IOCHNS = MIN(iochns,BCHNS)
+	#else // MAXMSP
+		#define SIGCHNS(BCHNS,bchns,IOCHNS,iochns)   \
+			const I BCHNS = bchns;  \
+			const I IOCHNS = MIN(iochns,BCHNS)
+	#endif
+#endif
+
+
+class xinter:
+	public xsample
+{
+	FLEXT_HEADER(xinter,xsample)
+	
+public:
+	xinter();
+	
+protected:
+	virtual I m_set(I argc,t_atom *argv);
+
+	virtual V m_start();
+	virtual V m_stop();
+
+	V m_interp(xs_intp mode = xsi__) { interp = mode; s_dsp(); }
+
+	I outchns;
+	BL doplay;	
+	xs_intp interp;
+
+	TMPLSIGFUN(s_play0);
+	TMPLSIGFUN(s_play1);
+	TMPLSIGFUN(s_play2);
+	TMPLSIGFUN(s_play4);
+
+	TMPLSTFUN(st_play0);
+	TMPLSTFUN(st_play1);
+	TMPLSTFUN(st_play2);
+	TMPLSTFUN(st_play4);
+
+	DEFSIGCALL(playfun);
+
+	virtual V s_dsp();
+
+private:
+
+	FLEXT_CALLBACK_1(m_interp,xs_intp)
+};
+
+#ifdef TMPLOPT
+#include "inter.ci"
+#endif
+
+#endif
+
+
diff --git a/externals/grill/xsample/source/makefile.bcc b/externals/grill/xsample/source/makefile.bcc
new file mode 100644
index 00000000..e9e624b2
--- /dev/null
+++ b/externals/grill/xsample/source/makefile.bcc
@@ -0,0 +1,74 @@
+# xsample - extended sample objects for Max/MSP and pd (pure data)
+# Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+#
+# Makefile for BorlandC++ 
+#
+# usage: make -f makefile.bcc
+#
+# ---------------------------------------------
+
+NAME=xsample
+SETUPFUNCTION=$(NAME)_setup
+
+# where to put the build
+OUTPATH=..\bcc
+
+# flext stuff
+FLEXTPATH=..\..\flext  ### EDIT! ##
+TARGET=pdwin
+
+# paths
+BCCPATH=c:\programme\prog\bcc55  	### EDIT! ##
+PDPATH=c:\programme\audio\pd		### EDIT! ##
+
+# includes, libs
+INCPATH=-I$(BCCPATH)\include -I$(PDPATH)\src -I$(FLEXTPATH)\source
+LIBPATH=-L$(BCCPATH)\lib -L$(PDPATH)\lib 
+LIBS=cw32.lib import32.lib C0D32.OBJ
+
+# compiler definitions and flags
+DEFS=-DPD -DNT 
+CFLAGS=-6 -O2 -OS -ff -tWD 
+
+
+# the rest can stay untouched
+# ----------------------------------------------
+
+# all the source files from the package
+SRCS= main.cpp inter.cpp record.cpp play.cpp groove.cpp
+HDRS= main.h inter.ci
+
+OBJS= $(SRCS:.cpp=.obj)
+
+# default target
+all: $(OUTPATH)\$(NAME).dll
+
+# remove build
+clean:
+	-del /s /q $(OUTPATH) > nul
+	rmdir $(OUTPATH)
+
+# ----------------------------------------------
+
+$(SRCS): $(HDRS)
+	-touch $<
+
+.PATH.OBJ=$(OUTPATH)
+
+.cpp.obj:
+	bcc32 -c $(CFLAGS) $(DEFS) $(INCPATH) -n$(OUTPATH) $<
+
+$(OUTPATH):
+	-@if not exist $< mkdir $<
+
+$(OUTPATH)\pd.lib: $(PDPATH)\bin\pd.dll
+	implib -a $@ $**
+
+$(OUTPATH)\$(NAME).def:
+	@echo EXPORTS $(SETUPFUNCTION) = _$(SETUPFUNCTION) > $<
+
+$(OUTPATH)\$(NAME).dll :: $(OUTPATH) $(OUTPATH)\$(NAME).def $(OUTPATH)\pd.lib 
+
+$(OUTPATH)\$(NAME).dll :: $(OBJS) 
+	ilink32 -C -Tpd $(LIBPATH) $** ,$<,,$(LIBS) $(OUTPATH)\pd.lib $(FLEXTPATH)\pd-bcc\flext-$(TARGET).lib,$(OUTPATH)\$(NAME).def
+
diff --git a/externals/grill/xsample/source/makefile.pd-cygwin b/externals/grill/xsample/source/makefile.pd-cygwin
new file mode 100644
index 00000000..18c53431
--- /dev/null
+++ b/externals/grill/xsample/source/makefile.pd-cygwin
@@ -0,0 +1,89 @@
+# xsample - extended sample objects for Max/MSP and pd (pure data)
+# Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+#
+# Makefile for gcc @ linux
+#
+# usage:
+# to build run "make -f makefile.pd-cygwin"
+# to install (as root), do "make -f makefile.pd-cygwin install"
+#
+
+## EDIT ZONE ##################################
+
+# flext path 
+FLEXTPATH=../../flext
+
+# pd path
+PDPATH=c:/programme/audio/pd
+
+# where to install
+INSTDIR=c:/programme/audio/pd/extra
+
+###############################################
+
+FLEXTLIB=$(FLEXTPATH)/pd-cygwin/flext.lib
+
+# where to build (temporary)
+TARGDIR=../pd-cygwin
+
+# compiler stuff
+INCLUDES=$(PDPATH)/src
+LIBPATH=$(PDPATH)/bin
+FLAGS=-DPD
+CFLAGS=-O6 -mcpu=pentiumpro -funroll-loops -fmove-all-movables -frerun-loop-opt -finline-functions
+LIBS=m pd
+
+# ----------------------------------------------
+# the rest can stay untouched
+# ----------------------------------------------
+
+NAME=xsample
+
+# all the source files from the package
+SRCS=main.cpp inter.cpp play.cpp record.cpp groove.cpp
+HDRS=main.h
+
+MAKEFILE=makefile.pd-cygwin
+TARGET=$(TARGDIR)/$(NAME).dll
+
+# default target
+all: $(TARGDIR) $(TARGET) 
+
+$(SRCS): $(HDRS) $(MAKEFILE)
+	touch $@
+
+$(TARGDIR):
+	mkdir $(TARGDIR)
+
+$(TARGDIR)/%.o : %.cpp
+	$(CXX) -c $(CFLAGS) $(FLAGS) $(patsubst %,-I%,$(INCLUDES) $(FLEXTPATH)) $< -o $@
+
+$(TARGET) : $(patsubst %.cpp,$(TARGDIR)/%.o,$(SRCS)) $(FLEXTLIB) 
+	$(CXX) $(LDFLAGS) -shared $(patsubst %,-L%,$(LIBPATH)) $^ $(patsubst %,-l%,$(LIBS)) -o $@
+	strip --strip-unneeded $@
+	chmod 755 $@
+
+$(INSTDIR):
+	mkdir $(INSTDIR)
+
+install:: $(INSTDIR)
+
+install:: $(TARGET) 
+	cp $^ $(INSTDIR)
+	chown root.root $(patsubst %,$(INSTDIR)/%,$(notdir $^))
+
+.PHONY: clean
+clean:
+	rm -f $(TARGDIR)/*.o $(TARGET)
+	
+
+
+
+
+
+
+
+
+
+
+
diff --git a/externals/grill/xsample/source/makefile.pd-linux b/externals/grill/xsample/source/makefile.pd-linux
new file mode 100644
index 00000000..863a0068
--- /dev/null
+++ b/externals/grill/xsample/source/makefile.pd-linux
@@ -0,0 +1,89 @@
+# xsample - extended sample objects for Max/MSP and pd (pure data)
+# Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+#
+# Makefile for gcc @ linux
+#
+# usage:
+# to build run "make -f makefile.pd-linux"
+# to install (as root), do "make -f makefile.pd-linux install"
+#
+
+## EDIT ZONE ##################################
+
+# flext path 
+FLEXTPATH=/usr/local/lib/pd/flext
+
+# pd path 
+#PDPATH=/usr/local/lib/pd/include
+
+# where to install  
+INSTDIR=/usr/local/lib/pd/extra
+
+###############################################
+
+FLEXTLIB=$(FLEXTPATH)/flext.a
+
+# where to build (temporary)
+TARGDIR=../pd-linux
+
+# compiler stuff
+CXX=g++-3.2
+INCLUDES=$(PDPATH)
+FLAGS=-DPD
+CFLAGS=-O6 -mcpu=pentiumpro -funroll-loops -fmove-all-movables -frerun-loop-opt -finline-functions
+LIBS=m
+
+# ----------------------------------------------
+# the rest can stay untouched
+# ----------------------------------------------
+
+NAME=xsample
+
+# all the source files from the package
+SRCS=main.cpp inter.cpp play.cpp record.cpp groove.cpp
+HDRS=main.h
+
+MAKEFILE=makefile.pd-linux
+TARGET=$(TARGDIR)/$(NAME).pd_linux
+
+# default target
+all: $(TARGDIR) $(TARGET) 
+
+$(SRCS): $(HDRS) $(MAKEFILE)
+	touch $@
+
+$(TARGDIR):
+	mkdir $(TARGDIR)
+
+$(TARGDIR)/%.o : %.cpp 
+	$(CXX) -c $(CFLAGS) $(FLAGS) $(patsubst %,-I%,$(INCLUDES) $(FLEXTPATH)) $< -o $@
+
+$(TARGET) : $(patsubst %.cpp,$(TARGDIR)/%.o,$(SRCS)) $(FLEXTLIB) 
+	$(CXX) $(LDFLAGS) -shared $^ $(patsubst %,-l%,$(LIBS)) -o $@ 
+	strip --strip-unneeded $@
+	chmod 755 $@
+
+$(INSTDIR):
+	mkdir $(INSTDIR)
+
+install:: $(INSTDIR)
+
+install:: $(TARGET) 
+	cp $^ $(INSTDIR)
+	chown root.root $(patsubst %,$(INSTDIR)/%,$(notdir $^))
+
+.PHONY: clean
+clean:
+	rm -f $(TARGDIR)/*.o $(TARGET)
+	
+
+
+
+
+
+
+
+
+
+
+
diff --git a/externals/grill/xsample/source/play.cpp b/externals/grill/xsample/source/play.cpp
new file mode 100644
index 00000000..827d88de
--- /dev/null
+++ b/externals/grill/xsample/source/play.cpp
@@ -0,0 +1,160 @@
+/*
+
+xsample - extended sample objects for Max/MSP and pd (pure data)
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+#ifdef _MSC_VER
+#pragma warning (disable:4244)
+#endif
+
+
+class xplay:
+	public xinter
+{
+//	FLEXT_HEADER_S(xplay,xinter,setup)
+	FLEXT_HEADER(xplay,xinter)
+
+public:
+	xplay(I argc, t_atom *argv);
+	
+	virtual BL Init();
+		
+#ifdef MAXMSP
+	virtual V m_assist(L msg,L arg,C *s);
+#endif
+
+	virtual V m_help();
+	virtual V m_print();
+	
+private:
+//	static V setup(t_class *c);
+
+	virtual V m_signal(I n,S *const *in,S *const *out) 
+	{ 
+		bufchk();
+		playfun(n,in,out); 
+	}
+};
+
+FLEXT_LIB_DSP_V("xplay~",xplay)
+
+/*
+V xplay::setup(t_class *)
+{
+#ifndef PD
+	post("loaded xplay~ - part of xsample objects, version " XSAMPLE_VERSION " - (C) Thomas Grill, 2001-2002");
+#endif
+}
+*/
+
+xplay::xplay(I argc, t_atom *argv)
+{
+	I argi = 0;
+#ifdef MAXMSP
+	if(argc > argi && CanbeInt(argv[argi])) {
+		outchns = GetAInt(argv[argi]);
+		argi++;
+	}
+#endif
+
+	if(argc > argi && IsSymbol(argv[argi])) {
+		buf = new buffer(GetSymbol(argv[argi]),true);
+		argi++;
+		
+#ifdef MAXMSP
+		// oldstyle command line?
+		if(argi == 1 && argc == 2 && CanbeInt(argv[argi])) {
+			outchns = GetAInt(argv[argi]);
+			argi++;
+			post("%s: old style command line detected - please change to '%s [channels] [buffer]'",thisName(),thisName()); 
+		}
+#endif
+	}
+	else
+		buf = new buffer(NULL,true);
+
+	AddInSignal();  // pos signal
+	AddOutSignal(outchns);
+	
+	m_reset();
+}
+
+BL xplay::Init()
+{
+	if(xinter::Init()) {
+		m_reset();
+		return true;
+	}
+	else
+		return false;
+}
+		
+
+
+V xplay::m_help()
+{
+	post("%s - part of xsample objects, version " XSAMPLE_VERSION,thisName());
+#ifdef _DEBUG
+	post("compiled on " __DATE__ " " __TIME__);
+#endif
+	post("(C) Thomas Grill, 2001-2002");
+#ifdef MAXMSP
+	post("Arguments: %s [channels=1] [buffer]",thisName());
+#else
+	post("Arguments: %s [buffer]",thisName());
+#endif
+	post("Inlets: 1:Messages/Position signal");
+	post("Outlets: 1:Audio signal");	
+	post("Methods:");
+	post("\thelp: shows this help");
+	post("\tset name: set buffer");
+	post("\tenable 0/1: turn dsp calculation off/on");	
+	post("\tprint: print current settings");
+	post("\tbang/start: begin playing");
+	post("\tstop: stop playing");
+	post("\treset: checks buffer");
+	post("\trefresh: checks buffer and refreshes outlets");
+	post("\tunits 0/1/2/3: set units to samples/buffer size/ms/s");
+	post("\tinterp 0/1/2: set interpolation to off/4-point/linear");
+	post("");
+}
+
+V xplay::m_print()
+{
+	const C *interp_txt[] = {"off","4-point","linear"};
+	// print all current settings
+	post("%s - current settings:",thisName());
+	post("bufname = '%s', length = %.3f, channels = %i",buf->Name(),(F)(buf->Frames()*s2u),buf->Channels()); 
+	post("out channels = %i, samples/unit = %.3f, interpolation = %s",outchns,(F)(1./s2u),interp_txt[interp >= xsi_none && interp <= xsi_lin?interp:xsi_none]); 
+	post("");
+}
+
+
+#ifdef MAXMSP
+V xplay::m_assist(L msg,L arg,C *s)
+{
+	switch(msg) {
+	case 1: //ASSIST_INLET:
+		switch(arg) {
+		case 0:
+			sprintf(s,"Messages and Signal of playing position"); break;
+		}
+		break;
+	case 2: //ASSIST_OUTLET:
+		if(arg < outchns) 
+			sprintf(s,"Audio signal channel %li",arg+1); 
+		break;
+	}
+}
+#endif
+
+
+
+
diff --git a/externals/grill/xsample/source/record.cpp b/externals/grill/xsample/source/record.cpp
new file mode 100644
index 00000000..cc3543a3
--- /dev/null
+++ b/externals/grill/xsample/source/record.cpp
@@ -0,0 +1,506 @@
+/*
+
+xsample - extended sample objects for Max/MSP and pd (pure data)
+
+Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+*/
+
+#include "main.h"
+
+#ifdef _MSC_VER
+#pragma warning (disable:4244)
+#endif
+
+
+class xrecord:
+	public xsample
+{
+//	FLEXT_HEADER_S(xrecord,xsample,setup)
+	FLEXT_HEADER(xrecord,xsample)
+
+public:
+	xrecord(I argc,t_atom *argv);
+	
+	virtual BL Init();
+		
+#ifdef MAXMSP
+	virtual V m_assist(L msg,L arg,C *s);
+#endif
+	
+	virtual V m_help();
+	virtual V m_print();
+	
+	virtual I m_set(I argc,t_atom *argv);
+
+	virtual V m_pos(F pos);
+	virtual V m_all();
+	virtual V m_start();
+	virtual V m_stop();
+
+	virtual BL m_reset();
+
+	virtual V m_units(xs_unit md = xsu__);
+	virtual V m_min(F mn);
+	virtual V m_max(F mx);
+
+	virtual V m_mixmode(BL mx) { mixmode = mx; }
+	virtual V m_sigmode(BL mode) { /*dorec =*/ sigmode = mode; }
+	virtual V m_loop(BL lp) { doloop = lp; }
+	virtual V m_append(BL app) { if(!(appmode = app)) m_pos(0); }
+
+	virtual V m_draw(I argc,t_atom *argv);	
+
+protected:
+	I inchns;
+	BL sigmode,appmode;
+	F drintv;
+
+	BL dorec,doloop,mixmode;
+	L curpos;  // in samples
+
+	outlet *outmin,*outmax; // float outlets	
+	
+	V outputmin() { ToOutFloat(outmin,curmin*s2u); }
+	V outputmax() { ToOutFloat(outmax,curmax*s2u); }
+	
+private:
+//	static V setup(t_class *c);
+
+	virtual V s_dsp();
+
+	TMPLSIGFUN(s_rec);
+
+	DEFSIGCALL(recfun);
+	virtual V m_signal(I n,S *const *in,S *const *out) 
+	{ 
+		bufchk();
+		recfun(n,in,out); 
+	}
+
+	FLEXT_CALLBACK_F(m_pos)
+	FLEXT_CALLBACK(m_all)
+	FLEXT_CALLBACK_F(m_min)
+	FLEXT_CALLBACK_F(m_max)
+
+	FLEXT_CALLBACK_B(m_loop)
+	FLEXT_CALLBACK_B(m_mixmode)
+	FLEXT_CALLBACK_B(m_sigmode)
+	FLEXT_CALLBACK_B(m_append)
+
+	FLEXT_CALLBACK_V(m_draw)
+};
+
+
+FLEXT_LIB_DSP_V("xrecord~",xrecord)
+
+/*
+V xrecord::setup(t_class *)
+{
+#ifndef PD
+	post("loaded xrecord~ - part of xsample objects, version " XSAMPLE_VERSION " - (C) Thomas Grill, 2001-2002");
+#endif
+}
+*/
+
+xrecord::xrecord(I argc,t_atom *argv):
+	dorec(false),
+	sigmode(false),mixmode(false),
+	appmode(true),doloop(false),
+	drintv(0),
+	inchns(1)
+{
+	I argi = 0;
+#ifdef MAXMSP
+	if(argc > argi && CanbeInt(argv[argi])) {
+		inchns = GetAInt(argv[argi]);
+		argi++;
+	}
+#endif
+
+	if(argc > argi && IsSymbol(argv[argi])) {
+		buf = new buffer(GetSymbol(argv[argi]),true);
+		argi++;
+
+#ifdef MAXMSP		
+		// oldstyle command line?
+		if(argi == 1 && argc == 2 && CanbeInt(argv[argi])) {
+			inchns = GetAInt(argv[argi]);
+			argi++;
+			post("%s: old style command line detected - please change to '%s [channels] [buffer]'",thisName(),thisName()); 
+		}
+#endif
+	}
+	else
+		buf = new buffer(NULL,true);
+
+	AddInSignal(inchns);  // audio signals
+	AddInSignal(); // on/off signal
+	AddInFloat(2);  // min & max
+	AddOutSignal();  // pos signal
+	AddOutFloat(2); // min & max
+	AddOutBang();  // loop bang
+
+	FLEXT_ADDMETHOD_F(0,"pos",m_pos);
+	FLEXT_ADDMETHOD(inchns+1,m_min);
+	FLEXT_ADDMETHOD(inchns+2,m_max);
+	FLEXT_ADDMETHOD_F(0,"min",m_min);
+	FLEXT_ADDMETHOD_F(0,"max",m_max);
+	FLEXT_ADDMETHOD_(0,"all",m_all);
+	
+	FLEXT_ADDMETHOD_B(0,"loop",m_loop);
+	FLEXT_ADDMETHOD_B(0,"mixmode",m_mixmode);
+	FLEXT_ADDMETHOD_B(0,"sigmode",m_sigmode);
+	FLEXT_ADDMETHOD_B(0,"append",m_append);
+	
+	FLEXT_ADDMETHOD_(0,"draw",m_draw);
+}
+
+
+BL xrecord::Init()
+{
+	if(xsample::Init()) {
+		outmin = GetOut(1);
+		outmax = GetOut(2);
+		
+		m_reset();
+		return true;
+	}
+	else
+		return false;
+}
+		
+V xrecord::m_units(xs_unit mode)
+{
+	xsample::m_units(mode);
+
+	m_sclmode();
+	outputmin();
+	outputmax();
+}
+
+V xrecord::m_min(F mn)
+{
+	xsample::m_min(mn);
+	m_pos(curpos*s2u);
+	outputmin();
+}
+
+V xrecord::m_max(F mx)
+{
+	xsample::m_max(mx);
+	m_pos(curpos*s2u);
+	outputmax();
+}
+
+V xrecord::m_all()
+{
+	xsample::m_all();
+	outputmin();
+	outputmax();
+}
+
+V xrecord::m_pos(F pos)
+{
+	curpos = pos?(L)(pos/s2u+.5):0;
+
+	if(curpos < curmin) curpos = curmin;
+	else if(curpos > curmax) curpos = curmax;
+}
+
+
+I xrecord::m_set(I argc,t_atom *argv)
+{
+	I r = xsample::m_set(argc,argv);
+	if(r < 0) m_reset(); // resets pos/min/max
+	if(r != 0) m_units();
+	return r;
+}
+
+V xrecord::m_start() 
+{ 
+	if(!sigmode && !appmode) m_pos(0); 
+	m_refresh(); 
+	dorec = true; 
+	buf->SetRefrIntv(drintv);
+	s_dsp();
+}
+
+V xrecord::m_stop() 
+{ 
+	dorec = false; 
+	buf->Dirty(true);
+	buf->SetRefrIntv(0);
+	s_dsp();
+}
+
+BL xrecord::m_reset()
+{
+	curpos = 0;
+	return xsample::m_reset();
+}
+
+V xrecord::m_draw(I argc,t_atom *argv)
+{
+	if(argc >= 1) {
+		drintv = GetInt(argv[0]);
+		if(dorec) buf->SetRefrIntv(drintv);
+	}
+	else
+		buf->Dirty(true);
+}
+	
+	
+TMPLDEF V xrecord::s_rec(I n,S *const *invecs,S *const *outvecs)
+{
+	SIGCHNS(BCHNS,buf->Channels(),ICHNS,inchns);
+
+	const S *const *sig = invecs;
+	register I si = 0;
+	const S *on = invecs[inchns];
+	S *pos = outvecs[0];
+
+	BL lpbang = false;
+	register const F pf = sclmul;
+	register L o = curpos;
+	
+	if(o < curmin) o = curmin;
+
+//	if(buf && dorec && curlen > 0) {
+	if(buf && dorec && curmax > curmin) {
+		while(n) {
+			L ncur = curmax-o; // at max to buffer or recording end
+
+			if(ncur <= 0) {	// end of buffer
+				if(doloop) { 
+					o = curmin;
+//					ncur = curlen;
+					ncur = curmax-o;
+				}
+				else 
+					m_stop(); // loop expired;
+					
+				lpbang = true;
+			}
+
+			if(!dorec) break;
+
+			if(ncur > n) ncur = n;
+			
+			register I i;
+			register S *bf = buf->Data()+o*BCHNS;
+			register F p = scale(o);
+
+			if(sigmode) {
+				if(appmode) {
+					// append to current position
+				
+					if(!mixmode) {
+						for(i = 0; i < ncur; ++i,++si) {	
+							if(*(on++) >= 0) {
+								for(int ci = 0; ci < ICHNS; ++ci)
+									bf[ci] = sig[ci][si];	
+								bf += BCHNS;
+								*(pos++) = p,p += pf,++o;
+							}
+							else 
+								*(pos++) = p;
+						}
+					}
+					else {
+						for(i = 0; i < ncur; ++i,++si) {	
+							register const S g = *(on++);
+							if(g >= 0) {
+								for(int ci = 0; ci < ICHNS; ++ci)
+									bf[ci] = bf[ci]*(1.-g)+sig[ci][si]*g;
+								bf += BCHNS;
+								*(pos++) = p,p += pf,++o;
+							}
+							else 
+								*(pos++) = p;
+						}
+					}
+				}
+				else {  
+					// don't append
+					if(!mixmode) {
+						for(i = 0; i < ncur; ++i,++si) {	
+							if(*(on++) >= 0)
+							{ 	
+								for(int ci = 0; ci < ICHNS; ++ci)
+									bf[ci] = sig[ci][si];	
+								bf += BCHNS;
+								*(pos++) = p,p += pf,++o;
+							}
+							else {
+								*(pos++) = p = scale(o = 0);
+								bf = buf->Data();
+							}
+						}
+					}
+					else {
+						for(i = 0; i < ncur; ++i,++si) {	
+							register const S g = *(on++);
+							if(g >= 0) {
+								for(int ci = 0; ci < ICHNS; ++ci)
+									bf[ci] = bf[ci]*(1.-g)+sig[ci][si]*g;
+								bf += BCHNS;
+								*(pos++) = p,p += pf,++o;
+							}
+							else {
+								*(pos++) = p = scale(o = 0);
+								bf = buf->Data();
+							}
+						}
+					}
+				}
+			}
+			else { 
+				// message mode
+				
+				// Altivec optimization for that!
+				if(!mixmode) {
+					for(int ci = 0; ci < ICHNS; ++ci) {	
+						register S *b = bf+ci;
+						register const F *s = sig[ci];
+						for(i = 0; i < ncur; ++i,b += BCHNS,++s) *b = *s;	
+					}
+					si += ncur;
+				}
+				else {
+					for(i = 0; i < ncur; ++i,++si) {	
+						register const S w = *(on++);
+						for(int ci = 0; ci < ICHNS; ++ci)
+							bf[ci] = bf[ci]*(1.-w)+sig[ci][si]*w;
+						bf += BCHNS;
+					}
+				}
+				for(i = 0; i < ncur; ++i) {
+					*(pos++) = p,p += pf,++o;
+				}
+			}
+
+			n -= ncur;
+		} 
+		curpos = o;
+		
+		buf->Dirty(); 
+	}
+
+	if(n) {
+		register F p = scale(o);
+		while(n--) *(pos++) = p;
+	}
+	
+	if(lpbang) ToOutBang(3);
+}
+
+V xrecord::s_dsp()
+{
+	switch(buf->Channels()*1000+inchns) {
+	case 1001:	SETSIGFUN(recfun,TMPLFUN(s_rec,1,1));	break;
+	case 1002:	SETSIGFUN(recfun,TMPLFUN(s_rec,1,2));	break;
+	case 2001:	SETSIGFUN(recfun,TMPLFUN(s_rec,2,1));	break;
+	case 2002:	SETSIGFUN(recfun,TMPLFUN(s_rec,2,2));	break;
+	case 4001:
+	case 4002:
+	case 4003:	SETSIGFUN(recfun,TMPLFUN(s_rec,4,-1));	break;
+	case 4004:	SETSIGFUN(recfun,TMPLFUN(s_rec,4,4));	break;
+	default:	SETSIGFUN(recfun,TMPLFUN(s_rec,-1,-1));	break;
+	}
+}
+
+
+
+
+V xrecord::m_help()
+{
+	post("%s - part of xsample objects, version " XSAMPLE_VERSION,thisName());
+#ifdef _DEBUG
+	post("compiled on " __DATE__ " " __TIME__);
+#endif
+	post("(C) Thomas Grill, 2001-2002");
+#ifdef MAXMSP
+	post("Arguments: %s [channels=1] [buffer]",thisName());
+#else
+	post("Arguments: %s [buffer]",thisName());
+#endif
+	post("Inlets: 1:Messages/Audio signal, 2:Trigger signal, 3:Min point, 4: Max point");
+	post("Outlets: 1:Position signal, 2:Min point, 3:Max point");	
+	post("Methods:");
+	post("\thelp: shows this help");
+	post("\tset [name]: set buffer or reinit");
+	post("\tenable 0/1: turn dsp calculation off/on");	
+	post("\treset: reset min/max recording points and recording offset");
+	post("\tprint: print current settings");
+	post("\tsigmode 0/1: specify message or signal triggered recording");
+	post("\tappend 0/1: reset recording position or append to current position");
+	post("\tloop 0/1: switches looping off/on");
+	post("\tmixmode 0/1: specify if audio signal should be mixed in");
+	post("\tmin {unit}: set minimum recording point");
+	post("\tmax {unit}: set maximum recording point");
+	post("\tall: select entire buffer length");
+	post("\tpos {unit}: set recording position (obeying the current scale mode)");
+	post("\tbang/start: start recording");
+	post("\tstop: stop recording");
+	post("\trefresh: checks buffer and refreshes outlets");
+	post("\tunits 0/1/2/3: set units to frames/buffer size/ms/s");
+	post("\tsclmode 0/1/2/3: set range of position to units/units in loop/buffer/loop");
+	post("\tdraw [{float}]: redraw buffer immediately (arg omitted) or periodic (in ms)");
+	post("");
+}
+
+V xrecord::m_print()
+{
+	static const C sclmode_txt[][20] = {"units","units in loop","buffer","loop"};
+
+	// print all current settings
+	post("%s - current settings:",thisName());
+	post("bufname = '%s', length = %.3f, channels = %i",buf->Name(),(F)(buf->Frames()*s2u),buf->Channels()); 
+	post("in channels = %i, frames/unit = %.3f, scale mode = %s",inchns,(F)(1./s2u),sclmode_txt[sclmode]); 
+	post("sigmode = %s, append = %s, loop = %s, mixmode = %s",sigmode?"yes":"no",appmode?"yes":"no",doloop?"yes":"no",mixmode?"yes":"no"); 
+	post("");
+}
+
+
+#ifdef MAXMSP
+V xrecord::m_assist(L msg,L arg,C *s)
+{
+	switch(msg) {
+	case 1: //ASSIST_INLET:
+		if(arg < inchns) {
+			if(arg) 
+				sprintf(s,"Messages and Audio channel 1"); 
+			else
+				sprintf(s,"Audio channel %li",arg+1); 
+		}
+		else
+			switch(arg-inchns) {
+			case 0:
+				sprintf(s,"On/Off/Fade/Mix signal (0..1)"); break;
+			case 1:
+				sprintf(s,"Starting point of recording"); break;
+			case 2:
+				sprintf(s,"Ending point of recording"); break;
+			}
+		break;
+	case 2: //ASSIST_OUTLET:
+		switch(arg) {
+		case 0:
+			sprintf(s,"Current position of recording"); break;
+		case 1:
+			sprintf(s,"Starting point (rounded to frame)"); break;
+		case 2:
+			sprintf(s,"Ending point (rounded to frame)"); break;
+		case 3:
+			sprintf(s,"Bang on loop end/rollover"); break;
+		}
+		break;
+	}
+}
+#endif
+
+
+
diff --git a/externals/grill/xsample/source/xsample.cw b/externals/grill/xsample/source/xsample.cw
new file mode 100644
index 00000000..c9e91616
--- /dev/null
+++ b/externals/grill/xsample/source/xsample.cw
diff --git a/externals/grill/xsample/source/xsample.dsp b/externals/grill/xsample/source/xsample.dsp
new file mode 100644
index 00000000..6c97b49e
--- /dev/null
+++ b/externals/grill/xsample/source/xsample.dsp
@@ -0,0 +1,127 @@
+# Microsoft Developer Studio Project File - Name="xsample" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** NICHT BEARBEITEN **
+
+# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
+
+CFG=xsample - Win32 Debug
+!MESSAGE Dies ist kein gόltiges Makefile. Zum Erstellen dieses Projekts mit NMAKE
+!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und fόhren Sie den Befehl
+!MESSAGE 
+!MESSAGE NMAKE /f "xsample.mak".
+!MESSAGE 
+!MESSAGE Sie kφnnen beim Ausfόhren von NMAKE eine Konfiguration angeben
+!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel:
+!MESSAGE 
+!MESSAGE NMAKE /f "xsample.mak" CFG="xsample - Win32 Debug"
+!MESSAGE 
+!MESSAGE Fόr die Konfiguration stehen zur Auswahl:
+!MESSAGE 
+!MESSAGE "xsample - Win32 Release" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "xsample - Win32 Debug" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE 
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName "xsample"
+# PROP Scc_LocalPath ".."
+CPP=cl.exe
+MTL=midl.exe
+RSC=rc.exe
+
+!IF  "$(CFG)" == "xsample - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "..\msvc"
+# PROP Intermediate_Dir "..\msvc"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "XSAMPLE_EXPORTS" /YX /FD /c
+# ADD CPP /nologo /G6 /W3 /O2 /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "NT" /D "PD" /YX /FD /c
+# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "NDEBUG"
+# ADD RSC /l 0xc07 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /machine:I386
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /machine:I386 /libpath:"c:\programme\audio\pd\bin" /libpath:"..\..\flext\pd-msvc\\"
+
+!ELSEIF  "$(CFG)" == "xsample - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "..\msvc-debug"
+# PROP Intermediate_Dir "..\msvc-debug"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "XSAMPLE_EXPORTS" /YX /FD /GZ /c
+# ADD CPP /nologo /G6 /W3 /Gm /ZI /Od /I "c:\programme\audio\pd\src" /I "f:\prog\max\flext\source" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "NT" /D "PD" /FR /YX /FD /GZ /c
+# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "_DEBUG"
+# ADD RSC /l 0xc07 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext_d-pdwin.lib /nologo /dll /debug /machine:I386 /pdbtype:sept /libpath:"c:\programme\audio\pd\bin\\" /libpath:"..\..\flext\pd-msvc\\"
+
+!ENDIF 
+
+# Begin Target
+
+# Name "xsample - Win32 Release"
+# Name "xsample - Win32 Debug"
+# Begin Group "doc"
+
+# PROP Default_Filter ""
+# Begin Source File
+
+SOURCE=..\readme.txt
+# End Source File
+# End Group
+# Begin Source File
+
+SOURCE=.\groove.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\inter.ci
+# End Source File
+# Begin Source File
+
+SOURCE=.\inter.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\main.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\main.h
+# End Source File
+# Begin Source File
+
+SOURCE=.\play.cpp
+# End Source File
+# Begin Source File
+
+SOURCE=.\record.cpp
+# End Source File
+# End Target
+# End Project
diff --git a/externals/grill/xsample/source/xsample.mpw b/externals/grill/xsample/source/xsample.mpw
new file mode 100644
index 00000000..9e6b625e
--- /dev/null
+++ b/externals/grill/xsample/source/xsample.mpw
@@ -0,0 +1,129 @@
+# xsample - extended sample objects for Max/MSP and pd (pure data)
+# Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net)
+#
+# Makefile for Apple MPW-PR 
+#
+# usage: make -f xsample.mpw
+#
+# ---------------------------------------------
+
+MAKEFILE        = xsample.mpw
+€MondoBuild€    = {MAKEFILE}  # Make blank to avoid rebuilds when makefile is modified
+
+ObjDir          = ::MPW:
+MaxSDK			= HD Daten:Prog Stuff:Max/MSP SDK:SDK Examples
+flext			= :::flext:
+Includes        = -i :,"{flext}","{MaxSDK}:Max Includes","{MaxSDK}:MSP Includes"
+Defines			= -d MAXMSP 
+
+Sym-PPC         = -sym off
+Flags			= -bool on -enum int -includes unix -opt speed,unroll,unswitch  
+WarnOff			= -w 35
+
+PPCCPlusOptions = {Includes} {Sym-PPC} {Defines} {Flags} {WarnOff}
+
+
+### Source Files ###
+
+SrcFiles        =  main.cpp inter.cpp groove.cpp play.cpp record.cpp
+Headers			=  main.h
+
+### Object Files ###
+
+Obj-groove    =  
+				  "{ObjDir}main.cpp.x" 
+				  "{ObjDir}inter.cpp.x" 
+				  "{ObjDir}groove.cpp.x" 
+
+Obj-play      =  
+				  "{ObjDir}main.cpp.x" 
+				  "{ObjDir}inter.cpp.x" 
+				  "{ObjDir}play.cpp.x" 
+
+Obj-record    =  
+				  "{ObjDir}main.cpp.x" 
+				  "{ObjDir}inter.cpp.x" 
+				  "{ObjDir}record.cpp.x"
+				  
+Obj			  = 
+				  "{ObjDir}main.cpp.x" 
+				  "{ObjDir}record.cpp.x" 
+				  "{ObjDir}play.cpp.x" 
+				  "{ObjDir}inter.cpp.x" 
+				  "{ObjDir}groove.cpp.x" 
+
+
+### Libraries ###
+
+LibFiles-Ext    =  
+				  "{flext}MPW:flext.o" 
+				  "{MaxSDK}:Max Includes:MaxLib" 
+				  "{MaxSDK}:MSP Includes:MaxAudioLib"
+
+LibFiles-PPC    =  
+				  "{SharedLibraries}StdCLib" 
+				  "{SharedLibraries}MathLib" 
+				  "{PPCLibraries}StdCRuntime.o" 
+				  "{PPCLibraries}PPCCRuntime.o" 
+				  "{PPCLibraries}MrCPlusLib.o" 
+
+
+### Default Rules ###
+
+{ObjDir} Ÿ :
+
+.cpp.x  Ÿ  .cpp  {€MondoBuild€} {Headers}
+	{PPCCPlus} {depDir}{default}.cpp -o {targDir}{default}.cpp.x {PPCCPlusOptions}
+
+
+### Build Rules ###
+
+all Ÿ Folder {ObjDir}xsample 
+single Ÿ Folder {ObjDir}xgroove~ {ObjDir}xplay~ {ObjDir}xrecord~
+
+Folder Ÿ
+	if !`Exists {ObjDir}` ; NewFolder {ObjDir} ; end
+
+{ObjDir}xgroove~  ŸŸ  {Obj-groove}  {LibFiles-Ext} 
+	PPCLink 
+		-o {Targ} 
+		{deps} 
+		{LibFiles-PPC} 
+		{Sym-PPC} 
+		-mf -d 
+		-t 'iLaF' -c 'max2' 
+		-xm s 
+		-export main -main main
+
+{ObjDir}xplay~  ŸŸ  {Obj-play}  {LibFiles-Ext} 
+	PPCLink 
+		-o {Targ} 
+		{deps} 
+		{LibFiles-PPC} 
+		{Sym-PPC} 
+		-mf -d 
+		-t 'iLaF' -c 'max2' 
+		-xm s 
+		-export main -main main
+
+{ObjDir}xrecord~  ŸŸ  {Obj-record}  {LibFiles-Ext} 
+	PPCLink 
+		-o {Targ} 
+		{deps} 
+		{LibFiles-PPC} 
+		{Sym-PPC} 
+		-mf -d 
+		-t 'iLaF' -c 'max2' 
+		-xm s 
+		-export main -main main
+
+{ObjDir}xsample  ŸŸ  {Obj}  {LibFiles-Ext} 
+	PPCLink 
+		-o {Targ} 
+		{deps} 
+		{LibFiles-PPC} 
+		{Sym-PPC} 
+		-mf -d 
+		-t 'iLaF' -c 'max2' 
+		-xm s 
+		-export main -main main