[PD-cvs] externals/grill/py/source pymeth.cpp, NONE, 1.1 clmeth.cpp, 1.21, 1.22 modmeth.cpp, 1.20, 1.21 py.cpp, 1.26, 1.27 pyargs.cpp, 1.16, 1.17 pybase.cpp, 1.1, 1.2 pybase.h, 1.1, 1.2 pyext.cpp, 1.35, 1.36 pysymbol.cpp, 1.2, 1.3
by Thomas Grill 09 Jul '05
by Thomas Grill 09 Jul '05
09 Jul '05
Update of /cvsroot/pure-data/externals/grill/py/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4239/source
Modified Files:
clmeth.cpp modmeth.cpp py.cpp pyargs.cpp pybase.cpp pybase.h
pyext.cpp pysymbol.cpp
Added Files:
pymeth.cpp
Log Message:
python-like dotted module.function syntax
reworked outbound message generation (now with symbols instead of one-element anythings)
multiply inlets for py (hot and cold inlets)
cleaned up float vs. int pyext tags
pymeth object for object methods
enable built-in functions
sequence protocol for symbol type
enabled built-in functions
py: allow all callables
Index: pysymbol.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/pysymbol.cpp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** pysymbol.cpp 19 Jan 2005 04:58:36 -0000 1.2
--- pysymbol.cpp 9 Jul 2005 13:03:34 -0000 1.3
***************
*** 82,85 ****
--- 82,168 ----
}
+
+ static int symbol_length(pySymbol *self)
+ {
+ return strlen(flext::GetString(self->sym));
+ }
+
+ static PyObject *symbol_item(pySymbol *self, int i)
+ {
+ const char *str = flext::GetString(self->sym);
+ int len = strlen(str);
+ if(i < 0) i += len;
+
+ if(i >= 0 && i < len)
+ return PyString_FromStringAndSize(str+i,1);
+ else {
+ Py_INCREF(Py_None);
+ return Py_None;
+ }
+ }
+
+ static PyObject *symbol_slice(pySymbol *self,int ilow = 0,int ihigh = 1<<(sizeof(int)*8-2))
+ {
+ const char *str = flext::GetString(self->sym);
+ int len = strlen(str);
+ if(ilow < 0) {
+ ilow += len;
+ if(ilow < 0) ilow = 0;
+ }
+ if(ihigh < 0) ihigh += len;
+ if(ihigh >= len) ihigh = len-1;
+
+ return PyString_FromStringAndSize(str+ilow,ilow <= ihigh?ihigh-ilow+1:0);
+ }
+
+ static PyObject *symbol_concat(pySymbol *self,PyObject *op)
+ {
+ PyObject *nobj = symbol_slice(self); // take all
+ if(nobj) {
+ PyObject *ret = PySequence_Concat(nobj,op);
+ Py_DECREF(nobj);
+ return ret;
+ }
+ else
+ return NULL;
+ }
+
+ static PyObject *symbol_repeat(pySymbol *self,int rep)
+ {
+ PyObject *nobj = symbol_slice(self); // take all
+ if(nobj) {
+ PyObject *ret = PySequence_Repeat(nobj,rep);
+ Py_DECREF(nobj);
+ return ret;
+ }
+ else
+ return NULL;
+ }
+
+ static PySequenceMethods symbol_as_seq = {
+ (inquiry)symbol_length, /* inquiry sq_length; __len__ */
+ (binaryfunc)symbol_concat, /* __add__ */
+ (intargfunc)symbol_repeat, /* __mul__ */
+ (intargfunc)symbol_item, /* intargfunc sq_item; __getitem__ */
+ (intintargfunc)symbol_slice, /* intintargfunc sq_slice; __getslice__ */
+ NULL, /* intobjargproc sq_ass_item; __setitem__ */
+ NULL, /* intintobjargproc sq_ass_slice; __setslice__ */
+ };
+
+ static PyObject *symbol_iter(PyObject *obj)
+ {
+ pySymbol *self = (pySymbol *)obj;
+ PyObject *nobj = symbol_slice(self);
+ if(nobj) {
+ PyObject *it = PyObject_GetIter(nobj);
+ Py_DECREF(nobj);
+ return it;
+ }
+ else
+ return NULL;
+ }
+
+
+
PyTypeObject pySymbol_Type = {
PyObject_HEAD_INIT(NULL)
***************
*** 95,99 ****
symbol_repr, /*tp_repr*/
0, /*tp_as_number*/
! 0, /*tp_as_sequence*/
0, /*tp_as_mapping*/
symbol_hash, /*tp_hash */
--- 178,182 ----
symbol_repr, /*tp_repr*/
0, /*tp_as_number*/
! &symbol_as_seq, /*tp_as_sequence*/
0, /*tp_as_mapping*/
symbol_hash, /*tp_hash */
***************
*** 109,113 ****
symbol_richcompare, /* tp_richcompare */
0, /* tp_weaklistoffset */
! 0, /* tp_iter */
0, /* tp_iternext */
0, /* tp_methods */
--- 192,196 ----
symbol_richcompare, /* tp_richcompare */
0, /* tp_weaklistoffset */
! symbol_iter, /* tp_iter */
0, /* tp_iternext */
0, /* tp_methods */
Index: pyargs.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/pyargs.cpp,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** pyargs.cpp 8 Jul 2005 14:30:31 -0000 1.16
--- pyargs.cpp 9 Jul 2005 13:03:34 -0000 1.17
***************
*** 18,22 ****
if(flext::IsSymbol(at))
return pySymbol_FromSymbol(flext::GetSymbol(at));
! /*
else if(flext::CanbeInt(at) || flext::CanbeFloat(at)) {
// if a number can be an integer... let it be an integer!
--- 18,22 ----
if(flext::IsSymbol(at))
return pySymbol_FromSymbol(flext::GetSymbol(at));
! #if 1
else if(flext::CanbeInt(at) || flext::CanbeFloat(at)) {
// if a number can be an integer... let it be an integer!
***************
*** 25,34 ****
return (double)ival == fval?PyInt_FromLong(ival):PyFloat_FromDouble(fval);
}
! */
else if(flext::IsFloat(at))
return PyFloat_FromDouble(flext::GetFloat(at));
else if(flext::IsInt(at))
return PyInt_FromLong(flext::GetInt(at));
!
return NULL;
}
--- 25,34 ----
return (double)ival == fval?PyInt_FromLong(ival):PyFloat_FromDouble(fval);
}
! #else
else if(flext::IsFloat(at))
return PyFloat_FromDouble(flext::GetFloat(at));
else if(flext::IsInt(at))
return PyInt_FromLong(flext::GetInt(at));
! #endif
return NULL;
}
***************
*** 100,104 ****
// ok!
}
! else if(argc == 1 && IsAtom(s))
ret = MakePyAtom(*argv);
else {
--- 100,105 ----
// ok!
}
! else if(argc == 1 && !IsAnything(s))
! // convert atoms and one-element lists
ret = MakePyAtom(*argv);
else {
***************
*** 126,130 ****
}
! bool pybase::GetPyArgs(AtomList &lst,PyObject *pValue,int offs)
{
if(pValue == NULL) return false;
--- 127,131 ----
}
! const t_symbol *pybase::GetPyArgs(AtomList &lst,PyObject *pValue,int offs)
{
if(pValue == NULL) return false;
***************
*** 133,137 ****
int rargc = 0;
- bool ok = true;
retval tp = nothing;
--- 134,137 ----
***************
*** 153,156 ****
--- 153,158 ----
lst(offs+rargc);
+ const t_symbol *sym = NULL;
+
for(int ix = 0; ix < rargc; ++ix) {
PyObject *arg;
***************
*** 161,169 ****
t_atom &at = lst[offs+ix];
! if(PyInt_Check(arg)) SetInt(at,PyInt_AsLong(arg));
! else if(PyLong_Check(arg)) SetInt(at,PyLong_AsLong(arg));
! else if(PyFloat_Check(arg)) SetFloat(at,(float)PyFloat_AsDouble(arg));
! else if(pySymbol_Check(arg)) SetSymbol(at,pySymbol_AS_SYMBOL(arg));
! else if(PyString_Check(arg)) SetString(at,PyString_AS_STRING(arg));
/*
else if(ix == 0 && self && PyInstance_Check(arg)) {
--- 163,171 ----
t_atom &at = lst[offs+ix];
! if(PyInt_Check(arg)) { SetInt(at,PyInt_AsLong(arg)); sym = sym_fint; }
! else if(PyLong_Check(arg)) { SetInt(at,PyLong_AsLong(arg)); sym = sym_fint; }
! else if(PyFloat_Check(arg)) { SetFloat(at,(float)PyFloat_AsDouble(arg)); sym = sym_float; }
! else if(pySymbol_Check(arg)) { SetSymbol(at,pySymbol_AS_SYMBOL(arg)); sym = sym_symbol; }
! else if(PyString_Check(arg)) { SetString(at,PyString_AS_STRING(arg)); sym = sym_symbol; }
/*
else if(ix == 0 && self && PyInstance_Check(arg)) {
***************
*** 181,185 ****
Py_XDECREF(stp);
Py_XDECREF(tp);
! ok = false;
}
--- 183,188 ----
Py_XDECREF(stp);
Py_XDECREF(tp);
!
! SetSymbol(at,sym__); sym = sym_symbol;
}
***************
*** 188,204 ****
}
! return ok;
}
! bool pybase::GetPyAtom(AtomList &lst,PyObject *obj)
{
size_t atom = PyAtom::Register(obj);
size_t szat = sizeof(atom)/2;
! lst(1+szat);
! SetSymbol(lst[0],symatom);
for(size_t i = 0; i < szat; ++i,atom >>= 16)
! flext::SetInt(lst[i+1],(int)(atom&((1<<16)-1)));
! return true;
}
--- 191,208 ----
}
! if(sym && tp == sequ) sym = sym_list;
!
! return sym;
}
! const t_symbol *pybase::GetPyAtom(AtomList &lst,PyObject *obj)
{
size_t atom = PyAtom::Register(obj);
size_t szat = sizeof(atom)/2;
! lst(szat);
for(size_t i = 0; i < szat; ++i,atom >>= 16)
! flext::SetInt(lst[i],(int)(atom&((1<<16)-1)));
! return symatom;
}
--- NEW FILE: pymeth.cpp ---
/*
py/pyext - python script object for PD and Max/MSP
Copyright (c)2002-2005 Thomas Grill (gr(a)grrrr.org)
For information on usage and redistribution, and for a DISCLAIMER OF ALL
WARRANTIES, see the file, "license.txt," in this distribution.
*/
#include "pybase.h"
#include <map>
struct xlt { const t_symbol *from,*to; };
static const xlt xtdefs[] = {
{ flext::MakeSymbol("+"),flext::MakeSymbol("__add__") },
{ flext::MakeSymbol("+="),flext::MakeSymbol("__iadd__") },
{ flext::MakeSymbol("!+"),flext::MakeSymbol("__radd__") },
{ flext::MakeSymbol("-"),flext::MakeSymbol("__sub__") },
{ flext::MakeSymbol("-="),flext::MakeSymbol("__isub__") },
{ flext::MakeSymbol("!-"),flext::MakeSymbol("__rsub__") },
{ flext::MakeSymbol("*"),flext::MakeSymbol("__mul__") },
{ flext::MakeSymbol("*="),flext::MakeSymbol("__imul__") },
{ flext::MakeSymbol("!*"),flext::MakeSymbol("__rmul__") },
{ flext::MakeSymbol("/"),flext::MakeSymbol("__div__") },
{ flext::MakeSymbol("/="),flext::MakeSymbol("__idiv__") },
{ flext::MakeSymbol("!/"),flext::MakeSymbol("__rdiv__") },
{ flext::MakeSymbol("//"),flext::MakeSymbol("__floordiv__") },
{ flext::MakeSymbol("//="),flext::MakeSymbol("__ifloordiv__") },
{ flext::MakeSymbol("!//"),flext::MakeSymbol("__rfloordiv__") },
{ flext::MakeSymbol("%"),flext::MakeSymbol("__mod__") },
{ flext::MakeSymbol("%="),flext::MakeSymbol("__imod__") },
{ flext::MakeSymbol("!%"),flext::MakeSymbol("__rmod__") },
{ flext::MakeSymbol("**"),flext::MakeSymbol("__pow__") },
{ flext::MakeSymbol("**="),flext::MakeSymbol("__ipow__") },
{ flext::MakeSymbol("!**"),flext::MakeSymbol("__rpow__") },
{ flext::MakeSymbol("&"),flext::MakeSymbol("__and__") },
{ flext::MakeSymbol("&="),flext::MakeSymbol("__iand__") },
{ flext::MakeSymbol("!&"),flext::MakeSymbol("__rand__") },
{ flext::MakeSymbol("|"),flext::MakeSymbol("__or__") },
{ flext::MakeSymbol("|="),flext::MakeSymbol("__ior__") },
{ flext::MakeSymbol("!|"),flext::MakeSymbol("__ror__") },
{ flext::MakeSymbol("^"),flext::MakeSymbol("__xor__") },
{ flext::MakeSymbol("^="),flext::MakeSymbol("__ixor__") },
{ flext::MakeSymbol("!^"),flext::MakeSymbol("__rxor__") },
{ flext::MakeSymbol("<<"),flext::MakeSymbol("__lshift__") },
{ flext::MakeSymbol("<<="),flext::MakeSymbol("__ilshift__") },
{ flext::MakeSymbol("!<<"),flext::MakeSymbol("__rlshift__") },
{ flext::MakeSymbol(">>"),flext::MakeSymbol("__rshift__") },
{ flext::MakeSymbol(">>="),flext::MakeSymbol("__irshift__") },
{ flext::MakeSymbol("!>>"),flext::MakeSymbol("__rrshift__") },
{ flext::MakeSymbol("=="),flext::MakeSymbol("__eq__") },
{ flext::MakeSymbol("!="),flext::MakeSymbol("__ne__") },
{ flext::MakeSymbol("<"),flext::MakeSymbol("__lt__") },
{ flext::MakeSymbol(">"),flext::MakeSymbol("__gt__") },
{ flext::MakeSymbol("<="),flext::MakeSymbol("__le__") },
{ flext::MakeSymbol(">="),flext::MakeSymbol("__ge__") },
{ flext::MakeSymbol("!"),flext::MakeSymbol("__nonzero__") },
{ flext::MakeSymbol("~"),flext::MakeSymbol("__invert__") },
{ flext::MakeSymbol("[]"),flext::MakeSymbol("__getitem__") },
{ flext::MakeSymbol("[]="),flext::MakeSymbol("__setitem__") },
{ flext::MakeSymbol("[:]"),flext::MakeSymbol("__getslice__") },
{ flext::MakeSymbol("[:]="),flext::MakeSymbol("__setslice__") },
{ flext::MakeSymbol(".abs"),flext::MakeSymbol("__abs__") },
{ flext::MakeSymbol(".neg"),flext::MakeSymbol("__neg__") },
{ flext::MakeSymbol(".pos"),flext::MakeSymbol("__pos__") },
{ flext::MakeSymbol(".divmod"),flext::MakeSymbol("__divmod__") },
{ flext::MakeSymbol(".int"),flext::MakeSymbol("__int__") },
{ flext::MakeSymbol(".long"),flext::MakeSymbol("__long__") },
{ flext::MakeSymbol(".float"),flext::MakeSymbol("__float__") },
{ flext::MakeSymbol(".complex"),flext::MakeSymbol("__complex__") },
{ flext::MakeSymbol(".str"),flext::MakeSymbol("__str__") },
{ flext::MakeSymbol(".coerce"),flext::MakeSymbol("__coerce__") },
{ flext::MakeSymbol(".doc"),flext::MakeSymbol("__doc__") },
{ flext::MakeSymbol(".repr"),flext::MakeSymbol("__repr__") },
{ flext::MakeSymbol(".len"),flext::MakeSymbol("__len__") },
{ flext::MakeSymbol(".in"),flext::MakeSymbol("__contains") },
{ NULL,NULL } // sentinel
};
typedef std::map<const t_symbol *,const t_symbol *> XTable;
static XTable xtable;
class pymeth
: public pybase
, public flext_base
{
FLEXT_HEADER_S(pymeth,flext_base,Setup)
public:
pymeth(int argc,const t_atom *argv);
~pymeth();
protected:
virtual void Exit();
virtual bool CbMethodResort(int n,const t_symbol *s,int argc,const t_atom *argv);
virtual void CbClick();
void m_help();
void m_reload() { Reload(); }
void m_reload_(int argc,const t_atom *argv) { args(argc,argv); Reload(); }
void m_set(int argc,const t_atom *argv);
void m_dir_() { m__dir(function); }
void m_doc_() { m__doc(function); }
const t_symbol *funname;
PyObject *function;
virtual void LoadModule();
virtual void UnloadModule();
virtual void Load();
virtual void Unload();
void SetFunction(const t_symbol *func);
void ResetFunction();
virtual bool thrcall(void *data);
virtual void DumpOut(const t_symbol *sym,int argc,const t_atom *argv);
PyObject **objects;
private:
virtual bool callpy(PyObject *fun,PyObject *args);
static void Setup(t_classid c);
FLEXT_CALLBACK(m_help)
FLEXT_CALLBACK(m_reload)
FLEXT_CALLBACK_V(m_reload_)
FLEXT_CALLBACK_V(m_set)
FLEXT_CALLBACK(m_dir_)
FLEXT_CALLBACK(m_doc_)
// callbacks
FLEXT_ATTRVAR_I(detach)
FLEXT_ATTRVAR_B(xlate)
FLEXT_ATTRVAR_B(respond)
FLEXT_CALLBACK_V(m_stop)
FLEXT_CALLBACK(m_dir)
FLEXT_CALLGET_V(mg_dir)
FLEXT_CALLBACK(m_doc)
#ifdef FLEXT_THREADS
FLEXT_CALLBACK_T(tick)
FLEXT_THREAD(threadworker)
FLEXT_THREAD_X(work_wrapper)
#else
FLEXT_CALLBACK_X(work_wrapper)
#endif
};
FLEXT_LIB_V("pym",pymeth)
void pymeth::Setup(t_classid c)
{
FLEXT_CADDMETHOD_(c,0,"doc",m_doc);
FLEXT_CADDMETHOD_(c,0,"dir",m_dir);
#ifdef FLEXT_THREADS
FLEXT_CADDATTR_VAR1(c,"detach",detach);
FLEXT_CADDMETHOD_(c,0,"stop",m_stop);
#endif
FLEXT_CADDMETHOD_(c,0,"help",m_help);
FLEXT_CADDMETHOD_(c,0,"reload",m_reload_);
FLEXT_CADDMETHOD_(c,0,"reload.",m_reload);
FLEXT_CADDMETHOD_(c,0,"doc+",m_doc_);
FLEXT_CADDMETHOD_(c,0,"dir+",m_dir_);
FLEXT_CADDMETHOD_(c,0,"set",m_set);
FLEXT_CADDATTR_VAR1(c,"xlate",xlate);
FLEXT_CADDATTR_VAR1(c,"respond",respond);
// init translation map
for(const xlt *xi = xtdefs; xi->from; ++xi) xtable[xi->from] = xi->to;
}
pymeth::pymeth(int argc,const t_atom *argv)
: funname(NULL)
, function(NULL)
, objects(NULL)
{
#ifdef FLEXT_THREADS
FLEXT_ADDTIMER(stoptmr,tick);
// launch thread worker
FLEXT_CALLMETHOD(threadworker);
#endif
PyThreadState *state = PyLockSys();
int inlets;
if(argc && CanbeInt(*argv)) {
inlets = GetAInt(*argv);
if(inlets < 1) inlets = 1;
argv++,argc--;
}
else inlets = 1;
objects = new PyObject *[inlets];
for(int i = 0; i < inlets; ++i) { objects[i] = Py_None; Py_INCREF(Py_None); }
if(inlets <= 0) InitProblem();
AddInAnything(1+(inlets < 0?1:inlets));
AddOutAnything();
Register(GetRegistry(REGNAME));
if(argc) {
const t_symbol *funnm = GetASymbol(*argv);
argv++,argc--;
if(funnm)
SetFunction(funnm);
else
PyErr_SetString(PyExc_ValueError,"Invalid function name");
}
if(argc) args(argc,argv);
Report();
PyUnlock(state);
}
pymeth::~pymeth()
{
if(objects) {
for(int i = 0; i < CntIn()-1; ++i) Py_DECREF(objects[i]);
delete[] objects;
}
PyThreadState *state = PyLockSys();
Unregister(GetRegistry(REGNAME));
Report();
PyUnlock(state);
}
void pymeth::Exit()
{
pybase::Exit();
flext_base::Exit();
}
void pymeth::m_set(int argc,const t_atom *argv)
{
PyThreadState *state = PyLockSys();
// function name has precedence
if(argc >= 2) {
const char *sn = GetAString(*argv);
++argv,--argc;
if(sn) {
if(!module || !strcmp(sn,PyModule_GetName(module))) {
ImportModule(sn);
Register(GetRegistry(REGNAME));
}
}
else
PyErr_SetString(PyExc_ValueError,"Invalid module name");
}
if(argc) {
const t_symbol *fn = GetASymbol(*argv);
if(fn)
SetFunction(fn);
else
PyErr_SetString(PyExc_ValueError,"Invalid function name");
}
Report();
PyUnlock(state);
}
void pymeth::m_help()
{
post("");
post("%s %s - python method object, (C)2002-2005 Thomas Grill",thisName(),PY__VERSION);
#ifdef FLEXT_DEBUG
post("DEBUG VERSION, compiled on " __DATE__ " " __TIME__);
#endif
post("Arguments: %s [method 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");
post("\tdir: dump module dictionary");
post("\tdir+: dump function dictionary");
#ifdef FLEXT_THREADS
post("\tdetach 0/1/2: detach threads");
post("\tstop {wait time (ms)}: stop threads");
#endif
post("");
}
void pymeth::ResetFunction()
{
Py_XDECREF(function);
function = NULL;
if(funname && objects[0] != Py_None) {
function = PyObject_GetAttrString(objects[0],(char *)GetString(funname)); // new reference
if(!function)
PyErr_SetString(PyExc_AttributeError,"Method not found");
}
// exception could be set here
}
void pymeth::SetFunction(const t_symbol *func)
{
// look for method name in translation table
XTable::iterator it = xtable.find(func);
funname = it == xtable.end()?func:it->second;
ResetFunction();
}
void pymeth::LoadModule()
{
SetFunction(funname);
}
void pymeth::UnloadModule()
{
}
void pymeth::Load()
{
ResetFunction();
}
void pymeth::Unload()
{
SetFunction(NULL);
}
bool pymeth::callpy(PyObject *fun,PyObject *args)
{
PyObject *ret = PyObject_CallObject(fun,args);
if(ret == NULL) {
// function not found resp. arguments not matching
PyErr_Print();
return false;
}
else {
if(ret != Py_None && !OutObject(this,0,ret) && PyErr_Occurred())
PyErr_Print();
Py_DECREF(ret);
return true;
}
}
bool pymeth::CbMethodResort(int n,const t_symbol *s,int argc,const t_atom *argv)
{
if(n == 0 && s != sym_bang)
return flext_base::CbMethodResort(n,s,argc,argv);
PyThreadState *state = PyLock();
bool ret = false;
if(n >= 1) {
// store args
PyObject *&obj = objects[n-1];
Py_DECREF(obj);
obj = MakePyArg(s,argc,argv); // steal reference
if(n > 1) ret = true; // just store, don't trigger
}
if(!ret) {
if(function) {
PyObject *self = PyMethod_Self(function);
PyErr_Clear();
if(!self || self->ob_type != objects[0]->ob_type)
// type has changed, search for new method
ResetFunction();
else if(self != objects[0]) {
// type hasn't changed, but object has
PyObject *f = function;
function = PyMethod_New(PyMethod_GET_FUNCTION(f),objects[0],PyMethod_GET_CLASS(f));
Py_DECREF(f);
}
}
else
ResetFunction();
if(function) {
Py_INCREF(function);
int inlets = CntIn()-1;
PyObject *pargs = PyTuple_New(inlets-1);
for(int i = 1; i < inlets; ++i) {
Py_INCREF(objects[i]);
PyTuple_SET_ITEM(pargs,i-1,objects[i]);
}
ret = gencall(function,pargs); // references are stolen
}
else
PyErr_SetString(PyExc_RuntimeError,"No function set");
Report();
}
PyUnlock(state);
Respond(ret);
return ret;
}
void pymeth::CbClick() { pybase::OpenEditor(); }
void pymeth::DumpOut(const t_symbol *sym,int argc,const t_atom *argv)
{
ToOutAnything(GetOutAttr(),sym?sym:thisTag(),argc,argv);
}
bool pymeth::thrcall(void *data)
{
return FLEXT_CALLMETHOD_X(work_wrapper,data);
}
Index: modmeth.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/modmeth.cpp,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** modmeth.cpp 8 Jul 2005 14:30:31 -0000 1.20
--- modmeth.cpp 9 Jul 2005 13:03:34 -0000 1.21
***************
*** 129,139 ****
AtomListStatic<16> lst;
! if(GetPyArgs(lst,val)) {
! bool ok;
! if(lst.Count() && IsSymbol(lst[0]))
! ok = Forward(recv,GetSymbol(lst[0]),lst.Count()-1,lst.Atoms()+1);
! else
! ok = Forward(recv,lst);
!
#ifdef FLEXT_DEBUG
if(!ok)
--- 129,135 ----
AtomListStatic<16> lst;
! const t_symbol *sym = GetPyArgs(lst,val);
! if(sym) {
! bool ok = Forward(recv,sym,lst.Count(),lst.Atoms());
#ifdef FLEXT_DEBUG
if(!ok)
Index: clmeth.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/clmeth.cpp,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** clmeth.cpp 8 Jul 2005 14:30:30 -0000 1.21
--- clmeth.cpp 9 Jul 2005 13:03:34 -0000 1.22
***************
*** 183,187 ****
o += ext->sigoutlets;
! if(ext->OutObject(ext,o,val))
ok = true;
else
--- 183,187 ----
o += ext->sigoutlets;
! if(ext->OutObject(ext,o-1,val))
ok = true;
else
***************
*** 296,304 ****
flext::AtomListStatic<16> lst;
! if(GetPyArgs(lst,val)) {
t_glist *gl = ext->thisCanvas(); //canvas_getcurrent();
t_class **cl = (t_pd *)gl;
if(cl)
! pd_forwardmess(cl,lst.Count(),lst.Atoms());
#ifdef FLEXT_DEBUG
else
--- 296,305 ----
flext::AtomListStatic<16> lst;
! const t_symbol *sym = GetPyArgs(lst,val);
! if(sym) {
t_glist *gl = ext->thisCanvas(); //canvas_getcurrent();
t_class **cl = (t_pd *)gl;
if(cl)
! pd_forwardmess(cl,lst.Count(),lst.Atoms());
#ifdef FLEXT_DEBUG
else
Index: pybase.h
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/pybase.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** pybase.h 8 Jul 2005 14:30:31 -0000 1.1
--- pybase.h 9 Jul 2005 13:03:34 -0000 1.2
***************
*** 27,32 ****
static PyObject *MakePyArgs(const t_symbol *s,int argc,const t_atom *argv,int inlet = -1);
static PyObject *MakePyArg(const t_symbol *s,int argc,const t_atom *argv);
! static bool GetPyArgs(AtomList &lst,PyObject *pValue,int offs = 0);
! static bool GetPyAtom(AtomList &lst,PyObject *pValue);
static void lib_setup();
--- 27,32 ----
static PyObject *MakePyArgs(const t_symbol *s,int argc,const t_atom *argv,int inlet = -1);
static PyObject *MakePyArg(const t_symbol *s,int argc,const t_atom *argv);
! static const t_symbol *GetPyArgs(AtomList &lst,PyObject *pValue,int offs = 0);
! static const t_symbol *GetPyAtom(AtomList &lst,PyObject *pValue);
static void lib_setup();
***************
*** 95,98 ****
--- 95,99 ----
static PyObject *module_obj,*module_dict;
+ static PyObject *builtins_obj,*builtins_dict;
static PyMethodDef func_tbl[];
***************
*** 162,165 ****
--- 163,168 ----
#endif
+ static const t_symbol *sym_fint; // float or int symbol, depending on native number message type
+
public:
Index: pybase.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/pybase.cpp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** pybase.cpp 8 Jul 2005 14:30:31 -0000 1.1
--- pybase.cpp 9 Jul 2005 13:03:34 -0000 1.2
***************
*** 63,66 ****
--- 63,70 ----
PyObject *pybase::module_dict = NULL;
+ PyObject *pybase::builtins_obj = NULL;
+ PyObject *pybase::builtins_dict = NULL;
+
+ const t_symbol *pybase::sym_fint = NULL;
// -----------------------------------------------------------------------------------------------------------
***************
*** 129,132 ****
--- 133,139 ----
}
+ builtins_obj = PyImport_ImportModule("__builtin__");
+ builtins_dict = PyModule_GetDict(builtins_obj); // borrowed reference
+
// add symbol type
initsymbol();
***************
*** 145,151 ****
--- 152,165 ----
PyModule_AddObject(module_obj,"Buffer",(PyObject *)&pySamplebuffer_Type);
+ #if FLEXT_SYS == FLEXT_SYS_PD
+ sym_fint = sym_float;
+ #else
+ sym_fint = sym_int;
+ #endif
+
// -------------------------------------------------------------
FLEXT_SETUP(pyobj);
+ FLEXT_SETUP(pymeth);
FLEXT_SETUP(pyext);
FLEXT_DSP_SETUP(pydsp);
***************
*** 214,219 ****
PyErr_Print(); // no method found
else {
! if(!GetPyArgs(lst,pvar))
post("py/pyext - Argument list could not be created");
Py_DECREF(pvar);
}
--- 228,236 ----
PyErr_Print(); // no method found
else {
! const t_symbol *sym = GetPyArgs(lst,pvar);
! if(!sym)
post("py/pyext - Argument list could not be created");
+ else
+ FLEXT_ASSERT(sym == sym_list);
Py_DECREF(pvar);
}
***************
*** 295,301 ****
bool pybase::ImportModule(const char *name)
{
! if(!name) return false;
! if(modname == name) return true;
! modname = name;
return ReloadModule();
}
--- 312,321 ----
bool pybase::ImportModule(const char *name)
{
! if(name) {
! if(modname == name) return true;
! modname = name;
! }
! else
! modname.clear();
return ReloadModule();
}
***************
*** 322,328 ****
SetArgs();
! PyObject *newmod = module
! ?PyImport_ReloadModule(module)
! :PyImport_ImportModule((char *)modname.c_str());
if(!newmod) {
--- 342,356 ----
SetArgs();
! PyObject *newmod;
!
! if(modname.length())
! newmod = module
! ?PyImport_ReloadModule(module)
! :PyImport_ImportModule((char *)modname.c_str());
! else {
! // if no module name given, take py module
! newmod = module_obj;
! Py_INCREF(newmod);
! }
if(!newmod) {
***************
*** 416,428 ****
{
flext::AtomListStatic<16> lst;
! if(xlate?GetPyArgs(lst,obj):GetPyAtom(lst,obj)) {
// call to outlet _outside_ the Mutex lock!
// otherwise (if not detached) deadlock will occur
! if(lst.Count() && IsSymbol(lst[0]))
! ext->ToOutAnything(o,GetSymbol(lst[0]),lst.Count()-1,lst.Atoms()+1);
! else if(lst.Count() > 1)
! ext->ToOutList(o,lst);
! else
! ext->ToOutAtom(o,lst[0]);
return true;
}
--- 444,452 ----
{
flext::AtomListStatic<16> lst;
! const t_symbol *sym = xlate?GetPyArgs(lst,obj):GetPyAtom(lst,obj);
! if(sym) {
// call to outlet _outside_ the Mutex lock!
// otherwise (if not detached) deadlock will occur
! ext->ToOutAnything(o,sym,lst.Count(),lst.Atoms());
return true;
}
Index: pyext.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/pyext.cpp,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** pyext.cpp 8 Jul 2005 14:30:31 -0000 1.35
--- pyext.cpp 9 Jul 2005 13:03:34 -0000 1.36
***************
*** 421,425 ****
if(pvar) {
flext::AtomListStatic<16> lst;
! if(GetPyArgs(lst,pvar,1)) {
// dump value to attribute outlet
SetSymbol(lst[0],s);
--- 421,427 ----
if(pvar) {
flext::AtomListStatic<16> lst;
! const t_symbol *sym = GetPyArgs(lst,pvar,1);
! if(sym) {
! FLEXT_ASSERT(!IsAnything(sym));
// dump value to attribute outlet
SetSymbol(lst[0],s);
***************
*** 470,474 ****
bool pyext::CbMethodResort(int n,const t_symbol *s,int argc,const t_atom *argv)
{
! return (pyobj && n >= 1 && work(n,s,argc,argv)) || flext_dsp::CbMethodResort(n,s,argc,argv);
}
--- 472,479 ----
bool pyext::CbMethodResort(int n,const t_symbol *s,int argc,const t_atom *argv)
{
! if(!n)
! return flext_dsp::CbMethodResort(n,s,argc,argv);
!
! return pyobj && work(n,s,argc,argv);
}
Index: py.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/py/source/py.cpp,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** py.cpp 8 Jul 2005 14:30:31 -0000 1.26
--- py.cpp 9 Jul 2005 13:03:34 -0000 1.27
***************
*** 45,49 ****
virtual void Unload();
! bool SetFunction(const char *func);
bool ResetFunction();
--- 45,49 ----
virtual void Unload();
! bool SetFunction(const t_symbol *func);
bool ResetFunction();
***************
*** 123,131 ****
PyThreadState *state = PyLockSys();
! int inlets = -1; // -1 signals non-explicit definition
if(argc && CanbeInt(*argv)) {
inlets = GetAInt(*argv);
argv++,argc--;
}
if(inlets >= 1) {
--- 123,135 ----
PyThreadState *state = PyLockSys();
! int inlets;
if(argc && CanbeInt(*argv)) {
inlets = GetAInt(*argv);
+ if(inlets < 1) inlets = 1;
argv++,argc--;
}
+ else
+ // -1 signals non-explicit definition
+ inlets = -1;
if(inlets >= 1) {
***************
*** 137,141 ****
AddOutAnything();
! const char *funnm = NULL;
// init script module
--- 141,145 ----
AddOutAnything();
! const t_symbol *funnm = NULL;
// init script module
***************
*** 152,164 ****
char *pt = strrchr(modnm,'.'); // search for last dot
if(pt && *pt) {
! funnm = pt+1;
*pt = 0;
- }
! char dir[1024];
! GetModulePath(modnm,dir,sizeof(dir));
! AddToPath(dir);
! ImportModule(modnm);
}
else
--- 156,177 ----
char *pt = strrchr(modnm,'.'); // search for last dot
if(pt && *pt) {
! funnm = MakeSymbol(pt+1);
*pt = 0;
! #if 0
! if(!*modnm)
! // if module name is empty set it to __builtin__
! strcpy(modnm,"__builtin__");
! #endif
! }
! if(*modnm) {
! char dir[1024];
! GetModulePath(modnm,dir,sizeof(dir));
! AddToPath(dir);
! ImportModule(modnm);
! }
! else
! ImportModule(NULL);
}
else
***************
*** 170,174 ****
if(funnm || argc) {
if(!funnm) {
! funnm = GetAString(*argv);
argv++,argc--;
}
--- 183,187 ----
if(funnm || argc) {
if(!funnm) {
! funnm = GetASymbol(*argv);
argv++,argc--;
}
***************
*** 226,230 ****
if(argc) {
! const char *fn = GetAString(*argv);
if(fn)
SetFunction(fn);
--- 239,243 ----
if(argc) {
! const t_symbol *fn = GetASymbol(*argv);
if(fn)
SetFunction(fn);
***************
*** 270,285 ****
bool pyobj::ResetFunction()
{
function = NULL;
! if(!module || !dict)
! post("%s - No module loaded",thisName());
else {
if(funname) {
function = PyDict_GetItemString(dict,(char *)GetString(funname)); // borrowed!!!
if(!function)
PyErr_SetString(PyExc_AttributeError,"Function not found");
! else if(!PyFunction_Check(function)) {
function = NULL;
! PyErr_SetString(PyExc_TypeError,"Attribute is not a function");
}
}
--- 283,304 ----
bool pyobj::ResetFunction()
{
+ // function was borrowed from dict!
function = NULL;
! if(!dict)
! post("%s - No namespace available",thisName());
else {
if(funname) {
function = PyDict_GetItemString(dict,(char *)GetString(funname)); // borrowed!!!
+
+ if(!function && dict == module_dict)
+ // search also in __builtins__
+ function = PyDict_GetItemString(builtins_dict,(char *)GetString(funname)); // borrowed!!!
+
if(!function)
PyErr_SetString(PyExc_AttributeError,"Function not found");
! else if(!PyCallable_Check(function)) {
function = NULL;
! PyErr_SetString(PyExc_TypeError,"Attribute is not callable");
}
}
***************
*** 290,297 ****
}
! bool pyobj::SetFunction(const char *func)
{
if(func) {
! funname = MakeSymbol(func);
withfunction = ResetFunction();
}
--- 309,316 ----
}
! bool pyobj::SetFunction(const t_symbol *func)
{
if(func) {
! funname = func;
withfunction = ResetFunction();
}
***************
*** 308,312 ****
void pyobj::LoadModule()
{
! SetFunction(funname?GetString(funname):NULL);
}
--- 327,331 ----
void pyobj::LoadModule()
{
! SetFunction(funname);
}
***************
*** 343,350 ****
bool pyobj::CbMethodResort(int n,const t_symbol *s,int argc,const t_atom *argv)
{
bool ret = false;
- if(n == 0 && s != sym_bang) goto end;
-
if(objects && n >= 1) {
// store args
--- 362,372 ----
bool pyobj::CbMethodResort(int n,const t_symbol *s,int argc,const t_atom *argv)
{
+ if(n == 0 && s != sym_bang)
+ return flext_base::CbMethodResort(n,s,argc,argv);
+
+ PyThreadState *state = PyLock();
+
bool ret = false;
if(objects && n >= 1) {
// store args
***************
*** 353,401 ****
obj = MakePyArg(s,argc,argv); // steal reference
! if(n > 1) {
! ret = true; // just store, don't trigger
! goto end;
! }
}
! PyThreadState *state = PyLock();
!
! if(withfunction) {
! if(function) {
! Py_INCREF(function);
! PyObject *pargs;
!
! if(objects) {
! int inlets = CntIn()-1;
! pargs = PyTuple_New(inlets);
! for(int i = 0; i < inlets; ++i) {
! Py_INCREF(objects[i]);
! PyTuple_SET_ITEM(pargs,i,objects[i]);
}
! }
! else
! // construct tuple from args
! pargs = MakePyArgs(s,argc,argv);
! ret = gencall(function,pargs); // references are stolen
}
! else
! PyErr_SetString(PyExc_RuntimeError,"No function set");
! }
! else if(module) {
! // no function defined as creation argument -> use message tag
! if(s) {
! PyObject *func = PyObject_GetAttrString(module,const_cast<char *>(GetString(s)));
! if(func) {
! PyObject *pargs = MakePyArgs(sym_list,argc,argv);
! ret = gencall(func,pargs);
}
}
- else
- PyErr_SetString(PyExc_RuntimeError,"No function set");
- }
! Report();
PyUnlock(state);
--- 375,421 ----
obj = MakePyArg(s,argc,argv); // steal reference
! if(n > 1) ret = true; // just store, don't trigger
}
! if(!ret) {
! if(withfunction) {
! if(function) {
! Py_INCREF(function);
! PyObject *pargs;
!
! if(objects) {
! int inlets = CntIn()-1;
! pargs = PyTuple_New(inlets);
! for(int i = 0; i < inlets; ++i) {
! Py_INCREF(objects[i]);
! PyTuple_SET_ITEM(pargs,i,objects[i]);
! }
}
! else
! // construct tuple from args
! // if n == 0, it's a pure bang
! pargs = MakePyArgs(n?s:NULL,argc,argv);
! ret = gencall(function,pargs); // references are stolen
! }
! else
! PyErr_SetString(PyExc_RuntimeError,"No function set");
}
! else if(module) {
! // no function defined as creation argument -> use message tag
! if(s) {
! PyObject *func = PyObject_GetAttrString(module,const_cast<char *>(GetString(s)));
! if(func) {
! PyObject *pargs = MakePyArgs(sym_list,argc,argv);
! ret = gencall(func,pargs);
! }
}
+ else
+ PyErr_SetString(PyExc_RuntimeError,"No function set");
}
! Report();
! }
PyUnlock(state);
***************
*** 403,408 ****
Respond(ret);
! end:
! return ret || flext_base::CbMethodResort(n,s,argc,argv);
}
--- 423,427 ----
Respond(ret);
! return ret;
}
1
0
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5372
Modified Files:
Tag: devel_0_38
SConscript
Log Message:
another tk.h place
Index: SConscript
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -C2 -d -r1.1.2.8 -r1.1.2.9
*** SConscript 7 Jul 2005 19:30:47 -0000 1.1.2.8
--- SConscript 8 Jul 2005 15:16:55 -0000 1.1.2.9
***************
*** 142,146 ****
else:
for i in range (0,10):
! if conf.CheckHeader('tcl8.4/tk.h' % i):
break
else:
--- 142,146 ----
else:
for i in range (0,10):
! if conf.CheckHeader('tcl8.%d/tk.h' % i):
break
else:
1
0
Update of /cvsroot/pure-data/externals/iemlib/src/iemlib2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8236/iemlib/src/iemlib2
Modified Files:
makefile_win
Log Message:
dos-return
Index: makefile_win
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/makefile_win,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** makefile_win 7 Jul 2005 18:50:31 -0000 1.4
--- makefile_win 8 Jul 2005 02:27:24 -0000 1.5
***************
*** 64,68 ****
.c.obj:
-
cl $(PD_WIN_C_FLAGS) $(PD_WIN_INCLUDE_PATH) /c $*.c
--- 64,67 ----
1
0
08 Jul '05
Update of /cvsroot/pure-data/externals/iemlib/src/iem_mp3
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5511/iemlib/src/iem_mp3
Modified Files:
iem_mp3.c sigmp3play.c
Log Message:
dos-return
Index: iem_mp3.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_mp3/iem_mp3.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_mp3.c 2 Jun 2005 18:24:59 -0000 1.2
--- iem_mp3.c 8 Jul 2005 02:22:28 -0000 1.3
***************
*** 1,36 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_mp3 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iem_mp3_class;
!
! static void *iem_mp3_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_mp3_class);
!
! return (x);
! }
!
! void sigmp3play_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_mp3_setup(void)
! {
! iem_mp3_class = class_new(gensym("iem_mp3"), iem_mp3_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigmp3play_setup();
!
! post("iem_mp3 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
--- 1,36 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_mp3 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iem_mp3_class;
!
! static void *iem_mp3_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_mp3_class);
!
! return (x);
! }
!
! void sigmp3play_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_mp3_setup(void)
! {
! iem_mp3_class = class_new(gensym("iem_mp3"), iem_mp3_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigmp3play_setup();
!
! post("iem_mp3 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
Index: sigmp3play.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_mp3/sigmp3play.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigmp3play.c 2 Jun 2005 18:24:59 -0000 1.2
--- sigmp3play.c 8 Jul 2005 02:22:28 -0000 1.3
***************
*** 1,3864 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_mp3 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! /*
! sigmp3play.c - Mpeg Layer III Player for PD
! Version:0.1
! 05-18-2000
! written by Thomas Musil (musil_at_iem.kug.ac.at), Norbert Math (math_at_iem.kug.ac.at)
[...7699 lines suppressed...]
! }
!
! void sigmp3play_setup(void)
! {
! sigmp3play_class = class_new(gensym("mp3play~"), (t_newmethod)sigmp3play_new,
! (t_method)sigmp3play_free, sizeof(t_sigmp3play), 0, 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_dsp, gensym("dsp"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_start, gensym("start"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_ft1,
! gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_stop, gensym("stop"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_pause, gensym("pause"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open_again_at, gensym("open_again_at"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open, gensym("open"), A_DEFSYM, 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open_again, gensym("open_again"), 0);
! class_addmethod(sigmp3play_class, (t_method)sigmp3play_open_at, gensym("open_at"), A_DEFSYM, 0);
! class_sethelpsymbol(sigmp3play_class, gensym("iemhelp/help-mp3play~"));
! /*post("\nmp3play~ written by thomas musil & norbert math\nV 0.1 iem graz
! austria 05 2000\n");*/
! }
1
0
08 Jul '05
Update of /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3830/iemlib/src/iem_t3_lib
Modified Files:
iem_t3_lib.c sigt3_line.c sigt3_sig.c t3_bpe.c t3_delay.c
t3_metro.c t3_timer.c
Log Message:
dos-return
Index: t3_timer.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_timer.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_timer.c 2 Jun 2005 18:25:00 -0000 1.2
--- t3_timer.c 8 Jul 2005 02:19:16 -0000 1.3
***************
*** 1,55 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_timer ------------------------------ */
! static t_class *t3_timer_class;
!
! typedef struct _t3_timer
! {
! t_object x_obj;
! double x_settime;
! double x_t3_off;
! } t_t3_timer;
!
! static void t3_timer_float(t_t3_timer *x, t_float t3_bang)
! {
! x->x_settime = (double)clock_getsystime();
! x->x_t3_off = (double)t3_bang;
! }
!
! static void t3_timer_ft1(t_t3_timer *x, t_float t3_bang)
! {
! outlet_float(x->x_obj.ob_outlet, clock_gettimesince(x->x_settime)
! + (double)t3_bang - x->x_t3_off);
! }
!
! static void *t3_timer_new(void)
! {
! t_t3_timer *x = (t_t3_timer *)pd_new(t3_timer_class);
! t3_timer_float(x, 0.0);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void t3_timer_setup(void)
! {
! t3_timer_class = class_new(gensym("t3_timer"), (t_newmethod)t3_timer_new, 0,
! sizeof(t_t3_timer), 0, 0);
! class_addfloat(t3_timer_class, t3_timer_float);
! class_addmethod(t3_timer_class, (t_method)t3_timer_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(t3_timer_class, gensym("iemhelp/help-t3_timer"));
! }
--- 1,55 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_timer ------------------------------ */
! static t_class *t3_timer_class;
!
! typedef struct _t3_timer
! {
! t_object x_obj;
! double x_settime;
! double x_t3_off;
! } t_t3_timer;
!
! static void t3_timer_float(t_t3_timer *x, t_float t3_bang)
! {
! x->x_settime = (double)clock_getsystime();
! x->x_t3_off = (double)t3_bang;
! }
!
! static void t3_timer_ft1(t_t3_timer *x, t_float t3_bang)
! {
! outlet_float(x->x_obj.ob_outlet, clock_gettimesince(x->x_settime)
! + (double)t3_bang - x->x_t3_off);
! }
!
! static void *t3_timer_new(void)
! {
! t_t3_timer *x = (t_t3_timer *)pd_new(t3_timer_class);
! t3_timer_float(x, 0.0);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void t3_timer_setup(void)
! {
! t3_timer_class = class_new(gensym("t3_timer"), (t_newmethod)t3_timer_new, 0,
! sizeof(t_t3_timer), 0, 0);
! class_addfloat(t3_timer_class, t3_timer_float);
! class_addmethod(t3_timer_class, (t_method)t3_timer_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(t3_timer_class, gensym("iemhelp/help-t3_timer"));
! }
Index: sigt3_sig.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/sigt3_sig.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigt3_sig.c 2 Jun 2005 18:25:00 -0000 1.2
--- sigt3_sig.c 8 Jul 2005 02:19:16 -0000 1.3
***************
*** 1,200 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigt3_sig~ ------------------------------ */
! static t_class *sigt3_sig_class;
!
! typedef struct _sigt3_sig
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_old_val;
! float x_new_val;
! float *x_beg;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! float x_ms2samps;
! float x_ticks2ms;
! } t_sigt3_sig;
!
! static void sigt3_sig_tick(t_sigt3_sig *x)
! {
! float *trans = x->x_beg, val;
! int n = x->x_n, t3_bang_samps, i;
!
! t3_bang_samps = x->x_t3_bang_samps;
! if(!x->x_transient)
! {
! val = x->x_old_val;
! for(i=0; i<t3_bang_samps; i++)
! trans[i] = val;
! x->x_transient = 1;
! }
! val = x->x_old_val = x->x_new_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = val;
! }
!
! static void sigt3_sig_stop(t_sigt3_sig *x)
! {
! clock_unset(x->x_clock);
! x->x_new_val = x->x_old_val;
! }
!
! static void sigt3_sig_list(t_sigt3_sig *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int n = x->x_n, t3_bang_samps, ticks;
!
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! x->x_new_val = (float)atom_getfloatarg(1, ac, av);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / n;
! x->x_t3_bang_samps = t3_bang_samps - n*ticks;
! if(ticks < 1)
! sigt3_sig_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms);
! }
! }
!
! static t_int *sigt3_sig_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! while(n--)
! *out++ = val;
! }
! return (w+4);
! }
!
! static t_int *sigt3_sig_perf8(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]), i;
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! for(i=0; i<n; i+=8, out+=8, trans+=8)
! {
! out[0] = trans[0];
! out[1] = trans[1];
! out[2] = trans[2];
! out[3] = trans[3];
! out[4] = trans[4];
! out[5] = trans[5];
! out[6] = trans[6];
! out[7] = trans[7];
! }
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! for(i=0; i<n; i+=8, out+=8)
! {
! out[0] = val;
! out[1] = val;
! out[2] = val;
! out[3] = val;
! out[4] = val;
! out[5] = val;
! out[6] = val;
! out[7] = val;
! }
! }
! return (w+4);
! }
!
! static void sigt3_sig_dsp(t_sigt3_sig *x, t_signal **sp)
! {
! int i;
! float *trans, val;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = sp[0]->s_n;
! x->x_ms2samps = 0.001*(float)sp[0]->s_sr;
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! i = x->x_n;
! val = x->x_new_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
!
! if((sp[0]->s_n)&7)
! dsp_add(sigt3_sig_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! else
! dsp_add(sigt3_sig_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_sig_free(t_sigt3_sig *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_sig_new(t_floatarg init_val)
! {
! t_sigt3_sig *x = (t_sigt3_sig *)pd_new(sigt3_sig_class);
!
! x->x_new_val = x->x_old_val = init_val;
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_t3_bang_samps = x->x_transient = 0;
! x->x_ms2samps = 0.001 * (float)sys_getsr();
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_sig_tick);
! outlet_new(&x->x_obj, &s_signal);
! return (x);
! }
!
! void sigt3_sig_setup(void)
! {
! sigt3_sig_class = class_new(gensym("t3_sig~"), (t_newmethod)sigt3_sig_new,
! (t_method)sigt3_sig_free, sizeof(t_sigt3_sig), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_stop, gensym("stop"), 0);
! class_addlist(sigt3_sig_class, (t_method)sigt3_sig_list);
! class_sethelpsymbol(sigt3_sig_class, gensym("iemhelp/help-t3_sig~"));
! }
--- 1,200 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigt3_sig~ ------------------------------ */
! static t_class *sigt3_sig_class;
!
! typedef struct _sigt3_sig
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_old_val;
! float x_new_val;
! float *x_beg;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! float x_ms2samps;
! float x_ticks2ms;
! } t_sigt3_sig;
!
! static void sigt3_sig_tick(t_sigt3_sig *x)
! {
! float *trans = x->x_beg, val;
! int n = x->x_n, t3_bang_samps, i;
!
! t3_bang_samps = x->x_t3_bang_samps;
! if(!x->x_transient)
! {
! val = x->x_old_val;
! for(i=0; i<t3_bang_samps; i++)
! trans[i] = val;
! x->x_transient = 1;
! }
! val = x->x_old_val = x->x_new_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = val;
! }
!
! static void sigt3_sig_stop(t_sigt3_sig *x)
! {
! clock_unset(x->x_clock);
! x->x_new_val = x->x_old_val;
! }
!
! static void sigt3_sig_list(t_sigt3_sig *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int n = x->x_n, t3_bang_samps, ticks;
!
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! x->x_new_val = (float)atom_getfloatarg(1, ac, av);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / n;
! x->x_t3_bang_samps = t3_bang_samps - n*ticks;
! if(ticks < 1)
! sigt3_sig_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms);
! }
! }
!
! static t_int *sigt3_sig_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! while(n--)
! *out++ = val;
! }
! return (w+4);
! }
!
! static t_int *sigt3_sig_perf8(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
! int n = (int)(w[3]), i;
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! for(i=0; i<n; i+=8, out+=8, trans+=8)
! {
! out[0] = trans[0];
! out[1] = trans[1];
! out[2] = trans[2];
! out[3] = trans[3];
! out[4] = trans[4];
! out[5] = trans[5];
! out[6] = trans[6];
! out[7] = trans[7];
! }
! x->x_transient = 0;
! }
! else
! {
! float val = x->x_new_val;
!
! for(i=0; i<n; i+=8, out+=8)
! {
! out[0] = val;
! out[1] = val;
! out[2] = val;
! out[3] = val;
! out[4] = val;
! out[5] = val;
! out[6] = val;
! out[7] = val;
! }
! }
! return (w+4);
! }
!
! static void sigt3_sig_dsp(t_sigt3_sig *x, t_signal **sp)
! {
! int i;
! float *trans, val;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = sp[0]->s_n;
! x->x_ms2samps = 0.001*(float)sp[0]->s_sr;
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! i = x->x_n;
! val = x->x_new_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
!
! if((sp[0]->s_n)&7)
! dsp_add(sigt3_sig_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! else
! dsp_add(sigt3_sig_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_sig_free(t_sigt3_sig *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_sig_new(t_floatarg init_val)
! {
! t_sigt3_sig *x = (t_sigt3_sig *)pd_new(sigt3_sig_class);
!
! x->x_new_val = x->x_old_val = init_val;
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_t3_bang_samps = x->x_transient = 0;
! x->x_ms2samps = 0.001 * (float)sys_getsr();
! x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_sig_tick);
! outlet_new(&x->x_obj, &s_signal);
! return (x);
! }
!
! void sigt3_sig_setup(void)
! {
! sigt3_sig_class = class_new(gensym("t3_sig~"), (t_newmethod)sigt3_sig_new,
! (t_method)sigt3_sig_free, sizeof(t_sigt3_sig), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_stop, gensym("stop"), 0);
! class_addlist(sigt3_sig_class, (t_method)sigt3_sig_list);
! class_sethelpsymbol(sigt3_sig_class, gensym("iemhelp/help-t3_sig~"));
! }
Index: t3_delay.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_delay.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_delay.c 2 Jun 2005 18:25:00 -0000 1.2
--- t3_delay.c 8 Jul 2005 02:19:16 -0000 1.3
***************
*** 1,96 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_delay ---------------------------- */
! static t_class *t3_delay_class;
!
! typedef struct _t3_delay
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_deltime;
! double x_ticks2ms;
! double x_t3_bang;
! } t_t3_delay;
!
! static void t3_delay_tick(t_t3_delay *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! }
!
! static void t3_delay_stop(t_t3_delay *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_delay_float(t_t3_delay *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (x->x_deltime + (double)t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_delay_ft1(t_t3_delay *x, t_floatarg f)
! {
! if(f < 0)
! f = 0;
! x->x_deltime = f;
! }
!
! static void t3_delay_list(t_t3_delay *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_delay_ft1(x, atom_getfloatarg(1, ac, av));
! t3_delay_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_delay_free(t_t3_delay *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_delay_new(t_floatarg f)
! {
! t_t3_delay *x = (t_t3_delay *)pd_new(t3_delay_class);
!
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! t3_delay_ft1(x, f);
! x->x_clock = clock_new(x, (t_method)t3_delay_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_delay_setup(void)
! {
! t3_delay_class = class_new(gensym("t3_delay"), (t_newmethod)t3_delay_new,
! (t_method)t3_delay_free, sizeof(t_t3_delay), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)t3_delay_new, gensym("t3_del"), A_DEFFLOAT, 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_stop, gensym("stop"), 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_ft1,
! gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_delay_class, (t_method)t3_delay_float);
! class_addlist(t3_delay_class, (t_method)t3_delay_list);
! class_sethelpsymbol(t3_delay_class, gensym("iemhelp/help-t3_delay"));
! }
--- 1,96 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_delay ---------------------------- */
! static t_class *t3_delay_class;
!
! typedef struct _t3_delay
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_deltime;
! double x_ticks2ms;
! double x_t3_bang;
! } t_t3_delay;
!
! static void t3_delay_tick(t_t3_delay *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! }
!
! static void t3_delay_stop(t_t3_delay *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_delay_float(t_t3_delay *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (x->x_deltime + (double)t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_delay_ft1(t_t3_delay *x, t_floatarg f)
! {
! if(f < 0)
! f = 0;
! x->x_deltime = f;
! }
!
! static void t3_delay_list(t_t3_delay *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_delay_ft1(x, atom_getfloatarg(1, ac, av));
! t3_delay_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_delay_free(t_t3_delay *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_delay_new(t_floatarg f)
! {
! t_t3_delay *x = (t_t3_delay *)pd_new(t3_delay_class);
!
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! t3_delay_ft1(x, f);
! x->x_clock = clock_new(x, (t_method)t3_delay_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_delay_setup(void)
! {
! t3_delay_class = class_new(gensym("t3_delay"), (t_newmethod)t3_delay_new,
! (t_method)t3_delay_free, sizeof(t_t3_delay), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)t3_delay_new, gensym("t3_del"), A_DEFFLOAT, 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_stop, gensym("stop"), 0);
! class_addmethod(t3_delay_class, (t_method)t3_delay_ft1,
! gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_delay_class, (t_method)t3_delay_float);
! class_addlist(t3_delay_class, (t_method)t3_delay_list);
! class_sethelpsymbol(t3_delay_class, gensym("iemhelp/help-t3_delay"));
! }
Index: sigt3_line.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/sigt3_line.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigt3_line.c 2 Jun 2005 18:25:00 -0000 1.2
--- sigt3_line.c 8 Jul 2005 02:19:16 -0000 1.3
***************
*** 1,279 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_line~ ------------------------------ */
! static t_class *sigt3_line_class;
!
! typedef struct _sigt3_line
! {
! t_object x_obj;
! t_clock *x_clock;
! float *x_beg;
! double x_cur_val;
! double x_dst_val;
! double x_inlet_val;
! double x_inc64;
! double x_inc;
! double x_ms2samps;
! double x_ticks2ms;
! double x_inlet_time;
! double x_dst_time;
! int x_cur_samps;
! int x_dur_samps;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! } t_sigt3_line;
!
! static void sigt3_line_nontransient(float *vec, t_sigt3_line *x, int n)
! {
! int cur_samps = x->x_cur_samps, i;
! double inc = x->x_inc;
! double cur_val = x->x_cur_val;
!
! if(cur_samps)
! {
! if(cur_samps > n)
! {
! x->x_cur_samps -= n;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val += x->x_inc64;
! }
! else if(cur_samps == n)
! {
! x->x_cur_samps = 0;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! }
! else
! {
! for(i=0; i<cur_samps; i++)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = cur_val = x->x_dst_val;
! for(i=cur_samps; i<n; i++)
! *vec++ = (float)cur_val;
! x->x_cur_samps = 0;
! }
! }
! else
! {
! while(n--)
! *vec++ = (float)cur_val;
! }
! }
!
! static t_int *sigt3_line_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_line *x = (t_sigt3_line *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! sigt3_line_nontransient(out, x, n);
! return(w+4);
! }
!
! static void sigt3_line_tick(t_sigt3_line *x)
! {
! float *trans = x->x_beg;
! int n = x->x_n, t3_bang_samps, cur_samps, i;
! double inc, cur_val;
!
! if(!x->x_transient)
! sigt3_line_nontransient(trans, x, n);
! t3_bang_samps = x->x_t3_bang_samps;
! x->x_dst_val = x->x_inlet_val;
! if(x->x_inlet_time <= 0.0)
! {
! x->x_inlet_time = 0.0;
! x->x_dst_time = 0.0;
! x->x_dur_samps = 0;
! x->x_cur_samps = 0;
! cur_val = x->x_cur_val = x->x_dst_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = (float)cur_val;
! }
! else
! {
! int diff, end;
!
! x->x_dst_time = x->x_inlet_time;
! x->x_inlet_time = 0.0;
! cur_samps = (int)(x->x_dst_time * x->x_ms2samps);
! if(!cur_samps)
! cur_samps = 1;
! x->x_dur_samps = cur_samps;
! x->x_cur_samps = cur_samps;
! cur_val = x->x_cur_val = (double)trans[t3_bang_samps];
! inc = x->x_inc = (x->x_dst_val - cur_val)/(double)cur_samps;
! x->x_inc64 = (double)x->x_n * inc;
! diff = n - t3_bang_samps;
! if(cur_samps > diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val += (double)diff * inc;
! x->x_cur_samps -= diff;
! }
! else if(cur_samps == diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! }
! else
! {
! end = t3_bang_samps + cur_samps;
! for(i=t3_bang_samps; i<end; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! cur_val = x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! for(i=end; i<n; i++)
! trans[i] = (float)cur_val;
! }
! }
! x->x_transient = 1;
! }
!
! static void sigt3_line_list(t_sigt3_line *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int t3_bang_samps, ticks;
! double time;
!
! x->x_inlet_val = (double)atom_getfloatarg(1, ac, av);
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / x->x_n;
! x->x_t3_bang_samps = t3_bang_samps - x->x_n * ticks;
! if((ac >= 3)&&IS_A_FLOAT(av,2))
! {
! time = (double)atom_getfloatarg(2, ac, av);
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = time;
! }
! if(ticks < 1)
! sigt3_line_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * x->x_ticks2ms);
! }
! }
!
! static void sigt3_line_ft1(t_sigt3_line *x, t_float time)
! {
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = (double)time;
! }
!
! static void sigt3_line_stop(t_sigt3_line *x)
! {
! clock_unset(x->x_clock);
! x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inc = x->x_inc64 = x->x_inlet_time = x->x_dst_time = 0.0;
! }
!
! static void sigt3_line_dsp(t_sigt3_line *x, t_signal **sp)
! {
! int i;
! float val, *trans;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = (int)sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = (int)sp[0]->s_n;
! i = x->x_n;
! val = x->x_cur_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
! x->x_ms2samps = 0.001*(double)sp[0]->s_sr;
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! dsp_add(sigt3_line_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_line_free(t_sigt3_line *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_line_new(t_floatarg init_val)
! {
! t_sigt3_line *x = (t_sigt3_line *)pd_new(sigt3_line_class);
! int i;
!
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_inlet_val = x->x_cur_val = x->x_dst_val = init_val;
! x->x_t3_bang_samps = x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inlet_time = x->x_dst_time = 0.0;
! x->x_inc64 = x->x_inc = 0.0;
! x->x_ms2samps = 0.001 * (double)sys_getsr();
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_line_tick);
! outlet_new(&x->x_obj, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void sigt3_line_setup(void)
! {
! sigt3_line_class = class_new(gensym("t3_line~"), (t_newmethod)sigt3_line_new,
! (t_method)sigt3_line_free, sizeof(t_sigt3_line), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_stop, gensym("stop"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addlist(sigt3_line_class, (t_method)sigt3_line_list);
! class_sethelpsymbol(sigt3_line_class, gensym("iemhelp/help-t3_line~"));
! }
--- 1,279 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- t3_line~ ------------------------------ */
! static t_class *sigt3_line_class;
!
! typedef struct _sigt3_line
! {
! t_object x_obj;
! t_clock *x_clock;
! float *x_beg;
! double x_cur_val;
! double x_dst_val;
! double x_inlet_val;
! double x_inc64;
! double x_inc;
! double x_ms2samps;
! double x_ticks2ms;
! double x_inlet_time;
! double x_dst_time;
! int x_cur_samps;
! int x_dur_samps;
! int x_n;
! int x_t3_bang_samps;
! int x_transient;
! } t_sigt3_line;
!
! static void sigt3_line_nontransient(float *vec, t_sigt3_line *x, int n)
! {
! int cur_samps = x->x_cur_samps, i;
! double inc = x->x_inc;
! double cur_val = x->x_cur_val;
!
! if(cur_samps)
! {
! if(cur_samps > n)
! {
! x->x_cur_samps -= n;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val += x->x_inc64;
! }
! else if(cur_samps == n)
! {
! x->x_cur_samps = 0;
! while(n--)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! }
! else
! {
! for(i=0; i<cur_samps; i++)
! {
! cur_val += inc;
! *vec++ = (float)cur_val;
! }
! x->x_cur_val = cur_val = x->x_dst_val;
! for(i=cur_samps; i<n; i++)
! *vec++ = (float)cur_val;
! x->x_cur_samps = 0;
! }
! }
! else
! {
! while(n--)
! *vec++ = (float)cur_val;
! }
! }
!
! static t_int *sigt3_line_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigt3_line *x = (t_sigt3_line *)(w[2]);
! int n = (int)(w[3]);
!
! if(x->x_transient)
! {
! float *trans = x->x_beg;
!
! while(n--)
! *out++ = *trans++;
! x->x_transient = 0;
! }
! else
! sigt3_line_nontransient(out, x, n);
! return(w+4);
! }
!
! static void sigt3_line_tick(t_sigt3_line *x)
! {
! float *trans = x->x_beg;
! int n = x->x_n, t3_bang_samps, cur_samps, i;
! double inc, cur_val;
!
! if(!x->x_transient)
! sigt3_line_nontransient(trans, x, n);
! t3_bang_samps = x->x_t3_bang_samps;
! x->x_dst_val = x->x_inlet_val;
! if(x->x_inlet_time <= 0.0)
! {
! x->x_inlet_time = 0.0;
! x->x_dst_time = 0.0;
! x->x_dur_samps = 0;
! x->x_cur_samps = 0;
! cur_val = x->x_cur_val = x->x_dst_val;
! for(i=t3_bang_samps; i<n; i++)
! trans[i] = (float)cur_val;
! }
! else
! {
! int diff, end;
!
! x->x_dst_time = x->x_inlet_time;
! x->x_inlet_time = 0.0;
! cur_samps = (int)(x->x_dst_time * x->x_ms2samps);
! if(!cur_samps)
! cur_samps = 1;
! x->x_dur_samps = cur_samps;
! x->x_cur_samps = cur_samps;
! cur_val = x->x_cur_val = (double)trans[t3_bang_samps];
! inc = x->x_inc = (x->x_dst_val - cur_val)/(double)cur_samps;
! x->x_inc64 = (double)x->x_n * inc;
! diff = n - t3_bang_samps;
! if(cur_samps > diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val += (double)diff * inc;
! x->x_cur_samps -= diff;
! }
! else if(cur_samps == diff)
! {
! for(i=t3_bang_samps; i<n; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! }
! else
! {
! end = t3_bang_samps + cur_samps;
! for(i=t3_bang_samps; i<end; i++)
! {
! cur_val += inc;
! trans[i] = (float)cur_val;
! }
! cur_val = x->x_cur_val = x->x_dst_val;
! x->x_cur_samps = 0;
! for(i=end; i<n; i++)
! trans[i] = (float)cur_val;
! }
! }
! x->x_transient = 1;
! }
!
! static void sigt3_line_list(t_sigt3_line *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! int t3_bang_samps, ticks;
! double time;
!
! x->x_inlet_val = (double)atom_getfloatarg(1, ac, av);
! t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
! if(t3_bang_samps < 0)
! t3_bang_samps = 0;
! ticks = t3_bang_samps / x->x_n;
! x->x_t3_bang_samps = t3_bang_samps - x->x_n * ticks;
! if((ac >= 3)&&IS_A_FLOAT(av,2))
! {
! time = (double)atom_getfloatarg(2, ac, av);
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = time;
! }
! if(ticks < 1)
! sigt3_line_tick(x);
! else
! clock_delay(x->x_clock, (double)ticks * x->x_ticks2ms);
! }
! }
!
! static void sigt3_line_ft1(t_sigt3_line *x, t_float time)
! {
! if(time < 0.0)
! time = 0.0;
! x->x_inlet_time = (double)time;
! }
!
! static void sigt3_line_stop(t_sigt3_line *x)
! {
! clock_unset(x->x_clock);
! x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inc = x->x_inc64 = x->x_inlet_time = x->x_dst_time = 0.0;
! }
!
! static void sigt3_line_dsp(t_sigt3_line *x, t_signal **sp)
! {
! int i;
! float val, *trans;
!
! if(sp[0]->s_n > x->x_n)
! {
! freebytes(x->x_beg, x->x_n*sizeof(float));
! x->x_n = (int)sp[0]->s_n;
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! }
! else
! x->x_n = (int)sp[0]->s_n;
! i = x->x_n;
! val = x->x_cur_val;
! trans = x->x_beg;
! while(i--)
! *trans++ = val;
! x->x_ms2samps = 0.001*(double)sp[0]->s_sr;
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! dsp_add(sigt3_line_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigt3_line_free(t_sigt3_line *x)
! {
! if(x->x_beg)
! freebytes(x->x_beg, x->x_n*sizeof(float));
! clock_free(x->x_clock);
! }
!
! static void *sigt3_line_new(t_floatarg init_val)
! {
! t_sigt3_line *x = (t_sigt3_line *)pd_new(sigt3_line_class);
! int i;
!
! x->x_n = (int)sys_getblksize();
! x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
! x->x_inlet_val = x->x_cur_val = x->x_dst_val = init_val;
! x->x_t3_bang_samps = x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
! x->x_inlet_time = x->x_dst_time = 0.0;
! x->x_inc64 = x->x_inc = 0.0;
! x->x_ms2samps = 0.001 * (double)sys_getsr();
! x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
! x->x_clock = clock_new(x, (t_method)sigt3_line_tick);
! outlet_new(&x->x_obj, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void sigt3_line_setup(void)
! {
! sigt3_line_class = class_new(gensym("t3_line~"), (t_newmethod)sigt3_line_new,
! (t_method)sigt3_line_free, sizeof(t_sigt3_line), 0, A_DEFFLOAT, 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_dsp, gensym("dsp"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_stop, gensym("stop"), 0);
! class_addmethod(sigt3_line_class, (t_method)sigt3_line_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addlist(sigt3_line_class, (t_method)sigt3_line_list);
! class_sethelpsymbol(sigt3_line_class, gensym("iemhelp/help-t3_line~"));
! }
Index: t3_bpe.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_bpe.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_bpe.c 2 Jun 2005 18:25:00 -0000 1.2
--- t3_bpe.c 8 Jul 2005 02:19:16 -0000 1.3
***************
*** 1,141 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_bpe ---------------------------- */
! static t_class *t3_bpe_class;
!
! typedef struct _t3_bpe
! {
! t_object x_obj;
! t_atom x_at[2];
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! double x_t3_bang;
! double x_ticks2ms;
! int x_hit;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_t3_bpe;
!
! static void t3_bpe_stop(t_t3_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_bpe_tick(t_t3_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val;
! double dticks, time;
! int iticks;
!
! if(x->x_curindex >= x->x_curnum)
! {
! t3_bpe_stop(x);
! outlet_float(x->x_out_finished, x->x_t3_bang);
! }
! else
! {
! x->x_hit = 0;
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = (double)atom_getfloat(vec);
! outlet_float(x->x_out_time, (float)time);
! x->x_at[1].a_w.w_float = val;
! x->x_at[0].a_w.w_float = x->x_t3_bang;
! outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
! dticks = (time + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_curindex += 2;
! }
! }
!
! static void t3_bpe_float(t_t3_bpe *x, t_floatarg f)
! {
! double dticks;
! int iticks;
!
! if(x->x_curnum)
! {
! x->x_curindex = 0;
! dticks = (double)f/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
! }
!
! static void t3_bpe_list(t_t3_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void t3_bpe_free(t_t3_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *t3_bpe_new(void)
! {
! t_t3_bpe *x = (t_t3_bpe *)pd_new(t3_bpe_class);
!
! x->x_t3_bang = 0.0;
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_hit = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)t3_bpe_tick);
! outlet_new(&x->x_obj, &s_list);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_float);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! return (x);
! }
!
! void t3_bpe_setup(void)
! {
! t3_bpe_class = class_new(gensym("t3_bpe"), (t_newmethod)t3_bpe_new,
! (t_method)t3_bpe_free, sizeof(t_t3_bpe), 0, 0);
! class_addmethod(t3_bpe_class, (t_method)t3_bpe_stop, gensym("stop"), 0);
! class_addfloat(t3_bpe_class, (t_method)t3_bpe_float);
! class_addlist(t3_bpe_class, (t_method)t3_bpe_list);
! class_sethelpsymbol(t3_bpe_class, gensym("iemhelp/help-t3_bpe"));
! }
--- 1,141 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_bpe ---------------------------- */
! static t_class *t3_bpe_class;
!
! typedef struct _t3_bpe
! {
! t_object x_obj;
! t_atom x_at[2];
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! double x_t3_bang;
! double x_ticks2ms;
! int x_hit;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_t3_bpe;
!
! static void t3_bpe_stop(t_t3_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_bpe_tick(t_t3_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val;
! double dticks, time;
! int iticks;
!
! if(x->x_curindex >= x->x_curnum)
! {
! t3_bpe_stop(x);
! outlet_float(x->x_out_finished, x->x_t3_bang);
! }
! else
! {
! x->x_hit = 0;
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = (double)atom_getfloat(vec);
! outlet_float(x->x_out_time, (float)time);
! x->x_at[1].a_w.w_float = val;
! x->x_at[0].a_w.w_float = x->x_t3_bang;
! outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
! dticks = (time + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_curindex += 2;
! }
! }
!
! static void t3_bpe_float(t_t3_bpe *x, t_floatarg f)
! {
! double dticks;
! int iticks;
!
! if(x->x_curnum)
! {
! x->x_curindex = 0;
! dticks = (double)f/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
! }
!
! static void t3_bpe_list(t_t3_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void t3_bpe_free(t_t3_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *t3_bpe_new(void)
! {
! t_t3_bpe *x = (t_t3_bpe *)pd_new(t3_bpe_class);
!
! x->x_t3_bang = 0.0;
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_hit = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)t3_bpe_tick);
! outlet_new(&x->x_obj, &s_list);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_float);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! return (x);
! }
!
! void t3_bpe_setup(void)
! {
! t3_bpe_class = class_new(gensym("t3_bpe"), (t_newmethod)t3_bpe_new,
! (t_method)t3_bpe_free, sizeof(t_t3_bpe), 0, 0);
! class_addmethod(t3_bpe_class, (t_method)t3_bpe_stop, gensym("stop"), 0);
! class_addfloat(t3_bpe_class, (t_method)t3_bpe_float);
! class_addlist(t3_bpe_class, (t_method)t3_bpe_list);
! class_sethelpsymbol(t3_bpe_class, gensym("iemhelp/help-t3_bpe"));
! }
Index: t3_metro.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_metro.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_metro.c 2 Jun 2005 18:25:00 -0000 1.2
--- t3_metro.c 8 Jul 2005 02:19:16 -0000 1.3
***************
*** 1,120 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_metro ---------------------------- */
! static t_class *t3_metro_class;
!
! typedef struct _t3_metro
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_metrotime;
! double x_ticks2ms;
! double x_t3_bang;
! int x_hit;
! void *x_out_next;
! } t_t3_metro;
!
! static void t3_metro_stop(t_t3_metro *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_metro_tick(t_t3_metro *x)
! {
! double dticks;
! int iticks;
!
! x->x_hit = 0;
! outlet_float(x->x_out_next, x->x_metrotime);
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! dticks = (x->x_metrotime + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_metro_float(t_t3_metro *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (double)t3_bang/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
!
! static void t3_metro_start(t_t3_metro *x, t_floatarg f)
! {
! t3_metro_float(x, f);
! x->x_hit = 1;
! }
!
! static void t3_metro_ft1(t_t3_metro *x, t_floatarg f)
! {
! if(f < 0.01) f = 0.01;
! x->x_metrotime = (double)f;
! }
!
! static void t3_metro_list(t_t3_metro *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_metro_ft1(x, atom_getfloatarg(1, ac, av));
! t3_metro_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_metro_free(t_t3_metro *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_metro_new(t_symbol *s, int ac, t_atom *av)
! {
! t_t3_metro *x = (t_t3_metro *)pd_new(t3_metro_class);
!
! x->x_metrotime = 10.0;
! x->x_t3_bang = 0.0;
! x->x_hit = 0;
! if((ac == 1)&&IS_A_FLOAT(av,0))
! {
! t3_metro_ft1(x, atom_getfloatarg(0, ac, av));
! }
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_clock = clock_new(x, (t_method)t3_metro_tick);
! outlet_new(&x->x_obj, &s_float);
! x->x_out_next = outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_metro_setup(void)
! {
! t3_metro_class = class_new(gensym("t3_metro"), (t_newmethod)t3_metro_new,
! (t_method)t3_metro_free, sizeof(t_t3_metro), 0, A_GIMME, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_stop, gensym("stop"), 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_start, gensym("start"), A_FLOAT, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_metro_class, (t_method)t3_metro_float);
! class_addlist(t3_metro_class, (t_method)t3_metro_list);
! class_sethelpsymbol(t3_metro_class, gensym("iemhelp/help-t3_metro"));
! }
--- 1,120 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ t3_metro ---------------------------- */
! static t_class *t3_metro_class;
!
! typedef struct _t3_metro
! {
! t_object x_obj;
! t_clock *x_clock;
! double x_metrotime;
! double x_ticks2ms;
! double x_t3_bang;
! int x_hit;
! void *x_out_next;
! } t_t3_metro;
!
! static void t3_metro_stop(t_t3_metro *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void t3_metro_tick(t_t3_metro *x)
! {
! double dticks;
! int iticks;
!
! x->x_hit = 0;
! outlet_float(x->x_out_next, x->x_metrotime);
! outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! dticks = (x->x_metrotime + x->x_t3_bang)/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! if(!x->x_hit)
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
!
! static void t3_metro_float(t_t3_metro *x, t_floatarg t3_bang)
! {
! double dticks;
! int iticks;
!
! if(t3_bang < 0)
! t3_bang = 0;
! dticks = (double)t3_bang/x->x_ticks2ms;
! iticks = (int)dticks;
! x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! x->x_hit = 1;
! }
!
! static void t3_metro_start(t_t3_metro *x, t_floatarg f)
! {
! t3_metro_float(x, f);
! x->x_hit = 1;
! }
!
! static void t3_metro_ft1(t_t3_metro *x, t_floatarg f)
! {
! if(f < 0.01) f = 0.01;
! x->x_metrotime = (double)f;
! }
!
! static void t3_metro_list(t_t3_metro *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
! {
! t3_metro_ft1(x, atom_getfloatarg(1, ac, av));
! t3_metro_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void t3_metro_free(t_t3_metro *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *t3_metro_new(t_symbol *s, int ac, t_atom *av)
! {
! t_t3_metro *x = (t_t3_metro *)pd_new(t3_metro_class);
!
! x->x_metrotime = 10.0;
! x->x_t3_bang = 0.0;
! x->x_hit = 0;
! if((ac == 1)&&IS_A_FLOAT(av,0))
! {
! t3_metro_ft1(x, atom_getfloatarg(0, ac, av));
! }
! x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
! x->x_clock = clock_new(x, (t_method)t3_metro_tick);
! outlet_new(&x->x_obj, &s_float);
! x->x_out_next = outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
! return (x);
! }
!
! void t3_metro_setup(void)
! {
! t3_metro_class = class_new(gensym("t3_metro"), (t_newmethod)t3_metro_new,
! (t_method)t3_metro_free, sizeof(t_t3_metro), 0, A_GIMME, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_stop, gensym("stop"), 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_start, gensym("start"), A_FLOAT, 0);
! class_addmethod(t3_metro_class, (t_method)t3_metro_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addfloat(t3_metro_class, (t_method)t3_metro_float);
! class_addlist(t3_metro_class, (t_method)t3_metro_list);
! class_sethelpsymbol(t3_metro_class, gensym("iemhelp/help-t3_metro"));
! }
Index: iem_t3_lib.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/iem_t3_lib.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_t3_lib.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_t3_lib.c 8 Jul 2005 02:19:16 -0000 1.3
***************
*** 1,66 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iem_t3_lib_class;
!
! static void *iem_t3_lib_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_t3_lib_class);
!
! return (x);
! }
!
! void sigt3_line_setup(void);
! void sigt3_sig_setup(void);
! void t3_bpe_setup(void);
! void t3_delay_setup(void);
! void t3_metro_setup(void);
! void t3_timer_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_t3_lib_setup(void)
! {
! iem_t3_lib_class = class_new(gensym("iem_t3_lib"), iem_t3_lib_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigt3_line_setup();
! sigt3_sig_setup();
! t3_bpe_setup();
! t3_delay_setup();
! t3_metro_setup();
! t3_timer_setup();
!
! post("iem_t3_lib (R-1.16) library loaded! (c) Gerhard Eckel, Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
--- 1,66 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iem_t3_lib written by Gerhard Eckel, Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iem_t3_lib_class;
!
! static void *iem_t3_lib_new(void)
! {
! t_object *x = (t_object *)pd_new(iem_t3_lib_class);
!
! return (x);
! }
!
! void sigt3_line_setup(void);
! void sigt3_sig_setup(void);
! void t3_bpe_setup(void);
! void t3_delay_setup(void);
! void t3_metro_setup(void);
! void t3_timer_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iem_t3_lib_setup(void)
! {
! iem_t3_lib_class = class_new(gensym("iem_t3_lib"), iem_t3_lib_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! sigt3_line_setup();
! sigt3_sig_setup();
! t3_bpe_setup();
! t3_delay_setup();
! t3_metro_setup();
! t3_timer_setup();
!
! post("iem_t3_lib (R-1.16) library loaded! (c) Gerhard Eckel, Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
1
0
Update of /cvsroot/pure-data/externals/iemlib/src/iemlib1
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32679/iemlib/src/iemlib1
Modified Files:
makefile_win
Log Message:
dos-return
Index: makefile_win
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/makefile_win,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** makefile_win 7 Jul 2005 18:50:01 -0000 1.3
--- makefile_win 8 Jul 2005 02:13:24 -0000 1.4
***************
*** 47,50 ****
--- 47,51 ----
.c.obj:
cl $(PD_WIN_C_FLAGS) $(PD_WIN_INCLUDE_PATH) /c $*.c
+
..\..\lib\iemlib1.dll: $(OBJ)
link $(PD_WIN_L_FLAGS) /dll /export:iemlib1_setup \
1
0
Update of /cvsroot/pure-data/externals/iemlib/src/iemlib1
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30045/iemlib/src/iemlib1
Modified Files:
biquad_freq_resp.c db2v.c f2note.c forpp.c gate.c iemlib1.c
sigFIR.c sigfilter.c sighml_shelf.c sigiem_cot4.c
sigiem_delay.c sigiem_pow4.c sigiem_sqrt4.c siglp1_t.c
sigmov_avrg_kern.c sigpara_bp2.c sigpeakenv.c sigprvu.c
sigpvu.c sigrvu.c sigsin_phase.c sigvcf_filter.c
soundfile_info.c split.c v2db.c
Log Message:
dos-return
Index: sigFIR.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigFIR.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigFIR.c 2 Jun 2005 18:23:54 -0000 1.2
--- sigFIR.c 8 Jul 2005 02:08:49 -0000 1.3
***************
*** 1,177 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- FIR~ - FIR-filter with table-coef ----------- */
!
! typedef struct sigFIR
! {
! t_object x_obj;
! float *x_coef_beg;
! float *x_history_beg;
! int x_rw_index;
! int x_fir_order;
! t_symbol *x_table_name;
! float x_msi;
! } t_sigFIR;
!
! t_class *sigFIR_class;
!
! static t_int *sigFIR_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigFIR *x = (t_sigFIR *)(w[3]);
! int n = (t_int)(w[4]);
! int rw_index = x->x_rw_index;
! int i, j;
! int order = x->x_fir_order;
! int ord16 = order / 16;
! float sum=0.0f;
! float *coef = x->x_coef_beg;
! float *write_hist1=x->x_history_beg;
! float *write_hist2;
! float *read_hist;
! float *coef_vec;
! float *hist_vec;
!
! if(!coef)
! goto sigFIRperfzero;
!
! write_hist1 = x->x_history_beg;
! write_hist2 = write_hist1 + order;
! read_hist = write_hist2;
!
! for(i=0; i<n; i++)
! {
! write_hist1[rw_index] = in[i];
! write_hist2[rw_index] = in[i];
!
! sum = 0.0f;
! coef_vec = coef;
! hist_vec = &read_hist[rw_index];
! for(j=0; j<ord16; j++)
! {
! sum += coef_vec[0] * hist_vec[0];
! sum += coef_vec[1] * hist_vec[-1];
! sum += coef_vec[2] * hist_vec[-2];
! sum += coef_vec[3] * hist_vec[-3];
! sum += coef_vec[4] * hist_vec[-4];
! sum += coef_vec[5] * hist_vec[-5];
! sum += coef_vec[6] * hist_vec[-6];
! sum += coef_vec[7] * hist_vec[-7];
! sum += coef_vec[8] * hist_vec[-8];
! sum += coef_vec[9] * hist_vec[-9];
! sum += coef_vec[10] * hist_vec[-10];
! sum += coef_vec[11] * hist_vec[-11];
! sum += coef_vec[12] * hist_vec[-12];
! sum += coef_vec[13] * hist_vec[-13];
! sum += coef_vec[14] * hist_vec[-14];
! sum += coef_vec[15] * hist_vec[-15];
! coef_vec += 16;
! hist_vec -= 16;
! }
! for(j=ord16*16; j<order; j++)
! {
! sum += coef[j] * read_hist[rw_index-j];
! }
! out[i] = sum;
!
! rw_index++;
! if(rw_index >= order)
! rw_index -= order;
! }
!
! x->x_rw_index = rw_index;
! return(w+5);
!
! sigFIRperfzero:
!
! while(n--)
! *out++ = 0.0f;
! return(w+5);
! }
!
! void sigFIR_set(t_sigFIR *x, t_symbol *table_name, t_floatarg forder)
! {
! t_garray *ga;
! int table_size;
! int order = (int)forder;
!
! x->x_table_name = table_name;
! if(!(ga = (t_garray *)pd_findbyclass(x->x_table_name, garray_class)))
! {
! if(*table_name->s_name)
! error("FIR~: %s: no such table~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(!garray_getfloatarray(ga, &table_size, &x->x_coef_beg))
! {
! error("%s: bad template for FIR~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(table_size < order)
! {
! error("FIR~: tablesize %d < order %d !!!!", table_size, order);
! x->x_coef_beg = 0;
! }
! else
! garray_usedindsp(ga);
! x->x_rw_index = 0;
! if(order > x->x_fir_order)/* resize */
! x->x_history_beg = (float *)resizebytes(x->x_history_beg, 2*x->x_fir_order*sizeof(float), 2*order*sizeof(float));
! x->x_fir_order = order;
! }
!
! static void sigFIR_dsp(t_sigFIR *x, t_signal **sp)
! {
! sigFIR_set(x, x->x_table_name, x->x_fir_order);
! dsp_add(sigFIR_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigFIR_new(t_symbol *ref, t_floatarg np)
! {
! t_sigFIR *x = (t_sigFIR *)pd_new(sigFIR_class);
!
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_table_name = ref;
! x->x_coef_beg = 0;
! if((int)np < 1)
! np = 1.0;
! x->x_fir_order = (int)np;
! x->x_history_beg = (float *)getbytes((2*x->x_fir_order)*sizeof(float));
! x->x_rw_index = 0;
! return(x);
! }
!
! static void sigFIR_free(t_sigFIR *x)
! {
! if(x->x_history_beg)
! freebytes(x->x_history_beg, (2*x->x_fir_order)*sizeof(float));
! }
!
! void sigFIR_setup(void)
! {
! sigFIR_class = class_new(gensym("FIR~"), (t_newmethod)sigFIR_new,
! (t_method)sigFIR_free, sizeof(t_sigFIR), 0, A_DEFSYM, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigFIR_class, t_sigFIR, x_msi);
! class_addmethod(sigFIR_class, (t_method)sigFIR_dsp, gensym("dsp"), 0);
! class_addmethod(sigFIR_class, (t_method)sigFIR_set,
! gensym("set"), A_SYMBOL, A_FLOAT, 0);
! class_sethelpsymbol(sigFIR_class, gensym("iemhelp/help-FIR~"));
! }
--- 1,177 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- FIR~ - FIR-filter with table-coef ----------- */
!
! typedef struct sigFIR
! {
! t_object x_obj;
! float *x_coef_beg;
! float *x_history_beg;
! int x_rw_index;
! int x_fir_order;
! t_symbol *x_table_name;
! float x_msi;
! } t_sigFIR;
!
! t_class *sigFIR_class;
!
! static t_int *sigFIR_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigFIR *x = (t_sigFIR *)(w[3]);
! int n = (t_int)(w[4]);
! int rw_index = x->x_rw_index;
! int i, j;
! int order = x->x_fir_order;
! int ord16 = order / 16;
! float sum=0.0f;
! float *coef = x->x_coef_beg;
! float *write_hist1=x->x_history_beg;
! float *write_hist2;
! float *read_hist;
! float *coef_vec;
! float *hist_vec;
!
! if(!coef)
! goto sigFIRperfzero;
!
! write_hist1 = x->x_history_beg;
! write_hist2 = write_hist1 + order;
! read_hist = write_hist2;
!
! for(i=0; i<n; i++)
! {
! write_hist1[rw_index] = in[i];
! write_hist2[rw_index] = in[i];
!
! sum = 0.0f;
! coef_vec = coef;
! hist_vec = &read_hist[rw_index];
! for(j=0; j<ord16; j++)
! {
! sum += coef_vec[0] * hist_vec[0];
! sum += coef_vec[1] * hist_vec[-1];
! sum += coef_vec[2] * hist_vec[-2];
! sum += coef_vec[3] * hist_vec[-3];
! sum += coef_vec[4] * hist_vec[-4];
! sum += coef_vec[5] * hist_vec[-5];
! sum += coef_vec[6] * hist_vec[-6];
! sum += coef_vec[7] * hist_vec[-7];
! sum += coef_vec[8] * hist_vec[-8];
! sum += coef_vec[9] * hist_vec[-9];
! sum += coef_vec[10] * hist_vec[-10];
! sum += coef_vec[11] * hist_vec[-11];
! sum += coef_vec[12] * hist_vec[-12];
! sum += coef_vec[13] * hist_vec[-13];
! sum += coef_vec[14] * hist_vec[-14];
! sum += coef_vec[15] * hist_vec[-15];
! coef_vec += 16;
! hist_vec -= 16;
! }
! for(j=ord16*16; j<order; j++)
! {
! sum += coef[j] * read_hist[rw_index-j];
! }
! out[i] = sum;
!
! rw_index++;
! if(rw_index >= order)
! rw_index -= order;
! }
!
! x->x_rw_index = rw_index;
! return(w+5);
!
! sigFIRperfzero:
!
! while(n--)
! *out++ = 0.0f;
! return(w+5);
! }
!
! void sigFIR_set(t_sigFIR *x, t_symbol *table_name, t_floatarg forder)
! {
! t_garray *ga;
! int table_size;
! int order = (int)forder;
!
! x->x_table_name = table_name;
! if(!(ga = (t_garray *)pd_findbyclass(x->x_table_name, garray_class)))
! {
! if(*table_name->s_name)
! error("FIR~: %s: no such table~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(!garray_getfloatarray(ga, &table_size, &x->x_coef_beg))
! {
! error("%s: bad template for FIR~", x->x_table_name->s_name);
! x->x_coef_beg = 0;
! }
! else if(table_size < order)
! {
! error("FIR~: tablesize %d < order %d !!!!", table_size, order);
! x->x_coef_beg = 0;
! }
! else
! garray_usedindsp(ga);
! x->x_rw_index = 0;
! if(order > x->x_fir_order)/* resize */
! x->x_history_beg = (float *)resizebytes(x->x_history_beg, 2*x->x_fir_order*sizeof(float), 2*order*sizeof(float));
! x->x_fir_order = order;
! }
!
! static void sigFIR_dsp(t_sigFIR *x, t_signal **sp)
! {
! sigFIR_set(x, x->x_table_name, x->x_fir_order);
! dsp_add(sigFIR_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigFIR_new(t_symbol *ref, t_floatarg np)
! {
! t_sigFIR *x = (t_sigFIR *)pd_new(sigFIR_class);
!
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_table_name = ref;
! x->x_coef_beg = 0;
! if((int)np < 1)
! np = 1.0;
! x->x_fir_order = (int)np;
! x->x_history_beg = (float *)getbytes((2*x->x_fir_order)*sizeof(float));
! x->x_rw_index = 0;
! return(x);
! }
!
! static void sigFIR_free(t_sigFIR *x)
! {
! if(x->x_history_beg)
! freebytes(x->x_history_beg, (2*x->x_fir_order)*sizeof(float));
! }
!
! void sigFIR_setup(void)
! {
! sigFIR_class = class_new(gensym("FIR~"), (t_newmethod)sigFIR_new,
! (t_method)sigFIR_free, sizeof(t_sigFIR), 0, A_DEFSYM, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigFIR_class, t_sigFIR, x_msi);
! class_addmethod(sigFIR_class, (t_method)sigFIR_dsp, gensym("dsp"), 0);
! class_addmethod(sigFIR_class, (t_method)sigFIR_set,
! gensym("set"), A_SYMBOL, A_FLOAT, 0);
! class_sethelpsymbol(sigFIR_class, gensym("iemhelp/help-FIR~"));
! }
Index: siglp1_t.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/siglp1_t.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** siglp1_t.c 2 Jun 2005 18:23:54 -0000 1.3
--- siglp1_t.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,219 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- lp1_t~ - slow dynamic lowpass-filter 1. order with tau input --- */
!
! typedef struct siglp1_t
! {
! t_object x_obj;
! float yn1;
! float c0;
! float c1;
! float sr;
! float cur_t;
! float delta_t;
! float end_t;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_t;
! float x_msi;
! } t_siglp1_t;
!
! t_class *siglp1_t_class;
!
! static void siglp1_t_dsp_tick(t_siglp1_t *x)
! {
! if(x->counter_t)
! {
! if(x->counter_t <= 1)
! {
! x->cur_t = x->end_t;
! x->counter_t = 0;
! }
! else
! {
! x->counter_t--;
! x->cur_t += x->delta_t;
! }
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! }
! }
!
! static t_int *siglp1_t_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn0, yn1=x->yn1;
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! yn0 = (*in++)*c0 + yn1*c1;
! *out++ = yn0;
! yn1 = yn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn1))
! yn1 = 0.0f;
! x->yn1 = yn1;
! return(w+5);
! }
!
! static t_int *siglp1_t_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn[9];
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! yn[0] = x->yn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! yn[1] = in[0]*c0 + yn[0]*c1;
! out[0] = yn[1];
! yn[2] = in[1]*c0 + yn[1]*c1;
! out[1] = yn[2];
! yn[3] = in[2]*c0 + yn[2]*c1;
! out[2] = yn[3];
! yn[4] = in[3]*c0 + yn[3]*c1;
! out[3] = yn[4];
! yn[5] = in[4]*c0 + yn[4]*c1;
! out[4] = yn[5];
! yn[6] = in[5]*c0 + yn[5]*c1;
! out[5] = yn[6];
! yn[7] = in[6]*c0 + yn[6]*c1;
! out[6] = yn[7];
! yn[8] = in[7]*c0 + yn[7]*c1;
! out[7] = yn[8];
! yn[0] = yn[8];
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn[0]))
! yn[0] = 0.0f;
!
! x->yn1 = yn[0];
! return(w+5);
! }
!
! static void siglp1_t_ft2(t_siglp1_t *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void siglp1_t_ft1(t_siglp1_t *x, t_floatarg time_const)
! {
! if(time_const < 0.0f)
! time_const = 0.0f;
! if(time_const != x->cur_t)
! {
! x->end_t = time_const;
! x->counter_t = x->ticks;
! x->delta_t = (time_const - x->cur_t) * x->rcp_ticks;
! }
! }
!
! static void siglp1_t_dsp(t_siglp1_t *x, t_signal **sp)
! {
! int i, n=(int)sp[0]->s_n;
!
! x->sr = -1000.0f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! if(n&7)
! dsp_add(siglp1_t_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(siglp1_t_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *siglp1_t_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_siglp1_t *x = (t_siglp1_t *)pd_new(siglp1_t_class);
! int i;
! float time_const=0.0f, interpol=0.0f;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->counter_t = 1;
! x->delta_t = 0.0f;
! x->interpol_time = 0.0f;
! x->yn1 = 0.0f;
! x->sr = -1.0f / 44.1f;
! if((argc >= 1)&&IS_A_FLOAT(argv,0))
! time_const = (float)atom_getfloatarg(0, argc, argv);
! if((argc >= 2)&&IS_A_FLOAT(argv,1))
! interpol = (float)atom_getfloatarg(1, argc, argv);
! if(time_const < 0.0f)
! time_const = 0.0f;
! x->cur_t = time_const;
! if(time_const == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/time_const);
! x->c0 = 1.0f - x->c1;
! if(interpol < 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_t = x->cur_t;
! return (x);
! }
!
! void siglp1_t_setup(void)
! {
! siglp1_t_class = class_new(gensym("lp1_t~"), (t_newmethod)siglp1_t_new,
! 0, sizeof(t_siglp1_t), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(siglp1_t_class, t_siglp1_t, x_msi);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_dsp, gensym("dsp"), 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(siglp1_t_class, gensym("iemhelp/help-lp1_t~"));
! }
--- 1,219 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- lp1_t~ - slow dynamic lowpass-filter 1. order with tau input --- */
!
! typedef struct siglp1_t
! {
! t_object x_obj;
! float yn1;
! float c0;
! float c1;
! float sr;
! float cur_t;
! float delta_t;
! float end_t;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_t;
! float x_msi;
! } t_siglp1_t;
!
! t_class *siglp1_t_class;
!
! static void siglp1_t_dsp_tick(t_siglp1_t *x)
! {
! if(x->counter_t)
! {
! if(x->counter_t <= 1)
! {
! x->cur_t = x->end_t;
! x->counter_t = 0;
! }
! else
! {
! x->counter_t--;
! x->cur_t += x->delta_t;
! }
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! }
! }
!
! static t_int *siglp1_t_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn0, yn1=x->yn1;
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! yn0 = (*in++)*c0 + yn1*c1;
! *out++ = yn0;
! yn1 = yn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn1))
! yn1 = 0.0f;
! x->yn1 = yn1;
! return(w+5);
! }
!
! static t_int *siglp1_t_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_siglp1_t *x = (t_siglp1_t *)(w[3]);
! int i, n = (t_int)(w[4]);
! float yn[9];
! float c0=x->c0, c1=x->c1;
!
! siglp1_t_dsp_tick(x);
! yn[0] = x->yn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! yn[1] = in[0]*c0 + yn[0]*c1;
! out[0] = yn[1];
! yn[2] = in[1]*c0 + yn[1]*c1;
! out[1] = yn[2];
! yn[3] = in[2]*c0 + yn[2]*c1;
! out[2] = yn[3];
! yn[4] = in[3]*c0 + yn[3]*c1;
! out[3] = yn[4];
! yn[5] = in[4]*c0 + yn[4]*c1;
! out[4] = yn[5];
! yn[6] = in[5]*c0 + yn[5]*c1;
! out[5] = yn[6];
! yn[7] = in[6]*c0 + yn[6]*c1;
! out[6] = yn[7];
! yn[8] = in[7]*c0 + yn[7]*c1;
! out[7] = yn[8];
! yn[0] = yn[8];
! }
! /* NAN protect */
! if(IEM_DENORMAL(yn[0]))
! yn[0] = 0.0f;
!
! x->yn1 = yn[0];
! return(w+5);
! }
!
! static void siglp1_t_ft2(t_siglp1_t *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void siglp1_t_ft1(t_siglp1_t *x, t_floatarg time_const)
! {
! if(time_const < 0.0f)
! time_const = 0.0f;
! if(time_const != x->cur_t)
! {
! x->end_t = time_const;
! x->counter_t = x->ticks;
! x->delta_t = (time_const - x->cur_t) * x->rcp_ticks;
! }
! }
!
! static void siglp1_t_dsp(t_siglp1_t *x, t_signal **sp)
! {
! int i, n=(int)sp[0]->s_n;
!
! x->sr = -1000.0f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! if(x->cur_t == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/x->cur_t);
! x->c0 = 1.0f - x->c1;
! if(n&7)
! dsp_add(siglp1_t_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(siglp1_t_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *siglp1_t_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_siglp1_t *x = (t_siglp1_t *)pd_new(siglp1_t_class);
! int i;
! float time_const=0.0f, interpol=0.0f;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->counter_t = 1;
! x->delta_t = 0.0f;
! x->interpol_time = 0.0f;
! x->yn1 = 0.0f;
! x->sr = -1.0f / 44.1f;
! if((argc >= 1)&&IS_A_FLOAT(argv,0))
! time_const = (float)atom_getfloatarg(0, argc, argv);
! if((argc >= 2)&&IS_A_FLOAT(argv,1))
! interpol = (float)atom_getfloatarg(1, argc, argv);
! if(time_const < 0.0f)
! time_const = 0.0f;
! x->cur_t = time_const;
! if(time_const == 0.0f)
! x->c1 = 0.0f;
! else
! x->c1 = exp((x->sr)/time_const);
! x->c0 = 1.0f - x->c1;
! if(interpol < 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_t = x->cur_t;
! return (x);
! }
!
! void siglp1_t_setup(void)
! {
! siglp1_t_class = class_new(gensym("lp1_t~"), (t_newmethod)siglp1_t_new,
! 0, sizeof(t_siglp1_t), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(siglp1_t_class, t_siglp1_t, x_msi);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_dsp, gensym("dsp"), 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(siglp1_t_class, (t_method)siglp1_t_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(siglp1_t_class, gensym("iemhelp/help-lp1_t~"));
! }
Index: soundfile_info.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/soundfile_info.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** soundfile_info.c 2 Jun 2005 18:23:54 -0000 1.2
--- soundfile_info.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,261 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! #define SFI_HEADER_SAMPLERATE 0
! #define SFI_HEADER_FILENAME 1
! #define SFI_HEADER_MULTICHANNEL_FILE_LENGTH 2
! #define SFI_HEADER_HEADERBYTES 3
! #define SFI_HEADER_CHANNELS 4
! #define SFI_HEADER_BYTES_PER_SAMPLE 5
! #define SFI_HEADER_ENDINESS 6
!
! #define SFI_HEADER_SIZE 7
!
!
!
! /* --------------------------- soundfile_info -------------------------------- */
! /* -- reads only header of a wave-file and outputs the important parameters -- */
!
! static t_class *soundfile_info_class;
!
! typedef struct _soundfile_info
! {
! t_object x_obj;
! long *x_begmem;
! int x_size;
! t_atom x_atheader[SFI_HEADER_SIZE];
! t_canvas *x_canvas;
! void *x_list_out;
! } t_soundfile_info;
!
! static short soundfile_info_str2short(char *cvec)
! {
! short s=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! s += (short)(*uc);
! s += (short)(*(uc+1)*256);
! return(s);
! }
!
! static long soundfile_info_str2long(char *cvec)
! {
! long l=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! l += (long)(*uc);
! l += (long)(*(uc+1)*256);
! l += (long)(*(uc+2)*65536);
! l += (long)(*(uc+3)*16777216);
! return(l);
! }
!
! static void soundfile_info_read(t_soundfile_info *x, t_symbol *filename)
! {
! char completefilename[400];
! int i, n, n2, n4, filesize, read_chars, header_size=0, ch, bps, sr;
! FILE *fh;
! t_atom *at;
! char *cvec;
! long ll;
! short ss;
!
! if(filename->s_name[0] == '/')/*make complete path + filename*/
! {
! strcpy(completefilename, filename->s_name);
! }
! else if(((filename->s_name[0] >= 'A')&&(filename->s_name[0] <= 'Z')||
! (filename->s_name[0] >= 'a')&&(filename->s_name[0] <= 'z'))&&
! (filename->s_name[1] == ':')&&(filename->s_name[2] == '/'))
! {
! strcpy(completefilename, filename->s_name);
! }
! else
! {
! strcpy(completefilename, canvas_getdir(x->x_canvas)->s_name);
! strcat(completefilename, "/");
! strcat(completefilename, filename->s_name);
! }
!
! fh = fopen(completefilename,"rb");
! if(!fh)
! {
! post("soundfile_info_read: cannot open %s !!\n", completefilename);
! }
! else
! {
! n = x->x_size;
! n2 = sizeof(short) * x->x_size;
! n4 = sizeof(long) * x->x_size;
! fseek(fh, 0, SEEK_END);
! filesize = ftell(fh);
! fseek(fh,0,SEEK_SET);
! read_chars = (int)fread(x->x_begmem, sizeof(char), n4, fh) /2;
! fclose(fh);
! // post("read chars = %d", read_chars);
! cvec = (char *)x->x_begmem;
! if(read_chars > 4)
! {
! if(strncmp(cvec, "RIFF", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 8;
! cvec += 8;
! if(strncmp(cvec, "WAVE", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "fmt ", 4))
! goto soundfile_info_fmt;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no format-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_fmt:
! header_size += 4;
! cvec += 4;
! ll = soundfile_info_str2long(cvec);
! if(ll != 16)
! {
! post("soundfile_info_read-error: %s has a format-chunk not equal to 16", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
! /* format */
! if(ss != 1) /* PCM = 1 */
! {
! post("soundfile_info_read-error: %s is not PCM-format coded", completefilename);
! goto soundfile_info_end;
! }
! header_size += 2;
! cvec += 2;
! ss = soundfile_info_str2short(cvec);
! /* channels */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common channel-number", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_CHANNELS, (float)ss);
! ch = ss;
! header_size += 2;
! cvec += 2;
! ll = soundfile_info_str2long(cvec);
! /* samplerate */
! if((ll > 400000) || (ll < 200))
! {
! post("soundfile_info_read-error: %s has no common samplerate", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_SAMPLERATE, (float)ll);
! sr = ll;
! header_size += 4;
! cvec += 4;
!
! header_size += 4; /* bytes_per_sec */
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
!
! /* bytes_per_sample */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common number of bytes per sample", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_BYTES_PER_SAMPLE, (float)(ss/ch));
! bps = ss;
! header_size += 2;
! cvec += 2;
!
! header_size += 2; /* bits_per_sample */
! cvec += 2;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "data", 4))
! goto soundfile_info_data;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no data-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_data:
! header_size += 8;
! cvec += 8;
!
! SETFLOAT(x->x_atheader+SFI_HEADER_HEADERBYTES, (float)header_size);
!
! filesize -= header_size;
! filesize /= bps;
! SETFLOAT(x->x_atheader+SFI_HEADER_MULTICHANNEL_FILE_LENGTH, (float)filesize);
! SETSYMBOL(x->x_atheader+SFI_HEADER_ENDINESS, gensym("l"));
! SETSYMBOL(x->x_atheader+SFI_HEADER_FILENAME, gensym(completefilename));
!
! /* post("ch = %d", ss);
! post("sr = %d", ll);
! post("bps = %d", ss/ch);
! post("head = %d", header_size);
! post("len = %d", filesize);*/
!
! outlet_list(x->x_list_out, &s_list, SFI_HEADER_SIZE, x->x_atheader);
!
!
! soundfile_info_end:
!
! ;
! }
! }
! }
!
! static void soundfile_info_free(t_soundfile_info *x)
! {
! freebytes(x->x_begmem, x->x_size * sizeof(long));
! }
!
! static void *soundfile_info_new(void)
! {
! t_soundfile_info *x = (t_soundfile_info *)pd_new(soundfile_info_class);
!
! x->x_size = 10000;
! x->x_begmem = (long *)getbytes(x->x_size * sizeof(long));
! x->x_list_out = outlet_new(&x->x_obj, &s_list);
! x->x_canvas = canvas_getcurrent();
! return (x);
! }
!
! /* ---------------- global setup function -------------------- */
!
! void soundfile_info_setup(void)
! {
! soundfile_info_class = class_new(gensym("soundfile_info"), (t_newmethod)soundfile_info_new,
! (t_method)soundfile_info_free, sizeof(t_soundfile_info), 0, 0);
! class_addmethod(soundfile_info_class, (t_method)soundfile_info_read, gensym("read"), A_SYMBOL, 0);
! class_sethelpsymbol(soundfile_info_class, gensym("iemhelp/help-soundfile_info"));
! }
--- 1,261 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! #define SFI_HEADER_SAMPLERATE 0
! #define SFI_HEADER_FILENAME 1
! #define SFI_HEADER_MULTICHANNEL_FILE_LENGTH 2
! #define SFI_HEADER_HEADERBYTES 3
! #define SFI_HEADER_CHANNELS 4
! #define SFI_HEADER_BYTES_PER_SAMPLE 5
! #define SFI_HEADER_ENDINESS 6
!
! #define SFI_HEADER_SIZE 7
!
!
!
! /* --------------------------- soundfile_info -------------------------------- */
! /* -- reads only header of a wave-file and outputs the important parameters -- */
!
! static t_class *soundfile_info_class;
!
! typedef struct _soundfile_info
! {
! t_object x_obj;
! long *x_begmem;
! int x_size;
! t_atom x_atheader[SFI_HEADER_SIZE];
! t_canvas *x_canvas;
! void *x_list_out;
! } t_soundfile_info;
!
! static short soundfile_info_str2short(char *cvec)
! {
! short s=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! s += (short)(*uc);
! s += (short)(*(uc+1)*256);
! return(s);
! }
!
! static long soundfile_info_str2long(char *cvec)
! {
! long l=0;
! unsigned char *uc=(unsigned char *)cvec;
!
! l += (long)(*uc);
! l += (long)(*(uc+1)*256);
! l += (long)(*(uc+2)*65536);
! l += (long)(*(uc+3)*16777216);
! return(l);
! }
!
! static void soundfile_info_read(t_soundfile_info *x, t_symbol *filename)
! {
! char completefilename[400];
! int i, n, n2, n4, filesize, read_chars, header_size=0, ch, bps, sr;
! FILE *fh;
! t_atom *at;
! char *cvec;
! long ll;
! short ss;
!
! if(filename->s_name[0] == '/')/*make complete path + filename*/
! {
! strcpy(completefilename, filename->s_name);
! }
! else if(((filename->s_name[0] >= 'A')&&(filename->s_name[0] <= 'Z')||
! (filename->s_name[0] >= 'a')&&(filename->s_name[0] <= 'z'))&&
! (filename->s_name[1] == ':')&&(filename->s_name[2] == '/'))
! {
! strcpy(completefilename, filename->s_name);
! }
! else
! {
! strcpy(completefilename, canvas_getdir(x->x_canvas)->s_name);
! strcat(completefilename, "/");
! strcat(completefilename, filename->s_name);
! }
!
! fh = fopen(completefilename,"rb");
! if(!fh)
! {
! post("soundfile_info_read: cannot open %s !!\n", completefilename);
! }
! else
! {
! n = x->x_size;
! n2 = sizeof(short) * x->x_size;
! n4 = sizeof(long) * x->x_size;
! fseek(fh, 0, SEEK_END);
! filesize = ftell(fh);
! fseek(fh,0,SEEK_SET);
! read_chars = (int)fread(x->x_begmem, sizeof(char), n4, fh) /2;
! fclose(fh);
! // post("read chars = %d", read_chars);
! cvec = (char *)x->x_begmem;
! if(read_chars > 4)
! {
! if(strncmp(cvec, "RIFF", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 8;
! cvec += 8;
! if(strncmp(cvec, "WAVE", 4))
! {
! post("soundfile_info_read-error: %s is no RIFF-WAVE-file", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "fmt ", 4))
! goto soundfile_info_fmt;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no format-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_fmt:
! header_size += 4;
! cvec += 4;
! ll = soundfile_info_str2long(cvec);
! if(ll != 16)
! {
! post("soundfile_info_read-error: %s has a format-chunk not equal to 16", completefilename);
! goto soundfile_info_end;
! }
! header_size += 4;
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
! /* format */
! if(ss != 1) /* PCM = 1 */
! {
! post("soundfile_info_read-error: %s is not PCM-format coded", completefilename);
! goto soundfile_info_end;
! }
! header_size += 2;
! cvec += 2;
! ss = soundfile_info_str2short(cvec);
! /* channels */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common channel-number", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_CHANNELS, (float)ss);
! ch = ss;
! header_size += 2;
! cvec += 2;
! ll = soundfile_info_str2long(cvec);
! /* samplerate */
! if((ll > 400000) || (ll < 200))
! {
! post("soundfile_info_read-error: %s has no common samplerate", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_SAMPLERATE, (float)ll);
! sr = ll;
! header_size += 4;
! cvec += 4;
!
! header_size += 4; /* bytes_per_sec */
! cvec += 4;
! ss = soundfile_info_str2short(cvec);
!
! /* bytes_per_sample */
! if((ss < 1) || (ss > 100))
! {
! post("soundfile_info_read-error: %s has no common number of bytes per sample", completefilename);
! goto soundfile_info_end;
! }
! SETFLOAT(x->x_atheader+SFI_HEADER_BYTES_PER_SAMPLE, (float)(ss/ch));
! bps = ss;
! header_size += 2;
! cvec += 2;
!
! header_size += 2; /* bits_per_sample */
! cvec += 2;
!
! for(i=header_size/2; i<read_chars; i++)
! {
! if(!strncmp(cvec, "data", 4))
! goto soundfile_info_data;
! header_size += 2;
! cvec += 2;
! }
! post("soundfile_info_read-error: %s has at begin no data-chunk", completefilename);
! goto soundfile_info_end;
!
! soundfile_info_data:
! header_size += 8;
! cvec += 8;
!
! SETFLOAT(x->x_atheader+SFI_HEADER_HEADERBYTES, (float)header_size);
!
! filesize -= header_size;
! filesize /= bps;
! SETFLOAT(x->x_atheader+SFI_HEADER_MULTICHANNEL_FILE_LENGTH, (float)filesize);
! SETSYMBOL(x->x_atheader+SFI_HEADER_ENDINESS, gensym("l"));
! SETSYMBOL(x->x_atheader+SFI_HEADER_FILENAME, gensym(completefilename));
!
! /* post("ch = %d", ss);
! post("sr = %d", ll);
! post("bps = %d", ss/ch);
! post("head = %d", header_size);
! post("len = %d", filesize);*/
!
! outlet_list(x->x_list_out, &s_list, SFI_HEADER_SIZE, x->x_atheader);
!
!
! soundfile_info_end:
!
! ;
! }
! }
! }
!
! static void soundfile_info_free(t_soundfile_info *x)
! {
! freebytes(x->x_begmem, x->x_size * sizeof(long));
! }
!
! static void *soundfile_info_new(void)
! {
! t_soundfile_info *x = (t_soundfile_info *)pd_new(soundfile_info_class);
!
! x->x_size = 10000;
! x->x_begmem = (long *)getbytes(x->x_size * sizeof(long));
! x->x_list_out = outlet_new(&x->x_obj, &s_list);
! x->x_canvas = canvas_getcurrent();
! return (x);
! }
!
! /* ---------------- global setup function -------------------- */
!
! void soundfile_info_setup(void)
! {
! soundfile_info_class = class_new(gensym("soundfile_info"), (t_newmethod)soundfile_info_new,
! (t_method)soundfile_info_free, sizeof(t_soundfile_info), 0, 0);
! class_addmethod(soundfile_info_class, (t_method)soundfile_info_read, gensym("read"), A_SYMBOL, 0);
! class_sethelpsymbol(soundfile_info_class, gensym("iemhelp/help-soundfile_info"));
! }
Index: sigpeakenv.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigpeakenv.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sigpeakenv.c 2 Jun 2005 18:23:54 -0000 1.3
--- sigpeakenv.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,102 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- peakenv~ - simple peak-envelope-converter. ----------------- */
!
! typedef struct sigpeakenv
! {
! t_object x_obj;
! float x_sr;
! float x_old_peak;
! float x_c1;
! float x_releasetime;
! float x_msi;
! } t_sigpeakenv;
!
! t_class *sigpeakenv_class;
!
! static void sigpeakenv_reset(t_sigpeakenv *x)
! {
! x->x_old_peak = 0.0f;
! }
!
! static void sigpeakenv_ft1(t_sigpeakenv *x, t_floatarg f)/* release-time in ms */
! {
! if(f < 0.0f)
! f = 0.0f;
! x->x_releasetime = f;
! x->x_c1 = exp(-1.0/(x->x_sr*0.001*x->x_releasetime));
! }
!
! static t_int *sigpeakenv_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpeakenv *x = (t_sigpeakenv *)(w[3]);
! int n = (int)(w[4]);
! float peak = x->x_old_peak;
! float c1 = x->x_c1;
! float absolute;
! int i;
!
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! peak *= c1;
! if(absolute > peak)
! peak = absolute;
! *out++ = peak;
! }
! /* NAN protect */
! if(IEM_DENORMAL(peak))
! peak = 0.0f;
! x->x_old_peak = peak;
! return(w+5);
! }
!
! static void sigpeakenv_dsp(t_sigpeakenv *x, t_signal **sp)
! {
! x->x_sr = (float)sp[0]->s_sr;
! sigpeakenv_ft1(x, x->x_releasetime);
! dsp_add(sigpeakenv_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigpeakenv_new(t_floatarg f)
! {
! t_sigpeakenv *x = (t_sigpeakenv *)pd_new(sigpeakenv_class);
!
! if(f <= 0.0f)
! f = 0.0f;
! x->x_sr = 44100.0f;
! sigpeakenv_ft1(x, f);
! x->x_old_peak = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigpeakenv_setup(void)
! {
! sigpeakenv_class = class_new(gensym("peakenv~"), (t_newmethod)sigpeakenv_new,
! 0, sizeof(t_sigpeakenv), 0, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpeakenv_class, t_sigpeakenv, x_msi);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_dsp, gensym("dsp"), 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_reset, gensym("reset"), 0);
! class_sethelpsymbol(sigpeakenv_class, gensym("iemhelp/help-peakenv~"));
! }
--- 1,102 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- peakenv~ - simple peak-envelope-converter. ----------------- */
!
! typedef struct sigpeakenv
! {
! t_object x_obj;
! float x_sr;
! float x_old_peak;
! float x_c1;
! float x_releasetime;
! float x_msi;
! } t_sigpeakenv;
!
! t_class *sigpeakenv_class;
!
! static void sigpeakenv_reset(t_sigpeakenv *x)
! {
! x->x_old_peak = 0.0f;
! }
!
! static void sigpeakenv_ft1(t_sigpeakenv *x, t_floatarg f)/* release-time in ms */
! {
! if(f < 0.0f)
! f = 0.0f;
! x->x_releasetime = f;
! x->x_c1 = exp(-1.0/(x->x_sr*0.001*x->x_releasetime));
! }
!
! static t_int *sigpeakenv_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpeakenv *x = (t_sigpeakenv *)(w[3]);
! int n = (int)(w[4]);
! float peak = x->x_old_peak;
! float c1 = x->x_c1;
! float absolute;
! int i;
!
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! peak *= c1;
! if(absolute > peak)
! peak = absolute;
! *out++ = peak;
! }
! /* NAN protect */
! if(IEM_DENORMAL(peak))
! peak = 0.0f;
! x->x_old_peak = peak;
! return(w+5);
! }
!
! static void sigpeakenv_dsp(t_sigpeakenv *x, t_signal **sp)
! {
! x->x_sr = (float)sp[0]->s_sr;
! sigpeakenv_ft1(x, x->x_releasetime);
! dsp_add(sigpeakenv_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigpeakenv_new(t_floatarg f)
! {
! t_sigpeakenv *x = (t_sigpeakenv *)pd_new(sigpeakenv_class);
!
! if(f <= 0.0f)
! f = 0.0f;
! x->x_sr = 44100.0f;
! sigpeakenv_ft1(x, f);
! x->x_old_peak = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigpeakenv_setup(void)
! {
! sigpeakenv_class = class_new(gensym("peakenv~"), (t_newmethod)sigpeakenv_new,
! 0, sizeof(t_sigpeakenv), 0, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpeakenv_class, t_sigpeakenv, x_msi);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_dsp, gensym("dsp"), 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpeakenv_class, (t_method)sigpeakenv_reset, gensym("reset"), 0);
! class_sethelpsymbol(sigpeakenv_class, gensym("iemhelp/help-peakenv~"));
! }
Index: iemlib1.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/iemlib1.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iemlib1.c 2 Jun 2005 18:23:54 -0000 1.2
--- iemlib1.c 8 Jul 2005 02:08:49 -0000 1.3
***************
*** 1,83 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iemlib1_class;
!
! static void *iemlib1_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib1_class);
!
! return (x);
! }
!
! void biquad_freq_resp_setup(void);
! void db2v_setup(void);
! void f2note_setup(void);
! void forpp_setup(void);
! void gate_setup(void);
! void sigfilter_setup(void);
! void sigFIR_setup(void);
! void sighml_shelf_setup(void);
! void sigiem_cot4_setup(void);
! void sigiem_delay_setup(void);
! void sigiem_sqrt4_setup(void);
! void sigiem_pow4_setup(void);
! void siglp1_t_setup(void);
! void sigmov_avrg_kern_setup(void);
! void sigpara_bp2_setup(void);
! void sigpeakenv_setup(void);
! void sigprvu_setup(void);
! void sigpvu_setup(void);
! void sigrvu_setup(void);
! void sigsin_phase_setup(void);
! void sigvcf_filter_setup(void);
! void soundfile_info_setup(void);
! void split_setup(void);
! void v2db_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib1_setup(void)
! {
! iemlib1_class = class_new(gensym("iemlib1"), iemlib1_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! biquad_freq_resp_setup();
! db2v_setup();
! f2note_setup();
! forpp_setup();
! gate_setup();
! sigfilter_setup();
! sigFIR_setup();
! sighml_shelf_setup();
! sigiem_cot4_setup();
! sigiem_delay_setup();
! sigiem_sqrt4_setup();
! sigiem_pow4_setup();
! siglp1_t_setup();
! sigmov_avrg_kern_setup();
! sigpara_bp2_setup();
! sigpeakenv_setup();
! sigprvu_setup();
! sigpvu_setup();
! sigrvu_setup();
! sigsin_phase_setup();
! sigvcf_filter_setup();
! soundfile_info_setup();
! split_setup();
! v2db_setup();
!
! post("iemlib1 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
--- 1,83 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
!
! static t_class *iemlib1_class;
!
! static void *iemlib1_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib1_class);
!
! return (x);
! }
!
! void biquad_freq_resp_setup(void);
! void db2v_setup(void);
! void f2note_setup(void);
! void forpp_setup(void);
! void gate_setup(void);
! void sigfilter_setup(void);
! void sigFIR_setup(void);
! void sighml_shelf_setup(void);
! void sigiem_cot4_setup(void);
! void sigiem_delay_setup(void);
! void sigiem_sqrt4_setup(void);
! void sigiem_pow4_setup(void);
! void siglp1_t_setup(void);
! void sigmov_avrg_kern_setup(void);
! void sigpara_bp2_setup(void);
! void sigpeakenv_setup(void);
! void sigprvu_setup(void);
! void sigpvu_setup(void);
! void sigrvu_setup(void);
! void sigsin_phase_setup(void);
! void sigvcf_filter_setup(void);
! void soundfile_info_setup(void);
! void split_setup(void);
! void v2db_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib1_setup(void)
! {
! iemlib1_class = class_new(gensym("iemlib1"), iemlib1_new, 0,
! sizeof(t_object), CLASS_NOINLET, 0);
!
! biquad_freq_resp_setup();
! db2v_setup();
! f2note_setup();
! forpp_setup();
! gate_setup();
! sigfilter_setup();
! sigFIR_setup();
! sighml_shelf_setup();
! sigiem_cot4_setup();
! sigiem_delay_setup();
! sigiem_sqrt4_setup();
! sigiem_pow4_setup();
! siglp1_t_setup();
! sigmov_avrg_kern_setup();
! sigpara_bp2_setup();
! sigpeakenv_setup();
! sigprvu_setup();
! sigpvu_setup();
! sigrvu_setup();
! sigsin_phase_setup();
! sigvcf_filter_setup();
! soundfile_info_setup();
! split_setup();
! v2db_setup();
!
! post("iemlib1 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
Index: biquad_freq_resp.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/biquad_freq_resp.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** biquad_freq_resp.c 2 Jun 2005 18:23:54 -0000 1.3
--- biquad_freq_resp.c 8 Jul 2005 02:08:49 -0000 1.4
***************
*** 1,93 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ biquad_freq_resp ------------------- */
! /* -- calculates the frequency responce of a biquad structure -- */
!
! typedef struct _biquad_freq_resp
! {
! t_object x_obj;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! t_outlet *x_out_re;
! t_outlet *x_out_im;
! } t_biquad_freq_resp;
!
! static t_class *biquad_freq_resp_class;
!
! static void biquad_freq_resp_float(t_biquad_freq_resp *x, t_float f)
! {
! float re1, im1, re2, im2;
! float c, s, a;
!
! if(f < 0.0f)
! f = 0.0f;
! else if(f > 180.0f)
! f = 180.0;
! f *= 3.14159265f;
! f /= 180.0f;
!
! c = cos(f);
! s = sin(f);
!
! re1 = x->a0 + x->a1*c + x->a2*(c*c - s*s);
! im1 = x->a1*s + x->a2*2.0f*(s*c);
! re2 = 1.0f - x->b1*c - x->b2*(c*c - s*s);
! im2 = -x->b1*s - x->b2*2.0f*(s*c);
! a = re2*re2 + im2*im2;
! outlet_float(x->x_out_im, (re1*im2 - re2*im1)/a);/* because z^-1 = e^-jwt, negative sign */
! outlet_float(x->x_out_re, (re1*re2 + im1*im2)/a);
!
! }
! /* y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static void biquad_freq_resp_list(t_biquad_freq_resp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc == 5)&&IS_A_FLOAT(argv,4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! x->b1 = (float)atom_getfloatarg(0, argc, argv);
! x->b2 = (float)atom_getfloatarg(1, argc, argv);
! x->a0 = (float)atom_getfloatarg(2, argc, argv);
! x->a1 = (float)atom_getfloatarg(3, argc, argv);
! x->a2 = (float)atom_getfloatarg(4, argc, argv);
! }
! }
!
! static void *biquad_freq_resp_new(void)
! {
! t_biquad_freq_resp *x = (t_biquad_freq_resp *)pd_new(biquad_freq_resp_class);
! x->x_out_re = outlet_new(&x->x_obj, &s_float);
! x->x_out_im = outlet_new(&x->x_obj, &s_float);
! x->b1 = 0.0f;
! x->b2 = 0.0f;
! x->a0 = 0.0f;
! x->a1 = 0.0f;
! x->a2 = 0.0f;
! return (x);
! }
!
! void biquad_freq_resp_setup(void)
! {
! biquad_freq_resp_class = class_new(gensym("biquad_freq_resp"), (t_newmethod)biquad_freq_resp_new, 0,
! sizeof(t_biquad_freq_resp), 0, 0);
! class_addfloat(biquad_freq_resp_class, biquad_freq_resp_float);
! class_addlist(biquad_freq_resp_class, (t_method)biquad_freq_resp_list);
! class_sethelpsymbol(biquad_freq_resp_class, gensym("iemhelp/help-biquad_freq_resp"));
! }
--- 1,93 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ biquad_freq_resp ------------------- */
! /* -- calculates the frequency responce of a biquad structure -- */
!
! typedef struct _biquad_freq_resp
! {
! t_object x_obj;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! t_outlet *x_out_re;
! t_outlet *x_out_im;
! } t_biquad_freq_resp;
!
! static t_class *biquad_freq_resp_class;
!
! static void biquad_freq_resp_float(t_biquad_freq_resp *x, t_float f)
! {
! float re1, im1, re2, im2;
! float c, s, a;
!
! if(f < 0.0f)
! f = 0.0f;
! else if(f > 180.0f)
! f = 180.0;
! f *= 3.14159265f;
! f /= 180.0f;
!
! c = cos(f);
! s = sin(f);
!
! re1 = x->a0 + x->a1*c + x->a2*(c*c - s*s);
! im1 = x->a1*s + x->a2*2.0f*(s*c);
! re2 = 1.0f - x->b1*c - x->b2*(c*c - s*s);
! im2 = -x->b1*s - x->b2*2.0f*(s*c);
! a = re2*re2 + im2*im2;
! outlet_float(x->x_out_im, (re1*im2 - re2*im1)/a);/* because z^-1 = e^-jwt, negative sign */
! outlet_float(x->x_out_re, (re1*re2 + im1*im2)/a);
!
! }
! /* y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static void biquad_freq_resp_list(t_biquad_freq_resp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc == 5)&&IS_A_FLOAT(argv,4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! x->b1 = (float)atom_getfloatarg(0, argc, argv);
! x->b2 = (float)atom_getfloatarg(1, argc, argv);
! x->a0 = (float)atom_getfloatarg(2, argc, argv);
! x->a1 = (float)atom_getfloatarg(3, argc, argv);
! x->a2 = (float)atom_getfloatarg(4, argc, argv);
! }
! }
!
! static void *biquad_freq_resp_new(void)
! {
! t_biquad_freq_resp *x = (t_biquad_freq_resp *)pd_new(biquad_freq_resp_class);
! x->x_out_re = outlet_new(&x->x_obj, &s_float);
! x->x_out_im = outlet_new(&x->x_obj, &s_float);
! x->b1 = 0.0f;
! x->b2 = 0.0f;
! x->a0 = 0.0f;
! x->a1 = 0.0f;
! x->a2 = 0.0f;
! return (x);
! }
!
! void biquad_freq_resp_setup(void)
! {
! biquad_freq_resp_class = class_new(gensym("biquad_freq_resp"), (t_newmethod)biquad_freq_resp_new, 0,
! sizeof(t_biquad_freq_resp), 0, 0);
! class_addfloat(biquad_freq_resp_class, biquad_freq_resp_float);
! class_addlist(biquad_freq_resp_class, (t_method)biquad_freq_resp_list);
! class_sethelpsymbol(biquad_freq_resp_class, gensym("iemhelp/help-biquad_freq_resp"));
! }
Index: sigsin_phase.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigsin_phase.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigsin_phase.c 2 Jun 2005 18:23:54 -0000 1.2
--- sigsin_phase.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,129 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* --- sin_phase~ - output the phase-difference between 2 sinewaves in samples (sig) ---- */
!
! typedef struct sigsin_phase
! {
! t_object x_obj;
! float x_prev1;
! float x_prev2;
! float x_cur_out;
! int x_counter1;
! int x_counter2;
! int x_state1;
! int x_state2;
! float x_msi;
! } t_sigsin_phase;
!
! t_class *sigsin_phase_class;
!
! static t_int *sigsin_phase_perform(t_int *w)
! {
! float *in1 = (float *)(w[1]);
! float *in2 = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigsin_phase *x = (t_sigsin_phase *)(w[4]);
! int i, n = (t_int)(w[5]);
! float prev1=x->x_prev1;
! float prev2=x->x_prev2;
! float cur_out=x->x_cur_out;
! int counter1=x->x_counter1;
! int counter2=x->x_counter2;
! int state1=x->x_state1;
! int state2=x->x_state2;
!
! for(i=0; i<n; i++)
! {
! if((in1[i] >= 0.0f) && (prev1 < 0.0f))
! {
! state1 = 1;
! counter1 = 0;
! }
! else if((in1[i] < 0.0f) && (prev1 >= 0.0f))
! {
! state2 = 1;
! counter2 = 0;
! }
!
! if((in2[i] >= 0.0f) && (prev2 < 0.0f))
! {
! state1 = 0;
! cur_out = (float)(counter1);
! counter1 = 0;
! }
! else if((in2[i] < 0.0f) && (prev2 >= 0.0f))
! {
! state2 = 0;
! cur_out = (float)(counter2);
! counter2 = 0;
! }
!
! if(state1)
! counter1++;
! if(state2)
! counter2++;
!
! prev1 = in1[i];
! prev2 = in2[i];
! out[i] = cur_out;
! }
!
! x->x_prev1 = prev1;
! x->x_prev2 = prev2;
! x->x_cur_out = cur_out;
! x->x_counter1 = counter1;
! x->x_counter2 = counter2;
! x->x_state1 = state1;
! x->x_state2 = state2;
!
! return(w+6);
! }
!
! static void sigsin_phase_dsp(t_sigsin_phase *x, t_signal **sp)
! {
! dsp_add(sigsin_phase_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigsin_phase_new(void)
! {
! t_sigsin_phase *x = (t_sigsin_phase *)pd_new(sigsin_phase_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
!
! x->x_prev1 = 0.0f;
! x->x_prev2 = 0.0f;
! x->x_cur_out = 0.0f;
! x->x_counter1 = 0;
! x->x_counter2 = 0;
! x->x_state1 = 0;
! x->x_state2 = 0;
! x->x_msi = 0;
!
! return (x);
! }
!
! void sigsin_phase_setup(void)
! {
! sigsin_phase_class = class_new(gensym("sin_phase~"), (t_newmethod)sigsin_phase_new,
! 0, sizeof(t_sigsin_phase), 0, 0);
! CLASS_MAINSIGNALIN(sigsin_phase_class, t_sigsin_phase, x_msi);
! class_addmethod(sigsin_phase_class, (t_method)sigsin_phase_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigsin_phase_class, gensym("iemhelp/help-sin_phase~"));
! }
--- 1,129 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* --- sin_phase~ - output the phase-difference between 2 sinewaves in samples (sig) ---- */
!
! typedef struct sigsin_phase
! {
! t_object x_obj;
! float x_prev1;
! float x_prev2;
! float x_cur_out;
! int x_counter1;
! int x_counter2;
! int x_state1;
! int x_state2;
! float x_msi;
! } t_sigsin_phase;
!
! t_class *sigsin_phase_class;
!
! static t_int *sigsin_phase_perform(t_int *w)
! {
! float *in1 = (float *)(w[1]);
! float *in2 = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigsin_phase *x = (t_sigsin_phase *)(w[4]);
! int i, n = (t_int)(w[5]);
! float prev1=x->x_prev1;
! float prev2=x->x_prev2;
! float cur_out=x->x_cur_out;
! int counter1=x->x_counter1;
! int counter2=x->x_counter2;
! int state1=x->x_state1;
! int state2=x->x_state2;
!
! for(i=0; i<n; i++)
! {
! if((in1[i] >= 0.0f) && (prev1 < 0.0f))
! {
! state1 = 1;
! counter1 = 0;
! }
! else if((in1[i] < 0.0f) && (prev1 >= 0.0f))
! {
! state2 = 1;
! counter2 = 0;
! }
!
! if((in2[i] >= 0.0f) && (prev2 < 0.0f))
! {
! state1 = 0;
! cur_out = (float)(counter1);
! counter1 = 0;
! }
! else if((in2[i] < 0.0f) && (prev2 >= 0.0f))
! {
! state2 = 0;
! cur_out = (float)(counter2);
! counter2 = 0;
! }
!
! if(state1)
! counter1++;
! if(state2)
! counter2++;
!
! prev1 = in1[i];
! prev2 = in2[i];
! out[i] = cur_out;
! }
!
! x->x_prev1 = prev1;
! x->x_prev2 = prev2;
! x->x_cur_out = cur_out;
! x->x_counter1 = counter1;
! x->x_counter2 = counter2;
! x->x_state1 = state1;
! x->x_state2 = state2;
!
! return(w+6);
! }
!
! static void sigsin_phase_dsp(t_sigsin_phase *x, t_signal **sp)
! {
! dsp_add(sigsin_phase_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigsin_phase_new(void)
! {
! t_sigsin_phase *x = (t_sigsin_phase *)pd_new(sigsin_phase_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
!
! x->x_prev1 = 0.0f;
! x->x_prev2 = 0.0f;
! x->x_cur_out = 0.0f;
! x->x_counter1 = 0;
! x->x_counter2 = 0;
! x->x_state1 = 0;
! x->x_state2 = 0;
! x->x_msi = 0;
!
! return (x);
! }
!
! void sigsin_phase_setup(void)
! {
! sigsin_phase_class = class_new(gensym("sin_phase~"), (t_newmethod)sigsin_phase_new,
! 0, sizeof(t_sigsin_phase), 0, 0);
! CLASS_MAINSIGNALIN(sigsin_phase_class, t_sigsin_phase, x_msi);
! class_addmethod(sigsin_phase_class, (t_method)sigsin_phase_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigsin_phase_class, gensym("iemhelp/help-sin_phase~"));
! }
Index: sigrvu.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigrvu.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sigrvu.c 2 Jun 2005 18:23:54 -0000 1.3
--- sigrvu.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,187 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- rvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigrvu
! {
! t_object x_obj;
! void *x_clock_metro;
! int x_metro_time;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigrvu;
!
! t_class *sigrvu_class;
! static void sigrvu_tick_metro(t_sigrvu *x);
!
! static void sigrvu_reset(t_sigrvu *x)
! {
! outlet_float(x->x_obj.ob_outlet, -99.9f);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_stop(t_sigrvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigrvu_start(t_sigrvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigrvu_float(t_sigrvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigrvu_t_release(t_sigrvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigrvu_t_metro(t_sigrvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static t_int *sigrvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigrvu *x = (t_sigrvu *)(w[2]);
! int n = (int)(w[3]);
! float pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! sum += in[i]*in[i];
! }
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigrvu_dsp(t_sigrvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigrvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_tick_metro(t_sigrvu *x)
! {
! float dbr, cur_rms, c1=x->x_c1;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! outlet_float(x->x_obj.ob_outlet, dbr);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_ff(t_sigrvu *x)
! {
! clock_free(x->x_clock_metro);
! }
!
! static void *sigrvu_new(t_floatarg metro_time, t_floatarg release_time)
! {
! t_sigrvu *x=(t_sigrvu *)pd_new(sigrvu_class);
! float t;
! int i;
!
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_clock_metro = clock_new(x, (t_method)sigrvu_tick_metro);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_float);
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigrvu_setup(void)
! {
! sigrvu_class = class_new(gensym("rvu~"), (t_newmethod)sigrvu_new,
! (t_method)sigrvu_ff, sizeof(t_sigrvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigrvu_class, t_sigrvu, x_msi);
! class_addmethod(sigrvu_class, (t_method)sigrvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigrvu_class, sigrvu_float);
! class_addmethod(sigrvu_class, (t_method)sigrvu_reset, gensym("reset"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_start, gensym("start"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_stop, gensym("stop"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_sethelpsymbol(sigrvu_class, gensym("iemhelp/help-rvu~"));
! }
--- 1,187 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- rvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigrvu
! {
! t_object x_obj;
! void *x_clock_metro;
! int x_metro_time;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigrvu;
!
! t_class *sigrvu_class;
! static void sigrvu_tick_metro(t_sigrvu *x);
!
! static void sigrvu_reset(t_sigrvu *x)
! {
! outlet_float(x->x_obj.ob_outlet, -99.9f);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_stop(t_sigrvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigrvu_start(t_sigrvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigrvu_float(t_sigrvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigrvu_t_release(t_sigrvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigrvu_t_metro(t_sigrvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static t_int *sigrvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigrvu *x = (t_sigrvu *)(w[2]);
! int n = (int)(w[3]);
! float pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! sum += in[i]*in[i];
! }
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigrvu_dsp(t_sigrvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigrvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_tick_metro(t_sigrvu *x)
! {
! float dbr, cur_rms, c1=x->x_c1;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! outlet_float(x->x_obj.ob_outlet, dbr);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigrvu_ff(t_sigrvu *x)
! {
! clock_free(x->x_clock_metro);
! }
!
! static void *sigrvu_new(t_floatarg metro_time, t_floatarg release_time)
! {
! t_sigrvu *x=(t_sigrvu *)pd_new(sigrvu_class);
! float t;
! int i;
!
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_clock_metro = clock_new(x, (t_method)sigrvu_tick_metro);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_float);
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigrvu_setup(void)
! {
! sigrvu_class = class_new(gensym("rvu~"), (t_newmethod)sigrvu_new,
! (t_method)sigrvu_ff, sizeof(t_sigrvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigrvu_class, t_sigrvu, x_msi);
! class_addmethod(sigrvu_class, (t_method)sigrvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigrvu_class, sigrvu_float);
! class_addmethod(sigrvu_class, (t_method)sigrvu_reset, gensym("reset"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_start, gensym("start"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_stop, gensym("stop"), 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigrvu_class, (t_method)sigrvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_sethelpsymbol(sigrvu_class, gensym("iemhelp/help-rvu~"));
! }
Index: db2v.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/db2v.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** db2v.c 2 Jun 2005 18:23:54 -0000 1.2
--- db2v.c 8 Jul 2005 02:08:49 -0000 1.3
***************
*** 1,45 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------- db2v - a techn. dB to rms-value converter. --------- */
!
! static t_class *db2v_class;
!
! float db2v(float f)
! {
! return (f <= -199.9 ? 0 : exp(0.11512925465 * f));
! }
!
! static void db2v_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, db2v(f));
! }
!
! static void *db2v_new(void)
! {
! t_object *x = (t_object *)pd_new(db2v_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void db2v_setup(void)
! {
! db2v_class = class_new(gensym("db2v"), db2v_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(db2v_class, (t_method)db2v_float);
! class_sethelpsymbol(db2v_class, gensym("iemhelp/help-db2v"));
! }
--- 1,45 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------- db2v - a techn. dB to rms-value converter. --------- */
!
! static t_class *db2v_class;
!
! float db2v(float f)
! {
! return (f <= -199.9 ? 0 : exp(0.11512925465 * f));
! }
!
! static void db2v_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, db2v(f));
! }
!
! static void *db2v_new(void)
! {
! t_object *x = (t_object *)pd_new(db2v_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void db2v_setup(void)
! {
! db2v_class = class_new(gensym("db2v"), db2v_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(db2v_class, (t_method)db2v_float);
! class_sethelpsymbol(db2v_class, gensym("iemhelp/help-db2v"));
! }
Index: sigiem_delay.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_delay.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigiem_delay.c 2 Jun 2005 18:23:54 -0000 1.2
--- sigiem_delay.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,209 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigiem_delay~ ------------------------------ */
!
! static t_class *sigiem_delay_class;
!
! #define IEMDELAY_DEF_VEC_SIZE 64
!
! typedef struct _sigiem_delay
! {
! t_object x_obj;
! int x_mallocsize;
! t_float x_max_delay_ms;
! t_float x_current_delay_ms;
! t_float *x_begmem1;
! t_float *x_begmem2;
! int x_writeindex;
! int x_blocksize;
! int x_delay_samples;
! t_float x_sr;
! t_float x_msi;
! } t_sigiem_delay;
!
! static void sigiem_delay_cur_del(t_sigiem_delay *x, t_floatarg f)
! {
! if(f < 0.0f)
! f = 0.0f;
! else if(f > x->x_max_delay_ms)
! f = x->x_max_delay_ms;
! x->x_current_delay_ms = f;
! x->x_delay_samples = (int)(0.001f*x->x_sr * f + 0.5f);
! }
!
! static t_int *sigiem_delay_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2, *vec3;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! vec3 = x->x_begmem2 + writeindex - x->x_delay_samples;
! writeindex += n;
! while(n--)
! {
! *vec1++ = *vec2++ = *in++;
! *out++ = *vec3++;
! }
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static t_int *sigiem_delay_perf8(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int i, n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! for(i=0; i<n; i+=8)
! {
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! }
!
! vec2 = x->x_begmem2 + writeindex - x->x_delay_samples;
! for(i=0; i<n; i+=8)
! {
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! }
!
! writeindex += n;
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static void sigiem_delay_dsp(t_sigiem_delay *x, t_signal **sp)
! {
! int blocksize = sp[0]->s_n, i;
!
! if(!x->x_blocksize)/*first time*/
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! x->x_writeindex = blocksize;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
! else if((x->x_blocksize != blocksize) || ((t_float)sp[0]->s_sr != x->x_sr))
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
!
! x->x_begmem1 = (t_float *)resizebytes(x->x_begmem1, 2*x->x_mallocsize*sizeof(t_float), 2*nsamps*sizeof(t_float));
! x->x_mallocsize = nsamps;
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! if(x->x_writeindex >= nsamps)
! x->x_writeindex -= nsamps;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
!
! if(blocksize&7)
! dsp_add(sigiem_delay_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! else
! dsp_add(sigiem_delay_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! }
!
! static void *sigiem_delay_new(t_floatarg max_delay_ms, t_floatarg current_delay_ms)
! {
! t_sigiem_delay *x = (t_sigiem_delay *)pd_new(sigiem_delay_class);
! int nsamps;
!
! if(max_delay_ms < 2.0f)
! max_delay_ms = 2.0f;
! x->x_max_delay_ms = max_delay_ms;
! if(current_delay_ms < 0.0f)
! current_delay_ms = 0.0f;
! else if(current_delay_ms > max_delay_ms)
! current_delay_ms = max_delay_ms;
! x->x_current_delay_ms = current_delay_ms;
! nsamps = max_delay_ms * sys_getsr() * 0.001f;
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (IEMDELAY_DEF_VEC_SIZE - 1));
! nsamps += IEMDELAY_DEF_VEC_SIZE;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! x->x_writeindex = IEMDELAY_DEF_VEC_SIZE;
! x->x_blocksize = 0;
! x->x_sr = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0.0f;
! return (x);
! }
!
! static void sigiem_delay_free(t_sigiem_delay *x)
! {
! freebytes(x->x_begmem1, 2 * x->x_mallocsize * sizeof(t_float));
! }
!
! void sigiem_delay_setup(void)
! {
! sigiem_delay_class = class_new(gensym("iem_delay~"), (t_newmethod)sigiem_delay_new, (t_method)sigiem_delay_free,
! sizeof(t_sigiem_delay), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigiem_delay_class, t_sigiem_delay, x_msi);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_cur_del, gensym("ft1"), A_FLOAT, 0);
! }
--- 1,209 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------------------------- sigiem_delay~ ------------------------------ */
!
! static t_class *sigiem_delay_class;
!
! #define IEMDELAY_DEF_VEC_SIZE 64
!
! typedef struct _sigiem_delay
! {
! t_object x_obj;
! int x_mallocsize;
! t_float x_max_delay_ms;
! t_float x_current_delay_ms;
! t_float *x_begmem1;
! t_float *x_begmem2;
! int x_writeindex;
! int x_blocksize;
! int x_delay_samples;
! t_float x_sr;
! t_float x_msi;
! } t_sigiem_delay;
!
! static void sigiem_delay_cur_del(t_sigiem_delay *x, t_floatarg f)
! {
! if(f < 0.0f)
! f = 0.0f;
! else if(f > x->x_max_delay_ms)
! f = x->x_max_delay_ms;
! x->x_current_delay_ms = f;
! x->x_delay_samples = (int)(0.001f*x->x_sr * f + 0.5f);
! }
!
! static t_int *sigiem_delay_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2, *vec3;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! vec3 = x->x_begmem2 + writeindex - x->x_delay_samples;
! writeindex += n;
! while(n--)
! {
! *vec1++ = *vec2++ = *in++;
! *out++ = *vec3++;
! }
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static t_int *sigiem_delay_perf8(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_delay *x = (t_sigiem_delay *)(w[3]);
! int i, n=(int)(w[4]);
! int writeindex = x->x_writeindex;
! t_float *vec1, *vec2;
!
! vec1 = x->x_begmem1 + writeindex;
! vec2 = x->x_begmem2 + writeindex;
! for(i=0; i<n; i+=8)
! {
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! *vec1++ = *vec2++ = *in++;
! }
!
! vec2 = x->x_begmem2 + writeindex - x->x_delay_samples;
! for(i=0; i<n; i+=8)
! {
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! *out++ = *vec2++;
! }
!
! writeindex += n;
! if(writeindex >= x->x_mallocsize)
! {
! writeindex -= x->x_mallocsize;
! }
! x->x_writeindex = writeindex;
! return(w+5);
! }
!
! static void sigiem_delay_dsp(t_sigiem_delay *x, t_signal **sp)
! {
! int blocksize = sp[0]->s_n, i;
!
! if(!x->x_blocksize)/*first time*/
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! x->x_writeindex = blocksize;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
! else if((x->x_blocksize != blocksize) || ((t_float)sp[0]->s_sr != x->x_sr))
! {
! int nsamps = x->x_max_delay_ms * (t_float)sp[0]->s_sr * 0.001f;
!
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (blocksize - 1));
! nsamps += blocksize;
!
! x->x_begmem1 = (t_float *)resizebytes(x->x_begmem1, 2*x->x_mallocsize*sizeof(t_float), 2*nsamps*sizeof(t_float));
! x->x_mallocsize = nsamps;
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! post("beginn = %x", (unsigned long)x->x_begmem1);
! if(x->x_writeindex >= nsamps)
! x->x_writeindex -= nsamps;
! x->x_sr = (t_float)sp[0]->s_sr;
! x->x_blocksize = blocksize;
! x->x_delay_samples = (int)(0.001f*x->x_sr * x->x_current_delay_ms + 0.5f);
! }
!
! if(blocksize&7)
! dsp_add(sigiem_delay_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! else
! dsp_add(sigiem_delay_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, blocksize);
! }
!
! static void *sigiem_delay_new(t_floatarg max_delay_ms, t_floatarg current_delay_ms)
! {
! t_sigiem_delay *x = (t_sigiem_delay *)pd_new(sigiem_delay_class);
! int nsamps;
!
! if(max_delay_ms < 2.0f)
! max_delay_ms = 2.0f;
! x->x_max_delay_ms = max_delay_ms;
! if(current_delay_ms < 0.0f)
! current_delay_ms = 0.0f;
! else if(current_delay_ms > max_delay_ms)
! current_delay_ms = max_delay_ms;
! x->x_current_delay_ms = current_delay_ms;
! nsamps = max_delay_ms * sys_getsr() * 0.001f;
! if(nsamps < 1)
! nsamps = 1;
! nsamps += ((- nsamps) & (IEMDELAY_DEF_VEC_SIZE - 1));
! nsamps += IEMDELAY_DEF_VEC_SIZE;
! x->x_mallocsize = nsamps;
! x->x_begmem1 = (t_float *)getbytes(2 * x->x_mallocsize * sizeof(t_float));
! x->x_begmem2 = x->x_begmem1 + x->x_mallocsize;
! x->x_writeindex = IEMDELAY_DEF_VEC_SIZE;
! x->x_blocksize = 0;
! x->x_sr = 0.0f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0.0f;
! return (x);
! }
!
! static void sigiem_delay_free(t_sigiem_delay *x)
! {
! freebytes(x->x_begmem1, 2 * x->x_mallocsize * sizeof(t_float));
! }
!
! void sigiem_delay_setup(void)
! {
! sigiem_delay_class = class_new(gensym("iem_delay~"), (t_newmethod)sigiem_delay_new, (t_method)sigiem_delay_free,
! sizeof(t_sigiem_delay), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigiem_delay_class, t_sigiem_delay, x_msi);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_delay_class, (t_method)sigiem_delay_cur_del, gensym("ft1"), A_FLOAT, 0);
! }
Index: split.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/split.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** split.c 2 Jun 2005 18:23:54 -0000 1.3
--- split.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,54 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------- split is like moses ----------- */
!
! typedef struct _split
! {
! t_object x_obj;
! t_outlet *x_out_less;
! t_outlet *x_out_greater_equal;
! float x_threshold;
! } t_split;
!
! static t_class *split_class;
!
! static void split_float(t_split *x, t_float f)
! {
! if(f < x->x_threshold)
! outlet_float(x->x_out_less, f);
! else
! outlet_float(x->x_out_greater_equal, f);
! }
!
! static void *split_new(t_floatarg f)
! {
! t_split *x = (t_split *)pd_new(split_class);
! floatinlet_new(&x->x_obj, &x->x_threshold);
! x->x_out_less = outlet_new(&x->x_obj, &s_float);
! x->x_out_greater_equal = outlet_new(&x->x_obj, &s_float);
! x->x_threshold = f;
! return (x);
! }
!
! void split_setup(void)
! {
! split_class = class_new(gensym("split"), (t_newmethod)split_new, 0,
! sizeof(t_split), 0, A_DEFFLOAT, 0);
! class_addfloat(split_class, split_float);
! class_sethelpsymbol(split_class, gensym("iemhelp/help-split"));
! }
--- 1,54 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------- split is like moses ----------- */
!
! typedef struct _split
! {
! t_object x_obj;
! t_outlet *x_out_less;
! t_outlet *x_out_greater_equal;
! float x_threshold;
! } t_split;
!
! static t_class *split_class;
!
! static void split_float(t_split *x, t_float f)
! {
! if(f < x->x_threshold)
! outlet_float(x->x_out_less, f);
! else
! outlet_float(x->x_out_greater_equal, f);
! }
!
! static void *split_new(t_floatarg f)
! {
! t_split *x = (t_split *)pd_new(split_class);
! floatinlet_new(&x->x_obj, &x->x_threshold);
! x->x_out_less = outlet_new(&x->x_obj, &s_float);
! x->x_out_greater_equal = outlet_new(&x->x_obj, &s_float);
! x->x_threshold = f;
! return (x);
! }
!
! void split_setup(void)
! {
! split_class = class_new(gensym("split"), (t_newmethod)split_new, 0,
! sizeof(t_split), 0, A_DEFFLOAT, 0);
! class_addfloat(split_class, split_float);
! class_sethelpsymbol(split_class, gensym("iemhelp/help-split"));
! }
Index: forpp.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/forpp.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** forpp.c 2 Jun 2005 18:23:54 -0000 1.2
--- forpp.c 8 Jul 2005 02:08:49 -0000 1.3
***************
*** 1,193 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ----------------------------- for++ -------------------------------- */
! /* -- an internal timed counter (start-, stop-number and metro-time) -- */
!
! typedef struct _forpp
! {
! t_object x_obj;
! int x_beg;
! int x_end;
! float x_delay;
! int x_cur;
! int x_incr;
! void *x_out_end;
! void *x_clock;
! void *x_clock2;
! } t_forpp;
!
! static t_class *forpp_class;
!
! static void forpp_tick2(t_forpp *x)
! {
! outlet_bang(x->x_out_end);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_tick(t_forpp *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! }
!
! static void forpp_bang(t_forpp *x)
! {
! x->x_cur = x->x_beg;
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
!
! }
!
! static void forpp_start(t_forpp *x)
! {
! forpp_bang(x);
! }
!
! static void forpp_stop(t_forpp *x)
! {
! if(x->x_incr > 0)
! x->x_cur = x->x_end + 1;
! else
! x->x_cur = x->x_end - 1;
! clock_unset(x->x_clock);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_float(t_forpp *x, t_float beg)
! {
! x->x_beg = (int)beg;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft1(t_forpp *x, t_float end)
! {
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft2(t_forpp *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void forpp_list(t_forpp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc == 2)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! }
! else if(argc == 3)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! forpp_ft2(x, atom_getfloatarg(2, argc, argv));
! }
! }
!
! static void *forpp_new(t_floatarg beg, t_floatarg end, t_floatarg delay)
! {
! t_forpp *x = (t_forpp *)pd_new(forpp_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_float);
! x->x_out_end = outlet_new(&x->x_obj, &s_bang);
! x->x_clock = clock_new(x, (t_method)forpp_tick);
! x->x_clock2 = clock_new(x, (t_method)forpp_tick2);
! x->x_beg = (int)beg;
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_cur = x->x_beg;
! return(x);
! }
!
! static void forpp_ff(t_forpp *x)
! {
! clock_free(x->x_clock);
! clock_free(x->x_clock2);
! }
!
! void forpp_setup(void)
! {
! forpp_class = class_new(gensym("for++"), (t_newmethod)forpp_new,
! (t_method)forpp_ff, sizeof(t_forpp),
! 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(forpp_class, forpp_bang);
! class_addfloat(forpp_class, forpp_float);
! class_addlist(forpp_class, forpp_list);
! class_addmethod(forpp_class, (t_method)forpp_start, gensym("start"), 0);
! class_addmethod(forpp_class, (t_method)forpp_stop, gensym("stop"), 0);
! class_addmethod(forpp_class, (t_method)forpp_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(forpp_class, (t_method)forpp_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(forpp_class, gensym("iemhelp/help-for++"));
! }
--- 1,193 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ----------------------------- for++ -------------------------------- */
! /* -- an internal timed counter (start-, stop-number and metro-time) -- */
!
! typedef struct _forpp
! {
! t_object x_obj;
! int x_beg;
! int x_end;
! float x_delay;
! int x_cur;
! int x_incr;
! void *x_out_end;
! void *x_clock;
! void *x_clock2;
! } t_forpp;
!
! static t_class *forpp_class;
!
! static void forpp_tick2(t_forpp *x)
! {
! outlet_bang(x->x_out_end);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_tick(t_forpp *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! }
!
! static void forpp_bang(t_forpp *x)
! {
! x->x_cur = x->x_beg;
! outlet_float(x->x_obj.ob_outlet, x->x_cur);
! x->x_cur += x->x_incr;
! if(x->x_incr > 0)
! {
! if(x->x_cur <= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
! else
! {
! if(x->x_cur >= x->x_end)
! clock_delay(x->x_clock, x->x_delay);
! else
! {
! clock_unset(x->x_clock);
! clock_delay(x->x_clock2, x->x_delay);
! }
! }
!
! }
!
! static void forpp_start(t_forpp *x)
! {
! forpp_bang(x);
! }
!
! static void forpp_stop(t_forpp *x)
! {
! if(x->x_incr > 0)
! x->x_cur = x->x_end + 1;
! else
! x->x_cur = x->x_end - 1;
! clock_unset(x->x_clock);
! clock_unset(x->x_clock2);
! }
!
! static void forpp_float(t_forpp *x, t_float beg)
! {
! x->x_beg = (int)beg;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft1(t_forpp *x, t_float end)
! {
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! }
!
! static void forpp_ft2(t_forpp *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void forpp_list(t_forpp *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc == 2)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! }
! else if(argc == 3)
! {
! forpp_float(x, atom_getfloatarg(0, argc, argv));
! forpp_ft1(x, atom_getfloatarg(1, argc, argv));
! forpp_ft2(x, atom_getfloatarg(2, argc, argv));
! }
! }
!
! static void *forpp_new(t_floatarg beg, t_floatarg end, t_floatarg delay)
! {
! t_forpp *x = (t_forpp *)pd_new(forpp_class);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! outlet_new(&x->x_obj, &s_float);
! x->x_out_end = outlet_new(&x->x_obj, &s_bang);
! x->x_clock = clock_new(x, (t_method)forpp_tick);
! x->x_clock2 = clock_new(x, (t_method)forpp_tick2);
! x->x_beg = (int)beg;
! x->x_end = (int)end;
! if(x->x_end < x->x_beg)
! x->x_incr = -1;
! else
! x->x_incr = 1;
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_cur = x->x_beg;
! return(x);
! }
!
! static void forpp_ff(t_forpp *x)
! {
! clock_free(x->x_clock);
! clock_free(x->x_clock2);
! }
!
! void forpp_setup(void)
! {
! forpp_class = class_new(gensym("for++"), (t_newmethod)forpp_new,
! (t_method)forpp_ff, sizeof(t_forpp),
! 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(forpp_class, forpp_bang);
! class_addfloat(forpp_class, forpp_float);
! class_addlist(forpp_class, forpp_list);
! class_addmethod(forpp_class, (t_method)forpp_start, gensym("start"), 0);
! class_addmethod(forpp_class, (t_method)forpp_stop, gensym("stop"), 0);
! class_addmethod(forpp_class, (t_method)forpp_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(forpp_class, (t_method)forpp_ft2, gensym("ft2"), A_FLOAT, 0);
! class_sethelpsymbol(forpp_class, gensym("iemhelp/help-for++"));
! }
Index: sigmov_avrg_kern.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigmov_avrg_kern.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigmov_avrg_kern.c 2 Jun 2005 18:23:54 -0000 1.2
--- sigmov_avrg_kern.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,143 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- mov_avrg_kern~ - kernel for a moving-average-filter with IIR - */
!
! typedef struct sigmov_avrg_kern
! {
! t_object x_obj;
! double x_wn1;
! double x_a0;
! double x_sr;
! double x_mstime;
! int x_nsamps;
! int x_counter;
! float x_msi;
! } t_sigmov_avrg_kern;
!
! t_class *sigmov_avrg_kern_class;
!
! static t_int *sigmov_avrg_kern_perform(t_int *w)
! {
! float *in_direct = (float *)(w[1]);
! float *in_delayed = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)(w[4]);
! int i, n = (int)(w[5]);
! double wn0, wn1=x->x_wn1, a0=x->x_a0;
!
! if(x->x_counter)
! {
! int counter = x->x_counter;
!
! if(counter >= n)
! {
! x->x_counter = counter - n;
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! else
! {
! x->x_counter = 0;
! for(i=0; i<counter; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! for(i=counter; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! }
! else
! {
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! x->x_wn1 = wn1;
! return(w+6);
! }
!
! static void sigmov_avrg_kern_ft1(t_sigmov_avrg_kern *x, t_floatarg mstime)
! {
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! }
!
! static void sigmov_avrg_kern_reset(t_sigmov_avrg_kern *x)
! {
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! }
!
! static void sigmov_avrg_kern_dsp(t_sigmov_avrg_kern *x, t_signal **sp)
! {
! x->x_sr = 0.001*(double)(sp[0]->s_sr);
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! dsp_add(sigmov_avrg_kern_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigmov_avrg_kern_new(t_floatarg mstime)
! {
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)pd_new(sigmov_avrg_kern_class);
!
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_sr = 44.1;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigmov_avrg_kern_setup(void)
! {
! sigmov_avrg_kern_class = class_new(gensym("mov_avrg_kern~"), (t_newmethod)sigmov_avrg_kern_new,
! 0, sizeof(t_sigmov_avrg_kern), 0, A_FLOAT, 0);
! CLASS_MAINSIGNALIN(sigmov_avrg_kern_class, t_sigmov_avrg_kern, x_msi);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_dsp, gensym("dsp"), 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_reset, gensym("reset"), 0);
! }
--- 1,143 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* -- mov_avrg_kern~ - kernel for a moving-average-filter with IIR - */
!
! typedef struct sigmov_avrg_kern
! {
! t_object x_obj;
! double x_wn1;
! double x_a0;
! double x_sr;
! double x_mstime;
! int x_nsamps;
! int x_counter;
! float x_msi;
! } t_sigmov_avrg_kern;
!
! t_class *sigmov_avrg_kern_class;
!
! static t_int *sigmov_avrg_kern_perform(t_int *w)
! {
! float *in_direct = (float *)(w[1]);
! float *in_delayed = (float *)(w[2]);
! float *out = (float *)(w[3]);
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)(w[4]);
! int i, n = (int)(w[5]);
! double wn0, wn1=x->x_wn1, a0=x->x_a0;
!
! if(x->x_counter)
! {
! int counter = x->x_counter;
!
! if(counter >= n)
! {
! x->x_counter = counter - n;
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! else
! {
! x->x_counter = 0;
! for(i=0; i<counter; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! for(i=counter; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! }
! else
! {
! for(i=0; i<n; i++)
! {
! wn0 = wn1 + a0*(double)(*in_direct++ - *in_delayed++);
! *out++ = (float)wn0;
! wn1 = wn0;
! }
! }
! x->x_wn1 = wn1;
! return(w+6);
! }
!
! static void sigmov_avrg_kern_ft1(t_sigmov_avrg_kern *x, t_floatarg mstime)
! {
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! }
!
! static void sigmov_avrg_kern_reset(t_sigmov_avrg_kern *x)
! {
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! }
!
! static void sigmov_avrg_kern_dsp(t_sigmov_avrg_kern *x, t_signal **sp)
! {
! x->x_sr = 0.001*(double)(sp[0]->s_sr);
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
! dsp_add(sigmov_avrg_kern_perform, 5, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigmov_avrg_kern_new(t_floatarg mstime)
! {
! t_sigmov_avrg_kern *x = (t_sigmov_avrg_kern *)pd_new(sigmov_avrg_kern_class);
!
! if(mstime < 0.04)
! mstime = 0.04;
! x->x_mstime = (double)mstime;
! x->x_sr = 44.1;
! x->x_nsamps = (int)(x->x_sr * x->x_mstime);
! x->x_counter = x->x_nsamps;
! x->x_wn1 = 0.0;
! x->x_a0 = 1.0/(double)(x->x_nsamps);
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! return(x);
! }
!
! void sigmov_avrg_kern_setup(void)
! {
! sigmov_avrg_kern_class = class_new(gensym("mov_avrg_kern~"), (t_newmethod)sigmov_avrg_kern_new,
! 0, sizeof(t_sigmov_avrg_kern), 0, A_FLOAT, 0);
! CLASS_MAINSIGNALIN(sigmov_avrg_kern_class, t_sigmov_avrg_kern, x_msi);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_dsp, gensym("dsp"), 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigmov_avrg_kern_class, (t_method)sigmov_avrg_kern_reset, gensym("reset"), 0);
! }
Index: sigvcf_filter.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigvcf_filter.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sigvcf_filter.c 2 Jun 2005 18:23:54 -0000 1.3
--- sigvcf_filter.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,334 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------- vcf_filter~ - slow dynamic vcf_filter 1. and 2. order ----------- */
!
! typedef struct sigvcf_filter
! {
! t_object x_obj;
! float x_wn1;
! float x_wn2;
! float x_msi;
! char x_filtname[6];
! } t_sigvcf_filter;
!
! t_class *sigvcf_filter_class;
!
! static t_int *sigvcf_filter_perform_snafu(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[4]);
! int n = (t_int)(w[6]);
!
! while(n--)
! *out++ = *in++;
! return(w+7);
! }
!
! /*
! lp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! bp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! rbp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! hp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! */
!
! static t_int *sigvcf_filter_perform_lp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_bp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_rbp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float al, l, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_hp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp, forw;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
! forw = rcp * (l2 - 1.0f);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static void sigvcf_filter_dsp(t_sigvcf_filter *x, t_signal **sp)
! {
! if(!strcmp(x->x_filtname,"bp2"))
! dsp_add(sigvcf_filter_perform_bp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"rbp2"))
! dsp_add(sigvcf_filter_perform_rbp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"lp2"))
! dsp_add(sigvcf_filter_perform_lp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"hp2"))
! dsp_add(sigvcf_filter_perform_hp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else
! {
! dsp_add(sigvcf_filter_perform_snafu, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! post("vcf_filter~-Error: 1. initial-arguments: <sym> kind: lp2, bp2, rbp2, hp2!");
! }
! }
!
! static void *sigvcf_filter_new(t_symbol *filt_typ)
! {
! t_sigvcf_filter *x = (t_sigvcf_filter *)pd_new(sigvcf_filter_class);
! char *c;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_wn1 = 0.0;
! x->x_wn2 = 0.0;
! c = (char *)filt_typ->s_name;
! c[5] = 0;
! strcpy(x->x_filtname, c);
! return(x);
! }
!
! void sigvcf_filter_setup(void)
! {
! sigvcf_filter_class = class_new(gensym("vcf_filter~"), (t_newmethod)sigvcf_filter_new,
! 0, sizeof(t_sigvcf_filter), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigvcf_filter_class, t_sigvcf_filter, x_msi);
! class_addmethod(sigvcf_filter_class, (t_method)sigvcf_filter_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigvcf_filter_class, gensym("iemhelp/help-vcf_filter~"));
! }
--- 1,334 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------- vcf_filter~ - slow dynamic vcf_filter 1. and 2. order ----------- */
!
! typedef struct sigvcf_filter
! {
! t_object x_obj;
! float x_wn1;
! float x_wn2;
! float x_msi;
! char x_filtname[6];
! } t_sigvcf_filter;
!
! t_class *sigvcf_filter_class;
!
! static t_int *sigvcf_filter_perform_snafu(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[4]);
! int n = (t_int)(w[6]);
!
! while(n--)
! *out++ = *in++;
! return(w+7);
! }
!
! /*
! lp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! bp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! rbp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! hp2
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! */
!
! static t_int *sigvcf_filter_perform_lp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*(wn0 + 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_bp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*al*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_rbp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float al, l, l2, rcp;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
!
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = rcp*l*(wn0 - wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static t_int *sigvcf_filter_perform_hp2(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *lp = (float *)(w[2]);
! float *q = (float *)(w[3]);
! float *out = (float *)(w[4]);
! t_sigvcf_filter *x = (t_sigvcf_filter *)(w[5]);
! int i, n = (t_int)(w[6]);
! float wn0, wn1=x->x_wn1, wn2=x->x_wn2;
! float l, al, l2, rcp, forw;
!
! for(i=0; i<n; i+=4)
! {
! l = lp[i];
! if(q[i] < 0.000001)
! al = 1000000.0*l;
! else if(q[i] > 1000000.0)
! al = 0.000001*l;
! else
! al = l/q[i];
! l2 = l*l + 1.0f;
! rcp = 1.0f/(al + l2);
! forw = rcp * (l2 - 1.0f);
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
!
! wn0 = *in++ - rcp*(2.0f*(2.0f - l2)*wn1 + (l2 - al)*wn2);
! *out++ = forw*(wn0 - 2.0f*wn1 + wn2);
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->x_wn1 = wn1;
! x->x_wn2 = wn2;
! return(w+7);
! }
!
! static void sigvcf_filter_dsp(t_sigvcf_filter *x, t_signal **sp)
! {
! if(!strcmp(x->x_filtname,"bp2"))
! dsp_add(sigvcf_filter_perform_bp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"rbp2"))
! dsp_add(sigvcf_filter_perform_rbp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"lp2"))
! dsp_add(sigvcf_filter_perform_lp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else if(!strcmp(x->x_filtname,"hp2"))
! dsp_add(sigvcf_filter_perform_hp2, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! else
! {
! dsp_add(sigvcf_filter_perform_snafu, 6, sp[0]->s_vec, sp[1]->s_vec,
! sp[2]->s_vec, sp[3]->s_vec, x, sp[0]->s_n);
! post("vcf_filter~-Error: 1. initial-arguments: <sym> kind: lp2, bp2, rbp2, hp2!");
! }
! }
!
! static void *sigvcf_filter_new(t_symbol *filt_typ)
! {
! t_sigvcf_filter *x = (t_sigvcf_filter *)pd_new(sigvcf_filter_class);
! char *c;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
! outlet_new(&x->x_obj, &s_signal);
! x->x_msi = 0;
! x->x_wn1 = 0.0;
! x->x_wn2 = 0.0;
! c = (char *)filt_typ->s_name;
! c[5] = 0;
! strcpy(x->x_filtname, c);
! return(x);
! }
!
! void sigvcf_filter_setup(void)
! {
! sigvcf_filter_class = class_new(gensym("vcf_filter~"), (t_newmethod)sigvcf_filter_new,
! 0, sizeof(t_sigvcf_filter), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigvcf_filter_class, t_sigvcf_filter, x_msi);
! class_addmethod(sigvcf_filter_class, (t_method)sigvcf_filter_dsp, gensym("dsp"), 0);
! class_sethelpsymbol(sigvcf_filter_class, gensym("iemhelp/help-vcf_filter~"));
! }
Index: sigpvu.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigpvu.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sigpvu.c 2 Jun 2005 18:23:54 -0000 1.3
--- sigpvu.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,206 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- pvu~ - simple peak-vu-meter. ----------------- */
!
! typedef struct sigpvu
! {
! t_object x_obj;
! void *x_outlet_meter;
! void *x_outlet_over;
! void *x_clock;
! float x_cur_peak;
! float x_old_peak;
! float x_threshold_over;
! float x_c1;
! int x_metro_time;
! float x_release_time;
! int x_overflow_counter;
! int x_started;
! float x_msi;
! } t_sigpvu;
!
! t_class *sigpvu_class;
! static void sigpvu_tick(t_sigpvu *x);
!
! static void sigpvu_reset(t_sigpvu *x)
! {
! outlet_float(x->x_outlet_over, (t_float)0);
! outlet_float(x->x_outlet_meter, -199.9);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_stop(t_sigpvu *x)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
!
! static void sigpvu_start(t_sigpvu *x)
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigpvu_float(t_sigpvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigpvu_t_release(t_sigpvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)x->x_metro_time/(float)release_time);
! }
!
! static void sigpvu_t_metro(t_sigpvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-(float)metro_time/(float)x->x_release_time);
! }
!
! static void sigpvu_threshold(t_sigpvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigpvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigpvu *x = (t_sigpvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak;
! float absolute;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! if(absolute > peak)
! peak = absolute;
! }
! x->x_cur_peak = peak;
! }
! return(w+4);
! }
!
! static void sigpvu_dsp(t_sigpvu *x, t_signal **sp)
! {
! dsp_add(sigpvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_tick(t_sigpvu *x)
! {
! float db;
! int i;
!
! x->x_old_peak *= x->x_c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak <= 0.0000000001f)
! db = -199.9f;
! else if(x->x_old_peak > 1000000.0f)
! {
! db = 120.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! db = 8.6858896381f*log(x->x_old_peak);
! if(db >= x->x_threshold_over)
! {
! x->x_overflow_counter++;
! outlet_float(x->x_outlet_over, (t_float)x->x_overflow_counter);
! }
! outlet_float(x->x_outlet_meter, db);
! x->x_cur_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void *sigpvu_new(t_floatarg metro_time, t_floatarg release_time, t_floatarg threshold)
! {
! t_sigpvu *x;
! float t;
!
! x = (t_sigpvu *)pd_new(sigpvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_threshold_over = threshold;
! x->x_overflow_counter = 0;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)metro_time/(float)release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_clock = clock_new(x, (t_method)sigpvu_tick);
! x->x_outlet_meter = outlet_new(&x->x_obj, &s_float);/* left */
! x->x_outlet_over = outlet_new(&x->x_obj, &s_float); /* right */
! x->x_started = 1;
! x->x_msi = 0;
! return(x);
! }
!
! static void sigpvu_ff(t_sigpvu *x)
! {
! clock_free(x->x_clock);
! }
!
! void sigpvu_setup(void )
! {
! sigpvu_class = class_new(gensym("pvu~"), (t_newmethod)sigpvu_new,
! (t_method)sigpvu_ff, sizeof(t_sigpvu), 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpvu_class, t_sigpvu, x_msi);
! class_addmethod(sigpvu_class, (t_method)sigpvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigpvu_class, sigpvu_float);
! class_addmethod(sigpvu_class, (t_method)sigpvu_reset, gensym("reset"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_start, gensym("start"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_stop, gensym("stop"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigpvu_class, gensym("iemhelp/help-pvu~"));
! }
--- 1,206 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- pvu~ - simple peak-vu-meter. ----------------- */
!
! typedef struct sigpvu
! {
! t_object x_obj;
! void *x_outlet_meter;
! void *x_outlet_over;
! void *x_clock;
! float x_cur_peak;
! float x_old_peak;
! float x_threshold_over;
! float x_c1;
! int x_metro_time;
! float x_release_time;
! int x_overflow_counter;
! int x_started;
! float x_msi;
! } t_sigpvu;
!
! t_class *sigpvu_class;
! static void sigpvu_tick(t_sigpvu *x);
!
! static void sigpvu_reset(t_sigpvu *x)
! {
! outlet_float(x->x_outlet_over, (t_float)0);
! outlet_float(x->x_outlet_meter, -199.9);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_stop(t_sigpvu *x)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
!
! static void sigpvu_start(t_sigpvu *x)
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigpvu_float(t_sigpvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigpvu_t_release(t_sigpvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)x->x_metro_time/(float)release_time);
! }
!
! static void sigpvu_t_metro(t_sigpvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-(float)metro_time/(float)x->x_release_time);
! }
!
! static void sigpvu_threshold(t_sigpvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigpvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigpvu *x = (t_sigpvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak;
! float absolute;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! absolute = fabs(*in++);
! if(absolute > peak)
! peak = absolute;
! }
! x->x_cur_peak = peak;
! }
! return(w+4);
! }
!
! static void sigpvu_dsp(t_sigpvu *x, t_signal **sp)
! {
! dsp_add(sigpvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void sigpvu_tick(t_sigpvu *x)
! {
! float db;
! int i;
!
! x->x_old_peak *= x->x_c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak <= 0.0000000001f)
! db = -199.9f;
! else if(x->x_old_peak > 1000000.0f)
! {
! db = 120.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! db = 8.6858896381f*log(x->x_old_peak);
! if(db >= x->x_threshold_over)
! {
! x->x_overflow_counter++;
! outlet_float(x->x_outlet_over, (t_float)x->x_overflow_counter);
! }
! outlet_float(x->x_outlet_meter, db);
! x->x_cur_peak = 0.0f;
! clock_delay(x->x_clock, x->x_metro_time);
! }
!
! static void *sigpvu_new(t_floatarg metro_time, t_floatarg release_time, t_floatarg threshold)
! {
! t_sigpvu *x;
! float t;
!
! x = (t_sigpvu *)pd_new(sigpvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_threshold_over = threshold;
! x->x_overflow_counter = 0;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_c1 = exp(-(float)metro_time/(float)release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_clock = clock_new(x, (t_method)sigpvu_tick);
! x->x_outlet_meter = outlet_new(&x->x_obj, &s_float);/* left */
! x->x_outlet_over = outlet_new(&x->x_obj, &s_float); /* right */
! x->x_started = 1;
! x->x_msi = 0;
! return(x);
! }
!
! static void sigpvu_ff(t_sigpvu *x)
! {
! clock_free(x->x_clock);
! }
!
! void sigpvu_setup(void )
! {
! sigpvu_class = class_new(gensym("pvu~"), (t_newmethod)sigpvu_new,
! (t_method)sigpvu_ff, sizeof(t_sigpvu), 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigpvu_class, t_sigpvu, x_msi);
! class_addmethod(sigpvu_class, (t_method)sigpvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigpvu_class, sigpvu_float);
! class_addmethod(sigpvu_class, (t_method)sigpvu_reset, gensym("reset"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_start, gensym("start"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_stop, gensym("stop"), 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigpvu_class, (t_method)sigpvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigpvu_class, gensym("iemhelp/help-pvu~"));
! }
Index: gate.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/gate.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** gate.c 2 Jun 2005 18:23:54 -0000 1.2
--- gate.c 8 Jul 2005 02:08:49 -0000 1.3
***************
*** 1,85 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------- gate ---------------------- */
! /* ----------- like spigot ------------ */
!
! typedef struct _gate
! {
! t_object x_obj;
! float x_state;
! } t_gate;
!
! static t_class *gate_class;
!
! static void gate_bang(t_gate *x)
! {
! if(x->x_state != 0)
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void gate_pointer(t_gate *x, t_gpointer *gp)
! {
! if(x->x_state != 0)
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void gate_float(t_gate *x, t_floatarg f)
! {
! if(x->x_state != 0)
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void gate_symbol(t_gate *x, t_symbol *s)
! {
! if(x->x_state != 0)
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void gate_list(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_list(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void gate_anything(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void *gate_new(t_floatarg f)
! {
! t_gate *x = (t_gate *)pd_new(gate_class);
! floatinlet_new(&x->x_obj, &x->x_state);
! outlet_new(&x->x_obj, 0);
! x->x_state = (f==0.0)?0:1;
! return (x);
! }
!
! void gate_setup(void)
! {
! gate_class = class_new(gensym("gate"), (t_newmethod)gate_new, 0,
! sizeof(t_gate), 0, A_DEFFLOAT, 0);
! class_addbang(gate_class, gate_bang);
! class_addpointer(gate_class, gate_pointer);
! class_addfloat(gate_class, gate_float);
! class_addsymbol(gate_class, gate_symbol);
! class_addlist(gate_class, gate_list);
! class_addanything(gate_class, gate_anything);
! class_sethelpsymbol(gate_class, gensym("iemhelp/help-gate"));
! }
--- 1,85 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* --------- gate ---------------------- */
! /* ----------- like spigot ------------ */
!
! typedef struct _gate
! {
! t_object x_obj;
! float x_state;
! } t_gate;
!
! static t_class *gate_class;
!
! static void gate_bang(t_gate *x)
! {
! if(x->x_state != 0)
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void gate_pointer(t_gate *x, t_gpointer *gp)
! {
! if(x->x_state != 0)
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void gate_float(t_gate *x, t_floatarg f)
! {
! if(x->x_state != 0)
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void gate_symbol(t_gate *x, t_symbol *s)
! {
! if(x->x_state != 0)
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void gate_list(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_list(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void gate_anything(t_gate *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_state != 0)
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void *gate_new(t_floatarg f)
! {
! t_gate *x = (t_gate *)pd_new(gate_class);
! floatinlet_new(&x->x_obj, &x->x_state);
! outlet_new(&x->x_obj, 0);
! x->x_state = (f==0.0)?0:1;
! return (x);
! }
!
! void gate_setup(void)
! {
! gate_class = class_new(gensym("gate"), (t_newmethod)gate_new, 0,
! sizeof(t_gate), 0, A_DEFFLOAT, 0);
! class_addbang(gate_class, gate_bang);
! class_addpointer(gate_class, gate_pointer);
! class_addfloat(gate_class, gate_float);
! class_addsymbol(gate_class, gate_symbol);
! class_addlist(gate_class, gate_list);
! class_addanything(gate_class, gate_anything);
! class_sethelpsymbol(gate_class, gensym("iemhelp/help-gate"));
! }
Index: sigpara_bp2.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigpara_bp2.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sigpara_bp2.c 2 Jun 2005 18:23:54 -0000 1.3
--- sigpara_bp2.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,426 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- para_bp2~ - parametric bandpass 2. order ----------- */
!
! typedef struct sigpara_bp2
! {
! t_object x_obj;
! float wn1;
! float wn2;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! float sr;
! float cur_f;
! float cur_l;
! float cur_a;
! float cur_g;
! float delta_f;
! float delta_a;
! float delta_g;
! float end_f;
! float end_a;
! float end_g;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_f;
! int counter_a;
! int counter_g;
! int event_mask;
! void *x_debug_outlet;
! t_atom x_at[5];
! float x_msi;
! } t_sigpara_bp2;
!
! t_class *sigpara_bp2_class;
!
! static void sigpara_bp2_calc(t_sigpara_bp2 *x)
! {
! float l, al, gal, l2, rcp;
!
! l = x->cur_l;
! l2 = l*l + 1.0;
! al = l*x->cur_a;
! gal = al*x->cur_g;
! rcp = 1.0f/(al + l2);
! x->a0 = rcp*(l2 + gal);
! x->a1 = rcp*2.0f*(2.0f - l2);
! x->a2 = rcp*(l2 - gal);
! x->b1 = -x->a1;
! x->b2 = rcp*(al - l2);
! }
!
! static void sigpara_bp2_dsp_tick(t_sigpara_bp2 *x)
! {
! if(x->event_mask)
! {
! float discriminant;
!
! if(x->counter_f)
! {
! float l, si, co;
!
! if(x->counter_f <= 1)
! {
! x->cur_f = x->end_f;
! x->counter_f = 0;
! x->event_mask &= 6;/*set event_mask_bit 0 = 0*/
! }
! else
! {
! x->counter_f--;
! x->cur_f *= x->delta_f;
! }
! l = x->cur_f * x->sr;
! if(l < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(l > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(l);
! co = cos(l);
! x->cur_l = co/si;
! }
! }
! if(x->counter_a)
! {
! if(x->counter_a <= 1)
! {
! x->cur_a = x->end_a;
! x->counter_a = 0;
! x->event_mask &= 5;/*set event_mask_bit 1 = 0*/
! }
! else
! {
! x->counter_a--;
! x->cur_a *= x->delta_a;
! }
! }
! if(x->counter_g)
! {
! if(x->counter_g <= 1)
! {
! x->cur_g = x->end_g;
! x->counter_g = 0;
! x->event_mask &= 3;/*set event_mask_bit 2 = 0*/
! }
! else
! {
! x->counter_g--;
! x->cur_g *= x->delta_g;
! }
! }
!
! sigpara_bp2_calc(x);
!
! /* stability check */
!
! discriminant = x->b1 * x->b1 + 4.0f * x->b2;
! if(x->b1 <= -1.9999996f)
! x->b1 = -1.9999996f;
! else if(x->b1 >= 1.9999996f)
! x->b1 = 1.9999996f;
!
! if(x->b2 <= -0.9999998f)
! x->b2 = -0.9999998f;
! else if(x->b2 >= 0.9999998f)
! x->b2 = 0.9999998f;
!
! if(discriminant >= 0.0f)
! {
! if(0.9999998f - x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f - x->b1;
! if(0.9999998f + x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f + x->b1;
! }
! }
! }
!
! static t_int *sigpara_bp2_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn0, wn1=x->wn1, wn2=x->wn2;
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! wn0 = *in++ + b1*wn1 + b2*wn2;
! *out++ = a0*wn0 + a1*wn1 + a2*wn2;
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->wn1 = wn1;
! x->wn2 = wn2;
! return(w+5);
! }
! /* yn0 = *out;
! xn0 = *in;
! *************
! yn0 = a0*xn0 + a1*xn1 + a2*xn2 + b1*yn1 + b2*yn2;
! yn2 = yn1;
! yn1 = yn0;
! xn2 = xn1;
! xn1 = xn0;
! *************************
! y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static t_int *sigpara_bp2_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn[10];
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! wn[0] = x->wn2;
! wn[1] = x->wn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! wn[2] = in[0] + b1*wn[1] + b2*wn[0];
! out[0] = a0*wn[2] + a1*wn[1] + a2*wn[0];
! wn[3] = in[1] + b1*wn[2] + b2*wn[1];
! out[1] = a0*wn[3] + a1*wn[2] + a2*wn[1];
! wn[4] = in[2] + b1*wn[3] + b2*wn[2];
! out[2] = a0*wn[4] + a1*wn[3] + a2*wn[2];
! wn[5] = in[3] + b1*wn[4] + b2*wn[3];
! out[3] = a0*wn[5] + a1*wn[4] + a2*wn[3];
! wn[6] = in[4] + b1*wn[5] + b2*wn[4];
! out[4] = a0*wn[6] + a1*wn[5] + a2*wn[4];
! wn[7] = in[5] + b1*wn[6] + b2*wn[5];
! out[5] = a0*wn[7] + a1*wn[6] + a2*wn[5];
! wn[8] = in[6] + b1*wn[7] + b2*wn[6];
! out[6] = a0*wn[8] + a1*wn[7] + a2*wn[6];
! wn[9] = in[7] + b1*wn[8] + b2*wn[7];
! out[7] = a0*wn[9] + a1*wn[8] + a2*wn[7];
! wn[0] = wn[8];
! wn[1] = wn[9];
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn[0]))
! wn[0] = 0.0f;
! if(IEM_DENORMAL(wn[1]))
! wn[1] = 0.0f;
!
! x->wn1 = wn[1];
! x->wn2 = wn[0];
! return(w+5);
! }
!
! static void sigpara_bp2_ft4(t_sigpara_bp2 *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void sigpara_bp2_ft3(t_sigpara_bp2 *x, t_floatarg l)
! {
! float g = exp(0.11512925465 * l);
!
! if(g != x->cur_g)
! {
! x->end_g = g;
! x->counter_g = x->ticks;
! x->delta_g = exp(log(g/x->cur_g)*x->rcp_ticks);
! x->event_mask |= 4;/*set event_mask_bit 2 = 1*/
! }
! }
!
! static void sigpara_bp2_ft2(t_sigpara_bp2 *x, t_floatarg q)
! {
! float a;
!
! if(q <= 0.0f)
! q = 0.000001f;
! a = 1.0f/q;
! if(a != x->cur_a)
! {
! x->end_a = a;
! x->counter_a = x->ticks;
! x->delta_a = exp(log(a/x->cur_a)*x->rcp_ticks);
! x->event_mask |= 2;/*set event_mask_bit 1 = 1*/
! }
! }
!
! static void sigpara_bp2_ft1(t_sigpara_bp2 *x, t_floatarg f)
! {
! if(f <= 0.0f)
! f = 0.000001f;
! if(f != x->cur_f)
! {
! x->end_f = f;
! x->counter_f = x->ticks;
! x->delta_f = exp(log(f/x->cur_f)*x->rcp_ticks);
! x->event_mask |= 1;/*set event_mask_bit 0 = 1*/
! }
! }
!
! static void sigpara_bp2_print(t_sigpara_bp2 *x)
! {
! // post("fb1 = %g, fb2 = %g, ff1 = %g, ff2 = %g, ff3 = %g", x->b1, x->b2, x->a0, x->a1, x->a2);
! x->x_at[0].a_w.w_float = x->b1;
! x->x_at[1].a_w.w_float = x->b2;
! x->x_at[2].a_w.w_float = x->a0;
! x->x_at[3].a_w.w_float = x->a1;
! x->x_at[4].a_w.w_float = x->a2;
! outlet_list(x->x_debug_outlet, &s_list, 5, x->x_at);
! }
!
! static void sigpara_bp2_dsp(t_sigpara_bp2 *x, t_signal **sp)
! {
! float si, co, f;
! int i, n=(int)sp[0]->s_n;
!
! x->sr = 3.14159265358979323846f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! f = x->cur_f * x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(n&7)
! dsp_add(sigpara_bp2_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(sigpara_bp2_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *sigpara_bp2_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)pd_new(sigpara_bp2_class);
! int i;
! float si, co, f=0.0, q=1.0, l=0.0, interpol=0.0;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_debug_outlet = outlet_new(&x->x_obj, &s_list);
! x->x_msi = 0;
!
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_at[3].a_type = A_FLOAT;
! x->x_at[4].a_type = A_FLOAT;
!
! x->event_mask = 1;
! x->counter_f = 1;
! x->counter_a = 0;
! x->counter_g = 0;
! x->delta_f = 0.0f;
! x->delta_a = 0.0f;
! x->delta_g = 0.0f;
! x->interpol_time = 500.0f;
! x->wn1 = 0.0;
! x->wn2 = 0.0;
! x->a0 = 0.0;
! x->a1 = 0.0;
! x->a2 = 0.0;
! x->b1 = 0.0;
! x->b2 = 0.0;
! x->sr = 3.14159265358979323846f / 44100.0f;
! x->cur_a = 1.0;
! if((argc == 4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! f = (float)atom_getfloatarg(0, argc, argv);
! q = (float)atom_getfloatarg(1, argc, argv);
! l = (float)atom_getfloatarg(2, argc, argv);
! interpol = (float)atom_getfloatarg(3, argc, argv);
! }
! if(f <= 0.0f)
! f = 0.000001f;
! x->cur_f = f;
! f *= x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(q <= 0.0f)
! q = 0.000001f;
! x->cur_a = 1.0f/q;
! x->cur_g = exp(0.11512925465 * l);
! if(interpol <= 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_f = x->cur_f;
! x->end_a = x->cur_a;
! x->end_g = x->cur_g;
! return(x);
! }
!
! void sigpara_bp2_setup(void)
! {
! sigpara_bp2_class = class_new(gensym("para_bp2~"), (t_newmethod)sigpara_bp2_new,
! 0, sizeof(t_sigpara_bp2), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sigpara_bp2_class, t_sigpara_bp2, x_msi);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_dsp, gensym("dsp"), 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_print, gensym("print"), 0);
! class_sethelpsymbol(sigpara_bp2_class, gensym("iemhelp/help-para_bp2~"));
! }
--- 1,426 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
!
! /* ---------- para_bp2~ - parametric bandpass 2. order ----------- */
!
! typedef struct sigpara_bp2
! {
! t_object x_obj;
! float wn1;
! float wn2;
! float a0;
! float a1;
! float a2;
! float b1;
! float b2;
! float sr;
! float cur_f;
! float cur_l;
! float cur_a;
! float cur_g;
! float delta_f;
! float delta_a;
! float delta_g;
! float end_f;
! float end_a;
! float end_g;
! float ticks_per_interpol_time;
! float rcp_ticks;
! float interpol_time;
! int ticks;
! int counter_f;
! int counter_a;
! int counter_g;
! int event_mask;
! void *x_debug_outlet;
! t_atom x_at[5];
! float x_msi;
! } t_sigpara_bp2;
!
! t_class *sigpara_bp2_class;
!
! static void sigpara_bp2_calc(t_sigpara_bp2 *x)
! {
! float l, al, gal, l2, rcp;
!
! l = x->cur_l;
! l2 = l*l + 1.0;
! al = l*x->cur_a;
! gal = al*x->cur_g;
! rcp = 1.0f/(al + l2);
! x->a0 = rcp*(l2 + gal);
! x->a1 = rcp*2.0f*(2.0f - l2);
! x->a2 = rcp*(l2 - gal);
! x->b1 = -x->a1;
! x->b2 = rcp*(al - l2);
! }
!
! static void sigpara_bp2_dsp_tick(t_sigpara_bp2 *x)
! {
! if(x->event_mask)
! {
! float discriminant;
!
! if(x->counter_f)
! {
! float l, si, co;
!
! if(x->counter_f <= 1)
! {
! x->cur_f = x->end_f;
! x->counter_f = 0;
! x->event_mask &= 6;/*set event_mask_bit 0 = 0*/
! }
! else
! {
! x->counter_f--;
! x->cur_f *= x->delta_f;
! }
! l = x->cur_f * x->sr;
! if(l < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(l > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(l);
! co = cos(l);
! x->cur_l = co/si;
! }
! }
! if(x->counter_a)
! {
! if(x->counter_a <= 1)
! {
! x->cur_a = x->end_a;
! x->counter_a = 0;
! x->event_mask &= 5;/*set event_mask_bit 1 = 0*/
! }
! else
! {
! x->counter_a--;
! x->cur_a *= x->delta_a;
! }
! }
! if(x->counter_g)
! {
! if(x->counter_g <= 1)
! {
! x->cur_g = x->end_g;
! x->counter_g = 0;
! x->event_mask &= 3;/*set event_mask_bit 2 = 0*/
! }
! else
! {
! x->counter_g--;
! x->cur_g *= x->delta_g;
! }
! }
!
! sigpara_bp2_calc(x);
!
! /* stability check */
!
! discriminant = x->b1 * x->b1 + 4.0f * x->b2;
! if(x->b1 <= -1.9999996f)
! x->b1 = -1.9999996f;
! else if(x->b1 >= 1.9999996f)
! x->b1 = 1.9999996f;
!
! if(x->b2 <= -0.9999998f)
! x->b2 = -0.9999998f;
! else if(x->b2 >= 0.9999998f)
! x->b2 = 0.9999998f;
!
! if(discriminant >= 0.0f)
! {
! if(0.9999998f - x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f - x->b1;
! if(0.9999998f + x->b1 - x->b2 < 0.0f)
! x->b2 = 0.9999998f + x->b1;
! }
! }
! }
!
! static t_int *sigpara_bp2_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn0, wn1=x->wn1, wn2=x->wn2;
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! for(i=0; i<n; i++)
! {
! wn0 = *in++ + b1*wn1 + b2*wn2;
! *out++ = a0*wn0 + a1*wn1 + a2*wn2;
! wn2 = wn1;
! wn1 = wn0;
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn2))
! wn2 = 0.0f;
! if(IEM_DENORMAL(wn1))
! wn1 = 0.0f;
!
! x->wn1 = wn1;
! x->wn2 = wn2;
! return(w+5);
! }
! /* yn0 = *out;
! xn0 = *in;
! *************
! yn0 = a0*xn0 + a1*xn1 + a2*xn2 + b1*yn1 + b2*yn2;
! yn2 = yn1;
! yn1 = yn0;
! xn2 = xn1;
! xn1 = xn0;
! *************************
! y/x = (a0 + a1*z-1 + a2*z-2)/(1 - b1*z-1 - b2*z-2);*/
!
! static t_int *sigpara_bp2_perf8(t_int *w)
! {
! float *in = (float *)(w[1]);
! float *out = (float *)(w[2]);
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)(w[3]);
! int i, n = (t_int)(w[4]);
! float wn[10];
! float a0=x->a0, a1=x->a1, a2=x->a2;
! float b1=x->b1, b2=x->b2;
!
! sigpara_bp2_dsp_tick(x);
! wn[0] = x->wn2;
! wn[1] = x->wn1;
! for(i=0; i<n; i+=8, in+=8, out+=8)
! {
! wn[2] = in[0] + b1*wn[1] + b2*wn[0];
! out[0] = a0*wn[2] + a1*wn[1] + a2*wn[0];
! wn[3] = in[1] + b1*wn[2] + b2*wn[1];
! out[1] = a0*wn[3] + a1*wn[2] + a2*wn[1];
! wn[4] = in[2] + b1*wn[3] + b2*wn[2];
! out[2] = a0*wn[4] + a1*wn[3] + a2*wn[2];
! wn[5] = in[3] + b1*wn[4] + b2*wn[3];
! out[3] = a0*wn[5] + a1*wn[4] + a2*wn[3];
! wn[6] = in[4] + b1*wn[5] + b2*wn[4];
! out[4] = a0*wn[6] + a1*wn[5] + a2*wn[4];
! wn[7] = in[5] + b1*wn[6] + b2*wn[5];
! out[5] = a0*wn[7] + a1*wn[6] + a2*wn[5];
! wn[8] = in[6] + b1*wn[7] + b2*wn[6];
! out[6] = a0*wn[8] + a1*wn[7] + a2*wn[6];
! wn[9] = in[7] + b1*wn[8] + b2*wn[7];
! out[7] = a0*wn[9] + a1*wn[8] + a2*wn[7];
! wn[0] = wn[8];
! wn[1] = wn[9];
! }
! /* NAN protect */
! if(IEM_DENORMAL(wn[0]))
! wn[0] = 0.0f;
! if(IEM_DENORMAL(wn[1]))
! wn[1] = 0.0f;
!
! x->wn1 = wn[1];
! x->wn2 = wn[0];
! return(w+5);
! }
!
! static void sigpara_bp2_ft4(t_sigpara_bp2 *x, t_floatarg t)
! {
! int i = (int)((x->ticks_per_interpol_time)*t);
!
! x->interpol_time = t;
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! }
!
! static void sigpara_bp2_ft3(t_sigpara_bp2 *x, t_floatarg l)
! {
! float g = exp(0.11512925465 * l);
!
! if(g != x->cur_g)
! {
! x->end_g = g;
! x->counter_g = x->ticks;
! x->delta_g = exp(log(g/x->cur_g)*x->rcp_ticks);
! x->event_mask |= 4;/*set event_mask_bit 2 = 1*/
! }
! }
!
! static void sigpara_bp2_ft2(t_sigpara_bp2 *x, t_floatarg q)
! {
! float a;
!
! if(q <= 0.0f)
! q = 0.000001f;
! a = 1.0f/q;
! if(a != x->cur_a)
! {
! x->end_a = a;
! x->counter_a = x->ticks;
! x->delta_a = exp(log(a/x->cur_a)*x->rcp_ticks);
! x->event_mask |= 2;/*set event_mask_bit 1 = 1*/
! }
! }
!
! static void sigpara_bp2_ft1(t_sigpara_bp2 *x, t_floatarg f)
! {
! if(f <= 0.0f)
! f = 0.000001f;
! if(f != x->cur_f)
! {
! x->end_f = f;
! x->counter_f = x->ticks;
! x->delta_f = exp(log(f/x->cur_f)*x->rcp_ticks);
! x->event_mask |= 1;/*set event_mask_bit 0 = 1*/
! }
! }
!
! static void sigpara_bp2_print(t_sigpara_bp2 *x)
! {
! // post("fb1 = %g, fb2 = %g, ff1 = %g, ff2 = %g, ff3 = %g", x->b1, x->b2, x->a0, x->a1, x->a2);
! x->x_at[0].a_w.w_float = x->b1;
! x->x_at[1].a_w.w_float = x->b2;
! x->x_at[2].a_w.w_float = x->a0;
! x->x_at[3].a_w.w_float = x->a1;
! x->x_at[4].a_w.w_float = x->a2;
! outlet_list(x->x_debug_outlet, &s_list, 5, x->x_at);
! }
!
! static void sigpara_bp2_dsp(t_sigpara_bp2 *x, t_signal **sp)
! {
! float si, co, f;
! int i, n=(int)sp[0]->s_n;
!
! x->sr = 3.14159265358979323846f / (float)(sp[0]->s_sr);
! x->ticks_per_interpol_time = 0.001f * (float)(sp[0]->s_sr) / (float)n;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! f = x->cur_f * x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(n&7)
! dsp_add(sigpara_bp2_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! else
! dsp_add(sigpara_bp2_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, x, n);
! }
!
! static void *sigpara_bp2_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_sigpara_bp2 *x = (t_sigpara_bp2 *)pd_new(sigpara_bp2_class);
! int i;
! float si, co, f=0.0, q=1.0, l=0.0, interpol=0.0;
!
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! outlet_new(&x->x_obj, &s_signal);
! x->x_debug_outlet = outlet_new(&x->x_obj, &s_list);
! x->x_msi = 0;
!
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_at[3].a_type = A_FLOAT;
! x->x_at[4].a_type = A_FLOAT;
!
! x->event_mask = 1;
! x->counter_f = 1;
! x->counter_a = 0;
! x->counter_g = 0;
! x->delta_f = 0.0f;
! x->delta_a = 0.0f;
! x->delta_g = 0.0f;
! x->interpol_time = 500.0f;
! x->wn1 = 0.0;
! x->wn2 = 0.0;
! x->a0 = 0.0;
! x->a1 = 0.0;
! x->a2 = 0.0;
! x->b1 = 0.0;
! x->b2 = 0.0;
! x->sr = 3.14159265358979323846f / 44100.0f;
! x->cur_a = 1.0;
! if((argc == 4)&&IS_A_FLOAT(argv,3)&&IS_A_FLOAT(argv,2)&&IS_A_FLOAT(argv,1)&&IS_A_FLOAT(argv,0))
! {
! f = (float)atom_getfloatarg(0, argc, argv);
! q = (float)atom_getfloatarg(1, argc, argv);
! l = (float)atom_getfloatarg(2, argc, argv);
! interpol = (float)atom_getfloatarg(3, argc, argv);
! }
! if(f <= 0.0f)
! f = 0.000001f;
! x->cur_f = f;
! f *= x->sr;
! if(f < 1.0e-20f)
! x->cur_l = 1.0e20f;
! else if(f > 1.57079632f)
! x->cur_l = 0.0f;
! else
! {
! si = sin(f);
! co = cos(f);
! x->cur_l = co/si;
! }
! if(q <= 0.0f)
! q = 0.000001f;
! x->cur_a = 1.0f/q;
! x->cur_g = exp(0.11512925465 * l);
! if(interpol <= 0.0f)
! interpol = 0.0f;
! x->interpol_time = interpol;
! x->ticks_per_interpol_time = 0.5f;
! i = (int)((x->ticks_per_interpol_time)*(x->interpol_time));
! if(i <= 0)
! i = 1;
! x->ticks = i;
! x->rcp_ticks = 1.0f / (float)i;
! x->end_f = x->cur_f;
! x->end_a = x->cur_a;
! x->end_g = x->cur_g;
! return(x);
! }
!
! void sigpara_bp2_setup(void)
! {
! sigpara_bp2_class = class_new(gensym("para_bp2~"), (t_newmethod)sigpara_bp2_new,
! 0, sizeof(t_sigpara_bp2), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sigpara_bp2_class, t_sigpara_bp2, x_msi);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_dsp, gensym("dsp"), 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sigpara_bp2_class, (t_method)sigpara_bp2_print, gensym("print"), 0);
! class_sethelpsymbol(sigpara_bp2_class, gensym("iemhelp/help-para_bp2~"));
! }
Index: sigiem_cot4.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_cot4.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigiem_cot4.c 2 Jun 2005 18:23:54 -0000 1.2
--- sigiem_cot4.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,175 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_cot4~ ----------------------------- */
!
! float *iem_cot4_table_cos=(float *)0L;
! float *iem_cot4_table_sin=(float *)0L;
!
! static t_class *sigiem_cot4_class;
!
! typedef struct _sigiem_cot4
! {
! t_object x_obj;
! float x_sr;
! float x_msi;
! } t_sigiem_cot4;
!
! static t_int *sigiem_cot4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_float norm_freq;
! t_float hout;
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)(w[3]);
! t_float sr=x->x_sr;
! int n = (int)(w[4]);
! float *ctab = iem_cot4_table_cos, *stab = iem_cot4_table_sin;
! float *caddr, *saddr, cf1, cf2, sf1, sf2, frac;
! double dphase;
! int normhipart;
! int32 mytfi;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! in++;
! *out++ = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. prolog beg*/
! n /= 4;
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! in += 4; /*prolog end*/
! while (--n)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! in += 4;
! tf.tf_i[HIOFFSET] = normhipart;
! }/*epilog beg*/
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! /*epilog end*/
! #endif
! return (w+5);
! }
!
! static void sigiem_cot4_dsp(t_sigiem_cot4 *x, t_signal **sp)
! {
! x->x_sr = 2.0f / (float)sp[0]->s_sr;
! dsp_add(sigiem_cot4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigiem_cot4_maketable(void)
! {
! int i;
! float *fp, phase, fff, phsinc = 0.5*3.141592653 / ((float)COSTABSIZE);
! union tabfudge tf;
!
! if(!iem_cot4_table_sin)
! {
! iem_cot4_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_cot4_table_cos)
! {
! iem_cot4_table_cos = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_cos, phase=0; i--; fp++, phase+=phsinc)
! *fp = cos(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("iem_cot4~: unexpected machine alignment");
! }
!
! static void *sigiem_cot4_new(void)
! {
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)pd_new(sigiem_cot4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_cot4_setup(void)
! {
! sigiem_cot4_class = class_new(gensym("iem_cot4~"), (t_newmethod)sigiem_cot4_new, 0,
! sizeof(t_sigiem_cot4), 0, 0);
! class_addcreator((t_newmethod)sigiem_cot4_new, gensym("iem_cot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_cot4_class, t_sigiem_cot4, x_msi);
! class_addmethod(sigiem_cot4_class, (t_method)sigiem_cot4_dsp, gensym("dsp"), 0);
! sigiem_cot4_maketable();
! class_sethelpsymbol(sigiem_cot4_class, gensym("iemhelp/help-iem_cot4~"));
! }
--- 1,175 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_cot4~ ----------------------------- */
!
! float *iem_cot4_table_cos=(float *)0L;
! float *iem_cot4_table_sin=(float *)0L;
!
! static t_class *sigiem_cot4_class;
!
! typedef struct _sigiem_cot4
! {
! t_object x_obj;
! float x_sr;
! float x_msi;
! } t_sigiem_cot4;
!
! static t_int *sigiem_cot4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_float norm_freq;
! t_float hout;
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)(w[3]);
! t_float sr=x->x_sr;
! int n = (int)(w[4]);
! float *ctab = iem_cot4_table_cos, *stab = iem_cot4_table_sin;
! float *caddr, *saddr, cf1, cf2, sf1, sf2, frac;
! double dphase;
! int normhipart;
! int32 mytfi;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! in++;
! *out++ = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. prolog beg*/
! n /= 4;
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! tf.tf_d = dphase;
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! tf.tf_i[HIOFFSET] = normhipart;
! in += 4; /*prolog end*/
! while (--n)
! {
! norm_freq = *in * sr;
! if(norm_freq < 0.0001f)
! norm_freq = 0.0001f;
! else if(norm_freq > 0.9f)
! norm_freq = 0.9f;
! dphase = (double)(norm_freq * (float)(COSTABSIZE)) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! mytfi = tf.tf_i[HIOFFSET] & (COSTABSIZE-1);
! saddr = stab + (mytfi);
! caddr = ctab + (mytfi);
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! in += 4;
! tf.tf_i[HIOFFSET] = normhipart;
! }/*epilog beg*/
! frac = tf.tf_d - UNITBIT32;
! sf1 = saddr[0];
! sf2 = saddr[1];
! cf1 = caddr[0];
! cf2 = caddr[1];
! hout = (cf1 + frac * (cf2 - cf1))/(sf1 + frac * (sf2 - sf1));
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! *out++ = hout;
! /*epilog end*/
! #endif
! return (w+5);
! }
!
! static void sigiem_cot4_dsp(t_sigiem_cot4 *x, t_signal **sp)
! {
! x->x_sr = 2.0f / (float)sp[0]->s_sr;
! dsp_add(sigiem_cot4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigiem_cot4_maketable(void)
! {
! int i;
! float *fp, phase, fff, phsinc = 0.5*3.141592653 / ((float)COSTABSIZE);
! union tabfudge tf;
!
! if(!iem_cot4_table_sin)
! {
! iem_cot4_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_cot4_table_cos)
! {
! iem_cot4_table_cos = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_cot4_table_cos, phase=0; i--; fp++, phase+=phsinc)
! *fp = cos(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("iem_cot4~: unexpected machine alignment");
! }
!
! static void *sigiem_cot4_new(void)
! {
! t_sigiem_cot4 *x = (t_sigiem_cot4 *)pd_new(sigiem_cot4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_cot4_setup(void)
! {
! sigiem_cot4_class = class_new(gensym("iem_cot4~"), (t_newmethod)sigiem_cot4_new, 0,
! sizeof(t_sigiem_cot4), 0, 0);
! class_addcreator((t_newmethod)sigiem_cot4_new, gensym("iem_cot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_cot4_class, t_sigiem_cot4, x_msi);
! class_addmethod(sigiem_cot4_class, (t_method)sigiem_cot4_dsp, gensym("dsp"), 0);
! sigiem_cot4_maketable();
! class_sethelpsymbol(sigiem_cot4_class, gensym("iemhelp/help-iem_cot4~"));
! }
Index: sighml_shelf.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sighml_shelf.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sighml_shelf.c 2 Jun 2005 18:23:54 -0000 1.3
--- sighml_shelf.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,557 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
[...1085 lines suppressed...]
! x->end_mg = x->cur_mg;
! x->end_hg = x->cur_hg;
! return(x);
! }
!
! void sighml_shelf_setup(void)
! {
! sighml_shelf_class = class_new(gensym("hml_shelf~"), (t_newmethod)sighml_shelf_new,
! 0, sizeof(t_sighml_shelf), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sighml_shelf_class, t_sighml_shelf, x_msi);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_dsp, gensym("dsp"), 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft5, gensym("ft5"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_ft6, gensym("ft6"), A_FLOAT, 0);
! class_addmethod(sighml_shelf_class, (t_method)sighml_shelf_print, gensym("print"), 0);
! class_sethelpsymbol(sighml_shelf_class, gensym("iemhelp/help-hml_shelf~"));
! }
Index: sigprvu.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigprvu.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sigprvu.c 2 Jun 2005 18:23:54 -0000 1.3
--- sigprvu.c 8 Jul 2005 02:08:50 -0000 1.4
***************
*** 1,282 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- prvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigprvu
! {
! t_object x_obj;
! t_atom x_at[3];
! void *x_clock_metro;
! int x_metro_time;
! void *x_clock_hold;
! int x_hold_time;
! float x_cur_peak;
! float x_old_peak;
! float x_hold_peak;
! int x_hold;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_threshold_over;
! int x_overflow_counter;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigprvu;
!
! t_class *sigprvu_class;
! static void sigprvu_tick_metro(t_sigprvu *x);
! static void sigprvu_tick_hold(t_sigprvu *x);
!
! static void sigprvu_reset(t_sigprvu *x)
! {
! x->x_at[0].a_w.w_float = -99.9f;
! x->x_at[1].a_w.w_float = -99.9f;
! x->x_at[2].a_w.w_float = 0.0f;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_hold = 0;
! clock_unset(x->x_clock_hold);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_stop(t_sigprvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigprvu_start(t_sigprvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigprvu_float(t_sigprvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigprvu_t_release(t_sigprvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigprvu_t_metro(t_sigprvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static void sigprvu_t_hold(t_sigprvu *x, t_floatarg hold_time)
! {
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! x->x_hold_time = (int)hold_time;
! }
!
! static void sigprvu_threshold(t_sigprvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigprvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigprvu *x = (t_sigprvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak, pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! pow = in[i]*in[i];
! if(pow > peak)
! peak = pow;
! sum += pow;
! }
! x->x_cur_peak = peak;
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigprvu_dsp(t_sigprvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigprvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_tick_hold(t_sigprvu *x)
! {
! x->x_hold = 0;
! x->x_hold_peak = x->x_old_peak;
! }
!
! static void sigprvu_tick_metro(t_sigprvu *x)
! {
! float dbr, dbp, cur_rms, c1=x->x_c1;
!
! x->x_old_peak *= c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak > x->x_hold_peak)
! {
! x->x_hold = 1;
! x->x_hold_peak = x->x_old_peak;
! clock_delay(x->x_clock_hold, x->x_hold_time);
! }
! if(!x->x_hold)
! x->x_hold_peak = x->x_old_peak;
! if(x->x_hold_peak <= 0.0000000001f)
! dbp = -99.9f;
! else if(x->x_hold_peak > 1000000.0f)
! {
! dbp = 60.0f;
! x->x_hold_peak = 1000000.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! dbp = 4.3429448195f*log(x->x_hold_peak);
! x->x_cur_peak = 0.0f;
! if(dbp >= x->x_threshold_over)
! x->x_overflow_counter++;
! x->x_at[1].a_w.w_float = dbp;
! x->x_at[2].a_w.w_float = (float)x->x_overflow_counter;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! x->x_at[0].a_w.w_float = dbr;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_ff(t_sigprvu *x)
! {
! clock_free(x->x_clock_metro);
! clock_free(x->x_clock_hold);
! }
!
! static void *sigprvu_new(t_floatarg metro_time, t_floatarg hold_time,
! t_floatarg release_time, t_floatarg threshold)
! {
! t_sigprvu *x;
! float t;
! int i;
!
! x = (t_sigprvu *)pd_new(sigprvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(hold_time <= 0.0f)
! hold_time = 1000.0f;
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_hold_time = (int)hold_time;
! x->x_threshold_over = threshold;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_hold = 0;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_overflow_counter = 0;
! x->x_clock_metro = clock_new(x, (t_method)sigprvu_tick_metro);
! x->x_clock_hold = clock_new(x, (t_method)sigprvu_tick_hold);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_list);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigprvu_setup(void)
! {
! sigprvu_class = class_new(gensym("prvu~"), (t_newmethod)sigprvu_new,
! (t_method)sigprvu_ff, sizeof(t_sigprvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigprvu_class, t_sigprvu, x_msi);
! class_addmethod(sigprvu_class, (t_method)sigprvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigprvu_class, sigprvu_float);
! class_addmethod(sigprvu_class, (t_method)sigprvu_reset, gensym("reset"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_start, gensym("start"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_stop, gensym("stop"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_hold, gensym("t_hold"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigprvu_class, gensym("iemhelp/help-prvu~"));
! }
--- 1,282 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ---------------- prvu~ - simple peak&rms-vu-meter. ----------------- */
!
! typedef struct sigprvu
! {
! t_object x_obj;
! t_atom x_at[3];
! void *x_clock_metro;
! int x_metro_time;
! void *x_clock_hold;
! int x_hold_time;
! float x_cur_peak;
! float x_old_peak;
! float x_hold_peak;
! int x_hold;
! float x_sum_rms;
! float x_old_rms;
! float x_rcp;
! float x_sr;
! float x_threshold_over;
! int x_overflow_counter;
! float x_release_time;
! float x_c1;
! int x_started;
! float x_msi;
! } t_sigprvu;
!
! t_class *sigprvu_class;
! static void sigprvu_tick_metro(t_sigprvu *x);
! static void sigprvu_tick_hold(t_sigprvu *x);
!
! static void sigprvu_reset(t_sigprvu *x)
! {
! x->x_at[0].a_w.w_float = -99.9f;
! x->x_at[1].a_w.w_float = -99.9f;
! x->x_at[2].a_w.w_float = 0.0f;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! x->x_overflow_counter = 0;
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_hold = 0;
! clock_unset(x->x_clock_hold);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_stop(t_sigprvu *x)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
!
! static void sigprvu_start(t_sigprvu *x)
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
!
! static void sigprvu_float(t_sigprvu *x, t_floatarg f)
! {
! if(f == 0.0)
! {
! clock_unset(x->x_clock_metro);
! x->x_started = 0;
! }
! else
! {
! clock_delay(x->x_clock_metro, x->x_metro_time);
! x->x_started = 1;
! }
! }
!
! static void sigprvu_t_release(t_sigprvu *x, t_floatarg release_time)
! {
! if(release_time <= 20.0f)
! release_time = 20.0f;
! x->x_release_time = release_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! }
!
! static void sigprvu_t_metro(t_sigprvu *x, t_floatarg metro_time)
! {
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! x->x_metro_time = (int)metro_time;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! }
!
! static void sigprvu_t_hold(t_sigprvu *x, t_floatarg hold_time)
! {
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! x->x_hold_time = (int)hold_time;
! }
!
! static void sigprvu_threshold(t_sigprvu *x, t_floatarg thresh)
! {
! x->x_threshold_over = thresh;
! }
!
! static t_int *sigprvu_perform(t_int *w)
! {
! float *in = (float *)(w[1]);
! t_sigprvu *x = (t_sigprvu *)(w[2]);
! int n = (int)(w[3]);
! float peak = x->x_cur_peak, pow, sum=x->x_sum_rms;
! int i;
!
! if(x->x_started)
! {
! for(i=0; i<n; i++)
! {
! pow = in[i]*in[i];
! if(pow > peak)
! peak = pow;
! sum += pow;
! }
! x->x_cur_peak = peak;
! x->x_sum_rms = sum;
! }
! return(w+4);
! }
!
! static void sigprvu_dsp(t_sigprvu *x, t_signal **sp)
! {
! x->x_sr = 0.001*(float)sp[0]->s_sr;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! dsp_add(sigprvu_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_tick_hold(t_sigprvu *x)
! {
! x->x_hold = 0;
! x->x_hold_peak = x->x_old_peak;
! }
!
! static void sigprvu_tick_metro(t_sigprvu *x)
! {
! float dbr, dbp, cur_rms, c1=x->x_c1;
!
! x->x_old_peak *= c1;
! /* NAN protect */
! if(IEM_DENORMAL(x->x_old_peak))
! x->x_old_peak = 0.0f;
!
! if(x->x_cur_peak > x->x_old_peak)
! x->x_old_peak = x->x_cur_peak;
! if(x->x_old_peak > x->x_hold_peak)
! {
! x->x_hold = 1;
! x->x_hold_peak = x->x_old_peak;
! clock_delay(x->x_clock_hold, x->x_hold_time);
! }
! if(!x->x_hold)
! x->x_hold_peak = x->x_old_peak;
! if(x->x_hold_peak <= 0.0000000001f)
! dbp = -99.9f;
! else if(x->x_hold_peak > 1000000.0f)
! {
! dbp = 60.0f;
! x->x_hold_peak = 1000000.0f;
! x->x_old_peak = 1000000.0f;
! }
! else
! dbp = 4.3429448195f*log(x->x_hold_peak);
! x->x_cur_peak = 0.0f;
! if(dbp >= x->x_threshold_over)
! x->x_overflow_counter++;
! x->x_at[1].a_w.w_float = dbp;
! x->x_at[2].a_w.w_float = (float)x->x_overflow_counter;
!
! cur_rms = (1.0f - c1)*x->x_sum_rms*x->x_rcp + c1*x->x_old_rms;
! /* NAN protect */
! if(IEM_DENORMAL(cur_rms))
! cur_rms = 0.0f;
!
! if(cur_rms <= 0.0000000001f)
! dbr = -99.9f;
! else if(cur_rms > 1000000.0f)
! {
! dbr = 60.0f;
! x->x_old_rms = 1000000.0f;
! }
! else
! dbr = 4.3429448195f*log(cur_rms);
! x->x_sum_rms = 0.0f;
! x->x_old_rms = cur_rms;
! x->x_at[0].a_w.w_float = dbr;
! outlet_list(x->x_obj.ob_outlet, &s_list, 3, x->x_at);
! clock_delay(x->x_clock_metro, x->x_metro_time);
! }
!
! static void sigprvu_ff(t_sigprvu *x)
! {
! clock_free(x->x_clock_metro);
! clock_free(x->x_clock_hold);
! }
!
! static void *sigprvu_new(t_floatarg metro_time, t_floatarg hold_time,
! t_floatarg release_time, t_floatarg threshold)
! {
! t_sigprvu *x;
! float t;
! int i;
!
! x = (t_sigprvu *)pd_new(sigprvu_class);
! if(metro_time <= 0.0f)
! metro_time = 300.0f;
! if(metro_time <= 20.0f)
! metro_time = 20.0f;
! if(release_time <= 0.0f)
! release_time = 300.0f;
! if(release_time <= 20.0f)
! release_time = 20.0f;
! if(hold_time <= 0.0f)
! hold_time = 1000.0f;
! if(hold_time <= 20.0f)
! hold_time = 20.0f;
! if(threshold == 0.0f)
! threshold = -0.01f;
! x->x_metro_time = (int)metro_time;
! x->x_release_time = release_time;
! x->x_hold_time = (int)hold_time;
! x->x_threshold_over = threshold;
! x->x_c1 = exp(-2.0*(float)x->x_metro_time/x->x_release_time);
! x->x_cur_peak = 0.0f;
! x->x_old_peak = 0.0f;
! x->x_hold_peak = 0.0f;
! x->x_hold = 0;
! x->x_sum_rms = 0.0f;
! x->x_old_rms = 0.0f;
! x->x_sr = 44.1f;
! x->x_rcp = 1.0f/(x->x_sr*(float)x->x_metro_time);
! x->x_overflow_counter = 0;
! x->x_clock_metro = clock_new(x, (t_method)sigprvu_tick_metro);
! x->x_clock_hold = clock_new(x, (t_method)sigprvu_tick_hold);
! x->x_started = 1;
! outlet_new(&x->x_obj, &s_list);
! x->x_at[0].a_type = A_FLOAT;
! x->x_at[1].a_type = A_FLOAT;
! x->x_at[2].a_type = A_FLOAT;
! x->x_msi = 0.0f;
! return(x);
! }
!
! void sigprvu_setup(void)
! {
! sigprvu_class = class_new(gensym("prvu~"), (t_newmethod)sigprvu_new,
! (t_method)sigprvu_ff, sizeof(t_sigprvu), 0,
! A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
! CLASS_MAINSIGNALIN(sigprvu_class, t_sigprvu, x_msi);
! class_addmethod(sigprvu_class, (t_method)sigprvu_dsp, gensym("dsp"), 0);
! class_addfloat(sigprvu_class, sigprvu_float);
! class_addmethod(sigprvu_class, (t_method)sigprvu_reset, gensym("reset"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_start, gensym("start"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_stop, gensym("stop"), 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_release, gensym("t_release"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_metro, gensym("t_metro"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_t_hold, gensym("t_hold"), A_FLOAT, 0);
! class_addmethod(sigprvu_class, (t_method)sigprvu_threshold, gensym("threshold"), A_FLOAT, 0);
! class_sethelpsymbol(sigprvu_class, gensym("iemhelp/help-prvu~"));
! }
Index: sigiem_sqrt4.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_sqrt4.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigiem_sqrt4.c 2 Jun 2005 18:23:54 -0000 1.2
--- sigiem_sqrt4.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,116 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! #define IEMSQRT4TAB1SIZE 256
! #define IEMSQRT4TAB2SIZE 1024
!
! /* ------------------------ iem_sqrt4~ ----------------------------- */
!
! float *iem_sqrt4_exptab=(float *)0L;
! float *iem_sqrt4_mantissatab=(float *)0L;
!
! static t_class *sigiem_sqrt4_class;
!
! typedef struct _sigiem_sqrt4
! {
! t_object x_obj;
! float x_msi;
! } t_sigiem_sqrt4;
!
! static t_int *sigiem_sqrt4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_int n = (t_int)(w[3])/4;
!
! while(n--)
! {
! float f = *in;
! float g, h;
! long l = *(long *)(in);
!
! if(f < 0.0f)
! {
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! }
! else
! {
! g = iem_sqrt4_exptab[(l >> 23) & 0xff] * iem_sqrt4_mantissatab[(l >> 13) & 0x3ff];
! h = f * (1.5f * g - 0.5f * g * g * g * f);
! *out++ = h;
! *out++ = h;
! *out++ = h;
! *out++ = h;
! }
! in += 4;
! }
! return(w+4);
! }
!
! static void sigiem_sqrt4_dsp(t_sigiem_sqrt4 *x, t_signal **sp)
! {
! dsp_add(sigiem_sqrt4_perform, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
! }
!
! static void sigiem_sqrt4_maketable(void)
! {
! int i;
! float f;
! long l;
!
! if(!iem_sqrt4_exptab)
! {
! iem_sqrt4_exptab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB1SIZE);
! for(i=0; i<IEMSQRT4TAB1SIZE; i++)
! {
! l = (i ? (i == IEMSQRT4TAB1SIZE-1 ? IEMSQRT4TAB1SIZE-2 : i) : 1)<< 23;
! *(long *)(&f) = l;
! iem_sqrt4_exptab[i] = 1.0f/sqrt(f);
! }
! }
! if(!iem_sqrt4_mantissatab)
! {
! iem_sqrt4_mantissatab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB2SIZE);
! for(i=0; i<IEMSQRT4TAB2SIZE; i++)
! {
! f = 1.0f + (1.0f/(float)IEMSQRT4TAB2SIZE) * (float)i;
! iem_sqrt4_mantissatab[i] = 1.0f/sqrt(f);
! }
! }
! }
!
! static void *sigiem_sqrt4_new(void)
! {
! t_sigiem_sqrt4 *x = (t_sigiem_sqrt4 *)pd_new(sigiem_sqrt4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_sqrt4_setup(void)
! {
! sigiem_sqrt4_class = class_new(gensym("iem_sqrt4~"), (t_newmethod)sigiem_sqrt4_new, 0,
! sizeof(t_sigiem_sqrt4), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_sqrt4_class, t_sigiem_sqrt4, x_msi);
! class_addmethod(sigiem_sqrt4_class, (t_method)sigiem_sqrt4_dsp, gensym("dsp"), 0);
! sigiem_sqrt4_maketable();
! class_sethelpsymbol(sigiem_sqrt4_class, gensym("iemhelp/help-iem_sqrt4~"));
! }
--- 1,116 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! #define IEMSQRT4TAB1SIZE 256
! #define IEMSQRT4TAB2SIZE 1024
!
! /* ------------------------ iem_sqrt4~ ----------------------------- */
!
! float *iem_sqrt4_exptab=(float *)0L;
! float *iem_sqrt4_mantissatab=(float *)0L;
!
! static t_class *sigiem_sqrt4_class;
!
! typedef struct _sigiem_sqrt4
! {
! t_object x_obj;
! float x_msi;
! } t_sigiem_sqrt4;
!
! static t_int *sigiem_sqrt4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_int n = (t_int)(w[3])/4;
!
! while(n--)
! {
! float f = *in;
! float g, h;
! long l = *(long *)(in);
!
! if(f < 0.0f)
! {
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! *out++ = 0.0f;
! }
! else
! {
! g = iem_sqrt4_exptab[(l >> 23) & 0xff] * iem_sqrt4_mantissatab[(l >> 13) & 0x3ff];
! h = f * (1.5f * g - 0.5f * g * g * g * f);
! *out++ = h;
! *out++ = h;
! *out++ = h;
! *out++ = h;
! }
! in += 4;
! }
! return(w+4);
! }
!
! static void sigiem_sqrt4_dsp(t_sigiem_sqrt4 *x, t_signal **sp)
! {
! dsp_add(sigiem_sqrt4_perform, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
! }
!
! static void sigiem_sqrt4_maketable(void)
! {
! int i;
! float f;
! long l;
!
! if(!iem_sqrt4_exptab)
! {
! iem_sqrt4_exptab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB1SIZE);
! for(i=0; i<IEMSQRT4TAB1SIZE; i++)
! {
! l = (i ? (i == IEMSQRT4TAB1SIZE-1 ? IEMSQRT4TAB1SIZE-2 : i) : 1)<< 23;
! *(long *)(&f) = l;
! iem_sqrt4_exptab[i] = 1.0f/sqrt(f);
! }
! }
! if(!iem_sqrt4_mantissatab)
! {
! iem_sqrt4_mantissatab = (float *)getbytes(sizeof(float) * IEMSQRT4TAB2SIZE);
! for(i=0; i<IEMSQRT4TAB2SIZE; i++)
! {
! f = 1.0f + (1.0f/(float)IEMSQRT4TAB2SIZE) * (float)i;
! iem_sqrt4_mantissatab[i] = 1.0f/sqrt(f);
! }
! }
! }
!
! static void *sigiem_sqrt4_new(void)
! {
! t_sigiem_sqrt4 *x = (t_sigiem_sqrt4 *)pd_new(sigiem_sqrt4_class);
!
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_sqrt4_setup(void)
! {
! sigiem_sqrt4_class = class_new(gensym("iem_sqrt4~"), (t_newmethod)sigiem_sqrt4_new, 0,
! sizeof(t_sigiem_sqrt4), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_sqrt4_class, t_sigiem_sqrt4, x_msi);
! class_addmethod(sigiem_sqrt4_class, (t_method)sigiem_sqrt4_dsp, gensym("dsp"), 0);
! sigiem_sqrt4_maketable();
! class_sethelpsymbol(sigiem_sqrt4_class, gensym("iemhelp/help-iem_sqrt4~"));
! }
Index: v2db.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/v2db.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** v2db.c 2 Jun 2005 18:23:54 -0000 1.2
--- v2db.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,45 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------- v2db - a rms-value to techn. dB converter. --------- */
!
! static t_class *v2db_class;
!
! float v2db(float f)
! {
! return (f <= 0 ? -199.9 : 8.6858896381*log(f));
! }
!
! static void v2db_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, v2db(f));
! }
!
! static void *v2db_new(void)
! {
! t_object *x = (t_object *)pd_new(v2db_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void v2db_setup(void)
! {
! v2db_class = class_new(gensym("v2db"), v2db_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(v2db_class, (t_method)v2db_float);
! class_sethelpsymbol(v2db_class, gensym("iemhelp/help-v2db"));
! }
--- 1,45 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* -------- v2db - a rms-value to techn. dB converter. --------- */
!
! static t_class *v2db_class;
!
! float v2db(float f)
! {
! return (f <= 0 ? -199.9 : 8.6858896381*log(f));
! }
!
! static void v2db_float(t_object *x, t_float f)
! {
! outlet_float(x->ob_outlet, v2db(f));
! }
!
! static void *v2db_new(void)
! {
! t_object *x = (t_object *)pd_new(v2db_class);
! outlet_new(x, &s_float);
! return (x);
! }
!
! void v2db_setup(void)
! {
! v2db_class = class_new(gensym("v2db"), v2db_new, 0,
! sizeof(t_object), 0, 0);
! class_addfloat(v2db_class, (t_method)v2db_float);
! class_sethelpsymbol(v2db_class, gensym("iemhelp/help-v2db"));
! }
Index: sigiem_pow4.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigiem_pow4.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigiem_pow4.c 2 Jun 2005 18:23:54 -0000 1.2
--- sigiem_pow4.c 8 Jul 2005 02:08:50 -0000 1.3
***************
*** 1,86 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_pow4~ ----------------------------- */
!
! static t_class *sigiem_pow4_class;
!
! typedef struct _sigiem_pow4
! {
! t_object x_obj;
! float x_exp;
! float x_msi;
! } t_sigiem_pow4;
!
! static void sigiem_pow4_ft1(t_sigiem_pow4 *x, t_floatarg f)
! {
! x->x_exp = f;
! }
!
! static t_int *sigiem_pow4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)(w[3]);
! t_float y=x->x_exp;
! t_float f, g;
! int n = (int)(w[4])/4;
!
! while (n--)
! {
! f = *in;
! if(f < 0.01f)
! f = 0.01f;
! else if(f > 1000.0f)
! f = 1000.0f;
! g = log(f);
! f = exp(g*y);
! *out++ = f;
! *out++ = f;
! *out++ = f;
! *out++ = f;
! in += 4;
! }
! return (w+5);
! }
!
! static void sigiem_pow4_dsp(t_sigiem_pow4 *x, t_signal **sp)
! {
! dsp_add(sigiem_pow4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigiem_pow4_new(t_floatarg f)
! {
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)pd_new(sigiem_pow4_class);
!
! x->x_exp = f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_pow4_setup(void)
! {
! sigiem_pow4_class = class_new(gensym("iem_pow4~"), (t_newmethod)sigiem_pow4_new, 0,
! sizeof(t_sigiem_pow4), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)sigiem_pow4_new, gensym("icot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_pow4_class, t_sigiem_pow4, x_msi);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(sigiem_pow4_class, gensym("iemhelp/help-iem_pow4~"));
! }
--- 1,86 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------ iem_pow4~ ----------------------------- */
!
! static t_class *sigiem_pow4_class;
!
! typedef struct _sigiem_pow4
! {
! t_object x_obj;
! float x_exp;
! float x_msi;
! } t_sigiem_pow4;
!
! static void sigiem_pow4_ft1(t_sigiem_pow4 *x, t_floatarg f)
! {
! x->x_exp = f;
! }
!
! static t_int *sigiem_pow4_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)(w[3]);
! t_float y=x->x_exp;
! t_float f, g;
! int n = (int)(w[4])/4;
!
! while (n--)
! {
! f = *in;
! if(f < 0.01f)
! f = 0.01f;
! else if(f > 1000.0f)
! f = 1000.0f;
! g = log(f);
! f = exp(g*y);
! *out++ = f;
! *out++ = f;
! *out++ = f;
! *out++ = f;
! in += 4;
! }
! return (w+5);
! }
!
! static void sigiem_pow4_dsp(t_sigiem_pow4 *x, t_signal **sp)
! {
! dsp_add(sigiem_pow4_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void *sigiem_pow4_new(t_floatarg f)
! {
! t_sigiem_pow4 *x = (t_sigiem_pow4 *)pd_new(sigiem_pow4_class);
!
! x->x_exp = f;
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! void sigiem_pow4_setup(void)
! {
! sigiem_pow4_class = class_new(gensym("iem_pow4~"), (t_newmethod)sigiem_pow4_new, 0,
! sizeof(t_sigiem_pow4), 0, A_DEFFLOAT, 0);
! class_addcreator((t_newmethod)sigiem_pow4_new, gensym("icot~"), 0);
! CLASS_MAINSIGNALIN(sigiem_pow4_class, t_sigiem_pow4, x_msi);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_dsp, gensym("dsp"), 0);
! class_addmethod(sigiem_pow4_class, (t_method)sigiem_pow4_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(sigiem_pow4_class, gensym("iemhelp/help-iem_pow4~"));
! }
Index: f2note.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/f2note.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** f2note.c 2 Jun 2005 18:23:54 -0000 1.2
--- f2note.c 8 Jul 2005 02:08:49 -0000 1.3
***************
*** 1,190 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------- f2note ---------------------- */
! /* ------ frequency to note plus cents converter --------- */
!
! typedef struct _f2note
! {
! t_object x_obj;
! void *x_outlet_midi;
! void *x_outlet_note;
! void *x_outlet_cent;
! int x_centomidi;
! float x_refhz;
! float x_refexp;
! float x_reflog;
! t_symbol *x_set;
! } t_f2note;
!
! static t_class *f2note_class;
!
! float f2note_mtof(t_f2note *x, float midi)
! {
! return(x->x_refexp * exp(0.057762265047 * midi));
! }
!
! float f2note_ftom(t_f2note *x, float freq)
! {
! return (freq > 0 ? 17.31234049 * log(x->x_reflog * freq) : -1500);
! }
!
! void f2note_calc_ref(t_f2note *x)
! {
! float ln2=log(2.0);
!
! x->x_refexp = x->x_refhz*exp(-5.75*ln2);
! x->x_reflog = 1.0/x->x_refexp;
! }
!
! static void f2note_make_note(char *str, int midi)
! {
! int j,k,l=0;
!
! j = midi / 12;
! k = midi % 12;
! if(k <= 5)
! {
! if(k <= 2)
! {
! if(k==0)
! str[l]='c';
! else if(k==1)
! {
! str[l++]='#';
! str[l]='c';
! }
! else
! str[l]='d';
! }
! else
! {
! if(k==3)
! {
! str[l++]='#';
! str[l]='d';
! }
! else if(k==4)
! str[l]='e';
! else
! str[l]='f';
! }
! }
! else
! {
! if(k <= 8)
! {
! if(k==6)
! {
! str[l++]='#';
! str[l]='f';
! }
! else if(k==7)
! str[l]='g';
! else
! {
! str[l++]='#';
! str[l]='g';
! }
! }
! else
! {
! if(k==9)
! str[l]='a';
! else if(k==10)
! {
! str[l++]='#';
! str[l]='a';
! }
! else
! str[l]='h';
! }
! }
!
! if(j < 4)
! {
! str[l] -= 'a';
! str[l] += 'A';
! }
! l++;
! if(j < 3)
! {
! str[l++] = '0' + (char)(3 - j);
! }
! else if(j > 4)
! {
! str[l++] = '0' + (char)(j - 4);
! }
! str[l] = 0;
! }
!
! static void f2note_bang(t_f2note *x)
! {
! int i,j;
! t_atom at;
! char s[4];
!
! i = (x->x_centomidi + 50)/100;
! j = x->x_centomidi - 100*i;
! outlet_float(x->x_outlet_cent, (float)j);
! f2note_make_note(s, i);
! SETSYMBOL(&at, gensym(s));
! outlet_anything(x->x_outlet_note, x->x_set, 1, &at);
! outlet_float(x->x_outlet_midi, 0.01*(float)(x->x_centomidi));
! }
!
! static void f2note_float(t_f2note *x, t_floatarg freq)
! {
! x->x_centomidi = (int)(100.0*f2note_ftom(x, freq) + 0.5);
! f2note_bang(x);
! }
!
! void f2note_ref(t_f2note *x, t_floatarg ref)
! {
! x->x_refhz = ref;
! f2note_calc_ref(x);
! }
!
! static void *f2note_new(t_floatarg ref)
! {
! t_f2note *x = (t_f2note *)pd_new(f2note_class);
!
! if(ref == 0.0)
! ref=440.0;
! x->x_refhz = ref;
! x->x_centomidi = (int)(100.0*ref + 0.499);
! f2note_calc_ref(x);
! x->x_outlet_midi = outlet_new(&x->x_obj, &s_float);
! x->x_outlet_note = outlet_new(&x->x_obj, &s_list);
! x->x_outlet_cent = outlet_new(&x->x_obj, &s_float);
! x->x_set = gensym("set");
! return (x);
! }
!
! static void f2note_free(t_f2note *x)
! {
! }
!
! void f2note_setup(void)
! {
! f2note_class = class_new(gensym("f2note"), (t_newmethod)f2note_new, (t_method)f2note_free,
! sizeof(t_f2note), 0, A_DEFFLOAT, 0);
! class_addbang(f2note_class,f2note_bang);
! class_addfloat(f2note_class,f2note_float);
! class_addmethod(f2note_class, (t_method)f2note_ref, gensym("ref"), A_FLOAT, 0);
! class_sethelpsymbol(f2note_class, gensym("iemhelp/help-f2note"));
! }
--- 1,190 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <math.h>
! #include <stdio.h>
! #include <string.h>
!
! /* ------------------------- f2note ---------------------- */
! /* ------ frequency to note plus cents converter --------- */
!
! typedef struct _f2note
! {
! t_object x_obj;
! void *x_outlet_midi;
! void *x_outlet_note;
! void *x_outlet_cent;
! int x_centomidi;
! float x_refhz;
! float x_refexp;
! float x_reflog;
! t_symbol *x_set;
! } t_f2note;
!
! static t_class *f2note_class;
!
! float f2note_mtof(t_f2note *x, float midi)
! {
! return(x->x_refexp * exp(0.057762265047 * midi));
! }
!
! float f2note_ftom(t_f2note *x, float freq)
! {
! return (freq > 0 ? 17.31234049 * log(x->x_reflog * freq) : -1500);
! }
!
! void f2note_calc_ref(t_f2note *x)
! {
! float ln2=log(2.0);
!
! x->x_refexp = x->x_refhz*exp(-5.75*ln2);
! x->x_reflog = 1.0/x->x_refexp;
! }
!
! static void f2note_make_note(char *str, int midi)
! {
! int j,k,l=0;
!
! j = midi / 12;
! k = midi % 12;
! if(k <= 5)
! {
! if(k <= 2)
! {
! if(k==0)
! str[l]='c';
! else if(k==1)
! {
! str[l++]='#';
! str[l]='c';
! }
! else
! str[l]='d';
! }
! else
! {
! if(k==3)
! {
! str[l++]='#';
! str[l]='d';
! }
! else if(k==4)
! str[l]='e';
! else
! str[l]='f';
! }
! }
! else
! {
! if(k <= 8)
! {
! if(k==6)
! {
! str[l++]='#';
! str[l]='f';
! }
! else if(k==7)
! str[l]='g';
! else
! {
! str[l++]='#';
! str[l]='g';
! }
! }
! else
! {
! if(k==9)
! str[l]='a';
! else if(k==10)
! {
! str[l++]='#';
! str[l]='a';
! }
! else
! str[l]='h';
! }
! }
!
! if(j < 4)
! {
! str[l] -= 'a';
! str[l] += 'A';
! }
! l++;
! if(j < 3)
! {
! str[l++] = '0' + (char)(3 - j);
! }
! else if(j > 4)
! {
! str[l++] = '0' + (char)(j - 4);
! }
! str[l] = 0;
! }
!
! static void f2note_bang(t_f2note *x)
! {
! int i,j;
! t_atom at;
! char s[4];
!
! i = (x->x_centomidi + 50)/100;
! j = x->x_centomidi - 100*i;
! outlet_float(x->x_outlet_cent, (float)j);
! f2note_make_note(s, i);
! SETSYMBOL(&at, gensym(s));
! outlet_anything(x->x_outlet_note, x->x_set, 1, &at);
! outlet_float(x->x_outlet_midi, 0.01*(float)(x->x_centomidi));
! }
!
! static void f2note_float(t_f2note *x, t_floatarg freq)
! {
! x->x_centomidi = (int)(100.0*f2note_ftom(x, freq) + 0.5);
! f2note_bang(x);
! }
!
! void f2note_ref(t_f2note *x, t_floatarg ref)
! {
! x->x_refhz = ref;
! f2note_calc_ref(x);
! }
!
! static void *f2note_new(t_floatarg ref)
! {
! t_f2note *x = (t_f2note *)pd_new(f2note_class);
!
! if(ref == 0.0)
! ref=440.0;
! x->x_refhz = ref;
! x->x_centomidi = (int)(100.0*ref + 0.499);
! f2note_calc_ref(x);
! x->x_outlet_midi = outlet_new(&x->x_obj, &s_float);
! x->x_outlet_note = outlet_new(&x->x_obj, &s_list);
! x->x_outlet_cent = outlet_new(&x->x_obj, &s_float);
! x->x_set = gensym("set");
! return (x);
! }
!
! static void f2note_free(t_f2note *x)
! {
! }
!
! void f2note_setup(void)
! {
! f2note_class = class_new(gensym("f2note"), (t_newmethod)f2note_new, (t_method)f2note_free,
! sizeof(t_f2note), 0, A_DEFFLOAT, 0);
! class_addbang(f2note_class,f2note_bang);
! class_addfloat(f2note_class,f2note_float);
! class_addmethod(f2note_class, (t_method)f2note_ref, gensym("ref"), A_FLOAT, 0);
! class_sethelpsymbol(f2note_class, gensym("iemhelp/help-f2note"));
! }
Index: sigfilter.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib1/sigfilter.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sigfilter.c 2 Jun 2005 18:23:54 -0000 1.3
--- sigfilter.c 8 Jul 2005 02:08:49 -0000 1.4
***************
*** 1,822 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
[...1615 lines suppressed...]
! x->end_f = x->cur_f;
! x->end_a = x->cur_a;
! x->end_b = x->cur_b;
! }
! return (x);
! }
!
! void sigfilter_setup(void)
! {
! sigfilter_class = class_new(gensym("filter~"), (t_newmethod)sigfilter_new,
! 0, sizeof(t_sigfilter), 0, A_GIMME, 0);
! CLASS_MAINSIGNALIN(sigfilter_class, t_sigfilter, x_msi);
! class_addmethod(sigfilter_class, (t_method)sigfilter_dsp, gensym("dsp"), 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_ft4, gensym("ft4"), A_FLOAT, 0);
! class_addmethod(sigfilter_class, (t_method)sigfilter_print, gensym("print"), 0);
! class_sethelpsymbol(sigfilter_class, gensym("iemhelp/help-filter~"));
! }
1
0
Update of /cvsroot/pure-data/externals/iemlib/src/iemlib2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27505/iemlib/src/iemlib2
Modified Files:
add2_comma.c bpe.c dollarg.c exp_inc.c float24.c
iem_anything.c iem_anything_kernel.c iem_append.c
iem_append_kernel.c iem_i_route.c iem_pbank_csv.c
iem_prepend.c iem_prepend_kernel.c iem_receive.c
iem_receive_kernel.c iem_route.c iem_sel_any.c iem_send.c
iem_send_kernel.c iemlib2.c init.c list2send.c mergefilename.c
modulo_counter.c parentdollarzero.c post_netreceive.c
pre_inlet.c prepend_ascii.c prepend_kernel.c
protect_against_open.c round_zero.c sigLFO_noise.c sigfade.c
sigiem_blocksize.c sigiem_samplerate.c sigm2f.c speedlim.c
splitfilename.c stripfilename.c toggle_mess.c transf_fader.c
unsymbol.c wrap.c
Log Message:
dos-return
Index: iemlib2.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iemlib2.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iemlib2.c 2 Jun 2005 18:25:00 -0000 1.2
--- iemlib2.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,137 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iemlib2_class;
!
! static void *iemlib2_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib2_class);
!
! return (x);
! }
!
! void add2_comma_setup(void);
! void bpe_setup(void);
! void dollarg_setup(void);
! void exp_inc_setup(void);
! void float24_setup(void);
! void iem_anything_kernel_setup(void);
! void iem_anything_setup(void);
! void iem_append_kernel_setup(void);
! void iem_append_setup(void);
! void iem_i_route_setup(void);
! void iem_prepend_kernel_setup(void);
! void iem_prepend_setup(void);
! void iem_pbank_csv_setup(void);
! void iem_receive_kernel_setup(void);
! void iem_receive_setup(void);
! void iem_send_kernel_setup(void);
! void iem_send_setup(void);
! void iem_route_setup(void);
! void iem_sel_any_setup(void);
! void init_setup(void);
! void list2send_setup(void);
! void mergefilename_setup(void);
! void modulo_counter_setup(void);
! void parentdollarzero_setup(void);
! void pre_inlet_setup(void);
! void prepend_ascii_setup(void);
! void protect_against_open_setup(void);
! void post_netreceive_setup(void);
! void receive2list_setup(void);
! void round_zero_setup(void);
! void sigfade_setup(void);
! void sigiem_blocksize_setup(void);
! void sigiem_samplerate_setup(void);
! void sigLFO_noise_setup(void);
! void sigm2f_setup(void);
! void speedlim_setup(void);
! void splitfilename_setup(void);
! void stripfilename_setup(void);
! void toggle_mess_setup(void);
! void transf_fader_setup(void);
! void unsymbol_setup(void);
! void wrap_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib2_setup(void)
! {
! iemlib2_class = class_new(gensym("iemlib2"), iemlib2_new, 0, sizeof(t_object), CLASS_NOINLET, 0);
!
! add2_comma_setup();
! bpe_setup();
! dollarg_setup();
! exp_inc_setup();
! float24_setup();
! iem_anything_kernel_setup();
! iem_anything_setup();
! iem_append_kernel_setup();
! iem_append_setup();
! iem_i_route_setup();
! iem_pbank_csv_setup();
! iem_prepend_kernel_setup();
! iem_prepend_setup();
! iem_receive_kernel_setup();
! iem_receive_setup();
! iem_send_kernel_setup();
! iem_send_setup();
! iem_route_setup();
! iem_sel_any_setup();
! init_setup();
! list2send_setup();
! mergefilename_setup();
! modulo_counter_setup();
! parentdollarzero_setup();
! pre_inlet_setup();
! prepend_ascii_setup();
! protect_against_open_setup();
! post_netreceive_setup();
! receive2list_setup();
! round_zero_setup();
! sigfade_setup();
! sigiem_blocksize_setup();
! sigiem_samplerate_setup();
! sigLFO_noise_setup();
! sigm2f_setup();
! speedlim_setup();
! splitfilename_setup();
! stripfilename_setup();
! toggle_mess_setup();
! transf_fader_setup();
! unsymbol_setup();
! wrap_setup();
!
! post("iemlib2 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
--- 1,137 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
!
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!
! #ifdef NT
! #include <io.h>
! #endif
! */
!
! static t_class *iemlib2_class;
!
! static void *iemlib2_new(void)
! {
! t_object *x = (t_object *)pd_new(iemlib2_class);
!
! return (x);
! }
!
! void add2_comma_setup(void);
! void bpe_setup(void);
! void dollarg_setup(void);
! void exp_inc_setup(void);
! void float24_setup(void);
! void iem_anything_kernel_setup(void);
! void iem_anything_setup(void);
! void iem_append_kernel_setup(void);
! void iem_append_setup(void);
! void iem_i_route_setup(void);
! void iem_prepend_kernel_setup(void);
! void iem_prepend_setup(void);
! void iem_pbank_csv_setup(void);
! void iem_receive_kernel_setup(void);
! void iem_receive_setup(void);
! void iem_send_kernel_setup(void);
! void iem_send_setup(void);
! void iem_route_setup(void);
! void iem_sel_any_setup(void);
! void init_setup(void);
! void list2send_setup(void);
! void mergefilename_setup(void);
! void modulo_counter_setup(void);
! void parentdollarzero_setup(void);
! void pre_inlet_setup(void);
! void prepend_ascii_setup(void);
! void protect_against_open_setup(void);
! void post_netreceive_setup(void);
! void receive2list_setup(void);
! void round_zero_setup(void);
! void sigfade_setup(void);
! void sigiem_blocksize_setup(void);
! void sigiem_samplerate_setup(void);
! void sigLFO_noise_setup(void);
! void sigm2f_setup(void);
! void speedlim_setup(void);
! void splitfilename_setup(void);
! void stripfilename_setup(void);
! void toggle_mess_setup(void);
! void transf_fader_setup(void);
! void unsymbol_setup(void);
! void wrap_setup(void);
!
! /* ------------------------ setup routine ------------------------- */
!
! void iemlib2_setup(void)
! {
! iemlib2_class = class_new(gensym("iemlib2"), iemlib2_new, 0, sizeof(t_object), CLASS_NOINLET, 0);
!
! add2_comma_setup();
! bpe_setup();
! dollarg_setup();
! exp_inc_setup();
! float24_setup();
! iem_anything_kernel_setup();
! iem_anything_setup();
! iem_append_kernel_setup();
! iem_append_setup();
! iem_i_route_setup();
! iem_pbank_csv_setup();
! iem_prepend_kernel_setup();
! iem_prepend_setup();
! iem_receive_kernel_setup();
! iem_receive_setup();
! iem_send_kernel_setup();
! iem_send_setup();
! iem_route_setup();
! iem_sel_any_setup();
! init_setup();
! list2send_setup();
! mergefilename_setup();
! modulo_counter_setup();
! parentdollarzero_setup();
! pre_inlet_setup();
! prepend_ascii_setup();
! protect_against_open_setup();
! post_netreceive_setup();
! receive2list_setup();
! round_zero_setup();
! sigfade_setup();
! sigiem_blocksize_setup();
! sigiem_samplerate_setup();
! sigLFO_noise_setup();
! sigm2f_setup();
! speedlim_setup();
! splitfilename_setup();
! stripfilename_setup();
! toggle_mess_setup();
! transf_fader_setup();
! unsymbol_setup();
! wrap_setup();
!
! post("iemlib2 (R-1.16) library loaded! (c) Thomas Musil 05.2005");
! post(" musil%ciem.at iem KUG Graz Austria", '@');
! }
Index: iem_anything_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_anything_kernel.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_anything_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_anything_kernel.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,148 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_anything_kernel ---------------------------- */
!
! static t_class *iem_anything_kernel_class;
!
! typedef struct _iem_anything_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! } t_iem_anything_kernel;
!
! static void iem_anything_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_anything_kernel_inlet_select(t_iem_anything_kernel *x, t_floatarg in_sel_01)
! {
! x->x_inlet_select = (int)in_sel_01;
! }
!
! static void iem_anything_kernel_anything(t_iem_anything_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 0)&&(s == &s_bang))
! {
! if(x->x_inlet_select)
! {
! x->x_ac = ac;
! x->x_sym = s;
! }
! else
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! else
! {
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), ac*sizeof(t_atom));
! x->x_size = ac;
! }
! x->x_ac = ac;
! x->x_sym = s;
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! if(!x->x_inlet_select)
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! }
!
! static void iem_anything_kernel_free(t_iem_anything_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_anything_kernel_new(void)
! {
! t_iem_anything_kernel *x = (t_iem_anything_kernel *)pd_new(iem_anything_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(!ac)
! {
! x->x_sym = &s_bang;
! x->x_size = 10;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! x->x_ac = 0;
! }
! else
! {
! x->x_sym = &s_list;
! x->x_ac = 1;
! x->x_at[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! x->x_sym = &s_list;
! if(ac < 10)
! x->x_size = 10;
! else
! x->x_size = ac;
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! }
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_anything_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;/*inlet-sym = "\0x01"*/
! str[1] = 0;
! iem_anything_kernel_class = class_new(gensym("iem_anything_kernel"),
! (t_newmethod)iem_anything_kernel_new, (t_method)iem_anything_kernel_free,
! sizeof(t_iem_anything_kernel), 0, 0);
! class_addmethod(iem_anything_kernel_class, (t_method)iem_anything_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_anything_kernel_class, iem_anything_kernel_anything);
! class_sethelpsymbol(iem_anything_kernel_class, gensym("iemhelp/help-iem_anything"));
! }
--- 1,148 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_anything_kernel ---------------------------- */
!
! static t_class *iem_anything_kernel_class;
!
! typedef struct _iem_anything_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! } t_iem_anything_kernel;
!
! static void iem_anything_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_anything_kernel_inlet_select(t_iem_anything_kernel *x, t_floatarg in_sel_01)
! {
! x->x_inlet_select = (int)in_sel_01;
! }
!
! static void iem_anything_kernel_anything(t_iem_anything_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 0)&&(s == &s_bang))
! {
! if(x->x_inlet_select)
! {
! x->x_ac = ac;
! x->x_sym = s;
! }
! else
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! else
! {
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), ac*sizeof(t_atom));
! x->x_size = ac;
! }
! x->x_ac = ac;
! x->x_sym = s;
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! if(!x->x_inlet_select)
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! }
!
! static void iem_anything_kernel_free(t_iem_anything_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_anything_kernel_new(void)
! {
! t_iem_anything_kernel *x = (t_iem_anything_kernel *)pd_new(iem_anything_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(!ac)
! {
! x->x_sym = &s_bang;
! x->x_size = 10;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! x->x_ac = 0;
! }
! else
! {
! x->x_sym = &s_list;
! x->x_ac = 1;
! x->x_at[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! x->x_sym = &s_list;
! if(ac < 10)
! x->x_size = 10;
! else
! x->x_size = ac;
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! iem_anything_kernel_atcopy(av, x->x_at, ac);
! }
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_anything_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;/*inlet-sym = "\0x01"*/
! str[1] = 0;
! iem_anything_kernel_class = class_new(gensym("iem_anything_kernel"),
! (t_newmethod)iem_anything_kernel_new, (t_method)iem_anything_kernel_free,
! sizeof(t_iem_anything_kernel), 0, 0);
! class_addmethod(iem_anything_kernel_class, (t_method)iem_anything_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_anything_kernel_class, iem_anything_kernel_anything);
! class_sethelpsymbol(iem_anything_kernel_class, gensym("iemhelp/help-iem_anything"));
! }
Index: iem_i_route.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_i_route.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_i_route.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_i_route.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,112 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_i_route ------------------------------ */
! /* ---- routes a list beginning with a float to an outlet, which is ---- */
! /* -- defined by the 3 initial arguments first index, last index and --- */
! /* ---------------------- offset index --------------------------------- */
!
! static t_class *iem_i_route_class;
!
! typedef struct _iem_i_route
! {
! t_object x_obj;
! int x_first_element;
! int x_last_element;
! t_outlet **x_out;
! } t_iem_i_route;
!
! static void iem_i_route_list(t_iem_i_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_outlet **out;
! int first, last, i;
!
! if(!argc)
! return;
! i = (int)atom_getintarg(0, argc, argv);
! first = x->x_first_element;
! last = x->x_last_element;
! out = x->x_out;
! if((i >= first)&&(i <= last))
! {
! out += i - first;
! if(argc >= 3)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_list(*out, &s_list, argc-1, argv+1);
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), argc-2, argv+2);
! }
! else if(argc >= 2)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_float(*out, (float)atom_getfloatarg(1, argc, argv));
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), 0, argv+2);
! }
! else
! outlet_bang(*out);
! }
! else
! {
! out += last - first + 1;
! outlet_list(*out, &s_list, argc, argv);
! }
! }
!
! static void iem_i_route_free(t_iem_i_route *x)
! {
! freebytes(x->x_out, (x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! }
!
! static void *iem_i_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n, i;
! t_outlet **out;
! t_iem_i_route *x = (t_iem_i_route *)pd_new(iem_i_route_class);
!
! if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1))
! {
! x->x_first_element = (int)atom_getintarg(0, argc, argv);
! x->x_last_element = (int)atom_getintarg(1, argc, argv);
! if((argc >= 3)&&IS_A_FLOAT(argv,2))
! {
! i = (int)atom_getintarg(2, argc, argv);
! x->x_first_element += i;
! x->x_last_element += i;
! }
! x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! n = x->x_last_element - x->x_first_element + 2;
! for(i=0, out=x->x_out; i<n; i++, out++)
! *out = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! else
! {
! post("iem_i_route-ERROR: needs 3 floats!!");
! return(0);
! }
! }
!
! void iem_i_route_setup(void)
! {
! iem_i_route_class = class_new(gensym("iem_i_route"), (t_newmethod)iem_i_route_new,
! (t_method)iem_i_route_free, sizeof(t_iem_i_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"), A_GIMME, 0);
! class_addlist(iem_i_route_class, iem_i_route_list);
! class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route"));
! }
--- 1,112 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_i_route ------------------------------ */
! /* ---- routes a list beginning with a float to an outlet, which is ---- */
! /* -- defined by the 3 initial arguments first index, last index and --- */
! /* ---------------------- offset index --------------------------------- */
!
! static t_class *iem_i_route_class;
!
! typedef struct _iem_i_route
! {
! t_object x_obj;
! int x_first_element;
! int x_last_element;
! t_outlet **x_out;
! } t_iem_i_route;
!
! static void iem_i_route_list(t_iem_i_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_outlet **out;
! int first, last, i;
!
! if(!argc)
! return;
! i = (int)atom_getintarg(0, argc, argv);
! first = x->x_first_element;
! last = x->x_last_element;
! out = x->x_out;
! if((i >= first)&&(i <= last))
! {
! out += i - first;
! if(argc >= 3)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_list(*out, &s_list, argc-1, argv+1);
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), argc-2, argv+2);
! }
! else if(argc >= 2)
! {
! if(IS_A_FLOAT(argv,1))
! outlet_float(*out, (float)atom_getfloatarg(1, argc, argv));
! else if(IS_A_SYMBOL(argv,1))
! outlet_anything(*out, atom_getsymbolarg(1, argc, argv), 0, argv+2);
! }
! else
! outlet_bang(*out);
! }
! else
! {
! out += last - first + 1;
! outlet_list(*out, &s_list, argc, argv);
! }
! }
!
! static void iem_i_route_free(t_iem_i_route *x)
! {
! freebytes(x->x_out, (x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! }
!
! static void *iem_i_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n, i;
! t_outlet **out;
! t_iem_i_route *x = (t_iem_i_route *)pd_new(iem_i_route_class);
!
! if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1))
! {
! x->x_first_element = (int)atom_getintarg(0, argc, argv);
! x->x_last_element = (int)atom_getintarg(1, argc, argv);
! if((argc >= 3)&&IS_A_FLOAT(argv,2))
! {
! i = (int)atom_getintarg(2, argc, argv);
! x->x_first_element += i;
! x->x_last_element += i;
! }
! x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
! n = x->x_last_element - x->x_first_element + 2;
! for(i=0, out=x->x_out; i<n; i++, out++)
! *out = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! else
! {
! post("iem_i_route-ERROR: needs 3 floats!!");
! return(0);
! }
! }
!
! void iem_i_route_setup(void)
! {
! iem_i_route_class = class_new(gensym("iem_i_route"), (t_newmethod)iem_i_route_new,
! (t_method)iem_i_route_free, sizeof(t_iem_i_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"), A_GIMME, 0);
! class_addlist(iem_i_route_class, iem_i_route_list);
! class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route"));
! }
Index: parentdollarzero.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/parentdollarzero.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** parentdollarzero.c 2 Jun 2005 18:26:48 -0000 1.1
--- parentdollarzero.c 8 Jul 2005 02:04:25 -0000 1.2
***************
*** 1,60 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------- parentdollarzero --------------- */
! /* -- receives the $0 value of the parent canvas --*/
!
! static t_class *parentdollarzero_class;
!
! typedef struct _parentdollarzero
! {
! t_object x_obj;
! t_symbol *s_parent_unique;
! unsigned int x_is_there_a_parent;
! } t_parentdollarzero;
!
! static void parentdollarzero_bang(t_parentdollarzero *x)
! {
! if(x->x_is_there_a_parent)
! outlet_symbol(x->x_obj.ob_outlet, x->s_parent_unique);
! }
!
! static void *parentdollarzero_new(void)
! {
! t_parentdollarzero *x = (t_parentdollarzero *)pd_new(parentdollarzero_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *this_canvas = glist_getcanvas(glist);
!
! x->x_is_there_a_parent = (unsigned int)this_canvas->gl_owner;
!
! if(x->x_is_there_a_parent)
! x->s_parent_unique = canvas_realizedollar((t_canvas *)this_canvas->gl_owner, gensym("$0"));
! else
! x->s_parent_unique = gensym("");
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void parentdollarzero_setup(void)
! {
! parentdollarzero_class = class_new(gensym("parentdollarzero"), (t_newmethod)parentdollarzero_new,
! 0, sizeof(t_parentdollarzero), 0, 0);
! class_addcreator((t_newmethod)parentdollarzero_new, gensym("parent$0"), 0);
! class_addbang(parentdollarzero_class, (t_method)parentdollarzero_bang);
! class_sethelpsymbol(parentdollarzero_class, gensym("iemhelp/help-parentdollarzero"));
! }
--- 1,60 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------- parentdollarzero --------------- */
! /* -- receives the $0 value of the parent canvas --*/
!
! static t_class *parentdollarzero_class;
!
! typedef struct _parentdollarzero
! {
! t_object x_obj;
! t_symbol *s_parent_unique;
! unsigned int x_is_there_a_parent;
! } t_parentdollarzero;
!
! static void parentdollarzero_bang(t_parentdollarzero *x)
! {
! if(x->x_is_there_a_parent)
! outlet_symbol(x->x_obj.ob_outlet, x->s_parent_unique);
! }
!
! static void *parentdollarzero_new(void)
! {
! t_parentdollarzero *x = (t_parentdollarzero *)pd_new(parentdollarzero_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *this_canvas = glist_getcanvas(glist);
!
! x->x_is_there_a_parent = (unsigned int)this_canvas->gl_owner;
!
! if(x->x_is_there_a_parent)
! x->s_parent_unique = canvas_realizedollar((t_canvas *)this_canvas->gl_owner, gensym("$0"));
! else
! x->s_parent_unique = gensym("");
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void parentdollarzero_setup(void)
! {
! parentdollarzero_class = class_new(gensym("parentdollarzero"), (t_newmethod)parentdollarzero_new,
! 0, sizeof(t_parentdollarzero), 0, 0);
! class_addcreator((t_newmethod)parentdollarzero_new, gensym("parent$0"), 0);
! class_addbang(parentdollarzero_class, (t_method)parentdollarzero_bang);
! class_sethelpsymbol(parentdollarzero_class, gensym("iemhelp/help-parentdollarzero"));
! }
Index: round_zero.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/round_zero.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** round_zero.c 2 Jun 2005 18:25:00 -0000 1.2
--- round_zero.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,68 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdio.h>
! #include <string.h>
!
!
! /* ------------------------ round_zero ---------------------------- */
! /* ------ small float numbers of an anything message within ------- */
! /* ---- plus minus initial argument will be truncated to zero ----- */
!
! static t_class *round_zero_class;
!
! typedef struct _round_zero
! {
! t_object x_obj;
! t_float x_bound;
! } t_round_zero;
!
! static void round_zero_anything(t_round_zero *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
! t_float f, bound=x->x_bound;
!
! for(i=0; i<ac; i++)
! {
! if(IS_A_FLOAT(av, i))
! {
! f = atom_getfloatarg(i, ac, av);
! if((f <= bound)&&(f >= -bound))
! {
! f = 0.0f;
! SETFLOAT(av+i, f);
! }
! }
! }
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void *round_zero_new(t_floatarg bound)
! {
! t_round_zero *x = (t_round_zero *)pd_new(round_zero_class);
!
! if(bound < 0.0f)
! x->x_bound = -bound;
! else
! x->x_bound = bound;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void round_zero_setup(void)
! {
! round_zero_class = class_new(gensym("round_zero"), (t_newmethod)round_zero_new,
! 0, sizeof(t_round_zero), 0, A_DEFFLOAT, 0);
! class_addanything(round_zero_class, round_zero_anything);
! class_sethelpsymbol(round_zero_class, gensym("iemhelp/help-round_zero"));
! }
--- 1,68 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdio.h>
! #include <string.h>
!
!
! /* ------------------------ round_zero ---------------------------- */
! /* ------ small float numbers of an anything message within ------- */
! /* ---- plus minus initial argument will be truncated to zero ----- */
!
! static t_class *round_zero_class;
!
! typedef struct _round_zero
! {
! t_object x_obj;
! t_float x_bound;
! } t_round_zero;
!
! static void round_zero_anything(t_round_zero *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
! t_float f, bound=x->x_bound;
!
! for(i=0; i<ac; i++)
! {
! if(IS_A_FLOAT(av, i))
! {
! f = atom_getfloatarg(i, ac, av);
! if((f <= bound)&&(f >= -bound))
! {
! f = 0.0f;
! SETFLOAT(av+i, f);
! }
! }
! }
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void *round_zero_new(t_floatarg bound)
! {
! t_round_zero *x = (t_round_zero *)pd_new(round_zero_class);
!
! if(bound < 0.0f)
! x->x_bound = -bound;
! else
! x->x_bound = bound;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void round_zero_setup(void)
! {
! round_zero_class = class_new(gensym("round_zero"), (t_newmethod)round_zero_new,
! 0, sizeof(t_round_zero), 0, A_DEFFLOAT, 0);
! class_addanything(round_zero_class, round_zero_anything);
! class_sethelpsymbol(round_zero_class, gensym("iemhelp/help-round_zero"));
! }
Index: wrap.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/wrap.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** wrap.c 2 Jun 2005 18:25:00 -0000 1.2
--- wrap.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,67 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ wrap ----------------- */
! /* -- leave the fractal part of a float message -- */
!
! typedef struct _wrap
! {
! t_object x_obj;
! float x_f;
! } t_wrap;
!
! static t_class *wrap_class;
!
! static void wrap_bang(t_wrap *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_f);
! }
!
! static void wrap_float(t_wrap *x, t_float f)
! {
! int i=(int)f;
!
! if(f > 0.0)
! x->x_f = f - (float)i;
! else
! x->x_f = f - (float)(i - 1);
! wrap_bang(x);
! }
!
! static void wrap_list(t_wrap *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0) && (IS_A_FLOAT(argv, 0)))
! wrap_float(x, atom_getfloat(argv));
! }
!
! static void *wrap_new(void)
! {
! t_wrap *x = (t_wrap *)pd_new(wrap_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_f = 0.0;
! return (x);
! }
!
! void wrap_setup(void)
! {
! wrap_class = class_new(gensym("wrap"), (t_newmethod)wrap_new, 0,
! sizeof(t_wrap), 0, 0);
! class_addbang(wrap_class, (t_method)wrap_bang);
! class_addfloat(wrap_class, (t_method)wrap_float);
! class_addlist(wrap_class, (t_method)wrap_list);
! class_sethelpsymbol(wrap_class, gensym("iemhelp/help-wrap"));
! }
--- 1,67 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ wrap ----------------- */
! /* -- leave the fractal part of a float message -- */
!
! typedef struct _wrap
! {
! t_object x_obj;
! float x_f;
! } t_wrap;
!
! static t_class *wrap_class;
!
! static void wrap_bang(t_wrap *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_f);
! }
!
! static void wrap_float(t_wrap *x, t_float f)
! {
! int i=(int)f;
!
! if(f > 0.0)
! x->x_f = f - (float)i;
! else
! x->x_f = f - (float)(i - 1);
! wrap_bang(x);
! }
!
! static void wrap_list(t_wrap *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0) && (IS_A_FLOAT(argv, 0)))
! wrap_float(x, atom_getfloat(argv));
! }
!
! static void *wrap_new(void)
! {
! t_wrap *x = (t_wrap *)pd_new(wrap_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_f = 0.0;
! return (x);
! }
!
! void wrap_setup(void)
! {
! wrap_class = class_new(gensym("wrap"), (t_newmethod)wrap_new, 0,
! sizeof(t_wrap), 0, 0);
! class_addbang(wrap_class, (t_method)wrap_bang);
! class_addfloat(wrap_class, (t_method)wrap_float);
! class_addlist(wrap_class, (t_method)wrap_list);
! class_sethelpsymbol(wrap_class, gensym("iemhelp/help-wrap"));
! }
Index: iem_send_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_send_kernel.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_send_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_send_kernel.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,140 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* -------------------- iem_send_kernel ------------------------------ */
!
! static t_class *iem_send_kernel_class;
!
! typedef struct _iem_send_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_send_kernel;
!
! static void iem_send_kernel_set_name(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! }
! }
!
! static void iem_send_kernel_clear(t_iem_send_kernel *x)
! {
! x->x_sym = 0;
! }
!
! static void iem_send_kernel_bang(t_iem_send_kernel *x)
! {
! if(x->x_sym->s_thing)
! pd_bang(x->x_sym->s_thing);
! }
!
! static void iem_send_kernel_float(t_iem_send_kernel *x, t_float f)
! {
! if(x->x_sym->s_thing)
! pd_float(x->x_sym->s_thing, f);
! }
!
! static void iem_send_kernel_symbol(t_iem_send_kernel *x, t_symbol *s)
! {
! if(x->x_sym->s_thing)
! pd_symbol(x->x_sym->s_thing, s);
! }
!
! static void iem_send_kernel_pointer(t_iem_send_kernel *x, t_gpointer *gp)
! {
! if(x->x_sym->s_thing)
! pd_pointer(x->x_sym->s_thing, gp);
! }
!
! static void iem_send_kernel_list(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! pd_list(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void iem_send_kernel_anything(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! typedmess(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void *iem_send_kernel_new(void)
! {
! t_iem_send_kernel *x = (t_iem_send_kernel *)pd_new(iem_send_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
! return (x);
! }
!
! void iem_send_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_send_kernel_class = class_new(gensym("iem_send_kernel"), (t_newmethod)iem_send_kernel_new, 0,
! sizeof(t_iem_send_kernel), 0, 0);
! class_addcreator((t_newmethod)iem_send_kernel_new, gensym("s"), A_DEFSYM, 0);
! class_addbang(iem_send_kernel_class, iem_send_kernel_bang);
! class_addfloat(iem_send_kernel_class, iem_send_kernel_float);
! class_addsymbol(iem_send_kernel_class, iem_send_kernel_symbol);
! class_addpointer(iem_send_kernel_class, iem_send_kernel_pointer);
! class_addlist(iem_send_kernel_class, iem_send_kernel_list);
! class_addanything(iem_send_kernel_class, iem_send_kernel_anything);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_send_kernel_class, gensym("iemhelp/help-iem_send"));
! }
--- 1,140 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* -------------------- iem_send_kernel ------------------------------ */
!
! static t_class *iem_send_kernel_class;
!
! typedef struct _iem_send_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_send_kernel;
!
! static void iem_send_kernel_set_name(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! }
! }
!
! static void iem_send_kernel_clear(t_iem_send_kernel *x)
! {
! x->x_sym = 0;
! }
!
! static void iem_send_kernel_bang(t_iem_send_kernel *x)
! {
! if(x->x_sym->s_thing)
! pd_bang(x->x_sym->s_thing);
! }
!
! static void iem_send_kernel_float(t_iem_send_kernel *x, t_float f)
! {
! if(x->x_sym->s_thing)
! pd_float(x->x_sym->s_thing, f);
! }
!
! static void iem_send_kernel_symbol(t_iem_send_kernel *x, t_symbol *s)
! {
! if(x->x_sym->s_thing)
! pd_symbol(x->x_sym->s_thing, s);
! }
!
! static void iem_send_kernel_pointer(t_iem_send_kernel *x, t_gpointer *gp)
! {
! if(x->x_sym->s_thing)
! pd_pointer(x->x_sym->s_thing, gp);
! }
!
! static void iem_send_kernel_list(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! pd_list(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void iem_send_kernel_anything(t_iem_send_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_sym->s_thing)
! typedmess(x->x_sym->s_thing, s, argc, argv);
! }
!
! static void *iem_send_kernel_new(void)
! {
! t_iem_send_kernel *x = (t_iem_send_kernel *)pd_new(iem_send_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
! return (x);
! }
!
! void iem_send_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_send_kernel_class = class_new(gensym("iem_send_kernel"), (t_newmethod)iem_send_kernel_new, 0,
! sizeof(t_iem_send_kernel), 0, 0);
! class_addcreator((t_newmethod)iem_send_kernel_new, gensym("s"), A_DEFSYM, 0);
! class_addbang(iem_send_kernel_class, iem_send_kernel_bang);
! class_addfloat(iem_send_kernel_class, iem_send_kernel_float);
! class_addsymbol(iem_send_kernel_class, iem_send_kernel_symbol);
! class_addpointer(iem_send_kernel_class, iem_send_kernel_pointer);
! class_addlist(iem_send_kernel_class, iem_send_kernel_list);
! class_addanything(iem_send_kernel_class, iem_send_kernel_anything);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_send_kernel_class, (t_method)iem_send_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_send_kernel_class, gensym("iemhelp/help-iem_send"));
! }
Index: sigiem_samplerate.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigiem_samplerate.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigiem_samplerate.c 2 Jun 2005 18:25:00 -0000 1.2
--- sigiem_samplerate.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,60 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* --------------- iem_samplerate~ ----------------- */
! /* -- outputs the current samplerate of a window --- */
!
! static t_class *sigiem_samplerate_class;
!
! typedef struct _sigiem_samplerate
! {
! t_object x_obj;
! t_float x_samplerate;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_samplerate;
!
! static void sigiem_samplerate_out(t_sigiem_samplerate *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_samplerate);
! }
!
! static void sigiem_samplerate_free(t_sigiem_samplerate *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_samplerate_new(t_symbol *s)
! {
! t_sigiem_samplerate *x = (t_sigiem_samplerate *)pd_new(sigiem_samplerate_class);
! x->x_clock = clock_new(x, (t_method)sigiem_samplerate_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_samplerate = 44100.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_samplerate_dsp(t_sigiem_samplerate *x, t_signal **sp)
! {
! x->x_samplerate = (t_float)(sp[0]->s_sr);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_samplerate_setup(void)
! {
! sigiem_samplerate_class = class_new(gensym("iem_samplerate~"), (t_newmethod)sigiem_samplerate_new,
! (t_method)sigiem_samplerate_free, sizeof(t_sigiem_samplerate), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_samplerate_class, t_sigiem_samplerate, x_f);
! class_addmethod(sigiem_samplerate_class, (t_method)sigiem_samplerate_dsp, gensym("dsp"), 0);
! }
--- 1,60 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* --------------- iem_samplerate~ ----------------- */
! /* -- outputs the current samplerate of a window --- */
!
! static t_class *sigiem_samplerate_class;
!
! typedef struct _sigiem_samplerate
! {
! t_object x_obj;
! t_float x_samplerate;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_samplerate;
!
! static void sigiem_samplerate_out(t_sigiem_samplerate *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_samplerate);
! }
!
! static void sigiem_samplerate_free(t_sigiem_samplerate *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_samplerate_new(t_symbol *s)
! {
! t_sigiem_samplerate *x = (t_sigiem_samplerate *)pd_new(sigiem_samplerate_class);
! x->x_clock = clock_new(x, (t_method)sigiem_samplerate_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_samplerate = 44100.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_samplerate_dsp(t_sigiem_samplerate *x, t_signal **sp)
! {
! x->x_samplerate = (t_float)(sp[0]->s_sr);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_samplerate_setup(void)
! {
! sigiem_samplerate_class = class_new(gensym("iem_samplerate~"), (t_newmethod)sigiem_samplerate_new,
! (t_method)sigiem_samplerate_free, sizeof(t_sigiem_samplerate), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_samplerate_class, t_sigiem_samplerate, x_f);
! class_addmethod(sigiem_samplerate_class, (t_method)sigiem_samplerate_dsp, gensym("dsp"), 0);
! }
Index: add2_comma.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/add2_comma.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** add2_comma.c 2 Jun 2005 18:25:00 -0000 1.2
--- add2_comma.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,119 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* --------------------------------- add2_comma ----------------------------------- */
! /* -- a special add2-message for messageboxes, which append a comma to a message -- */
!
! static t_class *add2_comma_class;
!
! typedef struct _add2_comma
! {
! t_object x_obj;
! int x_size;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_add2_comma;
!
! static void add2_comma_bang(t_add2_comma *x)
! {
! SETCOMMA(x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, x->x_at);
! }
!
! static void add2_comma_float(t_add2_comma *x, t_float f)
! {
! SETCOMMA(x->x_at);
! SETFLOAT(x->x_at+1, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! static void add2_comma_symbol(t_add2_comma *x, t_symbol *s)
! {
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! /*static void add2_comma_pointer(t_add2_comma *x, t_gpointer *gp)
! {
! if(!x->x_at)
! {
! x->x_n = 1;
! x->x_at = (t_atom *)getbytes(sizeof(t_atom));
! }
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }*/
!
! static void add2_comma_list(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+2)*sizeof(t_atom));
! x->x_size = ac+2;
! }
! SETCOMMA(x->x_at);
! for(i=1; i<=ac; i++)
! x->x_at[i] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+1, x->x_at);
! }
!
! static void add2_comma_anything(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+2) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+3)*sizeof(t_atom));
! x->x_size = ac+3;
! }
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! for(i=1; i<=ac; i++)
! x->x_at[i+1] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+2, x->x_at);
! }
!
! static void add2_comma_free(t_add2_comma *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *add2_comma_new(void)
! {
! t_add2_comma *x = (t_add2_comma *)pd_new(add2_comma_class);
!
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_sym = gensym("add2");
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void add2_comma_setup(void)
! {
! add2_comma_class = class_new(gensym("add2_comma"), (t_newmethod)add2_comma_new,
! (t_method)add2_comma_free, sizeof(t_add2_comma), 0, 0);
! class_addbang(add2_comma_class, (t_method)add2_comma_bang);
! class_addanything(add2_comma_class, add2_comma_anything);
! class_addlist(add2_comma_class, add2_comma_list);
! /*class_addpointer(add2_comma_class, add2_comma_pointer);*/
! class_addfloat(add2_comma_class, (t_method)add2_comma_float);
! class_addsymbol(add2_comma_class, add2_comma_symbol);
! class_sethelpsymbol(add2_comma_class, gensym("iemhelp/help-add2_comma"));
! }
--- 1,119 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* --------------------------------- add2_comma ----------------------------------- */
! /* -- a special add2-message for messageboxes, which append a comma to a message -- */
!
! static t_class *add2_comma_class;
!
! typedef struct _add2_comma
! {
! t_object x_obj;
! int x_size;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_add2_comma;
!
! static void add2_comma_bang(t_add2_comma *x)
! {
! SETCOMMA(x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, x->x_at);
! }
!
! static void add2_comma_float(t_add2_comma *x, t_float f)
! {
! SETCOMMA(x->x_at);
! SETFLOAT(x->x_at+1, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! static void add2_comma_symbol(t_add2_comma *x, t_symbol *s)
! {
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 2, x->x_at);
! }
!
! /*static void add2_comma_pointer(t_add2_comma *x, t_gpointer *gp)
! {
! if(!x->x_at)
! {
! x->x_n = 1;
! x->x_at = (t_atom *)getbytes(sizeof(t_atom));
! }
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }*/
!
! static void add2_comma_list(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+2)*sizeof(t_atom));
! x->x_size = ac+2;
! }
! SETCOMMA(x->x_at);
! for(i=1; i<=ac; i++)
! x->x_at[i] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+1, x->x_at);
! }
!
! static void add2_comma_anything(t_add2_comma *x, t_symbol *s, int ac, t_atom *av)
! {
! int i;
!
! if((ac+2) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+3)*sizeof(t_atom));
! x->x_size = ac+3;
! }
! SETCOMMA(x->x_at);
! SETSYMBOL(x->x_at+1, s);
! for(i=1; i<=ac; i++)
! x->x_at[i+1] = av[i-1];
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+2, x->x_at);
! }
!
! static void add2_comma_free(t_add2_comma *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *add2_comma_new(void)
! {
! t_add2_comma *x = (t_add2_comma *)pd_new(add2_comma_class);
!
! x->x_size = 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_sym = gensym("add2");
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void add2_comma_setup(void)
! {
! add2_comma_class = class_new(gensym("add2_comma"), (t_newmethod)add2_comma_new,
! (t_method)add2_comma_free, sizeof(t_add2_comma), 0, 0);
! class_addbang(add2_comma_class, (t_method)add2_comma_bang);
! class_addanything(add2_comma_class, add2_comma_anything);
! class_addlist(add2_comma_class, add2_comma_list);
! /*class_addpointer(add2_comma_class, add2_comma_pointer);*/
! class_addfloat(add2_comma_class, (t_method)add2_comma_float);
! class_addsymbol(add2_comma_class, add2_comma_symbol);
! class_sethelpsymbol(add2_comma_class, gensym("iemhelp/help-add2_comma"));
! }
Index: stripfilename.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/stripfilename.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** stripfilename.c 2 Jun 2005 18:25:00 -0000 1.2
--- stripfilename.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,81 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------------- stripfilename ----------------------- */
! /* -- strips the first n or last n characters, depending on sign -- */
! /* ------- of the initial argument (set message argument) --------- */
!
! static t_class *stripfilename_class;
!
! typedef struct _stripfilename
! {
! t_object x_obj;
! int x_nr_char;
! } t_stripfilename;
!
! static void stripfilename_symbol(t_stripfilename *x, t_symbol *s)
! {
! if(x->x_nr_char < 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=len + x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i < 0)
! i = 0;
! str[i] = 0;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str));
! freebytes(str, (len+2)*sizeof(char));
! }
! else if(x->x_nr_char > 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i > len)
! i = len;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str+i));
! freebytes(str, (len+2)*sizeof(char));
! }
! else
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void stripfilename_set(t_stripfilename *x, t_floatarg nr_char)
! {
! x->x_nr_char = (int)nr_char;
! }
!
! static void *stripfilename_new(t_floatarg nr_char)
! {
! t_stripfilename *x = (t_stripfilename *)pd_new(stripfilename_class);
!
! stripfilename_set(x, nr_char);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void stripfilename_setup(void)
! {
! stripfilename_class = class_new(gensym("stripfilename"), (t_newmethod)stripfilename_new,
! 0, sizeof(t_stripfilename), 0, A_DEFFLOAT, 0);
! class_addsymbol(stripfilename_class, stripfilename_symbol);
! class_addmethod(stripfilename_class, (t_method)stripfilename_set, gensym("set"), A_FLOAT, 0);
! class_sethelpsymbol(stripfilename_class, gensym("iemhelp/help-stripfilename"));
! }
--- 1,81 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------------- stripfilename ----------------------- */
! /* -- strips the first n or last n characters, depending on sign -- */
! /* ------- of the initial argument (set message argument) --------- */
!
! static t_class *stripfilename_class;
!
! typedef struct _stripfilename
! {
! t_object x_obj;
! int x_nr_char;
! } t_stripfilename;
!
! static void stripfilename_symbol(t_stripfilename *x, t_symbol *s)
! {
! if(x->x_nr_char < 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=len + x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i < 0)
! i = 0;
! str[i] = 0;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str));
! freebytes(str, (len+2)*sizeof(char));
! }
! else if(x->x_nr_char > 0)
! {
! int len = strlen(s->s_name);
! char *str=(char *)getbytes((len+2)*sizeof(char));
! int i=x->x_nr_char;
!
! strcpy(str, s->s_name);
! if(i > len)
! i = len;
! outlet_symbol(x->x_obj.ob_outlet, gensym(str+i));
! freebytes(str, (len+2)*sizeof(char));
! }
! else
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void stripfilename_set(t_stripfilename *x, t_floatarg nr_char)
! {
! x->x_nr_char = (int)nr_char;
! }
!
! static void *stripfilename_new(t_floatarg nr_char)
! {
! t_stripfilename *x = (t_stripfilename *)pd_new(stripfilename_class);
!
! stripfilename_set(x, nr_char);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void stripfilename_setup(void)
! {
! stripfilename_class = class_new(gensym("stripfilename"), (t_newmethod)stripfilename_new,
! 0, sizeof(t_stripfilename), 0, A_DEFFLOAT, 0);
! class_addsymbol(stripfilename_class, stripfilename_symbol);
! class_addmethod(stripfilename_class, (t_method)stripfilename_set, gensym("set"), A_FLOAT, 0);
! class_sethelpsymbol(stripfilename_class, gensym("iemhelp/help-stripfilename"));
! }
Index: protect_against_open.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/protect_against_open.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** protect_against_open.c 2 Jun 2005 18:26:48 -0000 1.1
--- protect_against_open.c 8 Jul 2005 02:04:25 -0000 1.2
***************
*** 1,103 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include "g_canvas.h"
! #include "g_all_guis.h"
! #include <string.h>
!
! #ifdef NT
! #include <io.h>
! #else
! #include <unistd.h>
! #endif
!
! /* ---------------------- protect_against_open ----------------------- */
! /* -- if you putting this object into a subpatch or an abstraction, -- */
! /* ------------ you cannot open again this subpatch ------------------ */
!
! t_widgetbehavior protect_against_open_widgetbehavior;
! static t_class *protect_against_open_class;
!
! typedef struct _protect_against_open
! {
! t_object x_obj;
! t_symbol *x_sym;
! t_pd *x_owner;
! void *x_clock;
! } t_protect_against_open;
!
! /* ------------------------ cnv widgetbehaviour----------------------------- */
!
! static void protect_against_open_tick(t_protect_against_open *x)
! {
! t_symbol *sym = gensym("vis");
! t_atom at[1];
!
! SETFLOAT(at, 0.0);
! typedmess(x->x_sym->s_thing, sym, 1, at);
! clock_unset(x->x_clock);
! }
!
! static void protect_against_open_vis(t_gobj *z, t_glist *glist, int vis)
! {
! t_protect_against_open *x = (t_protect_against_open *)z;
!
! if(vis)
! clock_delay(x->x_clock, 5);
! }
!
! static void *protect_against_open_new(t_symbol *s, int ac, t_atom *av)
! {
! t_protect_against_open *x = (t_protect_against_open *)pd_new(protect_against_open_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *this_canvas = glist_getcanvas(glist);
! t_symbol *s_unique;
! char str[100];
!
! x->x_owner = (t_pd *)glist;
! s_unique = canvas_realizedollar(glist_getcanvas(glist), gensym("$0"));
! strcpy(str, s_unique->s_name);
! strcat(str, "-quabla");
! x->x_sym = gensym(str);
! if(*x->x_sym->s_name)
! pd_bind(x->x_owner, x->x_sym);
! x->x_clock = clock_new(x, (t_method)protect_against_open_tick);
! return(x);
! }
!
! static void protect_against_open_ff(t_protect_against_open *x)
! {
! if(*x->x_sym->s_name)
! pd_unbind(x->x_owner, x->x_sym);
! clock_free(x->x_clock);
! }
!
! void protect_against_open_setup(void)
! {
! protect_against_open_class = class_new(gensym("protect_against_open"), (t_newmethod)protect_against_open_new,
! (t_method)protect_against_open_ff, sizeof(t_protect_against_open), 0, A_GIMME, 0);
!
! protect_against_open_widgetbehavior.w_getrectfn = NULL;
! protect_against_open_widgetbehavior.w_displacefn = NULL;
! protect_against_open_widgetbehavior.w_selectfn = NULL;
! protect_against_open_widgetbehavior.w_activatefn = NULL;
! protect_against_open_widgetbehavior.w_deletefn = NULL;
! protect_against_open_widgetbehavior.w_visfn = protect_against_open_vis;
! protect_against_open_widgetbehavior.w_clickfn = NULL;
! #if defined(PD_MAJOR_VERSION) && (PD_MINOR_VERSION >= 37)
!
! #else
! protect_against_open_widgetbehavior.w_propertiesfn = NULL;
! protect_against_open_widgetbehavior.w_savefn = NULL;
! #endif
! class_setwidget(protect_against_open_class, &protect_against_open_widgetbehavior);
! }
--- 1,103 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include "g_canvas.h"
! #include "g_all_guis.h"
! #include <string.h>
!
! #ifdef NT
! #include <io.h>
! #else
! #include <unistd.h>
! #endif
!
! /* ---------------------- protect_against_open ----------------------- */
! /* -- if you putting this object into a subpatch or an abstraction, -- */
! /* ------------ you cannot open again this subpatch ------------------ */
!
! t_widgetbehavior protect_against_open_widgetbehavior;
! static t_class *protect_against_open_class;
!
! typedef struct _protect_against_open
! {
! t_object x_obj;
! t_symbol *x_sym;
! t_pd *x_owner;
! void *x_clock;
! } t_protect_against_open;
!
! /* ------------------------ cnv widgetbehaviour----------------------------- */
!
! static void protect_against_open_tick(t_protect_against_open *x)
! {
! t_symbol *sym = gensym("vis");
! t_atom at[1];
!
! SETFLOAT(at, 0.0);
! typedmess(x->x_sym->s_thing, sym, 1, at);
! clock_unset(x->x_clock);
! }
!
! static void protect_against_open_vis(t_gobj *z, t_glist *glist, int vis)
! {
! t_protect_against_open *x = (t_protect_against_open *)z;
!
! if(vis)
! clock_delay(x->x_clock, 5);
! }
!
! static void *protect_against_open_new(t_symbol *s, int ac, t_atom *av)
! {
! t_protect_against_open *x = (t_protect_against_open *)pd_new(protect_against_open_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *this_canvas = glist_getcanvas(glist);
! t_symbol *s_unique;
! char str[100];
!
! x->x_owner = (t_pd *)glist;
! s_unique = canvas_realizedollar(glist_getcanvas(glist), gensym("$0"));
! strcpy(str, s_unique->s_name);
! strcat(str, "-quabla");
! x->x_sym = gensym(str);
! if(*x->x_sym->s_name)
! pd_bind(x->x_owner, x->x_sym);
! x->x_clock = clock_new(x, (t_method)protect_against_open_tick);
! return(x);
! }
!
! static void protect_against_open_ff(t_protect_against_open *x)
! {
! if(*x->x_sym->s_name)
! pd_unbind(x->x_owner, x->x_sym);
! clock_free(x->x_clock);
! }
!
! void protect_against_open_setup(void)
! {
! protect_against_open_class = class_new(gensym("protect_against_open"), (t_newmethod)protect_against_open_new,
! (t_method)protect_against_open_ff, sizeof(t_protect_against_open), 0, A_GIMME, 0);
!
! protect_against_open_widgetbehavior.w_getrectfn = NULL;
! protect_against_open_widgetbehavior.w_displacefn = NULL;
! protect_against_open_widgetbehavior.w_selectfn = NULL;
! protect_against_open_widgetbehavior.w_activatefn = NULL;
! protect_against_open_widgetbehavior.w_deletefn = NULL;
! protect_against_open_widgetbehavior.w_visfn = protect_against_open_vis;
! protect_against_open_widgetbehavior.w_clickfn = NULL;
! #if defined(PD_MAJOR_VERSION) && (PD_MINOR_VERSION >= 37)
!
! #else
! protect_against_open_widgetbehavior.w_propertiesfn = NULL;
! protect_against_open_widgetbehavior.w_savefn = NULL;
! #endif
! class_setwidget(protect_against_open_class, &protect_against_open_widgetbehavior);
! }
Index: dollarg.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/dollarg.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** dollarg.c 2 Jun 2005 18:25:00 -0000 1.2
--- dollarg.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,110 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------- dollarg ---------------------------- */
! /* --- dollar-arguments, output the initial-arguments and the --- */
! /* ------- number of them of the parent abstraction-patch ------- */
!
! static t_class *dollarg_class;
!
! typedef struct _dollarg
! {
! t_object x_obj;
! void *x_outlet_ac;
! t_atom *x_at;
! int x_ac;
! } t_dollarg;
!
! static void dollarg_float(t_dollarg *x, t_floatarg f)
! {
! int i = (int)f;
!
! if(!i)
! {
! outlet_float(x->x_outlet_ac, x->x_ac);
! if(x->x_ac)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
! else if(i > 0)
! {
! if(i <= x->x_ac)
! {
! outlet_float(x->x_outlet_ac, i);
! if(IS_A_FLOAT(x->x_at, i-1))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(i-1, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, i-1))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(i-1, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! else
! {
! int j = x->x_ac + i;
!
! if(j >= 0)
! {
! outlet_float(x->x_outlet_ac, j+1);
! if(IS_A_FLOAT(x->x_at, j))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(j, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, j))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(j, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! }
!
! static void dollarg_bang(t_dollarg *x)
! {
! dollarg_float(x, 0.0f);
! }
!
! static void dollarg_free(t_dollarg *x)
! {
! if(x->x_ac)
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *dollarg_new(void)
! {
! t_dollarg *x = (t_dollarg *)pd_new(dollarg_class);
! t_glist *glist=(t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int pargc;
! t_atom *pargv, *at;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&pargc, &pargv);
! canvas_unsetcurrent(canvas);
! x->x_at = (t_atom *)getbytes(pargc*sizeof(t_atom));
! x->x_ac = pargc;
! at = x->x_at;
! while(pargc--)
! *at++ = *pargv++;
! outlet_new(&x->x_obj, &s_list);
! x->x_outlet_ac = outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void dollarg_setup(void)
! {
! dollarg_class = class_new(gensym("dollarg"), (t_newmethod)dollarg_new,
! (t_method)dollarg_free, sizeof(t_dollarg), 0, 0);
! class_addcreator((t_newmethod)dollarg_new, gensym("$n"), 0);
! class_addbang(dollarg_class, (t_method)dollarg_bang);
! class_addfloat(dollarg_class, (t_method)dollarg_float);
! class_sethelpsymbol(dollarg_class, gensym("iemhelp/help-dollarg"));
! }
--- 1,110 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------- dollarg ---------------------------- */
! /* --- dollar-arguments, output the initial-arguments and the --- */
! /* ------- number of them of the parent abstraction-patch ------- */
!
! static t_class *dollarg_class;
!
! typedef struct _dollarg
! {
! t_object x_obj;
! void *x_outlet_ac;
! t_atom *x_at;
! int x_ac;
! } t_dollarg;
!
! static void dollarg_float(t_dollarg *x, t_floatarg f)
! {
! int i = (int)f;
!
! if(!i)
! {
! outlet_float(x->x_outlet_ac, x->x_ac);
! if(x->x_ac)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
! else if(i > 0)
! {
! if(i <= x->x_ac)
! {
! outlet_float(x->x_outlet_ac, i);
! if(IS_A_FLOAT(x->x_at, i-1))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(i-1, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, i-1))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(i-1, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! else
! {
! int j = x->x_ac + i;
!
! if(j >= 0)
! {
! outlet_float(x->x_outlet_ac, j+1);
! if(IS_A_FLOAT(x->x_at, j))
! outlet_float(x->x_obj.ob_outlet, atom_getfloatarg(j, x->x_ac, x->x_at));
! else if(IS_A_SYMBOL(x->x_at, j))
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbolarg(j, x->x_ac, x->x_at));
! }
! else
! outlet_float(x->x_outlet_ac, 0);
! }
! }
!
! static void dollarg_bang(t_dollarg *x)
! {
! dollarg_float(x, 0.0f);
! }
!
! static void dollarg_free(t_dollarg *x)
! {
! if(x->x_ac)
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *dollarg_new(void)
! {
! t_dollarg *x = (t_dollarg *)pd_new(dollarg_class);
! t_glist *glist=(t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int pargc;
! t_atom *pargv, *at;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&pargc, &pargv);
! canvas_unsetcurrent(canvas);
! x->x_at = (t_atom *)getbytes(pargc*sizeof(t_atom));
! x->x_ac = pargc;
! at = x->x_at;
! while(pargc--)
! *at++ = *pargv++;
! outlet_new(&x->x_obj, &s_list);
! x->x_outlet_ac = outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void dollarg_setup(void)
! {
! dollarg_class = class_new(gensym("dollarg"), (t_newmethod)dollarg_new,
! (t_method)dollarg_free, sizeof(t_dollarg), 0, 0);
! class_addcreator((t_newmethod)dollarg_new, gensym("$n"), 0);
! class_addbang(dollarg_class, (t_method)dollarg_bang);
! class_addfloat(dollarg_class, (t_method)dollarg_float);
! class_sethelpsymbol(dollarg_class, gensym("iemhelp/help-dollarg"));
! }
Index: list2send.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/list2send.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** list2send.c 2 Jun 2005 18:25:00 -0000 1.2
--- list2send.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,250 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- list2send ----------------------------- */
! /* -- via an array of send labels, an incomming list with leading -- */
! /* -- float index will be sent to a receive object with the label -- */
! /* ------------ name of the index-th entry of the array ------------ */
!
! static t_class *list2send_class;
!
! typedef struct _list2send
! {
! t_object x_obj;
! int x_max;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol *x_set;
! } t_list2send;
!
! static void list2send_list(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! {
! if(ac == 2)
! {
! if(IS_A_FLOAT(av, 1))
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av, 1))
! pd_symbol(sender->s_thing, atom_getsymbolarg(1, ac, av));
! }
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! }
! }
! }
!
! static void list2send_set(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, s, ac-1, av+1);
! }
! }
! }
! }
!
! static void list2send_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
!
! static void list2send_set_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void list2send_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
! }
!
! static void list2send_set_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
! }
!
! static void list2send_add(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac > 1) && (IS_A_FLOAT(av, 0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(IS_A_SYMBOL(av, 1))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_send_entries[identifier_index] = gensym(str);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! }
! }
!
! static void list2send_clear(t_list2send *x)
! {
! int i, n=x->x_max;
!
! for(i=0; i<n; i++)
! {
! if(x->x_snd_able[i])
! x->x_snd_able[i] = 0;
! }
! }
!
! static void list2send_free(t_list2send *x)
! {
! freebytes(x->x_snd_able, x->x_max * sizeof(char));
! freebytes(x->x_send_entries, x->x_max * sizeof(t_symbol *));
! }
!
! static void *list2send_new(t_float fmax)
! {
! t_list2send *x = (t_list2send *)pd_new(list2send_class);
! int i, max = (int)fmax;
! t_atom *ap;
!
! if(max <= 0)
! max = 80;
! x->x_max = max;
! x->x_snd_able = (char *)getbytes(max * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(max * sizeof(t_symbol *));
! for(i=0; i<max; i++)
! x->x_snd_able[i] = 0;
! x->x_set = gensym("set");
! return (x);
! }
!
! void list2send_setup(void)
! {
! list2send_class = class_new(gensym("list2send"), (t_newmethod)list2send_new,
! (t_method)list2send_free, sizeof(t_list2send), 0, A_DEFFLOAT, 0);
! class_addlist(list2send_class, list2send_list);
! class_addmethod(list2send_class, (t_method)list2send_add, gensym("add"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set, gensym("set"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_all, gensym("all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_all, gensym("set_all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_from, gensym("from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_from, gensym("set_from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_clear, gensym("clear"), 0);
! class_sethelpsymbol(list2send_class, gensym("iemhelp/help-list2send"));
! }
--- 1,250 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- list2send ----------------------------- */
! /* -- via an array of send labels, an incomming list with leading -- */
! /* -- float index will be sent to a receive object with the label -- */
! /* ------------ name of the index-th entry of the array ------------ */
!
! static t_class *list2send_class;
!
! typedef struct _list2send
! {
! t_object x_obj;
! int x_max;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol *x_set;
! } t_list2send;
!
! static void list2send_list(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! {
! if(ac == 2)
! {
! if(IS_A_FLOAT(av, 1))
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av, 1))
! pd_symbol(sender->s_thing, atom_getsymbolarg(1, ac, av));
! }
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! }
! }
! }
!
! static void list2send_set(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av,0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(x->x_snd_able[identifier_index])
! {
! t_symbol *sender = x->x_send_entries[identifier_index];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, s, ac-1, av+1);
! }
! }
! }
! }
!
! static void list2send_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
!
! static void list2send_set_all(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, n=x->x_max;
!
! if(ac == n)
! {
! for(i=n-1; i>=0; i--)/*change*/
! {
! if(x->x_snd_able[i])
! {
! t_symbol *sender = x->x_send_entries[i];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void list2send_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! {
! if(IS_A_FLOAT(av, i))
! pd_float(sender->s_thing, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av, i))
! pd_symbol(sender->s_thing, atom_getsymbolarg(i, ac, av));
! }
! }
! }
! }
! }
! }
!
! static void list2send_set_from(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! int n=x->x_max;
!
! if(ac >= 1)
! {
! int i, j, beg=(int)atom_getintarg(0, ac, av);
!
! if((beg + ac - 1) <= n)
! {
! for(i=ac-1,j=beg+ac-2; i>=1; i--,j--)/*change*/
! {
! if(x->x_snd_able[j])
! {
! t_symbol *sender = x->x_send_entries[j];
!
! if(sender->s_thing)
! typedmess(sender->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
! }
!
! static void list2send_add(t_list2send *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac > 1) && (IS_A_FLOAT(av, 0)))
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
!
! if(identifier_index < x->x_max)
! {
! if(IS_A_SYMBOL(av, 1))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_send_entries[identifier_index] = gensym(str);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! }
! }
!
! static void list2send_clear(t_list2send *x)
! {
! int i, n=x->x_max;
!
! for(i=0; i<n; i++)
! {
! if(x->x_snd_able[i])
! x->x_snd_able[i] = 0;
! }
! }
!
! static void list2send_free(t_list2send *x)
! {
! freebytes(x->x_snd_able, x->x_max * sizeof(char));
! freebytes(x->x_send_entries, x->x_max * sizeof(t_symbol *));
! }
!
! static void *list2send_new(t_float fmax)
! {
! t_list2send *x = (t_list2send *)pd_new(list2send_class);
! int i, max = (int)fmax;
! t_atom *ap;
!
! if(max <= 0)
! max = 80;
! x->x_max = max;
! x->x_snd_able = (char *)getbytes(max * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(max * sizeof(t_symbol *));
! for(i=0; i<max; i++)
! x->x_snd_able[i] = 0;
! x->x_set = gensym("set");
! return (x);
! }
!
! void list2send_setup(void)
! {
! list2send_class = class_new(gensym("list2send"), (t_newmethod)list2send_new,
! (t_method)list2send_free, sizeof(t_list2send), 0, A_DEFFLOAT, 0);
! class_addlist(list2send_class, list2send_list);
! class_addmethod(list2send_class, (t_method)list2send_add, gensym("add"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set, gensym("set"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_all, gensym("all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_all, gensym("set_all"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_from, gensym("from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_set_from, gensym("set_from"), A_GIMME, 0);
! class_addmethod(list2send_class, (t_method)list2send_clear, gensym("clear"), 0);
! class_sethelpsymbol(list2send_class, gensym("iemhelp/help-list2send"));
! }
Index: modulo_counter.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/modulo_counter.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** modulo_counter.c 2 Jun 2005 18:25:00 -0000 1.2
--- modulo_counter.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,91 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ---------------- modulo-counter. ----------------- */
! /* -------- counter increments if input a bang ------ */
! /* -------- output is a modulo function. ------------ */
!
! static t_class *modulo_counter_class;
!
! typedef struct _modulo_counter
! {
! t_object x_obj;
! int x_max;
! int x_cur;
! } t_modulo_counter;
!
! static void modulo_counter_bang(t_modulo_counter *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur++);
! x->x_cur = x->x_cur % x->x_max;
! }
!
! static void modulo_counter_float(t_modulo_counter *x, t_float max)
! {
! int i = (int)max;
!
! if(i < 1)
! i = 1;
! if(x->x_cur >= i)
! x->x_cur = i - 1;
! x->x_max = i;
! }
!
! static void modulo_counter_ft1(t_modulo_counter *x, t_float set_init)
! {
! int i = (int)set_init;
!
! if(i < 0)
! i = 0;
! if(i >= x->x_max)
! i = x->x_max - 1;
! x->x_cur = i;
! }
!
! static void *modulo_counter_new(t_symbol *s, int ac, t_atom *av)
! {
! t_modulo_counter *x = (t_modulo_counter *)pd_new(modulo_counter_class);
! int max = 1, cur = 0;
!
! if((ac > 0) && IS_A_FLOAT(av, 0))
! max = atom_getintarg(0, ac, av);
! if((ac > 1) && IS_A_FLOAT(av, 1))
! cur = atom_getintarg(1, ac, av);
! if(max < 1)
! x->x_max = 1;
! else
! x->x_max = max;
! if(cur < 0)
! cur = 0;
! if(cur >= x->x_max)
! cur = x->x_max - 1;
! x->x_cur = cur;
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void modulo_counter_setup(void)
! {
! modulo_counter_class = class_new(gensym("modulo_counter"),
! (t_newmethod)modulo_counter_new, 0,
! sizeof(t_modulo_counter), 0, A_GIMME, 0);
! class_addbang(modulo_counter_class, (t_method)modulo_counter_bang);
! class_addfloat(modulo_counter_class, (t_method)modulo_counter_float);
! class_addmethod(modulo_counter_class, (t_method)modulo_counter_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(modulo_counter_class, gensym("iemhelp/help-modulo_counter"));
! }
--- 1,91 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ---------------- modulo-counter. ----------------- */
! /* -------- counter increments if input a bang ------ */
! /* -------- output is a modulo function. ------------ */
!
! static t_class *modulo_counter_class;
!
! typedef struct _modulo_counter
! {
! t_object x_obj;
! int x_max;
! int x_cur;
! } t_modulo_counter;
!
! static void modulo_counter_bang(t_modulo_counter *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_cur++);
! x->x_cur = x->x_cur % x->x_max;
! }
!
! static void modulo_counter_float(t_modulo_counter *x, t_float max)
! {
! int i = (int)max;
!
! if(i < 1)
! i = 1;
! if(x->x_cur >= i)
! x->x_cur = i - 1;
! x->x_max = i;
! }
!
! static void modulo_counter_ft1(t_modulo_counter *x, t_float set_init)
! {
! int i = (int)set_init;
!
! if(i < 0)
! i = 0;
! if(i >= x->x_max)
! i = x->x_max - 1;
! x->x_cur = i;
! }
!
! static void *modulo_counter_new(t_symbol *s, int ac, t_atom *av)
! {
! t_modulo_counter *x = (t_modulo_counter *)pd_new(modulo_counter_class);
! int max = 1, cur = 0;
!
! if((ac > 0) && IS_A_FLOAT(av, 0))
! max = atom_getintarg(0, ac, av);
! if((ac > 1) && IS_A_FLOAT(av, 1))
! cur = atom_getintarg(1, ac, av);
! if(max < 1)
! x->x_max = 1;
! else
! x->x_max = max;
! if(cur < 0)
! cur = 0;
! if(cur >= x->x_max)
! cur = x->x_max - 1;
! x->x_cur = cur;
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void modulo_counter_setup(void)
! {
! modulo_counter_class = class_new(gensym("modulo_counter"),
! (t_newmethod)modulo_counter_new, 0,
! sizeof(t_modulo_counter), 0, A_GIMME, 0);
! class_addbang(modulo_counter_class, (t_method)modulo_counter_bang);
! class_addfloat(modulo_counter_class, (t_method)modulo_counter_float);
! class_addmethod(modulo_counter_class, (t_method)modulo_counter_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(modulo_counter_class, gensym("iemhelp/help-modulo_counter"));
! }
Index: iem_anything.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_anything.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iem_anything.c 2 Jun 2005 18:26:48 -0000 1.1
--- iem_anything.c 8 Jul 2005 02:04:25 -0000 1.2
***************
*** 1,145 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------------- iem_anything ---------------------------------- */
! /* -- storage object for any message (bang, float, symbol, list, selector-list) -- */
! /* ---------- with a hot and a cold inlet (like object float or symbol) ---------- */
! /* ----------- initial arguments are equal to a message of cold inlet ------------ */
!
! struct _iem_anything_proxy;
!
! static t_class *iem_anything_class;
! static t_class *iem_anything_proxy_class;
!
! typedef struct _iem_anything
! {
! t_object x_obj;
! struct _iem_anything_proxy *x_proxy_inlet;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_selector_sym;
! } t_iem_anything;
!
! typedef struct _iem_anything_proxy
! {
! t_object p_obj;
! t_iem_anything *p_owner;
! } t_iem_anything_proxy;
!
! static void iem_anything_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_anything_anything(t_iem_anything *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (10 + ac)*sizeof(t_atom));
! x->x_size = 10 + ac;
! }
! x->x_ac = ac;
! x->x_selector_sym = s;
! iem_anything_atcopy(av, x->x_at, ac);
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void iem_anything_bang(t_iem_anything *x)
! {
! if((x->x_selector_sym == &s_bang) && !x->x_ac)
! {
! outlet_bang(x->x_obj.ob_outlet);
! }
! else
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac, x->x_at);
! }
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_anything_proxy_anything(t_iem_anything_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_anything *x = p->p_owner;
!
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (10 + ac)*sizeof(t_atom));
! x->x_size = 10 + ac;
! }
! x->x_ac = ac;
! x->x_selector_sym = s;
! iem_anything_atcopy(av, x->x_at, ac);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_anything_free(t_iem_anything *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_anything_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_anything *x = (t_iem_anything *)pd_new(iem_anything_class);
! t_iem_anything_proxy *p = (t_iem_anything_proxy *)pd_new(iem_anything_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! x->x_size = 10 + ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_ac = ac;
! if(!ac)
! {
! x->x_selector_sym = &s_bang;
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! x->x_selector_sym = atom_getsymbol(av);
! x->x_ac--;
! iem_anything_proxy_anything(p, x->x_selector_sym, x->x_ac, av+1);
! }
! else
! {
! x->x_selector_sym = &s_list;
! iem_anything_proxy_anything(p, x->x_selector_sym, x->x_ac, av);
! }
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_anything_setup(void)
! {
! iem_anything_class = class_new(gensym("iem_anything"),
! (t_newmethod)iem_anything_new, (t_method)iem_anything_free,
! sizeof(t_iem_anything), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_anything_new, gensym("any"), A_GIMME, 0);
!
! class_addanything(iem_anything_class, iem_anything_anything);
! class_addbang(iem_anything_class, iem_anything_bang);
! class_sethelpsymbol(iem_anything_class, gensym("iemhelp/help-iem_anything"));
!
! iem_anything_proxy_class = class_new(gensym("_iem_anything_proxy"),
! 0, 0, sizeof(t_iem_anything_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addanything(iem_anything_proxy_class, iem_anything_proxy_anything);
! }
--- 1,145 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------------- iem_anything ---------------------------------- */
! /* -- storage object for any message (bang, float, symbol, list, selector-list) -- */
! /* ---------- with a hot and a cold inlet (like object float or symbol) ---------- */
! /* ----------- initial arguments are equal to a message of cold inlet ------------ */
!
! struct _iem_anything_proxy;
!
! static t_class *iem_anything_class;
! static t_class *iem_anything_proxy_class;
!
! typedef struct _iem_anything
! {
! t_object x_obj;
! struct _iem_anything_proxy *x_proxy_inlet;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_selector_sym;
! } t_iem_anything;
!
! typedef struct _iem_anything_proxy
! {
! t_object p_obj;
! t_iem_anything *p_owner;
! } t_iem_anything_proxy;
!
! static void iem_anything_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_anything_anything(t_iem_anything *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (10 + ac)*sizeof(t_atom));
! x->x_size = 10 + ac;
! }
! x->x_ac = ac;
! x->x_selector_sym = s;
! iem_anything_atcopy(av, x->x_at, ac);
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void iem_anything_bang(t_iem_anything *x)
! {
! if((x->x_selector_sym == &s_bang) && !x->x_ac)
! {
! outlet_bang(x->x_obj.ob_outlet);
! }
! else
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac, x->x_at);
! }
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_anything_proxy_anything(t_iem_anything_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_anything *x = p->p_owner;
!
! if(ac > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (10 + ac)*sizeof(t_atom));
! x->x_size = 10 + ac;
! }
! x->x_ac = ac;
! x->x_selector_sym = s;
! iem_anything_atcopy(av, x->x_at, ac);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_anything_free(t_iem_anything *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_anything_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_anything *x = (t_iem_anything *)pd_new(iem_anything_class);
! t_iem_anything_proxy *p = (t_iem_anything_proxy *)pd_new(iem_anything_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! x->x_size = 10 + ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_ac = ac;
! if(!ac)
! {
! x->x_selector_sym = &s_bang;
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! x->x_selector_sym = atom_getsymbol(av);
! x->x_ac--;
! iem_anything_proxy_anything(p, x->x_selector_sym, x->x_ac, av+1);
! }
! else
! {
! x->x_selector_sym = &s_list;
! iem_anything_proxy_anything(p, x->x_selector_sym, x->x_ac, av);
! }
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_anything_setup(void)
! {
! iem_anything_class = class_new(gensym("iem_anything"),
! (t_newmethod)iem_anything_new, (t_method)iem_anything_free,
! sizeof(t_iem_anything), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_anything_new, gensym("any"), A_GIMME, 0);
!
! class_addanything(iem_anything_class, iem_anything_anything);
! class_addbang(iem_anything_class, iem_anything_bang);
! class_sethelpsymbol(iem_anything_class, gensym("iemhelp/help-iem_anything"));
!
! iem_anything_proxy_class = class_new(gensym("_iem_anything_proxy"),
! 0, 0, sizeof(t_iem_anything_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addanything(iem_anything_proxy_class, iem_anything_proxy_anything);
! }
Index: splitfilename.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/splitfilename.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** splitfilename.c 1 Jul 2005 19:38:14 -0000 1.4
--- splitfilename.c 8 Jul 2005 02:04:25 -0000 1.5
***************
*** 1,153 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- splitfilename -------------------------- */
! /* -- splits a symbol into 2 parts (path + file) at the position -- */
! /* -- of the first separator-character beginnig from the right ---- */
! /* ---------- eliminating the separator-character ----------------- */
!
! static t_class *splitfilename_class;
!
! typedef struct _splitfilename
! {
! t_object x_obj;
! char x_sep[2];
! void *x_outpath;
! void *x_outfile;
! } t_splitfilename;
!
! static void splitfilename_separator(t_splitfilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = '/';
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void splitfilename_symbol(t_splitfilename *x, t_symbol *s)
! {
! int len = strlen(s->s_name);
!
! if(len)
! {
! if(x->x_sep[0] != 0)
! {
! char *str_path = (char *)getbytes(len*sizeof(char));
! char *str_file = (char *)getbytes(len*sizeof(char));
! char *cpp, *cpf;
!
! strcpy(str_path, s->s_name);
! strcpy(str_file, s->s_name);
! cpp = strrchr(str_path, x->x_sep[0]);
! cpf = strrchr(str_file, x->x_sep[0]);
! if(!cpp) /* JMZ: 20050701 */
! {
! outlet_symbol(x->x_outfile, gensym(str_file));
! outlet_symbol(x->x_outpath, &s_);
! }
! else if (!cpf) /* JMZ: 20050701 */
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! else if((cpp - str_path) < 0) /* JMZ:removed typecast (char*) to (int); this is not portable */
! {
! outlet_symbol(x->x_outfile, gensym(str_file));
! outlet_symbol(x->x_outpath, &s_);
! }
! else if((cpp - str_path) >= len) /* JMZ: removed typecast (char*) to (int) */
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! else
! {
! *cpp = 0;
! cpf++;
! outlet_symbol(x->x_outfile, gensym(cpf));
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! freebytes(str_file, len*sizeof(char));
! freebytes(str_path, len*sizeof(char));
! }
! else
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, s);
! }
! }
! }
!
! static void *splitfilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac == 0)
! x->x_sep[0] = '/';
! else
! splitfilename_separator(x, s, ac, av);
! x->x_outpath = outlet_new(&x->x_obj, &s_symbol);
! x->x_outfile = outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void splitfilename_setup(void)
! {
! splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new,
! 0, sizeof(t_splitfilename), 0, A_GIMME, 0);
! class_addsymbol(splitfilename_class, splitfilename_symbol);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0);
! class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename"));
! }
--- 1,153 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- splitfilename -------------------------- */
! /* -- splits a symbol into 2 parts (path + file) at the position -- */
! /* -- of the first separator-character beginnig from the right ---- */
! /* ---------- eliminating the separator-character ----------------- */
!
! static t_class *splitfilename_class;
!
! typedef struct _splitfilename
! {
! t_object x_obj;
! char x_sep[2];
! void *x_outpath;
! void *x_outfile;
! } t_splitfilename;
!
! static void splitfilename_separator(t_splitfilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = '/';
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void splitfilename_symbol(t_splitfilename *x, t_symbol *s)
! {
! int len = strlen(s->s_name);
!
! if(len)
! {
! if(x->x_sep[0] != 0)
! {
! char *str_path = (char *)getbytes(len*sizeof(char));
! char *str_file = (char *)getbytes(len*sizeof(char));
! char *cpp, *cpf;
!
! strcpy(str_path, s->s_name);
! strcpy(str_file, s->s_name);
! cpp = strrchr(str_path, x->x_sep[0]);
! cpf = strrchr(str_file, x->x_sep[0]);
! if(!cpp) /* JMZ: 20050701 */
! {
! outlet_symbol(x->x_outfile, gensym(str_file));
! outlet_symbol(x->x_outpath, &s_);
! }
! else if (!cpf) /* JMZ: 20050701 */
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! else if((cpp - str_path) < 0) /* JMZ:removed typecast (char*) to (int); this is not portable */
! {
! outlet_symbol(x->x_outfile, gensym(str_file));
! outlet_symbol(x->x_outpath, &s_);
! }
! else if((cpp - str_path) >= len) /* JMZ: removed typecast (char*) to (int) */
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! else
! {
! *cpp = 0;
! cpf++;
! outlet_symbol(x->x_outfile, gensym(cpf));
! outlet_symbol(x->x_outpath, gensym(str_path));
! }
! freebytes(str_file, len*sizeof(char));
! freebytes(str_path, len*sizeof(char));
! }
! else
! {
! outlet_symbol(x->x_outfile, &s_);
! outlet_symbol(x->x_outpath, s);
! }
! }
! }
!
! static void *splitfilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac == 0)
! x->x_sep[0] = '/';
! else
! splitfilename_separator(x, s, ac, av);
! x->x_outpath = outlet_new(&x->x_obj, &s_symbol);
! x->x_outfile = outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void splitfilename_setup(void)
! {
! splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new,
! 0, sizeof(t_splitfilename), 0, A_GIMME, 0);
! class_addsymbol(splitfilename_class, splitfilename_symbol);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0);
! class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename"));
! }
Index: iem_route.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_route.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_route.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_route.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,199 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_route ------------------------------ */
! /* -------- like millers route, but can output bangs ----------------- */
!
! static t_class *iem_route_class;
!
! typedef struct _iem_routeelement
! {
! t_word e_w;
! t_outlet *e_outlet;
! } t_iem_routeelement;
!
! typedef struct _iem_route
! {
! t_object x_obj;
! t_atomtype x_type;
! t_int x_nelement;
! t_iem_routeelement *x_vec;
! t_outlet *x_rejectout;
! } t_iem_route;
!
! static void iem_route_anything(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if(x->x_type == A_SYMBOL)
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == sel)
! {
! if(!argc)
! outlet_bang(e->e_outlet);
! else
! {
! if(argc == 1)
! {
! if(argv[0].a_type == A_FLOAT)
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! else
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, 0, argv+1);
! }
! else
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! }
! }
! return;
! }
! }
! }
! outlet_anything(x->x_rejectout, sel, argc, argv);
! }
!
! static void iem_route_list(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if (x->x_type == A_FLOAT)
! {
! float f;
!
! if(!argc)
! return;
! f = atom_getfloat(argv);
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_float == f)
! {
! if(argc > 1 && argv[1].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[1].a_w.w_symbol, argc-2, argv+2);
! else
! {
! if(argc == 1)
! outlet_bang(e->e_outlet);
! else if(argc == 2)
! outlet_float(e->e_outlet, atom_getfloat(argv+1));
! else
! outlet_list(e->e_outlet, &s_list, argc-1, argv+1);
! }
! return;
! }
! }
! }
! else /* symbol arguments */
! {
! if(argc > 1) /* 2 or more args: treat as "list" */
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == &s_list)
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! return;
! }
! }
! }
! else if(argc == 0) /* no args: treat as "bang" */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_bang)
! {
! outlet_bang(e->e_outlet);
! return;
! }
! }
! }
! else if (argv[0].a_type == A_FLOAT) /* one float arg */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_float)
! {
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! return;
! }
! }
! }
! else
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_symbol)
! {
! outlet_symbol(e->e_outlet, argv[0].a_w.w_symbol);
! return;
! }
! }
! }
! }
! outlet_list(x->x_rejectout, &s_list, argc, argv);
! }
!
!
! static void iem_route_free(t_iem_route *x)
! {
! freebytes(x->x_vec, x->x_nelement * sizeof(*x->x_vec));
! }
!
! static void *iem_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n;
! t_iem_routeelement *e;
! t_iem_route *x = (t_iem_route *)pd_new(iem_route_class);
! t_atom a;
! if (argc == 0)
! {
! argc = 1;
! SETFLOAT(&a, 0);
! argv = &a;
! }
! x->x_type = argv[0].a_type;
! x->x_nelement = argc;
! x->x_vec = (t_iem_routeelement *)getbytes(argc * sizeof(*x->x_vec));
! for (n = 0, e = x->x_vec; n < argc; n++, e++)
! {
! e->e_outlet = outlet_new(&x->x_obj, &s_list);
! if (x->x_type == A_FLOAT)
! e->e_w.w_float = atom_getfloatarg(n, argc, argv);
! else e->e_w.w_symbol = atom_getsymbolarg(n, argc, argv);
! }
! x->x_rejectout = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_route_setup(void)
! {
! iem_route_class = class_new(gensym("iem_route"), (t_newmethod)iem_route_new,
! (t_method)iem_route_free, sizeof(t_iem_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_route_new, gensym("ir"), A_GIMME, 0);
! class_addlist(iem_route_class, iem_route_list);
! class_addanything(iem_route_class, iem_route_anything);
! class_sethelpsymbol(iem_route_class, gensym("iemhelp/help-iem_route"));
! }
--- 1,199 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- iem_route ------------------------------ */
! /* -------- like millers route, but can output bangs ----------------- */
!
! static t_class *iem_route_class;
!
! typedef struct _iem_routeelement
! {
! t_word e_w;
! t_outlet *e_outlet;
! } t_iem_routeelement;
!
! typedef struct _iem_route
! {
! t_object x_obj;
! t_atomtype x_type;
! t_int x_nelement;
! t_iem_routeelement *x_vec;
! t_outlet *x_rejectout;
! } t_iem_route;
!
! static void iem_route_anything(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if(x->x_type == A_SYMBOL)
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == sel)
! {
! if(!argc)
! outlet_bang(e->e_outlet);
! else
! {
! if(argc == 1)
! {
! if(argv[0].a_type == A_FLOAT)
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! else
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, 0, argv+1);
! }
! else
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! }
! }
! return;
! }
! }
! }
! outlet_anything(x->x_rejectout, sel, argc, argv);
! }
!
! static void iem_route_list(t_iem_route *x, t_symbol *sel, int argc, t_atom *argv)
! {
! t_iem_routeelement *e;
! int nelement;
!
! if (x->x_type == A_FLOAT)
! {
! float f;
!
! if(!argc)
! return;
! f = atom_getfloat(argv);
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_float == f)
! {
! if(argc > 1 && argv[1].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[1].a_w.w_symbol, argc-2, argv+2);
! else
! {
! if(argc == 1)
! outlet_bang(e->e_outlet);
! else if(argc == 2)
! outlet_float(e->e_outlet, atom_getfloat(argv+1));
! else
! outlet_list(e->e_outlet, &s_list, argc-1, argv+1);
! }
! return;
! }
! }
! }
! else /* symbol arguments */
! {
! if(argc > 1) /* 2 or more args: treat as "list" */
! {
! for(nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if(e->e_w.w_symbol == &s_list)
! {
! if(argv[0].a_type == A_SYMBOL)
! outlet_anything(e->e_outlet, argv[0].a_w.w_symbol, argc-1, argv+1);
! else
! outlet_list(e->e_outlet, &s_list, argc, argv);
! return;
! }
! }
! }
! else if(argc == 0) /* no args: treat as "bang" */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_bang)
! {
! outlet_bang(e->e_outlet);
! return;
! }
! }
! }
! else if (argv[0].a_type == A_FLOAT) /* one float arg */
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_float)
! {
! outlet_float(e->e_outlet, argv[0].a_w.w_float);
! return;
! }
! }
! }
! else
! {
! for (nelement = x->x_nelement, e = x->x_vec; nelement--; e++)
! {
! if (e->e_w.w_symbol == &s_symbol)
! {
! outlet_symbol(e->e_outlet, argv[0].a_w.w_symbol);
! return;
! }
! }
! }
! }
! outlet_list(x->x_rejectout, &s_list, argc, argv);
! }
!
!
! static void iem_route_free(t_iem_route *x)
! {
! freebytes(x->x_vec, x->x_nelement * sizeof(*x->x_vec));
! }
!
! static void *iem_route_new(t_symbol *s, int argc, t_atom *argv)
! {
! int n;
! t_iem_routeelement *e;
! t_iem_route *x = (t_iem_route *)pd_new(iem_route_class);
! t_atom a;
! if (argc == 0)
! {
! argc = 1;
! SETFLOAT(&a, 0);
! argv = &a;
! }
! x->x_type = argv[0].a_type;
! x->x_nelement = argc;
! x->x_vec = (t_iem_routeelement *)getbytes(argc * sizeof(*x->x_vec));
! for (n = 0, e = x->x_vec; n < argc; n++, e++)
! {
! e->e_outlet = outlet_new(&x->x_obj, &s_list);
! if (x->x_type == A_FLOAT)
! e->e_w.w_float = atom_getfloatarg(n, argc, argv);
! else e->e_w.w_symbol = atom_getsymbolarg(n, argc, argv);
! }
! x->x_rejectout = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_route_setup(void)
! {
! iem_route_class = class_new(gensym("iem_route"), (t_newmethod)iem_route_new,
! (t_method)iem_route_free, sizeof(t_iem_route), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_route_new, gensym("ir"), A_GIMME, 0);
! class_addlist(iem_route_class, iem_route_list);
! class_addanything(iem_route_class, iem_route_anything);
! class_sethelpsymbol(iem_route_class, gensym("iemhelp/help-iem_route"));
! }
Index: unsymbol.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/unsymbol.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** unsymbol.c 2 Jun 2005 18:25:00 -0000 1.2
--- unsymbol.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,48 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------- unsymbol ------------------------- */
! /* -- converts a symbol to an anything message -- */
!
! static t_class *unsymbol_class;
!
! typedef struct _unsymbol
! {
! t_object x_obj;
! t_atom x_at;
! } t_unsymbol;
!
! static void unsymbol_symbol(t_unsymbol *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, s, 0, &(x->x_at));
! }
!
! static void *unsymbol_new(void)
! {
! t_unsymbol *x = (t_unsymbol *)pd_new(unsymbol_class);
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void unsymbol_setup(void)
! {
! unsymbol_class = class_new(gensym("unsymbol"), (t_newmethod)unsymbol_new,
! 0, sizeof(t_unsymbol), 0, 0);
! class_addcreator((t_newmethod)unsymbol_new, gensym("unsym"), 0);
! class_addsymbol(unsymbol_class, unsymbol_symbol);
! class_sethelpsymbol(unsymbol_class, gensym("iemhelp/help-unsymbol"));
! }
--- 1,48 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------- unsymbol ------------------------- */
! /* -- converts a symbol to an anything message -- */
!
! static t_class *unsymbol_class;
!
! typedef struct _unsymbol
! {
! t_object x_obj;
! t_atom x_at;
! } t_unsymbol;
!
! static void unsymbol_symbol(t_unsymbol *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, s, 0, &(x->x_at));
! }
!
! static void *unsymbol_new(void)
! {
! t_unsymbol *x = (t_unsymbol *)pd_new(unsymbol_class);
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void unsymbol_setup(void)
! {
! unsymbol_class = class_new(gensym("unsymbol"), (t_newmethod)unsymbol_new,
! 0, sizeof(t_unsymbol), 0, 0);
! class_addcreator((t_newmethod)unsymbol_new, gensym("unsym"), 0);
! class_addsymbol(unsymbol_class, unsymbol_symbol);
! class_sethelpsymbol(unsymbol_class, gensym("iemhelp/help-unsymbol"));
! }
Index: bpe.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/bpe.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** bpe.c 2 Jun 2005 18:25:00 -0000 1.2
--- bpe.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,122 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* --------------------------- bpe -------------------------------- */
! /* -- break-point-envelope, convert a list of value-time-doubles -- */
! /* ------- into a time-scheduled stream of value-time-pairs ------- */
!
! static t_class *bpe_class;
!
! typedef struct _bpe
! {
! t_object x_obj;
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_bpe;
!
! static void bpe_stop(t_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void bpe_tick(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curindex >= x->x_curnum)
! {
! bpe_stop(x);
! outlet_bang(x->x_out_finished);
! }
! else
! {
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! x->x_curindex += 2;
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_bang(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curnum)
! {
! x->x_curindex = 2;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_list(t_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void bpe_free(t_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *bpe_new(void)
! {
! t_bpe *x = (t_bpe *)pd_new(bpe_class);
!
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)bpe_tick);
! x->x_out_val = outlet_new(&x->x_obj, &s_float);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_bang);
! return (x);
! }
!
! void bpe_setup(void)
! {
! bpe_class = class_new(gensym("bpe"), (t_newmethod)bpe_new,
! (t_method)bpe_free, sizeof(t_bpe), 0, 0);
! class_addmethod(bpe_class, (t_method)bpe_stop, gensym("stop"), 0);
! class_addbang(bpe_class, bpe_bang);
! class_addlist(bpe_class, (t_method)bpe_list);
! class_sethelpsymbol(bpe_class, gensym("iemhelp/help-bpe"));
! }
--- 1,122 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* --------------------------- bpe -------------------------------- */
! /* -- break-point-envelope, convert a list of value-time-doubles -- */
! /* ------- into a time-scheduled stream of value-time-pairs ------- */
!
! static t_class *bpe_class;
!
! typedef struct _bpe
! {
! t_object x_obj;
! t_clock *x_clock;
! int x_maxnum;
! int x_curnum;
! int x_curindex;
! t_atom *x_beg;
! void *x_out_val;
! void *x_out_time;
! void *x_out_finished;
! } t_bpe;
!
! static void bpe_stop(t_bpe *x)
! {
! clock_unset(x->x_clock);
! }
!
! static void bpe_tick(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curindex >= x->x_curnum)
! {
! bpe_stop(x);
! outlet_bang(x->x_out_finished);
! }
! else
! {
! vec += x->x_curindex;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! x->x_curindex += 2;
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_bang(t_bpe *x)
! {
! t_atom *vec = x->x_beg;
! float val, time;
!
! if(x->x_curnum)
! {
! x->x_curindex = 2;
! val = atom_getfloat(vec++);
! time = atom_getfloat(vec);
! outlet_float(x->x_out_time, time);
! outlet_float(x->x_out_val, val);
! clock_delay(x->x_clock, time);
! }
! }
!
! static void bpe_list(t_bpe *x, t_symbol *s, int ac, t_atom *av)
! {
! int n = ac & 0xfffffffe, i;
! t_atom *vec = x->x_beg;
! if(n > x->x_maxnum)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! x->x_maxnum = 2 + n;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! vec = x->x_beg;
! }
! x->x_curnum = n;
! for(i=0; i<n; i++)
! {
! *vec++ = *av++;
! }
! }
!
! static void bpe_free(t_bpe *x)
! {
! freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
! clock_free(x->x_clock);
! }
!
! static void *bpe_new(void)
! {
! t_bpe *x = (t_bpe *)pd_new(bpe_class);
!
! x->x_curindex = 0;
! x->x_maxnum = 20;
! x->x_curnum = 0;
! x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
! x->x_clock = clock_new(x, (t_method)bpe_tick);
! x->x_out_val = outlet_new(&x->x_obj, &s_float);
! x->x_out_time = outlet_new(&x->x_obj, &s_float);
! x->x_out_finished = outlet_new(&x->x_obj, &s_bang);
! return (x);
! }
!
! void bpe_setup(void)
! {
! bpe_class = class_new(gensym("bpe"), (t_newmethod)bpe_new,
! (t_method)bpe_free, sizeof(t_bpe), 0, 0);
! class_addmethod(bpe_class, (t_method)bpe_stop, gensym("stop"), 0);
! class_addbang(bpe_class, bpe_bang);
! class_addlist(bpe_class, (t_method)bpe_list);
! class_sethelpsymbol(bpe_class, gensym("iemhelp/help-bpe"));
! }
Index: iem_sel_any.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_sel_any.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_sel_any.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_sel_any.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,112 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ iem_sel_any ---------------------------- */
! /* -- stores an array of symbols, random access by index ----------- */
!
! static t_class *iem_sel_any_class;
!
! typedef struct _iem_sel_any
! {
! t_object x_obj;
! int x_ac;
! int x_max_ac;
! t_symbol **x_any;
! t_symbol *x_set;
! void *x_out_any;
! void *x_out_set_any;
! } t_iem_sel_any;
!
!
! static void iem_sel_any_float(t_iem_sel_any *x, t_float f)
! {
! int i = (int)f;
! t_atom at;
!
! if(x->x_ac > 0)
! {
! if(i < 0)
! i = 0;
! if(i >= x->x_ac)
! i = x->x_ac - 1;
! SETSYMBOL(&at, x->x_any[i]);
! outlet_anything(x->x_out_any, x->x_any[i], 0, 0);
! outlet_anything(x->x_out_set_any, x->x_set, 1, &at);
! }
! }
!
! static void iem_sel_any_add(t_iem_sel_any *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av, 0)))
! {
! int i = (int)atom_getintarg(0, ac, av);
!
! if((i >= 0) && (i < x->x_max_ac))
! {
! if(IS_A_SYMBOL(av, 1))
! x->x_any[i] = atom_getsymbolarg(1, ac, av);
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_any[i] = gensym(str);
! }
! if(i >= x->x_ac)
! x->x_ac = i+1;
! }
! }
! }
!
! static void iem_sel_any_clear(t_iem_sel_any *x)
! {
! x->x_ac = 0;
! }
!
! static void iem_sel_any_free(t_iem_sel_any *x)
! {
! freebytes(x->x_any, x->x_max_ac * sizeof(t_symbol *));
! }
!
! static void *iem_sel_any_new(t_float fmax)
! {
! t_iem_sel_any *x = (t_iem_sel_any *)pd_new(iem_sel_any_class);
! int i;
! t_symbol *default_sym=gensym("no_entry");
!
! if(fmax <= 0.0)
! fmax = 10.0;
! x->x_max_ac = (int)fmax;
! x->x_any = (t_symbol **)getbytes(x->x_max_ac * sizeof(t_symbol *));
! x->x_ac = 0;
! x->x_set = gensym("set");
! for(i=0; i<x->x_max_ac; i++)
! x->x_any[i] = default_sym;
! x->x_out_set_any = outlet_new(&x->x_obj, &s_list);
! x->x_out_any = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_sel_any_setup(void)
! {
! iem_sel_any_class = class_new(gensym("iem_sel_any"), (t_newmethod)iem_sel_any_new,
! (t_method)iem_sel_any_free, sizeof(t_iem_sel_any), 0, A_DEFFLOAT, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_add, gensym("add"), A_GIMME, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_clear, gensym("clear"), 0);
! class_addfloat(iem_sel_any_class, (t_method)iem_sel_any_float);
! class_sethelpsymbol(iem_sel_any_class, gensym("iemhelp/help-iem_sel_any"));
! }
--- 1,112 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ iem_sel_any ---------------------------- */
! /* -- stores an array of symbols, random access by index ----------- */
!
! static t_class *iem_sel_any_class;
!
! typedef struct _iem_sel_any
! {
! t_object x_obj;
! int x_ac;
! int x_max_ac;
! t_symbol **x_any;
! t_symbol *x_set;
! void *x_out_any;
! void *x_out_set_any;
! } t_iem_sel_any;
!
!
! static void iem_sel_any_float(t_iem_sel_any *x, t_float f)
! {
! int i = (int)f;
! t_atom at;
!
! if(x->x_ac > 0)
! {
! if(i < 0)
! i = 0;
! if(i >= x->x_ac)
! i = x->x_ac - 1;
! SETSYMBOL(&at, x->x_any[i]);
! outlet_anything(x->x_out_any, x->x_any[i], 0, 0);
! outlet_anything(x->x_out_set_any, x->x_set, 1, &at);
! }
! }
!
! static void iem_sel_any_add(t_iem_sel_any *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 2) && (IS_A_FLOAT(av, 0)))
! {
! int i = (int)atom_getintarg(0, ac, av);
!
! if((i >= 0) && (i < x->x_max_ac))
! {
! if(IS_A_SYMBOL(av, 1))
! x->x_any[i] = atom_getsymbolarg(1, ac, av);
! else if(IS_A_FLOAT(av, 1))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloatarg(1, ac, av));
! x->x_any[i] = gensym(str);
! }
! if(i >= x->x_ac)
! x->x_ac = i+1;
! }
! }
! }
!
! static void iem_sel_any_clear(t_iem_sel_any *x)
! {
! x->x_ac = 0;
! }
!
! static void iem_sel_any_free(t_iem_sel_any *x)
! {
! freebytes(x->x_any, x->x_max_ac * sizeof(t_symbol *));
! }
!
! static void *iem_sel_any_new(t_float fmax)
! {
! t_iem_sel_any *x = (t_iem_sel_any *)pd_new(iem_sel_any_class);
! int i;
! t_symbol *default_sym=gensym("no_entry");
!
! if(fmax <= 0.0)
! fmax = 10.0;
! x->x_max_ac = (int)fmax;
! x->x_any = (t_symbol **)getbytes(x->x_max_ac * sizeof(t_symbol *));
! x->x_ac = 0;
! x->x_set = gensym("set");
! for(i=0; i<x->x_max_ac; i++)
! x->x_any[i] = default_sym;
! x->x_out_set_any = outlet_new(&x->x_obj, &s_list);
! x->x_out_any = outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_sel_any_setup(void)
! {
! iem_sel_any_class = class_new(gensym("iem_sel_any"), (t_newmethod)iem_sel_any_new,
! (t_method)iem_sel_any_free, sizeof(t_iem_sel_any), 0, A_DEFFLOAT, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_add, gensym("add"), A_GIMME, 0);
! class_addmethod(iem_sel_any_class, (t_method)iem_sel_any_clear, gensym("clear"), 0);
! class_addfloat(iem_sel_any_class, (t_method)iem_sel_any_float);
! class_sethelpsymbol(iem_sel_any_class, gensym("iemhelp/help-iem_sel_any"));
! }
Index: sigLFO_noise.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigLFO_noise.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigLFO_noise.c 2 Jun 2005 18:25:00 -0000 1.2
--- sigLFO_noise.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,128 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------- LFO_noise~ --------------------- */
! /* ---- outputs a 2 point interpolated white noise ----- */
! /* -- with lower cutoff frequency than 0.5 samplerate -- */
!
! static t_class *sigLFO_noise_class;
!
! typedef struct _sigLFO_noise
! {
! t_object x_obj;
! double x_range;
! double x_rcp_range;
! unsigned int x_state;
! float x_fact;
! float x_incr;
! float x_y1;
! float x_y2;
! float x_phase;
! } t_sigLFO_noise;
!
! static int sigLFO_noise_makeseed(void)
! {
! static unsigned int sigLFO_noise_nextseed = 1489853723;
!
! sigLFO_noise_nextseed = sigLFO_noise_nextseed * 435898247 + 938284287;
! return(sigLFO_noise_nextseed & 0x7fffffff);
! }
!
! static float sigLFO_noise_new_rand(t_sigLFO_noise *x)
! {
! unsigned int state = x->x_state;
! double new_val, range = x->x_range;
!
! x->x_state = state = state * 472940017 + 832416023;
! new_val = range * ((double)state) * (1./4294967296.);
! if(new_val >= range)
! new_val = range-1;
! new_val -= 32767.0;
! return(new_val*(1.0/32767.0));
! }
!
! static void *sigLFO_noise_new(t_float freq)
! {
! t_sigLFO_noise *x = (t_sigLFO_noise *)pd_new(sigLFO_noise_class);
!
! x->x_range = 65535.0;
! x->x_rcp_range = (double)x->x_range * (1.0/4294967296.0);
! x->x_state = sigLFO_noise_makeseed();
! x->x_fact = 2. / 44100.0;
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! x->x_y1 = sigLFO_noise_new_rand(x);
! x->x_y2 = sigLFO_noise_new_rand(x);
! x->x_phase = 0.0;
! outlet_new(&x->x_obj, gensym("signal"));
! return (x);
! }
!
! static t_int *sigLFO_noise_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigLFO_noise *x = (t_sigLFO_noise *)(w[2]);
! int n = (int)(w[3]);
! float phase = x->x_phase;
! float x_y1 = x->x_y1;
! float x_y2 = x->x_y2;
! float incr = x->x_incr;
!
! while(n--)
! {
! if(phase > 1.0)
! {
! x_y1 = x_y2;
! x_y2 = sigLFO_noise_new_rand(x);
! phase -= 1.0;
! }
! *out++ = (x_y2 - x_y1) * phase + x_y1;
! phase += incr;
! }
! x->x_phase = phase;
! x->x_y1 = x_y1;
! x->x_y2 = x_y2;
! return (w+4);
! }
!
! static void sigLFO_noise_float(t_sigLFO_noise *x, t_float freq)
! {
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! }
!
! static void sigLFO_noise_dsp(t_sigLFO_noise *x, t_signal **sp)
! {
! x->x_fact = 2. / sp[0]->s_sr;
! dsp_add(sigLFO_noise_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! void sigLFO_noise_setup(void)
! {
! sigLFO_noise_class = class_new(gensym("LFO_noise~"),
! (t_newmethod)sigLFO_noise_new, 0,
! sizeof(t_sigLFO_noise), 0, A_DEFFLOAT, 0);
! class_addmethod(sigLFO_noise_class, (t_method)sigLFO_noise_dsp,
! gensym("dsp"), 0);
! class_addfloat(sigLFO_noise_class, (t_method)sigLFO_noise_float);
! class_sethelpsymbol(sigLFO_noise_class, gensym("iemhelp/help-LFO_noise~"));
! }
--- 1,128 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------- LFO_noise~ --------------------- */
! /* ---- outputs a 2 point interpolated white noise ----- */
! /* -- with lower cutoff frequency than 0.5 samplerate -- */
!
! static t_class *sigLFO_noise_class;
!
! typedef struct _sigLFO_noise
! {
! t_object x_obj;
! double x_range;
! double x_rcp_range;
! unsigned int x_state;
! float x_fact;
! float x_incr;
! float x_y1;
! float x_y2;
! float x_phase;
! } t_sigLFO_noise;
!
! static int sigLFO_noise_makeseed(void)
! {
! static unsigned int sigLFO_noise_nextseed = 1489853723;
!
! sigLFO_noise_nextseed = sigLFO_noise_nextseed * 435898247 + 938284287;
! return(sigLFO_noise_nextseed & 0x7fffffff);
! }
!
! static float sigLFO_noise_new_rand(t_sigLFO_noise *x)
! {
! unsigned int state = x->x_state;
! double new_val, range = x->x_range;
!
! x->x_state = state = state * 472940017 + 832416023;
! new_val = range * ((double)state) * (1./4294967296.);
! if(new_val >= range)
! new_val = range-1;
! new_val -= 32767.0;
! return(new_val*(1.0/32767.0));
! }
!
! static void *sigLFO_noise_new(t_float freq)
! {
! t_sigLFO_noise *x = (t_sigLFO_noise *)pd_new(sigLFO_noise_class);
!
! x->x_range = 65535.0;
! x->x_rcp_range = (double)x->x_range * (1.0/4294967296.0);
! x->x_state = sigLFO_noise_makeseed();
! x->x_fact = 2. / 44100.0;
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! x->x_y1 = sigLFO_noise_new_rand(x);
! x->x_y2 = sigLFO_noise_new_rand(x);
! x->x_phase = 0.0;
! outlet_new(&x->x_obj, gensym("signal"));
! return (x);
! }
!
! static t_int *sigLFO_noise_perform(t_int *w)
! {
! t_float *out = (t_float *)(w[1]);
! t_sigLFO_noise *x = (t_sigLFO_noise *)(w[2]);
! int n = (int)(w[3]);
! float phase = x->x_phase;
! float x_y1 = x->x_y1;
! float x_y2 = x->x_y2;
! float incr = x->x_incr;
!
! while(n--)
! {
! if(phase > 1.0)
! {
! x_y1 = x_y2;
! x_y2 = sigLFO_noise_new_rand(x);
! phase -= 1.0;
! }
! *out++ = (x_y2 - x_y1) * phase + x_y1;
! phase += incr;
! }
! x->x_phase = phase;
! x->x_y1 = x_y1;
! x->x_y2 = x_y2;
! return (w+4);
! }
!
! static void sigLFO_noise_float(t_sigLFO_noise *x, t_float freq)
! {
! x->x_incr = freq * x->x_fact;
! if(x->x_incr < 0.0)
! x->x_incr = 0.0;
! else if(x->x_incr > 0.1)
! x->x_incr = 0.1;
! }
!
! static void sigLFO_noise_dsp(t_sigLFO_noise *x, t_signal **sp)
! {
! x->x_fact = 2. / sp[0]->s_sr;
! dsp_add(sigLFO_noise_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
!
! void sigLFO_noise_setup(void)
! {
! sigLFO_noise_class = class_new(gensym("LFO_noise~"),
! (t_newmethod)sigLFO_noise_new, 0,
! sizeof(t_sigLFO_noise), 0, A_DEFFLOAT, 0);
! class_addmethod(sigLFO_noise_class, (t_method)sigLFO_noise_dsp,
! gensym("dsp"), 0);
! class_addfloat(sigLFO_noise_class, (t_method)sigLFO_noise_float);
! class_sethelpsymbol(sigLFO_noise_class, gensym("iemhelp/help-LFO_noise~"));
! }
Index: init.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/init.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** init.c 2 Jun 2005 18:25:00 -0000 1.2
--- init.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,204 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ init ---------------------------- */
! /* -------- a combination of loadbang and any --------------- */
!
! static t_class *init_class;
!
! typedef struct _init
! {
! t_object x_obj;
! int x_n;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_init;
!
! static void init_bang(t_init *x)
! {
! if(x->x_type == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at));
! else if(x->x_type == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at));
! else if(x->x_type == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! else if(x->x_type == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! else if(x->x_type == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at->a_w.w_gpointer);
! }
!
! static void init_loadbang(t_init *x)
! {
! if(!sys_noloadbang)
! init_bang(x);
! }
!
! static void init_float(t_init *x, t_float f)
! {
! x->x_ac = 1;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_float;
! x->x_type = A_FLOAT;
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void init_symbol(t_init *x, t_symbol *s)
! {
! x->x_ac = 1;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_symbol;
! x->x_type = A_SYMBOL;
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void init_pointer(t_init *x, t_gpointer *gp)
! {
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! x->x_type = A_POINTER;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void init_list(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = &s_list;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_GIMME;
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
!
! static void init_anything(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = s;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_COMMA;
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void init_free(t_init *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! }
!
! static void *init_new(t_symbol *s, int ac, t_atom *av)
! {
! t_init *x = (t_init *)pd_new(init_class);
! int i;
!
! x->x_type = A_NULL;
! if(!ac)
! {
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;
! x->x_sym = atom_getsymbol(av);
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type = A_FLOAT;
! x->x_sym = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type = A_POINTER;
! x->x_sym = &s_pointer;
! }
! x->x_n = x->x_ac = 1;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! x->x_at[0] = *av;
! }
! }
! else
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;/*for anything*/
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! }
! x->x_n = x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void init_setup(void)
! {
! init_class = class_new(gensym("init"), (t_newmethod)init_new,
! (t_method)init_free, sizeof(t_init), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)init_new, gensym("ii"), A_GIMME, 0);
! class_addmethod(init_class, (t_method)init_loadbang, gensym("loadbang"), 0);
! class_addbang(init_class, (t_method)init_bang);
! class_addanything(init_class, init_anything);
! class_addlist(init_class, init_list);
! class_addpointer(init_class, init_pointer);
! class_addfloat(init_class, (t_method)init_float);
! class_addsymbol(init_class, init_symbol);
! class_sethelpsymbol(init_class, gensym("iemhelp/help-init"));
! }
--- 1,204 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ init ---------------------------- */
! /* -------- a combination of loadbang and any --------------- */
!
! static t_class *init_class;
!
! typedef struct _init
! {
! t_object x_obj;
! int x_n;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_init;
!
! static void init_bang(t_init *x)
! {
! if(x->x_type == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at));
! else if(x->x_type == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at));
! else if(x->x_type == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! else if(x->x_type == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! else if(x->x_type == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at->a_w.w_gpointer);
! }
!
! static void init_loadbang(t_init *x)
! {
! if(!sys_noloadbang)
! init_bang(x);
! }
!
! static void init_float(t_init *x, t_float f)
! {
! x->x_ac = 1;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_float;
! x->x_type = A_FLOAT;
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void init_symbol(t_init *x, t_symbol *s)
! {
! x->x_ac = 1;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_symbol;
! x->x_type = A_SYMBOL;
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void init_pointer(t_init *x, t_gpointer *gp)
! {
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_pointer;
! x->x_type = A_POINTER;
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void init_list(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = &s_list;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_GIMME;
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
! }
!
! static void init_anything(t_init *x, t_symbol *s, int ac, t_atom *av)
! {
! t_atom *at;
!
! if(ac > x->x_n)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! x->x_n = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! x->x_ac = ac;
! x->x_sym = s;
! at = x->x_at;
! while(ac--)
! *at++ = *av++;
! x->x_type = A_COMMA;
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void init_free(t_init *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_n * sizeof(t_atom));
! }
!
! static void *init_new(t_symbol *s, int ac, t_atom *av)
! {
! t_init *x = (t_init *)pd_new(init_class);
! int i;
!
! x->x_type = A_NULL;
! if(!ac)
! {
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;
! x->x_sym = atom_getsymbol(av);
! x->x_n = 1;
! x->x_ac = 0;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type = A_FLOAT;
! x->x_sym = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type = A_POINTER;
! x->x_sym = &s_pointer;
! }
! x->x_n = x->x_ac = 1;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! x->x_at[0] = *av;
! }
! }
! else
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type = A_COMMA;/*for anything*/
! x->x_sym = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! }
! x->x_n = x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void init_setup(void)
! {
! init_class = class_new(gensym("init"), (t_newmethod)init_new,
! (t_method)init_free, sizeof(t_init), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)init_new, gensym("ii"), A_GIMME, 0);
! class_addmethod(init_class, (t_method)init_loadbang, gensym("loadbang"), 0);
! class_addbang(init_class, (t_method)init_bang);
! class_addanything(init_class, init_anything);
! class_addlist(init_class, init_list);
! class_addpointer(init_class, init_pointer);
! class_addfloat(init_class, (t_method)init_float);
! class_addsymbol(init_class, init_symbol);
! class_sethelpsymbol(init_class, gensym("iemhelp/help-init"));
! }
Index: exp_inc.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/exp_inc.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** exp_inc.c 2 Jun 2005 18:25:00 -0000 1.2
--- exp_inc.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,135 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ exp_inc ---------------------------- */
! /* ------- exponetial/linear-incremental-bang-counter ---------- */
!
!
! static t_class *exp_inc_class;
!
! typedef struct _exp_inc
! {
! t_object x_obj;
! float x_initialval;
! float x_currentval;
! float x_mulfactor;
! float x_addincrement;
! float x_min;
! float x_max;
! } t_exp_inc;
!
! static void exp_inc_bang(t_exp_inc *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_currentval);
! x->x_currentval = x->x_currentval * x->x_mulfactor + x->x_addincrement;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_reset(t_exp_inc *x)
! {
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_float(t_exp_inc *x, t_floatarg f)
! {
! x->x_initialval = (float)f;
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_ft1(t_exp_inc *x, t_floatarg f)
! {
! x->x_mulfactor = 1.0 + 0.01*(float)f;
! }
!
! static void exp_inc_ft2(t_exp_inc *x, t_floatarg f)
! {
! x->x_addincrement = (float)f;
! }
!
! static void exp_inc_ft3(t_exp_inc *x, t_floatarg f)
! {
! x->x_min = (float)f;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! }
!
! static void exp_inc_ft4(t_exp_inc *x, t_floatarg f)
! {
! x->x_max = (float)f;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_list(t_exp_inc *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void *exp_inc_new(t_symbol *s, int ac, t_atom *av)
! {
! t_exp_inc *x = (t_exp_inc *)pd_new(exp_inc_class);
!
! x->x_currentval = 10.0;
! x->x_mulfactor = 1.0;
! x->x_addincrement = 0.0;
! x->x_min = 0.0;
! x->x_max = 1000.0;
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! return (x);
! }
!
! void exp_inc_setup(void)
! {
! exp_inc_class = class_new(gensym("exp_inc"), (t_newmethod)exp_inc_new,
! 0, sizeof(t_exp_inc), 0, A_GIMME, 0);
! class_addbang(exp_inc_class, exp_inc_bang);
! class_addlist(exp_inc_class, (t_method)exp_inc_list);
! class_addmethod(exp_inc_class, (t_method)exp_inc_reset, gensym("reset"), 0);
! class_addfloat(exp_inc_class, (t_method)exp_inc_float);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft4, gensym("ft4"), A_FLOAT, 0);
! class_sethelpsymbol(exp_inc_class, gensym("iemhelp/help-exp_inc"));
! }
--- 1,135 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ exp_inc ---------------------------- */
! /* ------- exponetial/linear-incremental-bang-counter ---------- */
!
!
! static t_class *exp_inc_class;
!
! typedef struct _exp_inc
! {
! t_object x_obj;
! float x_initialval;
! float x_currentval;
! float x_mulfactor;
! float x_addincrement;
! float x_min;
! float x_max;
! } t_exp_inc;
!
! static void exp_inc_bang(t_exp_inc *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_currentval);
! x->x_currentval = x->x_currentval * x->x_mulfactor + x->x_addincrement;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_reset(t_exp_inc *x)
! {
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_float(t_exp_inc *x, t_floatarg f)
! {
! x->x_initialval = (float)f;
! x->x_currentval = x->x_initialval;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_ft1(t_exp_inc *x, t_floatarg f)
! {
! x->x_mulfactor = 1.0 + 0.01*(float)f;
! }
!
! static void exp_inc_ft2(t_exp_inc *x, t_floatarg f)
! {
! x->x_addincrement = (float)f;
! }
!
! static void exp_inc_ft3(t_exp_inc *x, t_floatarg f)
! {
! x->x_min = (float)f;
! if(x->x_currentval < x->x_min)
! x->x_currentval = x->x_min;
! }
!
! static void exp_inc_ft4(t_exp_inc *x, t_floatarg f)
! {
! x->x_max = (float)f;
! if(x->x_currentval > x->x_max)
! x->x_currentval = x->x_max;
! }
!
! static void exp_inc_list(t_exp_inc *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! }
!
! static void *exp_inc_new(t_symbol *s, int ac, t_atom *av)
! {
! t_exp_inc *x = (t_exp_inc *)pd_new(exp_inc_class);
!
! x->x_currentval = 10.0;
! x->x_mulfactor = 1.0;
! x->x_addincrement = 0.0;
! x->x_min = 0.0;
! x->x_max = 1000.0;
! if((ac == 5)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1)&&IS_A_FLOAT(av,2)
! &&IS_A_FLOAT(av,3)&&IS_A_FLOAT(av,4))
! {
! exp_inc_ft4(x, atom_getfloatarg(4, ac, av));
! exp_inc_ft3(x, atom_getfloatarg(3, ac, av));
! exp_inc_ft2(x, atom_getfloatarg(2, ac, av));
! exp_inc_ft1(x, atom_getfloatarg(1, ac, av));
! exp_inc_float(x, atom_getfloatarg(0, ac, av));
! }
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft3"));
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft4"));
! return (x);
! }
!
! void exp_inc_setup(void)
! {
! exp_inc_class = class_new(gensym("exp_inc"), (t_newmethod)exp_inc_new,
! 0, sizeof(t_exp_inc), 0, A_GIMME, 0);
! class_addbang(exp_inc_class, exp_inc_bang);
! class_addlist(exp_inc_class, (t_method)exp_inc_list);
! class_addmethod(exp_inc_class, (t_method)exp_inc_reset, gensym("reset"), 0);
! class_addfloat(exp_inc_class, (t_method)exp_inc_float);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft1, gensym("ft1"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft2, gensym("ft2"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft3, gensym("ft3"), A_FLOAT, 0);
! class_addmethod(exp_inc_class, (t_method)exp_inc_ft4, gensym("ft4"), A_FLOAT, 0);
! class_sethelpsymbol(exp_inc_class, gensym("iemhelp/help-exp_inc"));
! }
Index: prepend_ascii.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/prepend_ascii.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** prepend_ascii.c 2 Jun 2005 18:25:00 -0000 1.2
--- prepend_ascii.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,129 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- prepend_ascii ---------------------------- */
! /* -- this object prepends to any incoming message a selector symbol -- */
! /* --- containing the n-th character of the ASCII-table. "n" is the --- */
! /* ----------------- first initial argument (integer) ----------------- */
!
! static t_class *prepend_ascii_class;
!
! typedef struct _prepend_ascii
! {
! t_object x_obj;
! t_atom *x_at;
! int x_size;
! int x_ac;
! t_symbol *x_sym;
! } t_prepend_ascii;
!
! static void prepend_ascii_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_ascii_bang(t_prepend_ascii *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_float(t_prepend_ascii *x, t_float f)
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_symbol(t_prepend_ascii *x, t_symbol *s)
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_pointer(t_prepend_ascii *x, t_gpointer *gp)
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_list(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac);
! }
! prepend_ascii_atcopy(av, x->x_at+x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_anything(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac+1);
! }
! SETSYMBOL(x->x_at+x->x_ac, s);
! prepend_ascii_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_free(t_prepend_ascii *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *prepend_ascii_new(t_symbol *s, int ac, t_atom *av)
! {
! if((ac <= 0) || (!IS_A_FLOAT(av,0)))
! {
! post("ERROR: prepend_ascii need a float between 1 and 255 as 1. arg. !!!");
! return(0);
! }
! else
! {
! t_prepend_ascii *x = (t_prepend_ascii *)pd_new(prepend_ascii_class);
! char str[2];
! int i;
!
! x->x_size = 10 + ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! str[0] = (char)((int)(atom_getfloatarg(0,ac,av))&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! x->x_ac = ac - 1;
! for(i=1; i<ac; i++)
! x->x_at[i-1] = av[i];
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! }
!
! void prepend_ascii_setup(void)
! {
! prepend_ascii_class = class_new(gensym("prepend_ascii"), (t_newmethod)prepend_ascii_new,
! (t_method)prepend_ascii_free, sizeof(t_prepend_ascii), 0, A_GIMME, 0);
! class_addbang(prepend_ascii_class, (t_method)prepend_ascii_bang);
! class_addfloat(prepend_ascii_class, (t_method)prepend_ascii_float);
! class_addsymbol(prepend_ascii_class, prepend_ascii_symbol);
! class_addpointer(prepend_ascii_class, prepend_ascii_pointer);
! class_addlist(prepend_ascii_class, prepend_ascii_list);
! class_addanything(prepend_ascii_class, prepend_ascii_anything);
! class_sethelpsymbol(prepend_ascii_class, gensym("iemhelp/help-prepend_ascii"));
! }
--- 1,129 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- prepend_ascii ---------------------------- */
! /* -- this object prepends to any incoming message a selector symbol -- */
! /* --- containing the n-th character of the ASCII-table. "n" is the --- */
! /* ----------------- first initial argument (integer) ----------------- */
!
! static t_class *prepend_ascii_class;
!
! typedef struct _prepend_ascii
! {
! t_object x_obj;
! t_atom *x_at;
! int x_size;
! int x_ac;
! t_symbol *x_sym;
! } t_prepend_ascii;
!
! static void prepend_ascii_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_ascii_bang(t_prepend_ascii *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_float(t_prepend_ascii *x, t_float f)
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_symbol(t_prepend_ascii *x, t_symbol *s)
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_pointer(t_prepend_ascii *x, t_gpointer *gp)
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_list(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac);
! }
! prepend_ascii_atcopy(av, x->x_at+x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac, x->x_at);
! }
!
! static void prepend_ascii_anything(t_prepend_ascii *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = (ac+x->x_ac+1);
! }
! SETSYMBOL(x->x_at+x->x_ac, s);
! prepend_ascii_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, ac+x->x_ac+1, x->x_at);
! }
!
! static void prepend_ascii_free(t_prepend_ascii *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *prepend_ascii_new(t_symbol *s, int ac, t_atom *av)
! {
! if((ac <= 0) || (!IS_A_FLOAT(av,0)))
! {
! post("ERROR: prepend_ascii need a float between 1 and 255 as 1. arg. !!!");
! return(0);
! }
! else
! {
! t_prepend_ascii *x = (t_prepend_ascii *)pd_new(prepend_ascii_class);
! char str[2];
! int i;
!
! x->x_size = 10 + ac;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! str[0] = (char)((int)(atom_getfloatarg(0,ac,av))&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! x->x_ac = ac - 1;
! for(i=1; i<ac; i++)
! x->x_at[i-1] = av[i];
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
! }
!
! void prepend_ascii_setup(void)
! {
! prepend_ascii_class = class_new(gensym("prepend_ascii"), (t_newmethod)prepend_ascii_new,
! (t_method)prepend_ascii_free, sizeof(t_prepend_ascii), 0, A_GIMME, 0);
! class_addbang(prepend_ascii_class, (t_method)prepend_ascii_bang);
! class_addfloat(prepend_ascii_class, (t_method)prepend_ascii_float);
! class_addsymbol(prepend_ascii_class, prepend_ascii_symbol);
! class_addpointer(prepend_ascii_class, prepend_ascii_pointer);
! class_addlist(prepend_ascii_class, prepend_ascii_list);
! class_addanything(prepend_ascii_class, prepend_ascii_anything);
! class_sethelpsymbol(prepend_ascii_class, gensym("iemhelp/help-prepend_ascii"));
! }
Index: iem_append_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_append_kernel.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_append_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_append_kernel.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,350 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_append_kernel ---------------------------- */
! static t_class *iem_append_kernel_class;
!
! typedef struct _iem_append_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_iem_append_kernel;
!
! static void iem_append_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_append_kernel_merge(t_iem_append_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+x->x_ac2+1);
! }
! if(off)
! SETSYMBOL(x->x_at12 + x->x_ac1, x->x_sym2);
! iem_append_kernel_atcopy(x->x_at2, x->x_at12 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void iem_append_kernel_out(t_iem_append_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! iem_append_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! }
!
! static void iem_append_kernel_inlet_select(t_iem_append_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_append_kernel_bang(t_iem_append_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_float(t_iem_append_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at12, f);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_symbol(t_iem_append_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_pointer(t_iem_append_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_list(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_anything(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac+1);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_free(t_iem_append_kernel *x)
! {
! if(x->x_at12)
! freebytes(x->x_at12, x->x_size12 * sizeof(t_atom));
! if(x->x_at2)
! freebytes(x->x_at2, x->x_size2 * sizeof(t_atom));
! }
!
! static void *iem_append_kernel_new(void)
! {
! t_iem_append_kernel *x = (t_iem_append_kernel *)pd_new(iem_append_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_list;
! x->x_size2 = 10;
! if(ac > 5)
! x->x_size2 = 2*ac;
! x->x_at2 = (t_atom *)getbytes(x->x_size2 * sizeof(t_atom));
! x->x_size12 = x->x_size2 + 10;
! x->x_at12 = (t_atom *)getbytes(x->x_size12 * sizeof(t_atom));
! x->x_ac1 = 0;
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type2 = A_NULL;
! x->x_ac2 = 0;
! x->x_sym2 = &s_list;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! if(ac == 1)
! iem_append_kernel_float(x, atom_getfloat(av));
! else
! iem_append_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! t_symbol *xsym=atom_getsymbol(av);
!
! if(xsym == gensym("symbol"))
! {
! if(ac > 1)
! iem_append_kernel_symbol(x, atom_getsymbol(av+1));
! else
! iem_append_kernel_symbol(x, gensym(""));
! }
! else if(xsym == gensym("float"))
! {
! if(ac > 1)
! {
! if(IS_A_FLOAT(av, 1))
! iem_append_kernel_float(x, atom_getfloat(av+1));
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else if(xsym == gensym("list"))
! {
! iem_append_kernel_list(x, &s_list, ac-1, av+1);
! }
! else
! {
! iem_append_kernel_anything(x, xsym, ac-1, av+1);
! }
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_append_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_append_kernel_class = class_new(gensym("iem_append_kernel"),
! (t_newmethod)iem_append_kernel_new, (t_method)iem_append_kernel_free,
! sizeof(t_iem_append_kernel), 0, 0);
! class_addbang(iem_append_kernel_class, (t_method)iem_append_kernel_bang);
! class_addpointer(iem_append_kernel_class, iem_append_kernel_pointer);
! class_addfloat(iem_append_kernel_class, (t_method)iem_append_kernel_float);
! class_addsymbol(iem_append_kernel_class, iem_append_kernel_symbol);
! class_addlist(iem_append_kernel_class, iem_append_kernel_list);
! class_addmethod(iem_append_kernel_class, (t_method)iem_append_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_append_kernel_class, iem_append_kernel_anything);
! class_sethelpsymbol(iem_append_kernel_class, gensym("iemhelp/help-merge_any"));
! }
--- 1,350 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_append_kernel ---------------------------- */
! static t_class *iem_append_kernel_class;
!
! typedef struct _iem_append_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_iem_append_kernel;
!
! static void iem_append_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_append_kernel_merge(t_iem_append_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+x->x_ac2+1);
! }
! if(off)
! SETSYMBOL(x->x_at12 + x->x_ac1, x->x_sym2);
! iem_append_kernel_atcopy(x->x_at2, x->x_at12 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void iem_append_kernel_out(t_iem_append_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! iem_append_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! }
!
! static void iem_append_kernel_inlet_select(t_iem_append_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_append_kernel_bang(t_iem_append_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_float(t_iem_append_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at12, f);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_symbol(t_iem_append_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_pointer(t_iem_append_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_list(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_anything(t_iem_append_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! iem_append_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_size2+ac+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_size2+ac+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_size2+ac+1);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! iem_append_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! iem_append_kernel_out(x);
! }
! }
!
! static void iem_append_kernel_free(t_iem_append_kernel *x)
! {
! if(x->x_at12)
! freebytes(x->x_at12, x->x_size12 * sizeof(t_atom));
! if(x->x_at2)
! freebytes(x->x_at2, x->x_size2 * sizeof(t_atom));
! }
!
! static void *iem_append_kernel_new(void)
! {
! t_iem_append_kernel *x = (t_iem_append_kernel *)pd_new(iem_append_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_list;
! x->x_size2 = 10;
! if(ac > 5)
! x->x_size2 = 2*ac;
! x->x_at2 = (t_atom *)getbytes(x->x_size2 * sizeof(t_atom));
! x->x_size12 = x->x_size2 + 10;
! x->x_at12 = (t_atom *)getbytes(x->x_size12 * sizeof(t_atom));
! x->x_ac1 = 0;
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type2 = A_NULL;
! x->x_ac2 = 0;
! x->x_sym2 = &s_list;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! if(ac == 1)
! iem_append_kernel_float(x, atom_getfloat(av));
! else
! iem_append_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! t_symbol *xsym=atom_getsymbol(av);
!
! if(xsym == gensym("symbol"))
! {
! if(ac > 1)
! iem_append_kernel_symbol(x, atom_getsymbol(av+1));
! else
! iem_append_kernel_symbol(x, gensym(""));
! }
! else if(xsym == gensym("float"))
! {
! if(ac > 1)
! {
! if(IS_A_FLOAT(av, 1))
! iem_append_kernel_float(x, atom_getfloat(av+1));
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else
! iem_append_kernel_float(x, 0.0f);
! }
! else if(xsym == gensym("list"))
! {
! iem_append_kernel_list(x, &s_list, ac-1, av+1);
! }
! else
! {
! iem_append_kernel_anything(x, xsym, ac-1, av+1);
! }
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_append_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_append_kernel_class = class_new(gensym("iem_append_kernel"),
! (t_newmethod)iem_append_kernel_new, (t_method)iem_append_kernel_free,
! sizeof(t_iem_append_kernel), 0, 0);
! class_addbang(iem_append_kernel_class, (t_method)iem_append_kernel_bang);
! class_addpointer(iem_append_kernel_class, iem_append_kernel_pointer);
! class_addfloat(iem_append_kernel_class, (t_method)iem_append_kernel_float);
! class_addsymbol(iem_append_kernel_class, iem_append_kernel_symbol);
! class_addlist(iem_append_kernel_class, iem_append_kernel_list);
! class_addmethod(iem_append_kernel_class, (t_method)iem_append_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_append_kernel_class, iem_append_kernel_anything);
! class_sethelpsymbol(iem_append_kernel_class, gensym("iemhelp/help-merge_any"));
! }
Index: sigiem_blocksize.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigiem_blocksize.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigiem_blocksize.c 2 Jun 2005 18:25:00 -0000 1.2
--- sigiem_blocksize.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,60 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* ------------------- iem_blocksize~ -------------------- */
! /* -- outputs the current signal-blocksize of a window --- */
!
! static t_class *sigiem_blocksize_class;
!
! typedef struct _sigiem_blocksize
! {
! t_object x_obj;
! t_float x_blocksize;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_blocksize;
!
! static void sigiem_blocksize_out(t_sigiem_blocksize *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_blocksize);
! }
!
! static void sigiem_blocksize_free(t_sigiem_blocksize *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_blocksize_new(t_symbol *s)
! {
! t_sigiem_blocksize *x = (t_sigiem_blocksize *)pd_new(sigiem_blocksize_class);
! x->x_clock = clock_new(x, (t_method)sigiem_blocksize_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_blocksize = 64.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_blocksize_dsp(t_sigiem_blocksize *x, t_signal **sp)
! {
! x->x_blocksize = (t_float)(sp[0]->s_n);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_blocksize_setup(void)
! {
! sigiem_blocksize_class = class_new(gensym("iem_blocksize~"), (t_newmethod)sigiem_blocksize_new,
! (t_method)sigiem_blocksize_free, sizeof(t_sigiem_blocksize), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_blocksize_class, t_sigiem_blocksize, x_f);
! class_addmethod(sigiem_blocksize_class, (t_method)sigiem_blocksize_dsp, gensym("dsp"), 0);
! }
--- 1,60 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
!
! /* ------------------- iem_blocksize~ -------------------- */
! /* -- outputs the current signal-blocksize of a window --- */
!
! static t_class *sigiem_blocksize_class;
!
! typedef struct _sigiem_blocksize
! {
! t_object x_obj;
! t_float x_blocksize;
! t_clock *x_clock;
! t_float x_f;
! } t_sigiem_blocksize;
!
! static void sigiem_blocksize_out(t_sigiem_blocksize *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_blocksize);
! }
!
! static void sigiem_blocksize_free(t_sigiem_blocksize *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *sigiem_blocksize_new(t_symbol *s)
! {
! t_sigiem_blocksize *x = (t_sigiem_blocksize *)pd_new(sigiem_blocksize_class);
! x->x_clock = clock_new(x, (t_method)sigiem_blocksize_out);
! outlet_new(&x->x_obj, &s_float);
! x->x_blocksize = 64.0f;
! x->x_f = 0.0f;
! return (x);
! }
!
! static void sigiem_blocksize_dsp(t_sigiem_blocksize *x, t_signal **sp)
! {
! x->x_blocksize = (t_float)(sp[0]->s_n);
! clock_delay(x->x_clock, 0.0f);
! }
!
! void sigiem_blocksize_setup(void)
! {
! sigiem_blocksize_class = class_new(gensym("iem_blocksize~"), (t_newmethod)sigiem_blocksize_new,
! (t_method)sigiem_blocksize_free, sizeof(t_sigiem_blocksize), 0, 0);
! CLASS_MAINSIGNALIN(sigiem_blocksize_class, t_sigiem_blocksize, x_f);
! class_addmethod(sigiem_blocksize_class, (t_method)sigiem_blocksize_dsp, gensym("dsp"), 0);
! }
Index: iem_prepend_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_prepend_kernel.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_prepend_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_prepend_kernel.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,258 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_prepend_kernel ---------------------------- */
! static t_class *iem_prepend_kernel_class;
!
! typedef struct _iem_prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_iem_prepend_kernel;
!
! static void iem_prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_prepend_kernel_inlet_select(t_iem_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_prepend_kernel_bang(t_iem_prepend_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 0;
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! }
! else /* if 1st inlet */
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! }
!
! static void iem_prepend_kernel_float(t_iem_prepend_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_FLOAT;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
! else
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_symbol(t_iem_prepend_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_SYMBOL;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
! else
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_pointer(t_iem_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_POINTER;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
! else
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_list(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, &s_list, ac, av);
! }
! else
! {
! iem_prepend_kernel_atcopy(av, x->x_at + x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_anything(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_COMMA;
! x->x_sym = s;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! else
! {
! SETSYMBOL(x->x_at + x->x_ac, s);
! iem_prepend_kernel_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_free(t_iem_prepend_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_prepend_kernel_new(void)
! {
! t_iem_prepend_kernel *x = (t_iem_prepend_kernel *)pd_new(iem_prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_size = 30;
! if(ac > 5)
! x->x_size = 2*(ac+10);
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type = A_NULL;
! x->x_ac = 0;
! x->x_sym = &s_bang;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! iem_prepend_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! iem_prepend_kernel_anything(x, atom_getsymbol(av), ac-1, av+1);
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void iem_prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_prepend_kernel_class = class_new(gensym("iem_prepend_kernel"),
! (t_newmethod)iem_prepend_kernel_new, (t_method)iem_prepend_kernel_free,
! sizeof(t_iem_prepend_kernel), 0, 0);
! class_addbang(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_bang);
! class_addpointer(iem_prepend_kernel_class, iem_prepend_kernel_pointer);
! class_addfloat(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_float);
! class_addsymbol(iem_prepend_kernel_class, iem_prepend_kernel_symbol);
! class_addlist(iem_prepend_kernel_class, iem_prepend_kernel_list);
! class_addmethod(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_prepend_kernel_class, iem_prepend_kernel_anything);
! class_sethelpsymbol(iem_prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
--- 1,258 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
!
! /* ------------------------ iem_prepend_kernel ---------------------------- */
! static t_class *iem_prepend_kernel_class;
!
! typedef struct _iem_prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_sym;
! t_atomtype x_type;
! } t_iem_prepend_kernel;
!
! static void iem_prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_prepend_kernel_inlet_select(t_iem_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void iem_prepend_kernel_bang(t_iem_prepend_kernel *x)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 0;
! x->x_type = A_NULL;
! x->x_sym = &s_bang;
! }
! else /* if 1st inlet */
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
! }
! }
!
! static void iem_prepend_kernel_float(t_iem_prepend_kernel *x, t_float f)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_FLOAT;
! SETFLOAT(x->x_at, f);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
! else
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_symbol(t_iem_prepend_kernel *x, t_symbol *s)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_SYMBOL;
! SETSYMBOL(x->x_at, s);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
! else
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_pointer(t_iem_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac = 1;
! x->x_type = A_POINTER;
! SETPOINTER(x->x_at, gp);
! x->x_sym = &s_list;
! }
! else /* if 1st inlet */
! {
! if(x->x_type == A_NULL)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
! else
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_list(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_GIMME;
! x->x_sym = &s_list;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, &s_list, ac, av);
! }
! else
! {
! iem_prepend_kernel_atcopy(av, x->x_at + x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_anything(t_iem_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+10)*sizeof(t_atom));
! x->x_size = 2*(ac+10);
! }
! x->x_ac = ac;
! x->x_type = A_COMMA;
! x->x_sym = s;
! iem_prepend_kernel_atcopy(av, x->x_at, ac);
! }
! else /* if 1st inlet */
! {
! if((ac+x->x_ac+1) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), 2*(ac+x->x_ac+1)*sizeof(t_atom));
! x->x_size = 2*(ac+x->x_ac+1);
! }
! if(x->x_type == A_NULL)
! {
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
! else
! {
! SETSYMBOL(x->x_at + x->x_ac, s);
! iem_prepend_kernel_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac+ac+1, x->x_at);
! }
! }
! }
!
! static void iem_prepend_kernel_free(t_iem_prepend_kernel *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! }
!
! static void *iem_prepend_kernel_new(void)
! {
! t_iem_prepend_kernel *x = (t_iem_prepend_kernel *)pd_new(iem_prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_size = 30;
! if(ac > 5)
! x->x_size = 2*(ac+10);
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! x->x_inlet_select = 1;
! if(ac <= 0)
! {
! x->x_type = A_NULL;
! x->x_ac = 0;
! x->x_sym = &s_bang;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! iem_prepend_kernel_list(x, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! iem_prepend_kernel_anything(x, atom_getsymbol(av), ac-1, av+1);
! }
! }
! outlet_new(&x->x_obj, &s_list);
! return(x);
! }
!
! void iem_prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! iem_prepend_kernel_class = class_new(gensym("iem_prepend_kernel"),
! (t_newmethod)iem_prepend_kernel_new, (t_method)iem_prepend_kernel_free,
! sizeof(t_iem_prepend_kernel), 0, 0);
! class_addbang(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_bang);
! class_addpointer(iem_prepend_kernel_class, iem_prepend_kernel_pointer);
! class_addfloat(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_float);
! class_addsymbol(iem_prepend_kernel_class, iem_prepend_kernel_symbol);
! class_addlist(iem_prepend_kernel_class, iem_prepend_kernel_list);
! class_addmethod(iem_prepend_kernel_class, (t_method)iem_prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(iem_prepend_kernel_class, iem_prepend_kernel_anything);
! class_sethelpsymbol(iem_prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
Index: mergefilename.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/mergefilename.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** mergefilename.c 2 Jun 2005 18:25:00 -0000 1.2
--- mergefilename.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,230 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- mergefilename ------------------------------ */
! /* ------------ concatenates a list of symbols to one symbol ------------- */
! /* ----- between the linked symbols, there is a variable character ------- */
!
! static t_class *mergefilename_class;
!
! typedef struct _mergefilename
! {
! t_object x_obj;
! char x_sep[2];
! } t_mergefilename;
!
! static void mergefilename_separator(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = 0;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void mergefilename_float(t_mergefilename *x, t_floatarg f)
! {
! char fbuf[30];
!
! fbuf[0] = 0;
! sprintf(fbuf, "%g", f);
! outlet_symbol(x->x_obj.ob_outlet, gensym(fbuf));
! }
!
! static void mergefilename_symbol(t_mergefilename *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void mergefilename_list(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
!
! if(ac > 1)
! {
! for(i=1; i<ac; i++)
! {
! av++;
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! len = strlen(s->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, s->s_name);
! cursize += len;
! if(ac > 0)
! {
! for(i=0; i<ac; i++)
! {
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! av++;
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void *mergefilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_mergefilename *x = (t_mergefilename *)pd_new(mergefilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac > 0)
! mergefilename_separator(x, s, ac, av);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void mergefilename_setup(void)
! {
! mergefilename_class = class_new(gensym("mergefilename"), (t_newmethod)mergefilename_new,
! 0, sizeof(t_mergefilename), 0, A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("sep"), A_GIMME, 0);
! class_addfloat(mergefilename_class, mergefilename_float);
! class_addsymbol(mergefilename_class, mergefilename_symbol);
! class_addlist(mergefilename_class, mergefilename_list);
! class_addanything(mergefilename_class, mergefilename_anything);
! class_sethelpsymbol(mergefilename_class, gensym("iemhelp/help-mergefilename"));
! }
--- 1,230 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- mergefilename ------------------------------ */
! /* ------------ concatenates a list of symbols to one symbol ------------- */
! /* ----- between the linked symbols, there is a variable character ------- */
!
! static t_class *mergefilename_class;
!
! typedef struct _mergefilename
! {
! t_object x_obj;
! char x_sep[2];
! } t_mergefilename;
!
! static void mergefilename_separator(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! if(strlen(av->a_w.w_symbol->s_name) == 1)
! x->x_sep[0] = av->a_w.w_symbol->s_name[0];
! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
! x->x_sep[0] = '\\';
! else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
! x->x_sep[0] = '/';
! else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
! x->x_sep[0] = ' ';
! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
! x->x_sep[0] = '$';
! else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
! x->x_sep[0] = ',';
! else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
! x->x_sep[0] = ';';
! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
! x->x_sep[0] = '{';
! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
! x->x_sep[0] = '}';
! else
! x->x_sep[0] = 0;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! int i;
! float f=fabs(av->a_w.w_float);
!
! while(f >= 10.0)
! f *= 0.1;
! i = (int)f;
! x->x_sep[0] = (char)i + '0';
! }
! }
! else
! x->x_sep[0] = 0;
! }
!
! static void mergefilename_float(t_mergefilename *x, t_floatarg f)
! {
! char fbuf[30];
!
! fbuf[0] = 0;
! sprintf(fbuf, "%g", f);
! outlet_symbol(x->x_obj.ob_outlet, gensym(fbuf));
! }
!
! static void mergefilename_symbol(t_mergefilename *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void mergefilename_list(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
!
! if(ac > 1)
! {
! for(i=1; i<ac; i++)
! {
! av++;
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av)
! {
! char *cbeg, fbuf[30];
! int size=400, i, len, cursize=0;
!
! cbeg = (char *)getbytes(size * sizeof(char));
! cbeg[0] = 0;
! len = strlen(s->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, s->s_name);
! cursize += len;
! if(ac > 0)
! {
! for(i=0; i<ac; i++)
! {
! strcat(cbeg, x->x_sep);
! if(IS_A_SYMBOL(av, 0))
! {
! len = strlen(av->a_w.w_symbol->s_name);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, av->a_w.w_symbol->s_name);
! cursize += len;
! }
! else if(IS_A_FLOAT(av, 0))
! {
! sprintf(fbuf, "%g", av->a_w.w_float);
! len = strlen(fbuf);
! if((len + cursize) >= (size-1))
! {
! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char));
! size = 2*(len + cursize);
! }
! strcat(cbeg, fbuf);
! cursize += len;
! }
! av++;
! }
! }
! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg));
! freebytes(cbeg, size * sizeof(char));
! }
!
! static void *mergefilename_new(t_symbol *s, int ac, t_atom *av)
! {
! t_mergefilename *x = (t_mergefilename *)pd_new(mergefilename_class);
!
! x->x_sep[0] = 0;
! x->x_sep[1] = 0;
! if(ac > 0)
! mergefilename_separator(x, s, ac, av);
! outlet_new(&x->x_obj, &s_symbol);
! return (x);
! }
!
! void mergefilename_setup(void)
! {
! mergefilename_class = class_new(gensym("mergefilename"), (t_newmethod)mergefilename_new,
! 0, sizeof(t_mergefilename), 0, A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("separator"), A_GIMME, 0);
! class_addmethod(mergefilename_class, (t_method)mergefilename_separator, gensym("sep"), A_GIMME, 0);
! class_addfloat(mergefilename_class, mergefilename_float);
! class_addsymbol(mergefilename_class, mergefilename_symbol);
! class_addlist(mergefilename_class, mergefilename_list);
! class_addanything(mergefilename_class, mergefilename_anything);
! class_sethelpsymbol(mergefilename_class, gensym("iemhelp/help-mergefilename"));
! }
Index: iem_prepend.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_prepend.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iem_prepend.c 2 Jun 2005 18:26:48 -0000 1.1
--- iem_prepend.c 8 Jul 2005 02:04:25 -0000 1.2
***************
*** 1,252 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- iem_prepend --------------------------- */
! /* -- concatenates message from cold (right) inlet with message -- */
! /* ------- from hot (left) inlet and outputs it; initial ------- */
! /* --- arguments (prependix) are eqal to message of cold inlet --- */
!
! struct _iem_prepend_proxy;
!
! static t_class *iem_prepend_class;
! static t_class *iem_prepend_proxy_class;
!
! typedef struct _iem_prepend
! {
! t_object x_obj;
! struct _iem_prepend_proxy *x_proxy_inlet;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_selector_sym;
! } t_iem_prepend;
!
! typedef struct _iem_prepend_proxy
! {
! t_object p_obj;
! t_iem_prepend *p_owner;
! } t_iem_prepend_proxy;
!
! static void iem_prepend_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_prepend_bang(t_iem_prepend *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac, x->x_at);
! }
!
! static void iem_prepend_float(t_iem_prepend *x, t_float f)
! {
! if(x->x_selector_sym == &s_bang)
! outlet_float(x->x_obj.ob_outlet, f);
! else
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
! }
! }
!
! static void iem_prepend_symbol(t_iem_prepend *x, t_symbol *s)
! {
! if(x->x_selector_sym == &s_bang)
! outlet_symbol(x->x_obj.ob_outlet, s);
! else
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
! }
! }
!
! static void iem_prepend_pointer(t_iem_prepend *x, t_gpointer *gp)
! {
! if(x->x_selector_sym == &s_bang)
! outlet_pointer(x->x_obj.ob_outlet, gp);
! else
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
! }
! }
!
! static void iem_prepend_list(t_iem_prepend *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+1) >= x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+11)*sizeof(t_atom));
! x->x_size = ac + x->x_ac + 11;
! }
! if(x->x_selector_sym == &s_bang)
! outlet_anything(x->x_obj.ob_outlet, &s_list, ac, av);
! else
! {
! iem_prepend_atcopy(av, x->x_at + x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+ac, x->x_at);
! }
! }
!
! static void iem_prepend_anything(t_iem_prepend *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+2) >= x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+12)*sizeof(t_atom));
! x->x_size = ac + x->x_ac + 12;
! }
! if(x->x_selector_sym == &s_bang)
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! else
! {
! SETSYMBOL(x->x_at + x->x_ac, s);
! iem_prepend_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+ac+1, x->x_at);
! }
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_prepend_proxy_bang(t_iem_prepend_proxy *p)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 0;
! x->x_selector_sym = &s_bang;
! }
!
! static void iem_prepend_proxy_float(t_iem_prepend_proxy *p, t_float f)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 1;
! SETFLOAT(x->x_at, f);
! x->x_selector_sym = &s_list;
! }
!
! static void iem_prepend_proxy_symbol(t_iem_prepend_proxy *p, t_symbol *s)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 1;
! SETSYMBOL(x->x_at, s);
! x->x_selector_sym = &s_list;
! }
!
! static void iem_prepend_proxy_pointer(t_iem_prepend_proxy *p, t_gpointer *gp)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_selector_sym = &s_list;
! }
!
! static void iem_prepend_proxy_list(t_iem_prepend_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_prepend *x = p->p_owner;
!
! if((2*ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (2*ac+10)*sizeof(t_atom));
! x->x_size = 2*ac+10;
! }
! x->x_ac = ac;
! x->x_selector_sym = &s_list;
! iem_prepend_atcopy(av, x->x_at, ac);
! }
!
! static void iem_prepend_proxy_anything(t_iem_prepend_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_prepend *x = p->p_owner;
!
! if((2*ac+11) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (2*ac+11)*sizeof(t_atom));
! x->x_size = 2*ac + 11;
! }
! x->x_ac = ac;
! x->x_selector_sym = s;
! iem_prepend_atcopy(av, x->x_at, ac);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_prepend_free(t_iem_prepend *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_prepend_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_prepend *x = (t_iem_prepend *)pd_new(iem_prepend_class);
! t_iem_prepend_proxy *p = (t_iem_prepend_proxy *)pd_new(iem_prepend_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! x->x_size = 30;
! if(ac > 10)
! x->x_size = 2*ac + 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! if(!ac)
! {
! x->x_ac = 0;
! x->x_selector_sym = &s_bang;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! iem_prepend_proxy_list(p, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! iem_prepend_proxy_anything(p, atom_getsymbol(av), ac-1, av+1);
! }
! }
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_prepend_setup(void)
! {
! iem_prepend_class = class_new(gensym("iem_prepend"),
! (t_newmethod)iem_prepend_new, (t_method)iem_prepend_free,
! sizeof(t_iem_prepend), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_prepend_new, gensym("pp"), A_GIMME, 0);
! class_addcreator((t_newmethod)iem_prepend_new, gensym("prepend"), A_GIMME, 0);
!
! class_addbang(iem_prepend_class, (t_method)iem_prepend_bang);
! class_addpointer(iem_prepend_class, iem_prepend_pointer);
! class_addfloat(iem_prepend_class, (t_method)iem_prepend_float);
! class_addsymbol(iem_prepend_class, iem_prepend_symbol);
! class_addlist(iem_prepend_class, iem_prepend_list);
! class_addanything(iem_prepend_class, iem_prepend_anything);
! class_sethelpsymbol(iem_prepend_class, gensym("iemhelp/help-iem_prepend"));
!
! iem_prepend_proxy_class = class_new(gensym("_iem_prepend_proxy"),
! 0, 0, sizeof(t_iem_prepend_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addbang(iem_prepend_proxy_class, (t_method)iem_prepend_proxy_bang);
! class_addpointer(iem_prepend_proxy_class, iem_prepend_proxy_pointer);
! class_addfloat(iem_prepend_proxy_class, (t_method)iem_prepend_proxy_float);
! class_addsymbol(iem_prepend_proxy_class, iem_prepend_proxy_symbol);
! class_addlist(iem_prepend_proxy_class, iem_prepend_proxy_list);
! class_addanything(iem_prepend_proxy_class, iem_prepend_proxy_anything);
! }
--- 1,252 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- iem_prepend --------------------------- */
! /* -- concatenates message from cold (right) inlet with message -- */
! /* ------- from hot (left) inlet and outputs it; initial ------- */
! /* --- arguments (prependix) are eqal to message of cold inlet --- */
!
! struct _iem_prepend_proxy;
!
! static t_class *iem_prepend_class;
! static t_class *iem_prepend_proxy_class;
!
! typedef struct _iem_prepend
! {
! t_object x_obj;
! struct _iem_prepend_proxy *x_proxy_inlet;
! int x_size;
! int x_ac;
! t_atom *x_at;
! t_symbol *x_selector_sym;
! } t_iem_prepend;
!
! typedef struct _iem_prepend_proxy
! {
! t_object p_obj;
! t_iem_prepend *p_owner;
! } t_iem_prepend_proxy;
!
! static void iem_prepend_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_prepend_bang(t_iem_prepend *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac, x->x_at);
! }
!
! static void iem_prepend_float(t_iem_prepend *x, t_float f)
! {
! if(x->x_selector_sym == &s_bang)
! outlet_float(x->x_obj.ob_outlet, f);
! else
! {
! SETFLOAT(x->x_at+x->x_ac, f);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
! }
! }
!
! static void iem_prepend_symbol(t_iem_prepend *x, t_symbol *s)
! {
! if(x->x_selector_sym == &s_bang)
! outlet_symbol(x->x_obj.ob_outlet, s);
! else
! {
! SETSYMBOL(x->x_at+x->x_ac, s);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
! }
! }
!
! static void iem_prepend_pointer(t_iem_prepend *x, t_gpointer *gp)
! {
! if(x->x_selector_sym == &s_bang)
! outlet_pointer(x->x_obj.ob_outlet, gp);
! else
! {
! SETPOINTER(x->x_at+x->x_ac, gp);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+1, x->x_at);
! }
! }
!
! static void iem_prepend_list(t_iem_prepend *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+1) >= x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+11)*sizeof(t_atom));
! x->x_size = ac + x->x_ac + 11;
! }
! if(x->x_selector_sym == &s_bang)
! outlet_anything(x->x_obj.ob_outlet, &s_list, ac, av);
! else
! {
! iem_prepend_atcopy(av, x->x_at + x->x_ac, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+ac, x->x_at);
! }
! }
!
! static void iem_prepend_anything(t_iem_prepend *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac+x->x_ac+2) >= x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (ac+x->x_ac+12)*sizeof(t_atom));
! x->x_size = ac + x->x_ac + 12;
! }
! if(x->x_selector_sym == &s_bang)
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! else
! {
! SETSYMBOL(x->x_at + x->x_ac, s);
! iem_prepend_atcopy(av, x->x_at+x->x_ac+1, ac);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym, x->x_ac+ac+1, x->x_at);
! }
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_prepend_proxy_bang(t_iem_prepend_proxy *p)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 0;
! x->x_selector_sym = &s_bang;
! }
!
! static void iem_prepend_proxy_float(t_iem_prepend_proxy *p, t_float f)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 1;
! SETFLOAT(x->x_at, f);
! x->x_selector_sym = &s_list;
! }
!
! static void iem_prepend_proxy_symbol(t_iem_prepend_proxy *p, t_symbol *s)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 1;
! SETSYMBOL(x->x_at, s);
! x->x_selector_sym = &s_list;
! }
!
! static void iem_prepend_proxy_pointer(t_iem_prepend_proxy *p, t_gpointer *gp)
! {
! t_iem_prepend *x = p->p_owner;
!
! x->x_ac = 1;
! SETPOINTER(x->x_at, gp);
! x->x_selector_sym = &s_list;
! }
!
! static void iem_prepend_proxy_list(t_iem_prepend_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_prepend *x = p->p_owner;
!
! if((2*ac+10) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (2*ac+10)*sizeof(t_atom));
! x->x_size = 2*ac+10;
! }
! x->x_ac = ac;
! x->x_selector_sym = &s_list;
! iem_prepend_atcopy(av, x->x_at, ac);
! }
!
! static void iem_prepend_proxy_anything(t_iem_prepend_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_prepend *x = p->p_owner;
!
! if((2*ac+11) > x->x_size)
! {
! x->x_at = (t_atom *)resizebytes(x->x_at, x->x_size*sizeof(t_atom), (2*ac+11)*sizeof(t_atom));
! x->x_size = 2*ac + 11;
! }
! x->x_ac = ac;
! x->x_selector_sym = s;
! iem_prepend_atcopy(av, x->x_at, ac);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_prepend_free(t_iem_prepend *x)
! {
! if(x->x_at)
! freebytes(x->x_at, x->x_size * sizeof(t_atom));
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_prepend_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_prepend *x = (t_iem_prepend *)pd_new(iem_prepend_class);
! t_iem_prepend_proxy *p = (t_iem_prepend_proxy *)pd_new(iem_prepend_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! x->x_size = 30;
! if(ac > 10)
! x->x_size = 2*ac + 10;
! x->x_at = (t_atom *)getbytes(x->x_size * sizeof(t_atom));
! if(!ac)
! {
! x->x_ac = 0;
! x->x_selector_sym = &s_bang;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! iem_prepend_proxy_list(p, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! iem_prepend_proxy_anything(p, atom_getsymbol(av), ac-1, av+1);
! }
! }
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_prepend_setup(void)
! {
! iem_prepend_class = class_new(gensym("iem_prepend"),
! (t_newmethod)iem_prepend_new, (t_method)iem_prepend_free,
! sizeof(t_iem_prepend), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_prepend_new, gensym("pp"), A_GIMME, 0);
! class_addcreator((t_newmethod)iem_prepend_new, gensym("prepend"), A_GIMME, 0);
!
! class_addbang(iem_prepend_class, (t_method)iem_prepend_bang);
! class_addpointer(iem_prepend_class, iem_prepend_pointer);
! class_addfloat(iem_prepend_class, (t_method)iem_prepend_float);
! class_addsymbol(iem_prepend_class, iem_prepend_symbol);
! class_addlist(iem_prepend_class, iem_prepend_list);
! class_addanything(iem_prepend_class, iem_prepend_anything);
! class_sethelpsymbol(iem_prepend_class, gensym("iemhelp/help-iem_prepend"));
!
! iem_prepend_proxy_class = class_new(gensym("_iem_prepend_proxy"),
! 0, 0, sizeof(t_iem_prepend_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addbang(iem_prepend_proxy_class, (t_method)iem_prepend_proxy_bang);
! class_addpointer(iem_prepend_proxy_class, iem_prepend_proxy_pointer);
! class_addfloat(iem_prepend_proxy_class, (t_method)iem_prepend_proxy_float);
! class_addsymbol(iem_prepend_proxy_class, iem_prepend_proxy_symbol);
! class_addlist(iem_prepend_proxy_class, iem_prepend_proxy_list);
! class_addanything(iem_prepend_proxy_class, iem_prepend_proxy_anything);
! }
Index: toggle_mess.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/toggle_mess.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** toggle_mess.c 2 Jun 2005 18:25:00 -0000 1.2
--- toggle_mess.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,121 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ toggle_mess ---------------------------- */
! /* -- inital arguments building a set of messages, any incomming --- */
! /* -- increments the internal counter and outputs the n-th initial --*/
! /* -- message. -- */
!
! static t_class *toggle_mess_class;
!
! typedef struct _toggle_mess
! {
! t_object x_obj;
! int x_index;
! int x_ac;
! t_atom *x_at;
! void *x_out_mid_sym;
! void *x_out_rght_flt;
! t_symbol *x_set;
! } t_toggle_mess;
!
! static void toggle_mess_bang(t_toggle_mess *x)
! {
! int i = x->x_index;
!
! outlet_float(x->x_out_rght_flt, (float)i);
! if(IS_A_FLOAT(x->x_at, i))
! outlet_float(x->x_out_mid_sym, atom_getfloat(&x->x_at[i]));
! else
! outlet_anything(x->x_out_mid_sym, atom_getsymbol(&x->x_at[i]), 0, x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[i]);
! }
!
! static void toggle_mess_float(t_toggle_mess *x, t_float f)
! {
! x->x_index++;
! if(x->x_index >= x->x_ac)
! x->x_index = 0;
! toggle_mess_bang(x);
! }
!
! static void toggle_mess_set(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 1) && (IS_A_FLOAT(av, 0)))
! {
! int x_index = (int)atom_getint(av);
!
! if(x_index < 0)
! x_index = 0;
! else if(x_index >= x->x_ac)
! x_index = x->x_ac;
! x->x_index = x_index;
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[x_index]);
! }
! else
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_symbol(t_toggle_mess *x, t_symbol *s)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_anything(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_free(t_toggle_mess *x)
! {
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *toggle_mess_new(t_symbol *s, int ac, t_atom *av)
! {
! t_toggle_mess *x = (t_toggle_mess *)pd_new(toggle_mess_class);
! int i;
!
! if(!ac)
! {
! post("toggle_mess-ERROR: must have at least one argument!");
! x->x_at = (t_atom *)0;
! return(0);
! }
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(ac * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! x->x_index = 0;
! x->x_set = gensym("set");
! outlet_new(&x->x_obj, &s_list);
! x->x_out_mid_sym = outlet_new(&x->x_obj, &s_list);
! x->x_out_rght_flt = outlet_new(&x->x_obj, &s_float);
! return(x);
! }
!
! void toggle_mess_setup(void)
! {
! toggle_mess_class = class_new(gensym("toggle_mess"), (t_newmethod)toggle_mess_new,
! (t_method)toggle_mess_free, sizeof(t_toggle_mess), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)toggle_mess_new, gensym("tm"), A_GIMME, 0);
! class_addbang(toggle_mess_class, (t_method)toggle_mess_bang);
! class_addmethod(toggle_mess_class, (t_method)toggle_mess_set, gensym("set"), A_GIMME, 0);
! class_addfloat(toggle_mess_class, (t_method)toggle_mess_float);
! class_addsymbol(toggle_mess_class, toggle_mess_symbol);
! class_addanything(toggle_mess_class, toggle_mess_anything);
! class_sethelpsymbol(toggle_mess_class, gensym("iemhelp/help-toggle_mess"));
! }
--- 1,121 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ toggle_mess ---------------------------- */
! /* -- inital arguments building a set of messages, any incomming --- */
! /* -- increments the internal counter and outputs the n-th initial --*/
! /* -- message. -- */
!
! static t_class *toggle_mess_class;
!
! typedef struct _toggle_mess
! {
! t_object x_obj;
! int x_index;
! int x_ac;
! t_atom *x_at;
! void *x_out_mid_sym;
! void *x_out_rght_flt;
! t_symbol *x_set;
! } t_toggle_mess;
!
! static void toggle_mess_bang(t_toggle_mess *x)
! {
! int i = x->x_index;
!
! outlet_float(x->x_out_rght_flt, (float)i);
! if(IS_A_FLOAT(x->x_at, i))
! outlet_float(x->x_out_mid_sym, atom_getfloat(&x->x_at[i]));
! else
! outlet_anything(x->x_out_mid_sym, atom_getsymbol(&x->x_at[i]), 0, x->x_at);
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[i]);
! }
!
! static void toggle_mess_float(t_toggle_mess *x, t_float f)
! {
! x->x_index++;
! if(x->x_index >= x->x_ac)
! x->x_index = 0;
! toggle_mess_bang(x);
! }
!
! static void toggle_mess_set(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! if((ac >= 1) && (IS_A_FLOAT(av, 0)))
! {
! int x_index = (int)atom_getint(av);
!
! if(x_index < 0)
! x_index = 0;
! else if(x_index >= x->x_ac)
! x_index = x->x_ac;
! x->x_index = x_index;
! outlet_anything(x->x_obj.ob_outlet, x->x_set, 1, &x->x_at[x_index]);
! }
! else
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_symbol(t_toggle_mess *x, t_symbol *s)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_anything(t_toggle_mess *x, t_symbol *s, int ac, t_atom *av)
! {
! toggle_mess_float(x, 0);
! }
!
! static void toggle_mess_free(t_toggle_mess *x)
! {
! freebytes(x->x_at, x->x_ac * sizeof(t_atom));
! }
!
! static void *toggle_mess_new(t_symbol *s, int ac, t_atom *av)
! {
! t_toggle_mess *x = (t_toggle_mess *)pd_new(toggle_mess_class);
! int i;
!
! if(!ac)
! {
! post("toggle_mess-ERROR: must have at least one argument!");
! x->x_at = (t_atom *)0;
! return(0);
! }
! x->x_ac = ac;
! x->x_at = (t_atom *)getbytes(ac * sizeof(t_atom));
! for(i=0; i<ac; i++)
! x->x_at[i] = *av++;
! x->x_index = 0;
! x->x_set = gensym("set");
! outlet_new(&x->x_obj, &s_list);
! x->x_out_mid_sym = outlet_new(&x->x_obj, &s_list);
! x->x_out_rght_flt = outlet_new(&x->x_obj, &s_float);
! return(x);
! }
!
! void toggle_mess_setup(void)
! {
! toggle_mess_class = class_new(gensym("toggle_mess"), (t_newmethod)toggle_mess_new,
! (t_method)toggle_mess_free, sizeof(t_toggle_mess), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)toggle_mess_new, gensym("tm"), A_GIMME, 0);
! class_addbang(toggle_mess_class, (t_method)toggle_mess_bang);
! class_addmethod(toggle_mess_class, (t_method)toggle_mess_set, gensym("set"), A_GIMME, 0);
! class_addfloat(toggle_mess_class, (t_method)toggle_mess_float);
! class_addsymbol(toggle_mess_class, toggle_mess_symbol);
! class_addanything(toggle_mess_class, toggle_mess_anything);
! class_sethelpsymbol(toggle_mess_class, gensym("iemhelp/help-toggle_mess"));
! }
Index: sigm2f.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigm2f.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigm2f.c 2 Jun 2005 18:25:00 -0000 1.2
--- sigm2f.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,125 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------- m2f~ ----------- */
! /* --------- obsolete --------- */
!
! #define M2FTABSIZE 2048
!
! float *iem_m2f_table=(float *)0L;
!
! static t_class *sigm2f_class;
!
! typedef struct _sigm2f
! {
! t_object x_obj;
! float x_msi;
! } t_sigm2f;
!
! static void *sigm2f_new(void)
! {
! t_sigm2f *x = (t_sigm2f *)pd_new(sigm2f_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! static t_int *sigm2f_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigm2f *x = (t_sigm2f *)(w[3]);
! int n = (int)(w[4]);
! float *tab = iem_m2f_table, *addr, f1, f2, frac, iinn;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigm2f_dsp(t_sigm2f *x, t_signal **sp)
! {
! dsp_add(sigm2f_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigm2f_maketable(void)
! {
! union tabfudge tf;
!
! if(!iem_m2f_table)
! {
! int i;
! float *fp, midi, refexp=440.0*exp(-5.75*log(2.0));
!
! iem_m2f_table = (float *)getbytes(sizeof(float) * (M2FTABSIZE+1));
! for(i=0, fp=iem_m2f_table, midi=-67.0; i<=M2FTABSIZE; i++, fp++, midi+=0.1)
! *fp = refexp * exp(0.057762265047 * midi);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("m2f~: unexpected machine alignment");
! }
!
! void sigm2f_setup(void)
! {
! sigm2f_class = class_new(gensym("m2f~"), (t_newmethod)sigm2f_new, 0,
! sizeof(t_sigm2f), 0, 0);
! CLASS_MAINSIGNALIN(sigm2f_class, t_sigm2f, x_msi);
! class_addmethod(sigm2f_class, (t_method)sigm2f_dsp, gensym("dsp"), 0);
! sigm2f_maketable();
! class_sethelpsymbol(sigm2f_class, gensym("iemhelp/help-m2f~"));
! }
--- 1,125 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------- m2f~ ----------- */
! /* --------- obsolete --------- */
!
! #define M2FTABSIZE 2048
!
! float *iem_m2f_table=(float *)0L;
!
! static t_class *sigm2f_class;
!
! typedef struct _sigm2f
! {
! t_object x_obj;
! float x_msi;
! } t_sigm2f;
!
! static void *sigm2f_new(void)
! {
! t_sigm2f *x = (t_sigm2f *)pd_new(sigm2f_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_msi = 0;
! return (x);
! }
!
! static t_int *sigm2f_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigm2f *x = (t_sigm2f *)(w[3]);
! int n = (int)(w[4]);
! float *tab = iem_m2f_table, *addr, f1, f2, frac, iinn;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! iinn = (*in++)*10.0+670.0;
! dphase = (double)iinn + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (M2FTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigm2f_dsp(t_sigm2f *x, t_signal **sp)
! {
! dsp_add(sigm2f_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigm2f_maketable(void)
! {
! union tabfudge tf;
!
! if(!iem_m2f_table)
! {
! int i;
! float *fp, midi, refexp=440.0*exp(-5.75*log(2.0));
!
! iem_m2f_table = (float *)getbytes(sizeof(float) * (M2FTABSIZE+1));
! for(i=0, fp=iem_m2f_table, midi=-67.0; i<=M2FTABSIZE; i++, fp++, midi+=0.1)
! *fp = refexp * exp(0.057762265047 * midi);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("m2f~: unexpected machine alignment");
! }
!
! void sigm2f_setup(void)
! {
! sigm2f_class = class_new(gensym("m2f~"), (t_newmethod)sigm2f_new, 0,
! sizeof(t_sigm2f), 0, 0);
! CLASS_MAINSIGNALIN(sigm2f_class, t_sigm2f, x_msi);
! class_addmethod(sigm2f_class, (t_method)sigm2f_dsp, gensym("dsp"), 0);
! sigm2f_maketable();
! class_sethelpsymbol(sigm2f_class, gensym("iemhelp/help-m2f~"));
! }
Index: sigfade.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/sigfade.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigfade.c 2 Jun 2005 18:25:00 -0000 1.2
--- sigfade.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,184 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- fade~ ----------------------------- */
! /* --- signal lookup tabel object with input range of 0 to 1 --- */
! /* ---- converts a linear signal ramp to the half of a : ------ */
! /* -- sine-wave, hanning-wave, squareroot-wave or mixes of it -- */
!
! float *iem_fade_table_lin=(float *)0L;
! float *iem_fade_table_linsqrt=(float *)0L;
! float *iem_fade_table_sqrt=(float *)0L;
! float *iem_fade_table_sin=(float *)0L;
! float *iem_fade_table_sinhann=(float *)0L;
! float *iem_fade_table_hann=(float *)0L;
!
! static t_class *sigfade_class;
!
! typedef struct _sigfade
! {
! t_object x_obj;
! float *x_table;
! float x_f;
! } t_sigfade;
!
! static void sigfade_set(t_sigfade *x, t_symbol *s)
! {
! if(!strcmp(s->s_name, "_lin"))
! x->x_table = iem_fade_table_lin;
! else if(!strcmp(s->s_name, "_linsqrt"))
! x->x_table = iem_fade_table_linsqrt;
! else if(!strcmp(s->s_name, "_sqrt"))
! x->x_table = iem_fade_table_sqrt;
! else if(!strcmp(s->s_name, "_sin"))
! x->x_table = iem_fade_table_sin;
! else if(!strcmp(s->s_name, "_sinhann"))
! x->x_table = iem_fade_table_sinhann;
! else if(!strcmp(s->s_name, "_hann"))
! x->x_table = iem_fade_table_hann;
! }
!
! static void *sigfade_new(t_symbol *s)
! {
! t_sigfade *x = (t_sigfade *)pd_new(sigfade_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_f = 0;
! x->x_table = iem_fade_table_lin;
! sigfade_set(x, s);
! return (x);
! }
!
! static t_int *sigfade_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigfade *x = (t_sigfade *)(w[3]);
! int n = (int)(w[4]);
! float *tab = x->x_table, *addr, f1, f2, frac;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigfade_dsp(t_sigfade *x, t_signal **sp)
! {
! dsp_add(sigfade_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigfade_maketable(void)
! {
! int i;
! float *fp, phase, fff,phsinc = 0.5*3.141592653 / ((float)COSTABSIZE*0.99999);
! union tabfudge tf;
!
! if(!iem_fade_table_sin)
! {
! iem_fade_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_fade_table_sinhann)
! {
! iem_fade_table_sinhann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sinhann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*sqrt(fff);
! }
! }
! if(!iem_fade_table_hann)
! {
! iem_fade_table_hann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_hann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*fff;
! }
! }
! phsinc = 1.0 / ((float)COSTABSIZE*0.99999);
! if(!iem_fade_table_lin)
! {
! iem_fade_table_lin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_lin, phase=0; i--; fp++, phase+=phsinc)
! *fp = phase;
! }
! if(!iem_fade_table_linsqrt)
! {
! iem_fade_table_linsqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_linsqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = pow(phase, 0.75);
! }
! if(!iem_fade_table_sqrt)
! {
! iem_fade_table_sqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = sqrt(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("fade~: unexpected machine alignment");
! }
!
! void sigfade_setup(void)
! {
! sigfade_class = class_new(gensym("fade~"), (t_newmethod)sigfade_new, 0,
! sizeof(t_sigfade), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigfade_class, t_sigfade, x_f);
! class_addmethod(sigfade_class, (t_method)sigfade_dsp, gensym("dsp"), 0);
! class_addmethod(sigfade_class, (t_method)sigfade_set, gensym("set"), A_DEFSYM, 0);
! class_sethelpsymbol(sigfade_class, gensym("iemhelp/help-fade~"));
! sigfade_maketable();
! }
--- 1,184 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------- fade~ ----------------------------- */
! /* --- signal lookup tabel object with input range of 0 to 1 --- */
! /* ---- converts a linear signal ramp to the half of a : ------ */
! /* -- sine-wave, hanning-wave, squareroot-wave or mixes of it -- */
!
! float *iem_fade_table_lin=(float *)0L;
! float *iem_fade_table_linsqrt=(float *)0L;
! float *iem_fade_table_sqrt=(float *)0L;
! float *iem_fade_table_sin=(float *)0L;
! float *iem_fade_table_sinhann=(float *)0L;
! float *iem_fade_table_hann=(float *)0L;
!
! static t_class *sigfade_class;
!
! typedef struct _sigfade
! {
! t_object x_obj;
! float *x_table;
! float x_f;
! } t_sigfade;
!
! static void sigfade_set(t_sigfade *x, t_symbol *s)
! {
! if(!strcmp(s->s_name, "_lin"))
! x->x_table = iem_fade_table_lin;
! else if(!strcmp(s->s_name, "_linsqrt"))
! x->x_table = iem_fade_table_linsqrt;
! else if(!strcmp(s->s_name, "_sqrt"))
! x->x_table = iem_fade_table_sqrt;
! else if(!strcmp(s->s_name, "_sin"))
! x->x_table = iem_fade_table_sin;
! else if(!strcmp(s->s_name, "_sinhann"))
! x->x_table = iem_fade_table_sinhann;
! else if(!strcmp(s->s_name, "_hann"))
! x->x_table = iem_fade_table_hann;
! }
!
! static void *sigfade_new(t_symbol *s)
! {
! t_sigfade *x = (t_sigfade *)pd_new(sigfade_class);
! outlet_new(&x->x_obj, gensym("signal"));
! x->x_f = 0;
! x->x_table = iem_fade_table_lin;
! sigfade_set(x, s);
! return (x);
! }
!
! static t_int *sigfade_perform(t_int *w)
! {
! t_float *in = (t_float *)(w[1]);
! t_float *out = (t_float *)(w[2]);
! t_sigfade *x = (t_sigfade *)(w[3]);
! int n = (int)(w[4]);
! float *tab = x->x_table, *addr, f1, f2, frac;
! double dphase;
! int normhipart;
! union tabfudge tf;
!
! tf.tf_d = UNITBIT32;
! normhipart = tf.tf_i[HIOFFSET];
!
! #if 0 /* this is the readable version of the code. */
! while (n--)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! }
! #endif
! #if 1 /* this is the same, unwrapped by hand. */
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! tf.tf_d = dphase;
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! tf.tf_i[HIOFFSET] = normhipart;
! while (--n)
! {
! dphase = (double)(*in++ * (float)(COSTABSIZE) * 0.99999) + UNITBIT32;
! frac = tf.tf_d - UNITBIT32;
! tf.tf_d = dphase;
! f1 = addr[0];
! f2 = addr[1];
! addr = tab + (tf.tf_i[HIOFFSET] & (COSTABSIZE-1));
! *out++ = f1 + frac * (f2 - f1);
! tf.tf_i[HIOFFSET] = normhipart;
! }
! frac = tf.tf_d - UNITBIT32;
! f1 = addr[0];
! f2 = addr[1];
! *out++ = f1 + frac * (f2 - f1);
! #endif
! return (w+5);
! }
!
! static void sigfade_dsp(t_sigfade *x, t_signal **sp)
! {
! dsp_add(sigfade_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n);
! }
!
! static void sigfade_maketable(void)
! {
! int i;
! float *fp, phase, fff,phsinc = 0.5*3.141592653 / ((float)COSTABSIZE*0.99999);
! union tabfudge tf;
!
! if(!iem_fade_table_sin)
! {
! iem_fade_table_sin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sin, phase=0; i--; fp++, phase+=phsinc)
! *fp = sin(phase);
! }
! if(!iem_fade_table_sinhann)
! {
! iem_fade_table_sinhann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sinhann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*sqrt(fff);
! }
! }
! if(!iem_fade_table_hann)
! {
! iem_fade_table_hann = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_hann, phase=0; i--; fp++, phase+=phsinc)
! {
! fff = sin(phase);
! *fp = fff*fff;
! }
! }
! phsinc = 1.0 / ((float)COSTABSIZE*0.99999);
! if(!iem_fade_table_lin)
! {
! iem_fade_table_lin = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_lin, phase=0; i--; fp++, phase+=phsinc)
! *fp = phase;
! }
! if(!iem_fade_table_linsqrt)
! {
! iem_fade_table_linsqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_linsqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = pow(phase, 0.75);
! }
! if(!iem_fade_table_sqrt)
! {
! iem_fade_table_sqrt = (float *)getbytes(sizeof(float) * (COSTABSIZE+1));
! for(i=COSTABSIZE+1, fp=iem_fade_table_sqrt, phase=0; i--; fp++, phase+=phsinc)
! *fp = sqrt(phase);
! }
! tf.tf_d = UNITBIT32 + 0.5;
! if((unsigned)tf.tf_i[LOWOFFSET] != 0x80000000)
! bug("fade~: unexpected machine alignment");
! }
!
! void sigfade_setup(void)
! {
! sigfade_class = class_new(gensym("fade~"), (t_newmethod)sigfade_new, 0,
! sizeof(t_sigfade), 0, A_DEFSYM, 0);
! CLASS_MAINSIGNALIN(sigfade_class, t_sigfade, x_f);
! class_addmethod(sigfade_class, (t_method)sigfade_dsp, gensym("dsp"), 0);
! class_addmethod(sigfade_class, (t_method)sigfade_set, gensym("set"), A_DEFSYM, 0);
! class_sethelpsymbol(sigfade_class, gensym("iemhelp/help-fade~"));
! sigfade_maketable();
! }
Index: transf_fader.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/transf_fader.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** transf_fader.c 2 Jun 2005 18:25:00 -0000 1.2
--- transf_fader.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,154 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdio.h>
! #include <string.h>
!
!
! /* ------------------------ transf_fader ----------------------- */
! /* -- this loopkup tabel objekt makes a 2-point interpolation -- */
! /* --------- between the pairs of determinating points --------- */
!
! typedef struct _transf_fader
! {
! t_object x_obj;
! int x_size;
! int x_message;
! float *x_array;
! } t_transf_fader;
!
! static t_class *transf_fader_class;
!
! static void transf_fader_pairs(t_transf_fader *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc >= 4)
! {
! int i, j, k, ac=argc/2;
! int n=1000;
! int i_prev=0;
! int first=1;
! int i_delta;
! float val_delta;
! float delta;
! float val_prev=0.0f;
! float val=0.0f;
! float *vec=x->x_array;
! float fad_in, fad_out;
!
! for(j=0; j<n; j++)
! {
! vec[j] = -123456.0f;
! }
!
! for(j=0; j<ac; j++)
! {
! fad_in = atom_getfloat(argv++);
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 1000.0f)
! fad_in = 1000.0f;
!
! fad_out = atom_getfloat(argv++);
! while(fad_out < -123455.0f)
! fad_out = -123455.0f;
!
! i = (int)fad_in;
! vec[i] = fad_out;
! }
!
! for(j=0; j<n; j++)
! {
! if(vec[j] > -123456.0f)
! {
! if(first)
! {
! first = 0;
! i_prev = j;
! val_prev = vec[j];
! }
! else
! {
! i = j;
! val = vec[j];
! i_delta = i - i_prev;
! val_delta = val - val_prev;
! if(i_delta > 1)
! {
! delta = val_delta / (float)i_delta;
! for(k=i_prev+1; k<i; k++)
! {
! vec[k] = val_prev + delta*(float)(k - i_prev);
! }
! }
! i_prev = i;
! val_prev = val;
! }
! }
! }
! }
! else
! {
! if(x->x_message)
! post("transf_fader-ERROR: less than 2 pairs make no sense");
! }
! }
!
! static void transf_fader_float(t_transf_fader *x, t_floatarg fad_in)
! {
! float fad_out;
! float *vec=x->x_array;
! float fract;
! int i;
!
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 999.0f)
! fad_in = 999.0f;
!
! i = (int)fad_in;
! fract = fad_in - (float)i;
! fad_out = vec[i] + fract*(vec[i+1] - vec[i]);
! if(fad_out > -123455.0f)
! outlet_float(x->x_obj.ob_outlet, fad_out);
! }
!
! static void transf_fader_free(t_transf_fader *x)
! {
! freebytes(x->x_array, x->x_size * sizeof(float));
! }
!
! static void *transf_fader_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_transf_fader *x = (t_transf_fader *)pd_new(transf_fader_class);
! int i, n;
!
! x->x_size = 1001;
! x->x_message = 0;
! x->x_array = (float *)getbytes(x->x_size * sizeof(float));
! n = x->x_size;
! for(i=0; i<n; i++)
! x->x_array[i] = -123456.0f;
! transf_fader_pairs(x, gensym("pairs"), argc, argv);
! x->x_message = 1;
! outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void transf_fader_setup(void)
! {
! transf_fader_class = class_new(gensym("transf_fader"), (t_newmethod)transf_fader_new, (t_method)transf_fader_free,
! sizeof(t_transf_fader), 0, A_GIMME, 0);
! class_addfloat(transf_fader_class, (t_method)transf_fader_float);
! class_addmethod(transf_fader_class, (t_method)transf_fader_pairs, gensym("pairs"), A_GIMME, 0);
! class_sethelpsymbol(transf_fader_class, gensym("iemhelp/help-transf_fader"));
! }
--- 1,154 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdio.h>
! #include <string.h>
!
!
! /* ------------------------ transf_fader ----------------------- */
! /* -- this loopkup tabel objekt makes a 2-point interpolation -- */
! /* --------- between the pairs of determinating points --------- */
!
! typedef struct _transf_fader
! {
! t_object x_obj;
! int x_size;
! int x_message;
! float *x_array;
! } t_transf_fader;
!
! static t_class *transf_fader_class;
!
! static void transf_fader_pairs(t_transf_fader *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc >= 4)
! {
! int i, j, k, ac=argc/2;
! int n=1000;
! int i_prev=0;
! int first=1;
! int i_delta;
! float val_delta;
! float delta;
! float val_prev=0.0f;
! float val=0.0f;
! float *vec=x->x_array;
! float fad_in, fad_out;
!
! for(j=0; j<n; j++)
! {
! vec[j] = -123456.0f;
! }
!
! for(j=0; j<ac; j++)
! {
! fad_in = atom_getfloat(argv++);
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 1000.0f)
! fad_in = 1000.0f;
!
! fad_out = atom_getfloat(argv++);
! while(fad_out < -123455.0f)
! fad_out = -123455.0f;
!
! i = (int)fad_in;
! vec[i] = fad_out;
! }
!
! for(j=0; j<n; j++)
! {
! if(vec[j] > -123456.0f)
! {
! if(first)
! {
! first = 0;
! i_prev = j;
! val_prev = vec[j];
! }
! else
! {
! i = j;
! val = vec[j];
! i_delta = i - i_prev;
! val_delta = val - val_prev;
! if(i_delta > 1)
! {
! delta = val_delta / (float)i_delta;
! for(k=i_prev+1; k<i; k++)
! {
! vec[k] = val_prev + delta*(float)(k - i_prev);
! }
! }
! i_prev = i;
! val_prev = val;
! }
! }
! }
! }
! else
! {
! if(x->x_message)
! post("transf_fader-ERROR: less than 2 pairs make no sense");
! }
! }
!
! static void transf_fader_float(t_transf_fader *x, t_floatarg fad_in)
! {
! float fad_out;
! float *vec=x->x_array;
! float fract;
! int i;
!
! while(fad_in < 0.0f)
! fad_in = 0.0f;
! while(fad_in > 999.0f)
! fad_in = 999.0f;
!
! i = (int)fad_in;
! fract = fad_in - (float)i;
! fad_out = vec[i] + fract*(vec[i+1] - vec[i]);
! if(fad_out > -123455.0f)
! outlet_float(x->x_obj.ob_outlet, fad_out);
! }
!
! static void transf_fader_free(t_transf_fader *x)
! {
! freebytes(x->x_array, x->x_size * sizeof(float));
! }
!
! static void *transf_fader_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_transf_fader *x = (t_transf_fader *)pd_new(transf_fader_class);
! int i, n;
!
! x->x_size = 1001;
! x->x_message = 0;
! x->x_array = (float *)getbytes(x->x_size * sizeof(float));
! n = x->x_size;
! for(i=0; i<n; i++)
! x->x_array[i] = -123456.0f;
! transf_fader_pairs(x, gensym("pairs"), argc, argv);
! x->x_message = 1;
! outlet_new(&x->x_obj, &s_float);
! return (x);
! }
!
! void transf_fader_setup(void)
! {
! transf_fader_class = class_new(gensym("transf_fader"), (t_newmethod)transf_fader_new, (t_method)transf_fader_free,
! sizeof(t_transf_fader), 0, A_GIMME, 0);
! class_addfloat(transf_fader_class, (t_method)transf_fader_float);
! class_addmethod(transf_fader_class, (t_method)transf_fader_pairs, gensym("pairs"), A_GIMME, 0);
! class_sethelpsymbol(transf_fader_class, gensym("iemhelp/help-transf_fader"));
! }
Index: float24.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/float24.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** float24.c 2 Jun 2005 18:25:00 -0000 1.2
--- float24.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,81 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- float24 ----------------------- */
! /* ----------- float-object with 24 bit accuracy ------------ */
! /* -- concaternate a list of float-arguments to one string -- */
! /* ----------- and convert it to a float-number ------------- */
!
! typedef struct _float24
! {
! t_object x_obj;
! float x_arg;
! } t_float24;
!
! static t_class *float24_class;
!
! static float float24_calc_sum(int argc, t_atom *argv)
! {
! int i;
! char str[1000], buf[100];
!
! str[0] = 0;
! for(i=0; i<argc; i++)
! {
! if(IS_A_FLOAT(argv, i))
! {
! sprintf(buf, "%g", (float)atom_getfloatarg(i, argc, argv));
! strcat(str, buf);
! }
! }
! return(atof(str));
! }
!
! static void float24_bang(t_float24 *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_arg);
! }
!
! static void float24_float(t_float24 *x, t_float f)
! {
! x->x_arg = f;
! float24_bang(x);
! }
!
! static void float24_list(t_float24 *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! float24_bang(x);
! }
!
! static void *float24_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_float24 *x = (t_float24 *)pd_new(float24_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_arg = 0.0f;
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! return (x);
! }
!
! void float24_setup(void)
! {
! float24_class = class_new(gensym("float24"), (t_newmethod)float24_new, 0,
! sizeof(t_float24), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)float24_new, gensym("f24"), A_GIMME, 0);
! class_addbang(float24_class, (t_method)float24_bang);
! class_addfloat(float24_class, (t_method)float24_float);
! class_addlist(float24_class, (t_method)float24_list);
! class_sethelpsymbol(float24_class, gensym("iemhelp/help-float24"));
! }
--- 1,81 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* -------------------------- float24 ----------------------- */
! /* ----------- float-object with 24 bit accuracy ------------ */
! /* -- concaternate a list of float-arguments to one string -- */
! /* ----------- and convert it to a float-number ------------- */
!
! typedef struct _float24
! {
! t_object x_obj;
! float x_arg;
! } t_float24;
!
! static t_class *float24_class;
!
! static float float24_calc_sum(int argc, t_atom *argv)
! {
! int i;
! char str[1000], buf[100];
!
! str[0] = 0;
! for(i=0; i<argc; i++)
! {
! if(IS_A_FLOAT(argv, i))
! {
! sprintf(buf, "%g", (float)atom_getfloatarg(i, argc, argv));
! strcat(str, buf);
! }
! }
! return(atof(str));
! }
!
! static void float24_bang(t_float24 *x)
! {
! outlet_float(x->x_obj.ob_outlet, x->x_arg);
! }
!
! static void float24_float(t_float24 *x, t_float f)
! {
! x->x_arg = f;
! float24_bang(x);
! }
!
! static void float24_list(t_float24 *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! float24_bang(x);
! }
!
! static void *float24_new(t_symbol *s, int argc, t_atom *argv)
! {
! t_float24 *x = (t_float24 *)pd_new(float24_class);
!
! outlet_new(&x->x_obj, &s_float);
! x->x_arg = 0.0f;
! if(argc > 0)
! x->x_arg = float24_calc_sum(argc, argv);
! return (x);
! }
!
! void float24_setup(void)
! {
! float24_class = class_new(gensym("float24"), (t_newmethod)float24_new, 0,
! sizeof(t_float24), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)float24_new, gensym("f24"), A_GIMME, 0);
! class_addbang(float24_class, (t_method)float24_bang);
! class_addfloat(float24_class, (t_method)float24_float);
! class_addlist(float24_class, (t_method)float24_list);
! class_sethelpsymbol(float24_class, gensym("iemhelp/help-float24"));
! }
Index: speedlim.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/speedlim.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** speedlim.c 2 Jun 2005 18:25:00 -0000 1.2
--- speedlim.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,107 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- speedlim -------------------------- */
! /* -- reduces the flow of float-messages to one message per -- */
! /* ----------------- initial argument time in ms ------------- */
!
! static t_class *speedlim_class;
!
! typedef struct _speedlim
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_delay;
! int x_output_is_locked;
! int x_there_was_n_event;
! float x_curval;
! float x_lastout;
! } t_speedlim;
!
! static void speedlim_stop(t_speedlim *x)
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! clock_unset(x->x_clock);
! }
!
! static void speedlim_tick(t_speedlim *x)
! {
! if(x->x_there_was_n_event)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! }
! }
!
! static void speedlim_float(t_speedlim *x, t_float val)
! {
! x->x_curval = val;
! if(!x->x_output_is_locked)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! x->x_there_was_n_event = 1;
! }
!
! static void speedlim_ft1(t_speedlim *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void speedlim_free(t_speedlim *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *speedlim_new(t_float delay)
! {
! t_speedlim *x = (t_speedlim *)pd_new(speedlim_class);
!
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_curval = 0.0f;
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! x->x_clock = clock_new(x, (t_method)speedlim_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void speedlim_setup(void)
! {
! speedlim_class = class_new(gensym("speedlim"), (t_newmethod)speedlim_new,
! (t_method)speedlim_free, sizeof(t_speedlim), 0, A_DEFFLOAT, 0);
! class_addmethod(speedlim_class, (t_method)speedlim_stop, gensym("stop"), 0);
! class_addfloat(speedlim_class, (t_method)speedlim_float);
! class_addmethod(speedlim_class, (t_method)speedlim_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(speedlim_class, gensym("iemhelp/help-speedlim"));
! }
--- 1,107 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ----------------------- speedlim -------------------------- */
! /* -- reduces the flow of float-messages to one message per -- */
! /* ----------------- initial argument time in ms ------------- */
!
! static t_class *speedlim_class;
!
! typedef struct _speedlim
! {
! t_object x_obj;
! t_clock *x_clock;
! float x_delay;
! int x_output_is_locked;
! int x_there_was_n_event;
! float x_curval;
! float x_lastout;
! } t_speedlim;
!
! static void speedlim_stop(t_speedlim *x)
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! clock_unset(x->x_clock);
! }
!
! static void speedlim_tick(t_speedlim *x)
! {
! if(x->x_there_was_n_event)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! {
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! }
! }
!
! static void speedlim_float(t_speedlim *x, t_float val)
! {
! x->x_curval = val;
! if(!x->x_output_is_locked)
! {
! x->x_output_is_locked = 1;
! x->x_there_was_n_event = 0;
! outlet_float(x->x_obj.ob_outlet, x->x_curval);
! clock_delay(x->x_clock, x->x_delay);
! }
! else
! x->x_there_was_n_event = 1;
! }
!
! static void speedlim_ft1(t_speedlim *x, t_float delay)
! {
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! }
!
! static void speedlim_free(t_speedlim *x)
! {
! clock_free(x->x_clock);
! }
!
! static void *speedlim_new(t_float delay)
! {
! t_speedlim *x = (t_speedlim *)pd_new(speedlim_class);
!
! if(delay < 0.0)
! delay = 0.0;
! x->x_delay = delay;
! x->x_curval = 0.0f;
! x->x_output_is_locked = 0;
! x->x_there_was_n_event = 0;
! x->x_clock = clock_new(x, (t_method)speedlim_tick);
! outlet_new(&x->x_obj, &s_float);
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! return (x);
! }
!
! void speedlim_setup(void)
! {
! speedlim_class = class_new(gensym("speedlim"), (t_newmethod)speedlim_new,
! (t_method)speedlim_free, sizeof(t_speedlim), 0, A_DEFFLOAT, 0);
! class_addmethod(speedlim_class, (t_method)speedlim_stop, gensym("stop"), 0);
! class_addfloat(speedlim_class, (t_method)speedlim_float);
! class_addmethod(speedlim_class, (t_method)speedlim_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(speedlim_class, gensym("iemhelp/help-speedlim"));
! }
Index: prepend_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/prepend_kernel.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** prepend_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
--- prepend_kernel.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,349 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
!
! /* ------------------------ prepend_kernel ---------------------------- */
! static t_class *prepend_kernel_class;
!
! typedef struct _prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_prepend_kernel;
!
! static void prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_kernel_merge(t_prepend_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2) > x->x_size1)
! {
! x->x_at1 = (t_atom *)resizebytes(x->x_at1, x->x_size1*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2)*sizeof(t_atom));
! x->x_size1 = 2*(x->x_ac1+x->x_ac2);
! }
! if(off)
! SETSYMBOL(x->x_at1 + x->x_ac1, x->x_sym2);
! prepend_kernel_atcopy(x->x_at2, x->x_at1 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void prepend_kernel_out(t_prepend_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! prepend_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! }
!
! static void prepend_kernel_inlet_select(t_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void prepend_kernel_bang(t_prepend_kernel *x)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_float(t_prepend_kernel *x, t_float f)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at1, f);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_symbol(t_prepend_kernel *x, t_symbol *s)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_pointer(t_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_list(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_anything(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! SETSYMBOL(x->x_at2, s);
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (2*x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = (2*x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_free(t_prepend_kernel *x)
! {
! if(x->x_at1)
! freebytes(x->x_at1, x->x_size1 * sizeof(t_atom));
! }
!
! static void *prepend_kernel_new(void)
! {
! t_prepend_kernel *x = (t_prepend_kernel *)pd_new(prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! x->x_ac2 = 0;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! if(!ac)
! {
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_bang;
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;
! x->x_sym1 = atom_getsymbol(av);
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type1 = A_FLOAT;
! x->x_sym1 = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type1 = A_POINTER;
! x->x_sym1 = &s_pointer;
! }
! x->x_size1 = 11;
! x->x_ac1 = 1;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! x->x_at1[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;/*for anything*/
! x->x_sym1 = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type1 = A_GIMME;
! x->x_sym1 = &s_list;
! }
! x->x_size1 = ac + 10;
! x->x_ac1 = ac;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! prepend_kernel_atcopy(av, x->x_at1, ac);
! }
!
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! prepend_kernel_class = class_new(gensym("prepend_kernel"),
! (t_newmethod)prepend_kernel_new, (t_method)prepend_kernel_free,
! sizeof(t_prepend_kernel), 0, 0);
! class_addbang(prepend_kernel_class, (t_method)prepend_kernel_bang);
! class_addpointer(prepend_kernel_class, prepend_kernel_pointer);
! class_addfloat(prepend_kernel_class, (t_method)prepend_kernel_float);
! class_addsymbol(prepend_kernel_class, prepend_kernel_symbol);
! class_addlist(prepend_kernel_class, prepend_kernel_list);
! class_addmethod(prepend_kernel_class, (t_method)prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(prepend_kernel_class, prepend_kernel_anything);
! class_sethelpsymbol(prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
--- 1,349 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
!
! /* ------------------------ prepend_kernel ---------------------------- */
! static t_class *prepend_kernel_class;
!
! typedef struct _prepend_kernel
! {
! t_object x_obj;
! int x_inlet_select;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_sym1;
! t_symbol *x_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_prepend_kernel;
!
! static void prepend_kernel_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void prepend_kernel_merge(t_prepend_kernel *x, int off)
! {
! if((x->x_ac1+x->x_ac2) > x->x_size1)
! {
! x->x_at1 = (t_atom *)resizebytes(x->x_at1, x->x_size1*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2)*sizeof(t_atom));
! x->x_size1 = 2*(x->x_ac1+x->x_ac2);
! }
! if(off)
! SETSYMBOL(x->x_at1 + x->x_ac1, x->x_sym2);
! prepend_kernel_atcopy(x->x_at2, x->x_at1 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void prepend_kernel_out(t_prepend_kernel *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_sym1, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! prepend_kernel_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_sym2, x->x_ac2, x->x_at1);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! prepend_kernel_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at1));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at1));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at1->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at1);
! }
! }
!
! static void prepend_kernel_inlet_select(t_prepend_kernel *x, t_floatarg fin_sel_01)
! {
! x->x_inlet_select = (int)fin_sel_01;
! }
!
! static void prepend_kernel_bang(t_prepend_kernel *x)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_float(t_prepend_kernel *x, t_float f)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at1, f);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_symbol(t_prepend_kernel *x, t_symbol *s)
! {
! if(!x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_pointer(t_prepend_kernel *x, t_gpointer *gp)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_sym2 = &s_list;
! }
! else /* if 1st inlet */
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_list(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_sym2 = &s_list;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = &s_list;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_anything(t_prepend_kernel *x, t_symbol *s, int ac, t_atom *av)
! {
! if(x->x_inlet_select) /* if 2nd inlet */
! {
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), 2*ac*sizeof(t_atom));
! x->x_size2 = 2*ac;
! }
! SETSYMBOL(x->x_at2, s);
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_sym2 = s;
! prepend_kernel_atcopy(av, x->x_at2, ac);
! }
! else /* if 1st inlet */
! {
! if((x->x_ac1+ac) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (2*x->x_ac1+ac)*sizeof(t_atom));
! x->x_size12 = (2*x->x_ac1+ac);
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! prepend_kernel_atcopy(av, x->x_at12, ac);
! x->x_sym1 = s;
! prepend_kernel_out(x);
! }
! }
!
! static void prepend_kernel_free(t_prepend_kernel *x)
! {
! if(x->x_at1)
! freebytes(x->x_at1, x->x_size1 * sizeof(t_atom));
! }
!
! static void *prepend_kernel_new(void)
! {
! t_prepend_kernel *x = (t_prepend_kernel *)pd_new(prepend_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! x->x_type2 = A_NULL;
! x->x_sym2 = &s_list;
! x->x_ac2 = 0;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! x->x_type1 = A_NULL;
! if(!ac)
! {
! x->x_type1 = A_NULL;
! x->x_sym1 = &s_bang;
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else if(ac == 1)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;
! x->x_sym1 = atom_getsymbol(av);
! x->x_size1 = 10;
! x->x_ac1 = 0;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! }
! else
! {
! if(IS_A_FLOAT(av,0))
! {
! x->x_type1 = A_FLOAT;
! x->x_sym1 = &s_float;
! }
! else if(IS_A_POINTER(av,0))
! {
! x->x_type1 = A_POINTER;
! x->x_sym1 = &s_pointer;
! }
! x->x_size1 = 11;
! x->x_ac1 = 1;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! x->x_at1[0] = *av;
! }
! }
! else /* ac > 1 */
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_type1 = A_COMMA;/*for anything*/
! x->x_sym1 = atom_getsymbol(av++);
! ac--;
! }
! else
! {
! x->x_type1 = A_GIMME;
! x->x_sym1 = &s_list;
! }
! x->x_size1 = ac + 10;
! x->x_ac1 = ac;
! x->x_at1 = (t_atom *)getbytes(x->x_size1 * sizeof(t_atom));
! prepend_kernel_atcopy(av, x->x_at1, ac);
! }
!
! x->x_inlet_select = 1;
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void prepend_kernel_setup(void)
! {
! char str[2];
!
! str[0] = 1;
! str[1] = 0;
! prepend_kernel_class = class_new(gensym("prepend_kernel"),
! (t_newmethod)prepend_kernel_new, (t_method)prepend_kernel_free,
! sizeof(t_prepend_kernel), 0, 0);
! class_addbang(prepend_kernel_class, (t_method)prepend_kernel_bang);
! class_addpointer(prepend_kernel_class, prepend_kernel_pointer);
! class_addfloat(prepend_kernel_class, (t_method)prepend_kernel_float);
! class_addsymbol(prepend_kernel_class, prepend_kernel_symbol);
! class_addlist(prepend_kernel_class, prepend_kernel_list);
! class_addmethod(prepend_kernel_class, (t_method)prepend_kernel_inlet_select, gensym(str), A_FLOAT, 0);
! class_addanything(prepend_kernel_class, prepend_kernel_anything);
! class_sethelpsymbol(prepend_kernel_class, gensym("iemhelp/help-merge_any"));
! }
Index: iem_receive.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_receive.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iem_receive.c 2 Jun 2005 18:26:48 -0000 1.1
--- iem_receive.c 8 Jul 2005 02:04:25 -0000 1.2
***************
*** 1,179 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ iem_receive ---------------------------- */
! /* -------- like millers r, but with setable receive label --------- */
!
! struct _iem_receive_proxy;
!
! static t_class *iem_receive_class;
! static t_class *iem_receive_proxy_class;
!
! typedef struct _iem_receive
! {
! t_object x_obj;
! struct _iem_receive_proxy *x_proxy_receiver;
! t_symbol *x_receive_label_sym;
! } t_iem_receive;
!
! typedef struct _iem_receive_proxy
! {
! t_object p_obj;
! t_iem_receive *p_owner;
! } t_iem_receive_proxy;
!
! static void iem_receive_clear(t_iem_receive *x, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_receive_proxy *p=x->x_proxy_receiver;
!
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! x->x_receive_label_sym = 0;
! }
!
! static void iem_receive_set(t_iem_receive *x, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_receive_proxy *p=x->x_proxy_receiver;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! x->x_receive_label_sym = atom_getsymbol(av);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[32];
!
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! sprintf(str, "%g", atom_getfloat(av));
! x->x_receive_label_sym = gensym(str);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! }
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_receive_proxy_bang(t_iem_receive_proxy *p)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void iem_receive_proxy_float(t_iem_receive_proxy *p, t_float f)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void iem_receive_proxy_symbol(t_iem_receive_proxy *p, t_symbol *s)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void iem_receive_proxy_pointer(t_iem_receive_proxy *p, t_gpointer *gp)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void iem_receive_proxy_list(t_iem_receive_proxy *p, t_symbol *s, int argc, t_atom *argv)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_list(x->x_obj.ob_outlet, &s_list, argc, argv);
! }
!
! static void iem_receive_proxy_anything(t_iem_receive_proxy *p, t_symbol *s, int argc, t_atom *argv)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_receive_free(t_iem_receive *x)
! {
! t_iem_receive_proxy *p=x->x_proxy_receiver;
!
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! if(x->x_proxy_receiver)
! pd_free((t_pd *)x->x_proxy_receiver);
! }
!
! static void *iem_receive_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_receive *x = (t_iem_receive *)pd_new(iem_receive_class);
! t_iem_receive_proxy *p = (t_iem_receive_proxy *)pd_new(iem_receive_proxy_class);
!
! x->x_proxy_receiver = p;
! p->p_owner = x;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_receive_label_sym = atom_getsymbol(av);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_receive_label_sym = gensym(str);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! else
! x->x_receive_label_sym = 0;
! }
! else
! x->x_receive_label_sym = 0;
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_receive_setup(void)
! {
! iem_receive_class = class_new(gensym("iem_receive"), (t_newmethod)iem_receive_new,
! (t_method)iem_receive_free, sizeof(t_iem_receive), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_receive_new, gensym("iem_r"), A_GIMME, 0);
! class_addmethod(iem_receive_class, (t_method)iem_receive_clear, gensym("clear"), A_GIMME, 0);
! class_addmethod(iem_receive_class, (t_method)iem_receive_set, gensym("set"), A_GIMME, 0);
! class_sethelpsymbol(iem_receive_class, gensym("iemhelp/help-iem_receive"));
!
! iem_receive_proxy_class = class_new(gensym("_iem_receive_proxy"),
! 0, 0, sizeof(t_iem_receive_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addbang(iem_receive_proxy_class, iem_receive_proxy_bang);
! class_addfloat(iem_receive_proxy_class, iem_receive_proxy_float);
! class_addsymbol(iem_receive_proxy_class, iem_receive_proxy_symbol);
! class_addpointer(iem_receive_proxy_class, iem_receive_proxy_pointer);
! class_addlist(iem_receive_proxy_class, iem_receive_proxy_list);
! class_addanything(iem_receive_proxy_class, iem_receive_proxy_anything);
! }
--- 1,179 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* ------------------------ iem_receive ---------------------------- */
! /* -------- like millers r, but with setable receive label --------- */
!
! struct _iem_receive_proxy;
!
! static t_class *iem_receive_class;
! static t_class *iem_receive_proxy_class;
!
! typedef struct _iem_receive
! {
! t_object x_obj;
! struct _iem_receive_proxy *x_proxy_receiver;
! t_symbol *x_receive_label_sym;
! } t_iem_receive;
!
! typedef struct _iem_receive_proxy
! {
! t_object p_obj;
! t_iem_receive *p_owner;
! } t_iem_receive_proxy;
!
! static void iem_receive_clear(t_iem_receive *x, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_receive_proxy *p=x->x_proxy_receiver;
!
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! x->x_receive_label_sym = 0;
! }
!
! static void iem_receive_set(t_iem_receive *x, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_receive_proxy *p=x->x_proxy_receiver;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! x->x_receive_label_sym = atom_getsymbol(av);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[32];
!
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! sprintf(str, "%g", atom_getfloat(av));
! x->x_receive_label_sym = gensym(str);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! }
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_receive_proxy_bang(t_iem_receive_proxy *p)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void iem_receive_proxy_float(t_iem_receive_proxy *p, t_float f)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void iem_receive_proxy_symbol(t_iem_receive_proxy *p, t_symbol *s)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void iem_receive_proxy_pointer(t_iem_receive_proxy *p, t_gpointer *gp)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void iem_receive_proxy_list(t_iem_receive_proxy *p, t_symbol *s, int argc, t_atom *argv)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_list(x->x_obj.ob_outlet, &s_list, argc, argv);
! }
!
! static void iem_receive_proxy_anything(t_iem_receive_proxy *p, t_symbol *s, int argc, t_atom *argv)
! {
! t_iem_receive *x = p->p_owner;
!
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_receive_free(t_iem_receive *x)
! {
! t_iem_receive_proxy *p=x->x_proxy_receiver;
!
! if(x->x_receive_label_sym)
! pd_unbind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! if(x->x_proxy_receiver)
! pd_free((t_pd *)x->x_proxy_receiver);
! }
!
! static void *iem_receive_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_receive *x = (t_iem_receive *)pd_new(iem_receive_class);
! t_iem_receive_proxy *p = (t_iem_receive_proxy *)pd_new(iem_receive_proxy_class);
!
! x->x_proxy_receiver = p;
! p->p_owner = x;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_receive_label_sym = atom_getsymbol(av);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_receive_label_sym = gensym(str);
! pd_bind(&p->p_obj.ob_pd, x->x_receive_label_sym);
! }
! else
! x->x_receive_label_sym = 0;
! }
! else
! x->x_receive_label_sym = 0;
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_receive_setup(void)
! {
! iem_receive_class = class_new(gensym("iem_receive"), (t_newmethod)iem_receive_new,
! (t_method)iem_receive_free, sizeof(t_iem_receive), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_receive_new, gensym("iem_r"), A_GIMME, 0);
! class_addmethod(iem_receive_class, (t_method)iem_receive_clear, gensym("clear"), A_GIMME, 0);
! class_addmethod(iem_receive_class, (t_method)iem_receive_set, gensym("set"), A_GIMME, 0);
! class_sethelpsymbol(iem_receive_class, gensym("iemhelp/help-iem_receive"));
!
! iem_receive_proxy_class = class_new(gensym("_iem_receive_proxy"),
! 0, 0, sizeof(t_iem_receive_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addbang(iem_receive_proxy_class, iem_receive_proxy_bang);
! class_addfloat(iem_receive_proxy_class, iem_receive_proxy_float);
! class_addsymbol(iem_receive_proxy_class, iem_receive_proxy_symbol);
! class_addpointer(iem_receive_proxy_class, iem_receive_proxy_pointer);
! class_addlist(iem_receive_proxy_class, iem_receive_proxy_list);
! class_addanything(iem_receive_proxy_class, iem_receive_proxy_anything);
! }
Index: iem_append.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_append.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iem_append.c 2 Jun 2005 18:26:48 -0000 1.1
--- iem_append.c 8 Jul 2005 02:04:25 -0000 1.2
***************
*** 1,363 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
!
! /* ----------------------- iem_append -------------------------- */
! /* -- concatenates message from hot (left) inlet with message -- */
! /* ------ from cold (right) inlet and outputs it; initial ----- */
! /* -- arguments (appendix) are eqal to message of cold inlet --- */
!
!
! struct _iem_append_proxy;
!
! static t_class *iem_append_class;
! static t_class *iem_append_proxy_class;
!
! typedef struct _iem_append
! {
! t_object x_obj;
! struct _iem_append_proxy *x_proxy_inlet;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_selector_sym1;
! t_symbol *x_selector_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_iem_append;
!
! typedef struct _iem_append_proxy
! {
! t_object p_obj;
! t_iem_append *p_owner;
! } t_iem_append_proxy;
!
! static void iem_append_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_append_merge(t_iem_append *x, int off)
! {
! if((x->x_ac1+x->x_ac2+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+x->x_ac2+1);
! }
! if(off)
! SETSYMBOL(x->x_at12 + x->x_ac1, x->x_selector_sym2);
! iem_append_atcopy(x->x_at2, x->x_at12 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void iem_append_out(t_iem_append *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym1, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! iem_append_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym2, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! }
!
! static void iem_append_bang(t_iem_append *x)
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! iem_append_out(x);
! }
!
! static void iem_append_float(t_iem_append *x, t_float f)
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at12, f);
! iem_append_out(x);
! }
!
! static void iem_append_symbol(t_iem_append *x, t_symbol *s)
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! iem_append_out(x);
! }
!
! static void iem_append_pointer(t_iem_append *x, t_gpointer *gp)
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! iem_append_out(x);
! }
!
! static void iem_append_list(t_iem_append *x, t_symbol *s, int ac, t_atom *av)
! {
! if((x->x_size2+ac+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (x->x_size2+ac+11)*sizeof(t_atom));
! x->x_size12 = x->x_size2+ac+11;
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! iem_append_atcopy(av, x->x_at12, ac);
! x->x_selector_sym1 = &s_list;
! iem_append_out(x);
! }
!
! static void iem_append_anything(t_iem_append *x, t_symbol *s, int ac, t_atom *av)
! {
! if((x->x_size2+ac+2) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (x->x_size2+ac+12)*sizeof(t_atom));
! x->x_size12 = x->x_size2+ac+12;
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! iem_append_atcopy(av, x->x_at12, ac);
! x->x_selector_sym1 = s;
! iem_append_out(x);
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_append_proxy_bang(t_iem_append_proxy *p)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_float(t_iem_append_proxy *p, t_float f)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_symbol(t_iem_append_proxy *p, t_symbol *s)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_pointer(t_iem_append_proxy *p, t_gpointer *gp)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_list(t_iem_append_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_append *x = p->p_owner;
!
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), (ac+10)*sizeof(t_atom));
! x->x_size2 = (ac+10);
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_selector_sym2 = &s_list;
! iem_append_atcopy(av, x->x_at2, ac);
! }
!
! static void iem_append_proxy_anything(t_iem_append_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_append *x = p->p_owner;
!
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), (ac+11)*sizeof(t_atom));
! x->x_size2 = ac+11;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_selector_sym2 = s;
! iem_append_atcopy(av, x->x_at2, ac);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_append_free(t_iem_append *x)
! {
! if(x->x_at12)
! freebytes(x->x_at12, x->x_size12 * sizeof(t_atom));
! if(x->x_at2)
! freebytes(x->x_at2, x->x_size2 * sizeof(t_atom));
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_append_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_append *x = (t_iem_append *)pd_new(iem_append_class);
! t_iem_append_proxy *p = (t_iem_append_proxy *)pd_new(iem_append_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! x->x_type1 = A_NULL;
! x->x_selector_sym1 = &s_list;
! x->x_size2 = 10;
! if(ac > 5)
! x->x_size2 = 2*ac;
! x->x_at2 = (t_atom *)getbytes(x->x_size2 * sizeof(t_atom));
! x->x_size12 = x->x_size2 + 10;
! x->x_at12 = (t_atom *)getbytes(x->x_size12 * sizeof(t_atom));
! x->x_ac1 = 0;
!
! if(ac <= 0)
! {
! x->x_type2 = A_NULL;
! x->x_ac2 = 0;
! x->x_selector_sym2 = &s_list;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! if(ac == 1)
! iem_append_proxy_float(p, atom_getfloat(av));
! else
! iem_append_proxy_list(p, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! t_symbol *xsym=atom_getsymbol(av);
!
! if(xsym == &s_symbol)
! {
! if(ac > 1)
! iem_append_proxy_symbol(p, atom_getsymbol(av+1));
! else
! iem_append_proxy_symbol(p, gensym(""));
! }
! else if(xsym == &s_float)
! {
! if(ac > 1)
! {
! if(IS_A_FLOAT(av, 1))
! iem_append_proxy_float(p, atom_getfloat(av+1));
! else
! iem_append_proxy_float(p, 0.0f);
! }
! else
! iem_append_proxy_float(p, 0.0f);
! }
! else if(xsym == &s_list)
! {
! iem_append_proxy_list(p, &s_list, ac-1, av+1);
! }
! else
! {
! iem_append_proxy_anything(p, xsym, ac-1, av+1);
! }
! }
! }
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_append_setup(void)
! {
! iem_append_class = class_new(gensym("iem_append"),
! (t_newmethod)iem_append_new, (t_method)iem_append_free,
! sizeof(t_iem_append), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_append_new, gensym("merge_any"), A_GIMME, 0);
! class_addbang(iem_append_class, (t_method)iem_append_bang);
! class_addpointer(iem_append_class, iem_append_pointer);
! class_addfloat(iem_append_class, (t_method)iem_append_float);
! class_addsymbol(iem_append_class, iem_append_symbol);
! class_addlist(iem_append_class, iem_append_list);
! class_addanything(iem_append_class, iem_append_anything);
! class_sethelpsymbol(iem_append_class, gensym("iemhelp/help-iem_append"));
!
! iem_append_proxy_class = class_new(gensym("_iem_append_proxy"),
! 0, 0, sizeof(t_iem_append_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addbang(iem_append_proxy_class, (t_method)iem_append_proxy_bang);
! class_addpointer(iem_append_proxy_class, iem_append_proxy_pointer);
! class_addfloat(iem_append_proxy_class, (t_method)iem_append_proxy_float);
! class_addsymbol(iem_append_proxy_class, iem_append_proxy_symbol);
! class_addlist(iem_append_proxy_class, iem_append_proxy_list);
! class_addanything(iem_append_proxy_class, iem_append_proxy_anything);
! }
--- 1,363 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
!
! /* ----------------------- iem_append -------------------------- */
! /* -- concatenates message from hot (left) inlet with message -- */
! /* ------ from cold (right) inlet and outputs it; initial ----- */
! /* -- arguments (appendix) are eqal to message of cold inlet --- */
!
!
! struct _iem_append_proxy;
!
! static t_class *iem_append_class;
! static t_class *iem_append_proxy_class;
!
! typedef struct _iem_append
! {
! t_object x_obj;
! struct _iem_append_proxy *x_proxy_inlet;
! int x_size12;
! int x_size2;
! int x_ac1;
! int x_ac2;
! t_atom *x_at12;
! t_atom *x_at2;
! t_symbol *x_selector_sym1;
! t_symbol *x_selector_sym2;
! t_atomtype x_type1;
! t_atomtype x_type2;
! } t_iem_append;
!
! typedef struct _iem_append_proxy
! {
! t_object p_obj;
! t_iem_append *p_owner;
! } t_iem_append_proxy;
!
! static void iem_append_atcopy(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_append_merge(t_iem_append *x, int off)
! {
! if((x->x_ac1+x->x_ac2+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), 2*(x->x_ac1+x->x_ac2+1)*sizeof(t_atom));
! x->x_size12 = 2*(x->x_ac1+x->x_ac2+1);
! }
! if(off)
! SETSYMBOL(x->x_at12 + x->x_ac1, x->x_selector_sym2);
! iem_append_atcopy(x->x_at2, x->x_at12 + x->x_ac1 + off, x->x_ac2);
! }
!
! static void iem_append_out(t_iem_append *x)
! {
! int off=0;
!
! if(x->x_type1 == A_GIMME)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_merge(x, off);
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_COMMA)
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_merge(x, off);
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym1, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! else if(x->x_type1 == A_NULL)/*depends on 2.part*/
! {
! iem_append_merge(x, 0);
! if(x->x_type2 == A_GIMME)
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_COMMA)
! outlet_anything(x->x_obj.ob_outlet, x->x_selector_sym2, x->x_ac2, x->x_at12);
! else if(x->x_type2 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type2 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type2 == A_NULL)
! outlet_bang(x->x_obj.ob_outlet);
! else if(x->x_type2 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! {
! if(x->x_type2 == A_COMMA)
! off = 1;
! else
! off = 0;
! iem_append_merge(x, off);
! if(x->x_type2 == A_NULL)
! {
! if(x->x_type1 == A_FLOAT)
! outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at12));
! else if(x->x_type1 == A_SYMBOL)
! outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at12));
! else if(x->x_type1 == A_POINTER)
! outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at12->a_w.w_gpointer);
! }
! else
! outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac1+x->x_ac2+off, x->x_at12);
! }
! }
!
! static void iem_append_bang(t_iem_append *x)
! {
! x->x_ac1 = 0;
! x->x_type1 = A_NULL;
! iem_append_out(x);
! }
!
! static void iem_append_float(t_iem_append *x, t_float f)
! {
! x->x_ac1 = 1;
! x->x_type1 = A_FLOAT;
! SETFLOAT(x->x_at12, f);
! iem_append_out(x);
! }
!
! static void iem_append_symbol(t_iem_append *x, t_symbol *s)
! {
! x->x_ac1 = 1;
! x->x_type1 = A_SYMBOL;
! SETSYMBOL(x->x_at12, s);
! iem_append_out(x);
! }
!
! static void iem_append_pointer(t_iem_append *x, t_gpointer *gp)
! {
! x->x_ac1 = 1;
! x->x_type1 = A_POINTER;
! SETPOINTER(x->x_at12, gp);
! iem_append_out(x);
! }
!
! static void iem_append_list(t_iem_append *x, t_symbol *s, int ac, t_atom *av)
! {
! if((x->x_size2+ac+1) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (x->x_size2+ac+11)*sizeof(t_atom));
! x->x_size12 = x->x_size2+ac+11;
! }
! x->x_ac1 = ac;
! x->x_type1 = A_GIMME;
! iem_append_atcopy(av, x->x_at12, ac);
! x->x_selector_sym1 = &s_list;
! iem_append_out(x);
! }
!
! static void iem_append_anything(t_iem_append *x, t_symbol *s, int ac, t_atom *av)
! {
! if((x->x_size2+ac+2) > x->x_size12)
! {
! x->x_at12 = (t_atom *)resizebytes(x->x_at12, x->x_size12*sizeof(t_atom), (x->x_size2+ac+12)*sizeof(t_atom));
! x->x_size12 = x->x_size2+ac+12;
! }
! x->x_ac1 = ac;
! x->x_type1 = A_COMMA;
! iem_append_atcopy(av, x->x_at12, ac);
! x->x_selector_sym1 = s;
! iem_append_out(x);
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_append_proxy_bang(t_iem_append_proxy *p)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 0;
! x->x_type2 = A_NULL;
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_float(t_iem_append_proxy *p, t_float f)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 1;
! x->x_type2 = A_FLOAT;
! SETFLOAT(x->x_at2, f);
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_symbol(t_iem_append_proxy *p, t_symbol *s)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 1;
! x->x_type2 = A_SYMBOL;
! SETSYMBOL(x->x_at2, s);
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_pointer(t_iem_append_proxy *p, t_gpointer *gp)
! {
! t_iem_append *x = p->p_owner;
!
! x->x_ac2 = 1;
! x->x_type2 = A_POINTER;
! SETPOINTER(x->x_at2, gp);
! x->x_selector_sym2 = &s_list;
! }
!
! static void iem_append_proxy_list(t_iem_append_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_append *x = p->p_owner;
!
! if(ac > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), (ac+10)*sizeof(t_atom));
! x->x_size2 = (ac+10);
! }
! x->x_ac2 = ac;
! x->x_type2 = A_GIMME;
! x->x_selector_sym2 = &s_list;
! iem_append_atcopy(av, x->x_at2, ac);
! }
!
! static void iem_append_proxy_anything(t_iem_append_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_append *x = p->p_owner;
!
! if((ac+1) > x->x_size2)
! {
! x->x_at2 = (t_atom *)resizebytes(x->x_at2, x->x_size2*sizeof(t_atom), (ac+11)*sizeof(t_atom));
! x->x_size2 = ac+11;
! }
! x->x_ac2 = ac;
! x->x_type2 = A_COMMA;
! x->x_selector_sym2 = s;
! iem_append_atcopy(av, x->x_at2, ac);
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_append_free(t_iem_append *x)
! {
! if(x->x_at12)
! freebytes(x->x_at12, x->x_size12 * sizeof(t_atom));
! if(x->x_at2)
! freebytes(x->x_at2, x->x_size2 * sizeof(t_atom));
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_append_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_append *x = (t_iem_append *)pd_new(iem_append_class);
! t_iem_append_proxy *p = (t_iem_append_proxy *)pd_new(iem_append_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! x->x_type1 = A_NULL;
! x->x_selector_sym1 = &s_list;
! x->x_size2 = 10;
! if(ac > 5)
! x->x_size2 = 2*ac;
! x->x_at2 = (t_atom *)getbytes(x->x_size2 * sizeof(t_atom));
! x->x_size12 = x->x_size2 + 10;
! x->x_at12 = (t_atom *)getbytes(x->x_size12 * sizeof(t_atom));
! x->x_ac1 = 0;
!
! if(ac <= 0)
! {
! x->x_type2 = A_NULL;
! x->x_ac2 = 0;
! x->x_selector_sym2 = &s_list;
! }
! else
! {
! if(IS_A_FLOAT(av, 0))
! {
! if(ac == 1)
! iem_append_proxy_float(p, atom_getfloat(av));
! else
! iem_append_proxy_list(p, &s_list, ac, av);
! }
! else if(IS_A_SYMBOL(av, 0))
! {
! t_symbol *xsym=atom_getsymbol(av);
!
! if(xsym == &s_symbol)
! {
! if(ac > 1)
! iem_append_proxy_symbol(p, atom_getsymbol(av+1));
! else
! iem_append_proxy_symbol(p, gensym(""));
! }
! else if(xsym == &s_float)
! {
! if(ac > 1)
! {
! if(IS_A_FLOAT(av, 1))
! iem_append_proxy_float(p, atom_getfloat(av+1));
! else
! iem_append_proxy_float(p, 0.0f);
! }
! else
! iem_append_proxy_float(p, 0.0f);
! }
! else if(xsym == &s_list)
! {
! iem_append_proxy_list(p, &s_list, ac-1, av+1);
! }
! else
! {
! iem_append_proxy_anything(p, xsym, ac-1, av+1);
! }
! }
! }
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_append_setup(void)
! {
! iem_append_class = class_new(gensym("iem_append"),
! (t_newmethod)iem_append_new, (t_method)iem_append_free,
! sizeof(t_iem_append), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_append_new, gensym("merge_any"), A_GIMME, 0);
! class_addbang(iem_append_class, (t_method)iem_append_bang);
! class_addpointer(iem_append_class, iem_append_pointer);
! class_addfloat(iem_append_class, (t_method)iem_append_float);
! class_addsymbol(iem_append_class, iem_append_symbol);
! class_addlist(iem_append_class, iem_append_list);
! class_addanything(iem_append_class, iem_append_anything);
! class_sethelpsymbol(iem_append_class, gensym("iemhelp/help-iem_append"));
!
! iem_append_proxy_class = class_new(gensym("_iem_append_proxy"),
! 0, 0, sizeof(t_iem_append_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addbang(iem_append_proxy_class, (t_method)iem_append_proxy_bang);
! class_addpointer(iem_append_proxy_class, iem_append_proxy_pointer);
! class_addfloat(iem_append_proxy_class, (t_method)iem_append_proxy_float);
! class_addsymbol(iem_append_proxy_class, iem_append_proxy_symbol);
! class_addlist(iem_append_proxy_class, iem_append_proxy_list);
! class_addanything(iem_append_proxy_class, iem_append_proxy_anything);
! }
Index: iem_send.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_send.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iem_send.c 2 Jun 2005 18:26:48 -0000 1.1
--- iem_send.c 8 Jul 2005 02:04:25 -0000 1.2
***************
*** 1,162 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------- iem_send ------------------------------ */
! /* ------- like millers s, but with setable send label -------- */
!
! struct _iem_send_proxy;
!
! static t_class *iem_send_class;
! static t_class *iem_send_proxy_class;
!
! typedef struct _iem_send
! {
! t_object x_obj;
! struct _iem_send_proxy *x_proxy_inlet;
! t_symbol *x_send_label_sym;
! } t_iem_send;
!
! typedef struct _iem_send_proxy
! {
! t_object p_obj;
! t_iem_send *p_owner;
! } t_iem_send_proxy;
!
! static void iem_send_bang(t_iem_send *x)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_bang(x->x_send_label_sym->s_thing);
! }
!
! static void iem_send_float(t_iem_send *x, t_float f)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_float(x->x_send_label_sym->s_thing, f);
! }
!
! static void iem_send_symbol(t_iem_send *x, t_symbol *s)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_symbol(x->x_send_label_sym->s_thing, s);
! }
!
! static void iem_send_pointer(t_iem_send *x, t_gpointer *gp)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_pointer(x->x_send_label_sym->s_thing, gp);
! }
!
! static void iem_send_list(t_iem_send *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_list(x->x_send_label_sym->s_thing, s, argc, argv);
! }
!
! static void iem_send_anything(t_iem_send *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! typedmess(x->x_send_label_sym->s_thing, s, argc, argv);
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_send_proxy_clear(t_iem_send_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_send *x = p->p_owner;
!
! x->x_send_label_sym = 0;
! }
!
! static void iem_send_proxy_set(t_iem_send_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_send *x = p->p_owner;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! x->x_send_label_sym = atom_getsymbol(av);
! else if(IS_A_FLOAT(av,0))
! {
! char str[32];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_send_label_sym = gensym(str);
! }
! }
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_send_free(t_iem_send *x)
! {
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_send_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_send *x = (t_iem_send *)pd_new(iem_send_class);
! t_iem_send_proxy *p = (t_iem_send_proxy *)pd_new(iem_send_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_send_label_sym = atom_getsymbol(av);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[32];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_send_label_sym = gensym(str);
! }
! else
! x->x_send_label_sym = 0;
! }
! else
! x->x_send_label_sym = 0;
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! return (x);
! }
!
! void iem_send_setup(void)
! {
! iem_send_class = class_new(gensym("iem_send"), (t_newmethod)iem_send_new, (t_method)iem_send_free,
! sizeof(t_iem_send), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_send_new, gensym("iem_s"), A_GIMME, 0);
! class_addbang(iem_send_class, iem_send_bang);
! class_addfloat(iem_send_class, iem_send_float);
! class_addsymbol(iem_send_class, iem_send_symbol);
! class_addpointer(iem_send_class, iem_send_pointer);
! class_addlist(iem_send_class, iem_send_list);
! class_addanything(iem_send_class, iem_send_anything);
! class_sethelpsymbol(iem_send_class, gensym("iemhelp/help-iem_send"));
!
! iem_send_proxy_class = class_new(gensym("_iem_send_proxy"),
! 0, 0, sizeof(t_iem_send_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addmethod(iem_send_proxy_class, (t_method)iem_send_proxy_clear, gensym("clear"), A_GIMME, 0);
! class_addmethod(iem_send_proxy_class, (t_method)iem_send_proxy_set, gensym("set"), A_GIMME, 0);
! }
--- 1,162 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
!
! /* -------------------- iem_send ------------------------------ */
! /* ------- like millers s, but with setable send label -------- */
!
! struct _iem_send_proxy;
!
! static t_class *iem_send_class;
! static t_class *iem_send_proxy_class;
!
! typedef struct _iem_send
! {
! t_object x_obj;
! struct _iem_send_proxy *x_proxy_inlet;
! t_symbol *x_send_label_sym;
! } t_iem_send;
!
! typedef struct _iem_send_proxy
! {
! t_object p_obj;
! t_iem_send *p_owner;
! } t_iem_send_proxy;
!
! static void iem_send_bang(t_iem_send *x)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_bang(x->x_send_label_sym->s_thing);
! }
!
! static void iem_send_float(t_iem_send *x, t_float f)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_float(x->x_send_label_sym->s_thing, f);
! }
!
! static void iem_send_symbol(t_iem_send *x, t_symbol *s)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_symbol(x->x_send_label_sym->s_thing, s);
! }
!
! static void iem_send_pointer(t_iem_send *x, t_gpointer *gp)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_pointer(x->x_send_label_sym->s_thing, gp);
! }
!
! static void iem_send_list(t_iem_send *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! pd_list(x->x_send_label_sym->s_thing, s, argc, argv);
! }
!
! static void iem_send_anything(t_iem_send *x, t_symbol *s, int argc, t_atom *argv)
! {
! if(x->x_send_label_sym)
! if(x->x_send_label_sym->s_thing)
! typedmess(x->x_send_label_sym->s_thing, s, argc, argv);
! }
!
! /* begin of proxy methods (anything inlets) */
!
! static void iem_send_proxy_clear(t_iem_send_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_send *x = p->p_owner;
!
! x->x_send_label_sym = 0;
! }
!
! static void iem_send_proxy_set(t_iem_send_proxy *p, t_symbol *s, int ac, t_atom *av)
! {
! t_iem_send *x = p->p_owner;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! x->x_send_label_sym = atom_getsymbol(av);
! else if(IS_A_FLOAT(av,0))
! {
! char str[32];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_send_label_sym = gensym(str);
! }
! }
! }
!
! /* end of proxy methods (anything inlets) */
!
! static void iem_send_free(t_iem_send *x)
! {
! if(x->x_proxy_inlet)
! pd_free((t_pd *)x->x_proxy_inlet);
! }
!
! static void *iem_send_new(t_symbol *s, int ac, t_atom *av)
! {
! t_iem_send *x = (t_iem_send *)pd_new(iem_send_class);
! t_iem_send_proxy *p = (t_iem_send_proxy *)pd_new(iem_send_proxy_class);
!
! x->x_proxy_inlet = p;
! p->p_owner = x;
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_send_label_sym = atom_getsymbol(av);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[32];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_send_label_sym = gensym(str);
! }
! else
! x->x_send_label_sym = 0;
! }
! else
! x->x_send_label_sym = 0;
! inlet_new((t_object *)x, (t_pd *)p, 0, 0);
! return (x);
! }
!
! void iem_send_setup(void)
! {
! iem_send_class = class_new(gensym("iem_send"), (t_newmethod)iem_send_new, (t_method)iem_send_free,
! sizeof(t_iem_send), 0, A_GIMME, 0);
! class_addcreator((t_newmethod)iem_send_new, gensym("iem_s"), A_GIMME, 0);
! class_addbang(iem_send_class, iem_send_bang);
! class_addfloat(iem_send_class, iem_send_float);
! class_addsymbol(iem_send_class, iem_send_symbol);
! class_addpointer(iem_send_class, iem_send_pointer);
! class_addlist(iem_send_class, iem_send_list);
! class_addanything(iem_send_class, iem_send_anything);
! class_sethelpsymbol(iem_send_class, gensym("iemhelp/help-iem_send"));
!
! iem_send_proxy_class = class_new(gensym("_iem_send_proxy"),
! 0, 0, sizeof(t_iem_send_proxy), CLASS_PD | CLASS_NOINLET, 0);
! class_addmethod(iem_send_proxy_class, (t_method)iem_send_proxy_clear, gensym("clear"), A_GIMME, 0);
! class_addmethod(iem_send_proxy_class, (t_method)iem_send_proxy_set, gensym("set"), A_GIMME, 0);
! }
Index: post_netreceive.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/post_netreceive.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** post_netreceive.c 2 Jun 2005 18:25:00 -0000 1.2
--- post_netreceive.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,241 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ post_netreceive ---------------------------- */
! static t_class *post_netreceive_class;
!
! typedef struct _post_netreceive
! {
! t_object x_obj;
! int x_max_send_entries;
! int x_min_send_entries;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol **x_plus_entries;
! t_symbol *x_set;
! t_atom x_at[2];
! t_atom *x_atbuf;
! t_symbol *x_send;
! t_symbol *x_setall;
! } t_post_netreceive;
!
! static void post_netreceive_list(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
! t_symbol *sender=0;
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! if(x->x_snd_able[identifier_index] == 1)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! if(ac == 2)
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! else if(x->x_snd_able[identifier_index] == 2)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! typedmess(sender->s_thing, x->x_plus_entries[identifier_index], ac-1, av+1);
! }
! }
! if(IS_A_FLOAT(av,1))
! SETFLOAT(x->x_atbuf+identifier_index+1, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av,1))
! SETSYMBOL(x->x_atbuf+identifier_index+1, atom_getsymbolarg(1, ac, av));
! }
! }
!
! /*static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *snd, t_float findex)
! {
! int index = (int)findex;
!
! if((index >= 0) && (index < x->x_max_send_entries))
! {
! x->x_send_entries[index] = snd;
! x->x_snd_able[index] = 1;
! }
! }*/
!
! static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac == 2)
! {
! int identifier_index = (int)atom_getintarg(1, ac, av);
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! else if(ac >= 3)
! {
! int identifier_index = (int)atom_getintarg(2, ac, av);
!
! if((identifier_index >= 0) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 2;
! x->x_plus_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! }
! }
! }
!
! static void post_netreceive_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname=0;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i] == 1)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! pd_float(sendname->s_thing, atom_getfloatarg(i, ac, av));
! }
! }
! else if(x->x_snd_able[i] == 2)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_plus_entries[i], 1, av+i);
! }
! }
! if(IS_A_FLOAT(av,i))
! SETFLOAT(x->x_atbuf+i+1, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av,i))
! SETSYMBOL(x->x_atbuf+i+1, atom_getsymbolarg(i, ac, av));
! }
! }
!
! static void post_netreceive_set_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void post_netreceive_clear(t_post_netreceive *x)
! {
! int i, max = x->x_max_send_entries;
!
! for(i=0; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! x->x_snd_able[i] = 0;
! }
! }
! }
!
! static void post_netreceive_fetch_all_parameters(t_post_netreceive *x, t_float nr_sended_para)
! {
! int nrsp=(int)nr_sended_para;
! t_atom *ap=x->x_atbuf+x->x_min_send_entries;
!
! if(nrsp <= 0)
! nrsp = 1;
! if(nrsp > (x->x_max_send_entries - x->x_min_send_entries))
! nrsp = (x->x_max_send_entries - x->x_min_send_entries);
! outlet_anything(x->x_obj.ob_outlet, x->x_send, nrsp+1, x->x_atbuf);
! }
!
! static void post_netreceive_free(t_post_netreceive *x)
! {
! freebytes(x->x_snd_able, x->x_max_send_entries * sizeof(char));
! freebytes(x->x_send_entries, x->x_max_send_entries * sizeof(t_symbol *));
! freebytes(x->x_atbuf, (x->x_max_send_entries+2) * sizeof(t_atom));
! freebytes(x->x_plus_entries, x->x_max_send_entries * sizeof(t_symbol *));
! }
!
! static void *post_netreceive_new(t_float fmin, t_float fmax)
! {
! t_post_netreceive *x = (t_post_netreceive *)pd_new(post_netreceive_class);
! int i, min = (int)fmin, max = (int)fmax;
! t_atom *ap;
!
! if(min < 0)
! min = 0;
! if(max <= 0)
! max = 80;
! x->x_min_send_entries = min;
! x->x_max_send_entries = max;
! x->x_atbuf = (t_atom *)getbytes((x->x_max_send_entries+2) * sizeof(t_atom));
! x->x_snd_able = (char *)getbytes(x->x_max_send_entries * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_plus_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_set = gensym("set");
! x->x_setall = gensym("set_all_parameters");
! x->x_send = gensym("send");
! ap = x->x_atbuf;
! SETSYMBOL(ap, x->x_setall);
! ap++;
! for(i=1; i<=max; i++)
! {
! SETFLOAT(ap, 0.0);
! ap++;
! }
! for(i=0; i<max; i++)
! {
! x->x_snd_able[i] = 0;
! x->x_plus_entries[i] = x->x_set;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void post_netreceive_setup(void)
! {
! post_netreceive_class = class_new(gensym("post_netreceive"), (t_newmethod)post_netreceive_new,
! (t_method)post_netreceive_free, sizeof(t_post_netreceive), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addlist(post_netreceive_class, post_netreceive_list);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_item_name, gensym("set_item_name"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_all_parameters, gensym("all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_all_parameters, gensym("set_all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_fetch_all_parameters, gensym("fetch_all_parameters"), A_DEFFLOAT, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_clear, gensym("clear"), 0);
! class_sethelpsymbol(post_netreceive_class, gensym("iemhelp/help-post_netreceive"));
! }
--- 1,241 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ post_netreceive ---------------------------- */
! static t_class *post_netreceive_class;
!
! typedef struct _post_netreceive
! {
! t_object x_obj;
! int x_max_send_entries;
! int x_min_send_entries;
! char *x_snd_able;
! t_symbol **x_send_entries;
! t_symbol **x_plus_entries;
! t_symbol *x_set;
! t_atom x_at[2];
! t_atom *x_atbuf;
! t_symbol *x_send;
! t_symbol *x_setall;
! } t_post_netreceive;
!
! static void post_netreceive_list(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int identifier_index = (int)atom_getintarg(0, ac, av);
! t_symbol *sender=0;
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! if(x->x_snd_able[identifier_index] == 1)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! if(ac == 2)
! pd_float(sender->s_thing, atom_getfloatarg(1, ac, av));
! else
! pd_list(sender->s_thing, &s_list, ac-1, av+1);
! }
! }
! else if(x->x_snd_able[identifier_index] == 2)
! {
! sender = x->x_send_entries[identifier_index];
! if(sender->s_thing)
! {
! typedmess(sender->s_thing, x->x_plus_entries[identifier_index], ac-1, av+1);
! }
! }
! if(IS_A_FLOAT(av,1))
! SETFLOAT(x->x_atbuf+identifier_index+1, atom_getfloatarg(1, ac, av));
! else if(IS_A_SYMBOL(av,1))
! SETSYMBOL(x->x_atbuf+identifier_index+1, atom_getsymbolarg(1, ac, av));
! }
! }
!
! /*static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *snd, t_float findex)
! {
! int index = (int)findex;
!
! if((index >= 0) && (index < x->x_max_send_entries))
! {
! x->x_send_entries[index] = snd;
! x->x_snd_able[index] = 1;
! }
! }*/
!
! static void post_netreceive_set_item_name(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! if(ac == 2)
! {
! int identifier_index = (int)atom_getintarg(1, ac, av);
!
! if((identifier_index >= x->x_min_send_entries) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! x->x_snd_able[identifier_index] = 1;
! }
! }
! else if(ac >= 3)
! {
! int identifier_index = (int)atom_getintarg(2, ac, av);
!
! if((identifier_index >= 0) && (identifier_index < x->x_max_send_entries))
! {
! x->x_send_entries[identifier_index] = atom_getsymbolarg(1, ac, av);
! x->x_snd_able[identifier_index] = 2;
! x->x_plus_entries[identifier_index] = atom_getsymbolarg(0, ac, av);
! }
! }
! }
!
! static void post_netreceive_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname=0;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i] == 1)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! pd_float(sendname->s_thing, atom_getfloatarg(i, ac, av));
! }
! }
! else if(x->x_snd_able[i] == 2)
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_plus_entries[i], 1, av+i);
! }
! }
! if(IS_A_FLOAT(av,i))
! SETFLOAT(x->x_atbuf+i+1, atom_getfloatarg(i, ac, av));
! else if(IS_A_SYMBOL(av,i))
! SETSYMBOL(x->x_atbuf+i+1, atom_getsymbolarg(i, ac, av));
! }
! }
!
! static void post_netreceive_set_all_parameters(t_post_netreceive *x, t_symbol *s, int ac, t_atom *av)
! {
! int i, min = x->x_min_send_entries, max = x->x_max_send_entries;
! t_symbol *sendname;
!
! if(min > ac)
! min = ac;
! if(max > ac)
! max = ac;
! for(i=min; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! sendname = x->x_send_entries[i];
! if(sendname->s_thing)
! {
! typedmess(sendname->s_thing, x->x_set, 1, av+i);
! }
! }
! }
! }
!
! static void post_netreceive_clear(t_post_netreceive *x)
! {
! int i, max = x->x_max_send_entries;
!
! for(i=0; i<max; i++)
! {
! if(x->x_snd_able[i])
! {
! x->x_snd_able[i] = 0;
! }
! }
! }
!
! static void post_netreceive_fetch_all_parameters(t_post_netreceive *x, t_float nr_sended_para)
! {
! int nrsp=(int)nr_sended_para;
! t_atom *ap=x->x_atbuf+x->x_min_send_entries;
!
! if(nrsp <= 0)
! nrsp = 1;
! if(nrsp > (x->x_max_send_entries - x->x_min_send_entries))
! nrsp = (x->x_max_send_entries - x->x_min_send_entries);
! outlet_anything(x->x_obj.ob_outlet, x->x_send, nrsp+1, x->x_atbuf);
! }
!
! static void post_netreceive_free(t_post_netreceive *x)
! {
! freebytes(x->x_snd_able, x->x_max_send_entries * sizeof(char));
! freebytes(x->x_send_entries, x->x_max_send_entries * sizeof(t_symbol *));
! freebytes(x->x_atbuf, (x->x_max_send_entries+2) * sizeof(t_atom));
! freebytes(x->x_plus_entries, x->x_max_send_entries * sizeof(t_symbol *));
! }
!
! static void *post_netreceive_new(t_float fmin, t_float fmax)
! {
! t_post_netreceive *x = (t_post_netreceive *)pd_new(post_netreceive_class);
! int i, min = (int)fmin, max = (int)fmax;
! t_atom *ap;
!
! if(min < 0)
! min = 0;
! if(max <= 0)
! max = 80;
! x->x_min_send_entries = min;
! x->x_max_send_entries = max;
! x->x_atbuf = (t_atom *)getbytes((x->x_max_send_entries+2) * sizeof(t_atom));
! x->x_snd_able = (char *)getbytes(x->x_max_send_entries * sizeof(char));
! x->x_send_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_plus_entries = (t_symbol **)getbytes(x->x_max_send_entries * sizeof(t_symbol *));
! x->x_set = gensym("set");
! x->x_setall = gensym("set_all_parameters");
! x->x_send = gensym("send");
! ap = x->x_atbuf;
! SETSYMBOL(ap, x->x_setall);
! ap++;
! for(i=1; i<=max; i++)
! {
! SETFLOAT(ap, 0.0);
! ap++;
! }
! for(i=0; i<max; i++)
! {
! x->x_snd_able[i] = 0;
! x->x_plus_entries[i] = x->x_set;
! }
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void post_netreceive_setup(void)
! {
! post_netreceive_class = class_new(gensym("post_netreceive"), (t_newmethod)post_netreceive_new,
! (t_method)post_netreceive_free, sizeof(t_post_netreceive), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addlist(post_netreceive_class, post_netreceive_list);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_item_name, gensym("set_item_name"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_all_parameters, gensym("all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_set_all_parameters, gensym("set_all_parameters"), A_GIMME, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_fetch_all_parameters, gensym("fetch_all_parameters"), A_DEFFLOAT, 0);
! class_addmethod(post_netreceive_class, (t_method)post_netreceive_clear, gensym("clear"), 0);
! class_sethelpsymbol(post_netreceive_class, gensym("iemhelp/help-post_netreceive"));
! }
Index: iem_receive_kernel.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_receive_kernel.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_receive_kernel.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_receive_kernel.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,155 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_receive_kernel ---------------------------- */
!
! static t_class *iem_receive_kernel_class;
!
! typedef struct _iem_receive_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_receive_kernel;
!
! void iem_receive_kernel_copy_at(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_receive_kernel_set_name(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! }
!
! static void iem_receive_kernel_clear(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! x->x_sym = 0;
! }
!
! static void iem_receive_kernel_bang(t_iem_receive_kernel *x)
! {
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void iem_receive_kernel_float(t_iem_receive_kernel *x, t_float f)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void iem_receive_kernel_symbol(t_iem_receive_kernel *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void iem_receive_kernel_pointer(t_iem_receive_kernel *x, t_gpointer *gp)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void iem_receive_kernel_list(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_list(x->x_obj.ob_outlet, &s_list, argc, argv);
! }
!
! static void iem_receive_kernel_anything(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void iem_receive_kernel_free(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! }
!
! static void *iem_receive_kernel_new(void)
! {
! t_iem_receive_kernel *x = (t_iem_receive_kernel *)pd_new(iem_receive_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_receive_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_receive_kernel_class = class_new(gensym("iem_receive_kernel"), (t_newmethod)iem_receive_kernel_new,
! (t_method)iem_receive_kernel_free, sizeof(t_iem_receive_kernel), 0, 0);
! class_addbang(iem_receive_kernel_class, iem_receive_kernel_bang);
! class_addfloat(iem_receive_kernel_class, iem_receive_kernel_float);
! class_addsymbol(iem_receive_kernel_class, iem_receive_kernel_symbol);
! class_addpointer(iem_receive_kernel_class, iem_receive_kernel_pointer);
! class_addlist(iem_receive_kernel_class, iem_receive_kernel_list);
! class_addanything(iem_receive_kernel_class, iem_receive_kernel_anything);
! // class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set, gensym("set"), A_GIMME, 0);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_receive_kernel_class, gensym("iemhelp/help-iem_receive"));
! }
--- 1,155 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2004 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "g_canvas.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! EXTERN void canvas_getargs(int *argcp, t_atom **argvp);
!
! /* ------------------------ iem_receive_kernel ---------------------------- */
!
! static t_class *iem_receive_kernel_class;
!
! typedef struct _iem_receive_kernel
! {
! t_object x_obj;
! t_symbol *x_sym;
! } t_iem_receive_kernel;
!
! void iem_receive_kernel_copy_at(t_atom *src, t_atom *dst, int n)
! {
! while(n--)
! *dst++ = *src++;
! }
!
! static void iem_receive_kernel_set_name(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! if((argc > 0)&&((IS_A_SYMBOL(argv,0))||(IS_A_FLOAT(argv,0))))
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! if(IS_A_SYMBOL(argv,0))
! x->x_sym = atom_getsymbol(argv);
! else if(IS_A_FLOAT(argv,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(argv));
! x->x_sym = gensym(str);
! }
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! }
!
! static void iem_receive_kernel_clear(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! x->x_sym = 0;
! }
!
! static void iem_receive_kernel_bang(t_iem_receive_kernel *x)
! {
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void iem_receive_kernel_float(t_iem_receive_kernel *x, t_float f)
! {
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void iem_receive_kernel_symbol(t_iem_receive_kernel *x, t_symbol *s)
! {
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void iem_receive_kernel_pointer(t_iem_receive_kernel *x, t_gpointer *gp)
! {
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void iem_receive_kernel_list(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_list(x->x_obj.ob_outlet, &s_list, argc, argv);
! }
!
! static void iem_receive_kernel_anything(t_iem_receive_kernel *x, t_symbol *s, int argc, t_atom *argv)
! {
! outlet_anything(x->x_obj.ob_outlet, s, argc, argv);
! }
!
! static void iem_receive_kernel_free(t_iem_receive_kernel *x)
! {
! if(x->x_sym)
! pd_unbind(&x->x_obj.ob_pd, x->x_sym);
! }
!
! static void *iem_receive_kernel_new(void)
! {
! t_iem_receive_kernel *x = (t_iem_receive_kernel *)pd_new(iem_receive_kernel_class);
! t_glist *glist = (t_glist *)canvas_getcurrent();
! t_canvas *canvas=glist_getcanvas(glist);
! int ac=0;
! t_atom *av;
!
! canvas_setcurrent(canvas);
! canvas_getargs(&ac, &av);
! canvas_unsetcurrent(canvas);
!
! if(ac > 0)
! {
! if(IS_A_SYMBOL(av,0))
! {
! x->x_sym = atom_getsymbol(av);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else if(IS_A_FLOAT(av,0))
! {
! char str[100];
!
! sprintf(str, "%g", atom_getfloat(av));
! x->x_sym = gensym(str);
! pd_bind(&x->x_obj.ob_pd, x->x_sym);
! }
! else
! x->x_sym = 0;
! }
! else
! x->x_sym = 0;
!
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void iem_receive_kernel_setup(void)
! {
! char str[2];
!
! str[1] = 0;
! iem_receive_kernel_class = class_new(gensym("iem_receive_kernel"), (t_newmethod)iem_receive_kernel_new,
! (t_method)iem_receive_kernel_free, sizeof(t_iem_receive_kernel), 0, 0);
! class_addbang(iem_receive_kernel_class, iem_receive_kernel_bang);
! class_addfloat(iem_receive_kernel_class, iem_receive_kernel_float);
! class_addsymbol(iem_receive_kernel_class, iem_receive_kernel_symbol);
! class_addpointer(iem_receive_kernel_class, iem_receive_kernel_pointer);
! class_addlist(iem_receive_kernel_class, iem_receive_kernel_list);
! class_addanything(iem_receive_kernel_class, iem_receive_kernel_anything);
! // class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set, gensym("set"), A_GIMME, 0);
! str[0] = 1;/*inlet-sym = "\0x01"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_set_name, gensym(str), A_GIMME, 0);
! str[0] = 2;/*inlet-sym = "\0x02"*/
! class_addmethod(iem_receive_kernel_class, (t_method)iem_receive_kernel_clear, gensym(str), 0);
! class_sethelpsymbol(iem_receive_kernel_class, gensym("iemhelp/help-iem_receive"));
! }
Index: iem_pbank_csv.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/iem_pbank_csv.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_pbank_csv.c 2 Jun 2005 18:25:00 -0000 1.2
--- iem_pbank_csv.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,802 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
[...1575 lines suppressed...]
! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
! x->x_canvas = canvas_getcurrent();
! return (x);
! }
!
! /* ---------------- global setup function -------------------- */
!
! void iem_pbank_csv_setup(void )
! {
! iem_pbank_csv_class = class_new(gensym("iem_pbank_csv"), (t_newmethod)iem_pbank_csv_new,
! (t_method)iem_pbank_csv_free, sizeof(t_iem_pbank_csv), 0, A_GIMME, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_recall, gensym("recall"), A_GIMME, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_store, gensym("store"), A_GIMME, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_read, gensym("read"), A_SYMBOL, A_DEFSYM, 0);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_write, gensym("write"), A_SYMBOL, A_DEFSYM, 0);
! class_addlist(iem_pbank_csv_class, iem_pbank_csv_list);
! class_addbang(iem_pbank_csv_class, iem_pbank_csv_bang);
! class_addmethod(iem_pbank_csv_class, (t_method)iem_pbank_csv_ft1, gensym("ft1"), A_FLOAT, 0);
! class_sethelpsymbol(iem_pbank_csv_class, gensym("iemhelp/help-iem_pbank_csv"));
! }
Index: pre_inlet.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/pre_inlet.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** pre_inlet.c 2 Jun 2005 18:25:00 -0000 1.2
--- pre_inlet.c 8 Jul 2005 02:04:25 -0000 1.3
***************
*** 1,99 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ pre_inlet ---------------------------- */
! /* --------- any incoming message produce additionally a --------- */
! /* ----- special anything message at output, followed by the ----- */
! /* --- original message. this pre message contains a selector ---- */
! /* ---- symbol made of one character of the m-th entry of the ---- */
! /* --- ASCII-table, followed by one float atom list entry with --- */
! /* ---- with value n. "m" and "n" are the 2 initial arguments ---- */
!
! static t_class *pre_inlet_class;
!
! typedef struct _pre_inlet
! {
! t_object x_obj;
! t_atom x_at;
! t_symbol *x_sym;
! } t_pre_inlet;
!
! static void pre_inlet_bang(t_pre_inlet *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void pre_inlet_float(t_pre_inlet *x, t_float f)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void pre_inlet_symbol(t_pre_inlet *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void pre_inlet_pointer(t_pre_inlet *x, t_gpointer *gp)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void pre_inlet_list(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_list(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_anything(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_free(t_pre_inlet *x)
! {
! }
!
! static void *pre_inlet_new(t_floatarg fsym, t_floatarg finlet)
! {
! t_pre_inlet *x = (t_pre_inlet *)pd_new(pre_inlet_class);
! char str[2];
!
! SETFLOAT(&x->x_at, finlet);
! str[0] = (char)((int)(fsym)&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void pre_inlet_setup(void)
! {
! pre_inlet_class = class_new(gensym("pre_inlet"), (t_newmethod)pre_inlet_new,
! (t_method)pre_inlet_free, sizeof(t_pre_inlet), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(pre_inlet_class, (t_method)pre_inlet_bang);
! class_addfloat(pre_inlet_class, (t_method)pre_inlet_float);
! class_addsymbol(pre_inlet_class, pre_inlet_symbol);
! class_addpointer(pre_inlet_class, pre_inlet_pointer);
! class_addlist(pre_inlet_class, pre_inlet_list);
! class_addanything(pre_inlet_class, pre_inlet_anything);
! class_sethelpsymbol(pre_inlet_class, gensym("iemhelp/help-pre_inlet"));
! }
--- 1,99 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
!
! iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
!
! #ifdef NT
! #pragma warning( disable : 4244 )
! #pragma warning( disable : 4305 )
! #endif
!
! #include "m_pd.h"
! #include "iemlib.h"
! #include <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
!
! /* ------------------------ pre_inlet ---------------------------- */
! /* --------- any incoming message produce additionally a --------- */
! /* ----- special anything message at output, followed by the ----- */
! /* --- original message. this pre message contains a selector ---- */
! /* ---- symbol made of one character of the m-th entry of the ---- */
! /* --- ASCII-table, followed by one float atom list entry with --- */
! /* ---- with value n. "m" and "n" are the 2 initial arguments ---- */
!
! static t_class *pre_inlet_class;
!
! typedef struct _pre_inlet
! {
! t_object x_obj;
! t_atom x_at;
! t_symbol *x_sym;
! } t_pre_inlet;
!
! static void pre_inlet_bang(t_pre_inlet *x)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_bang(x->x_obj.ob_outlet);
! }
!
! static void pre_inlet_float(t_pre_inlet *x, t_float f)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_float(x->x_obj.ob_outlet, f);
! }
!
! static void pre_inlet_symbol(t_pre_inlet *x, t_symbol *s)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_symbol(x->x_obj.ob_outlet, s);
! }
!
! static void pre_inlet_pointer(t_pre_inlet *x, t_gpointer *gp)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_pointer(x->x_obj.ob_outlet, gp);
! }
!
! static void pre_inlet_list(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_list(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_anything(t_pre_inlet *x, t_symbol *s, int ac, t_atom *av)
! {
! outlet_anything(x->x_obj.ob_outlet, x->x_sym, 1, &x->x_at);
! outlet_anything(x->x_obj.ob_outlet, s, ac, av);
! }
!
! static void pre_inlet_free(t_pre_inlet *x)
! {
! }
!
! static void *pre_inlet_new(t_floatarg fsym, t_floatarg finlet)
! {
! t_pre_inlet *x = (t_pre_inlet *)pd_new(pre_inlet_class);
! char str[2];
!
! SETFLOAT(&x->x_at, finlet);
! str[0] = (char)((int)(fsym)&0xff);
! str[1] = 0;
! x->x_sym = gensym(str);
! outlet_new(&x->x_obj, &s_list);
! return (x);
! }
!
! void pre_inlet_setup(void)
! {
! pre_inlet_class = class_new(gensym("pre_inlet"), (t_newmethod)pre_inlet_new,
! (t_method)pre_inlet_free, sizeof(t_pre_inlet), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
! class_addbang(pre_inlet_class, (t_method)pre_inlet_bang);
! class_addfloat(pre_inlet_class, (t_method)pre_inlet_float);
! class_addsymbol(pre_inlet_class, pre_inlet_symbol);
! class_addpointer(pre_inlet_class, pre_inlet_pointer);
! class_addlist(pre_inlet_class, pre_inlet_list);
! class_addanything(pre_inlet_class, pre_inlet_anything);
! class_sethelpsymbol(pre_inlet_class, gensym("iemhelp/help-pre_inlet"));
! }
1
0
[PD-cvs] pd/src g_editor.c, 1.8, 1.9 g_graph.c, 1.7, 1.8 makefile.nt, 1.4, 1.5 notes.txt, 1.13, 1.14 s_file.c, 1.5, 1.6 s_main.c, 1.12, 1.13 s_midi.c, 1.5, 1.6 s_midi_pm.c, 1.5, 1.6 u_main.tk, 1.11, 1.12
by Miller Puckette 08 Jul '05
by Miller Puckette 08 Jul '05
08 Jul '05
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26832/pd/src
Modified Files:
g_editor.c g_graph.c makefile.nt notes.txt s_file.c s_main.c
s_midi.c s_midi_pm.c u_main.tk
Log Message:
Bug fixes: took out some unwanted "red rectangle" apparitions when making
arrays on new canvases; got the array dialog to come back; made graphical
updating a bit more reliable.
Tested and fixed a couple of problems on Mac and Windoes.
Index: notes.txt
===================================================================
RCS file: /cvsroot/pure-data/pd/src/notes.txt,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** notes.txt 2 Jul 2005 05:03:06 -0000 1.13
--- notes.txt 8 Jul 2005 00:02:44 -0000 1.14
***************
*** 16,19 ****
--- 16,27 ----
------------ 0.39 ---------
+ problems:
+ array dimension change gives TK erro (doesn't update)
+ throwing new array on canvas makes red rectangle?
+ dialog doesn't start array dialog, just canvas one
+ arrays that don't fit in bounds don't update (same as red rectangle problem?)
+
+
+ flag for array to suppress printing name
check:
Index: g_graph.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_graph.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** g_graph.c 2 Jul 2005 05:03:06 -0000 1.7
--- g_graph.c 8 Jul 2005 00:02:44 -0000 1.8
***************
*** 40,44 ****
if (x->gl_editor && (ob = pd_checkobject(&y->g_pd)))
rtext_new(x, ob);
! if (x->gl_editor && x->gl_isgraph && !x->gl_goprect)
{
x->gl_goprect = 1;
--- 40,45 ----
if (x->gl_editor && (ob = pd_checkobject(&y->g_pd)))
rtext_new(x, ob);
! if (x->gl_editor && x->gl_isgraph && !x->gl_goprect
! && pd_checkobject(&y->g_pd))
{
x->gl_goprect = 1;
***************
*** 1060,1065 ****
}
- void garray_properties(t_garray *x);
-
t_widgetbehavior graph_widgetbehavior =
{
--- 1061,1064 ----
Index: s_main.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_main.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** s_main.c 30 May 2005 03:04:19 -0000 1.12
--- s_main.c 8 Jul 2005 00:02:45 -0000 1.13
***************
*** 3,7 ****
* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
! char pd_version[] = "Pd version 0.39 TEST 2\n";
char pd_compiletime[] = __TIME__;
char pd_compiledate[] = __DATE__;
--- 3,7 ----
* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
! char pd_version[] = "Pd version 0.39 TEST 3\n";
char pd_compiletime[] = __TIME__;
char pd_compiledate[] = __DATE__;
Index: s_file.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_file.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** s_file.c 30 May 2005 03:04:18 -0000 1.5
--- s_file.c 8 Jul 2005 00:02:45 -0000 1.6
***************
*** 271,276 ****
&& sscanf(prefbuf, "%d", &api) > 0)
sys_set_audio_api(api);
! if (sys_getpreference("noaudioin", prefbuf, MAXPDSTRING))
! naudioindev = 0;
else
{
--- 271,277 ----
&& sscanf(prefbuf, "%d", &api) > 0)
sys_set_audio_api(api);
! if (sys_getpreference("noaudioin", prefbuf, MAXPDSTRING) &&
! !strcmp(prefbuf, ".") || !strcmp(prefbuf, "True"))
! naudioindev = 0;
else
{
***************
*** 288,293 ****
naudioindev = -1;
}
! if (sys_getpreference("noaudioout", prefbuf, MAXPDSTRING))
! naudiooutdev = 0;
else
{
--- 289,295 ----
naudioindev = -1;
}
! if (sys_getpreference("noaudioout", prefbuf, MAXPDSTRING) &&
! !strcmp(prefbuf, ".") || !strcmp(prefbuf, "True"))
! naudiooutdev = 0;
else
{
***************
*** 312,317 ****
/* load MIDI preferences */
! if (sys_getpreference("nomidiin", prefbuf, MAXPDSTRING))
! nmidiindev = 0;
else for (i = 0, nmidiindev = 0; i < MAXMIDIINDEV; i++)
{
--- 314,320 ----
/* load MIDI preferences */
! if (sys_getpreference("nomidiin", prefbuf, MAXPDSTRING) &&
! !strcmp(prefbuf, ".") || !strcmp(prefbuf, "True"))
! nmidiindev = 0;
else for (i = 0, nmidiindev = 0; i < MAXMIDIINDEV; i++)
{
***************
*** 323,328 ****
nmidiindev++;
}
! if (sys_getpreference("nomidiout", prefbuf, MAXPDSTRING))
! nmidioutdev = 0;
else for (i = 0, nmidioutdev = 0; i < MAXMIDIOUTDEV; i++)
{
--- 326,332 ----
nmidiindev++;
}
! if (sys_getpreference("nomidiout", prefbuf, MAXPDSTRING) &&
! !strcmp(prefbuf, ".") || !strcmp(prefbuf, "True"))
! nmidioutdev = 0;
else for (i = 0, nmidioutdev = 0; i < MAXMIDIOUTDEV; i++)
{
***************
*** 398,403 ****
&naudiooutdev, audiooutdev, choutdev, &rate, &advance);
! if (naudioindev <= 0)
! sys_putpreference("noaudioin", ".");
for (i = 0; i < naudioindev; i++)
{
--- 402,406 ----
&naudiooutdev, audiooutdev, choutdev, &rate, &advance);
! sys_putpreference("noaudioin", (naudioindev <= 0 ? "True" : "False"));
for (i = 0; i < naudioindev; i++)
{
***************
*** 406,411 ****
sys_putpreference(buf1, buf2);
}
! if (naudiooutdev <= 0)
! sys_putpreference("noaudioout", ".");
for (i = 0; i < naudiooutdev; i++)
{
--- 409,413 ----
sys_putpreference(buf1, buf2);
}
! sys_putpreference("noaudioout", (naudiooutdev <= 0 ? "True" : "False"));
for (i = 0; i < naudiooutdev; i++)
{
***************
*** 423,428 ****
/* MIDI settings */
sys_get_midi_params(&nmidiindev, midiindev, &nmidioutdev, midioutdev);
! if (nmidiindev <= 0)
! sys_putpreference("nomidiin", ".");
for (i = 0; i < nmidiindev; i++)
{
--- 425,429 ----
/* MIDI settings */
sys_get_midi_params(&nmidiindev, midiindev, &nmidioutdev, midioutdev);
! sys_putpreference("nomidiin", (nmidiindev <= 0 ? "True" : "False"));
for (i = 0; i < nmidiindev; i++)
{
***************
*** 431,436 ****
sys_putpreference(buf1, buf2);
}
! if (nmidioutdev <= 0)
! sys_putpreference("nomidiout", ".");
for (i = 0; i < nmidioutdev; i++)
{
--- 432,436 ----
sys_putpreference(buf1, buf2);
}
! sys_putpreference("nomidiout", (nmidioutdev <= 0 ? "True" : "False"));
for (i = 0; i < nmidioutdev; i++)
{
Index: makefile.nt
===================================================================
RCS file: /cvsroot/pure-data/pd/src/makefile.nt,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** makefile.nt 2 Jul 2005 05:03:06 -0000 1.4
--- makefile.nt 8 Jul 2005 00:02:44 -0000 1.5
***************
*** 21,25 ****
SYSSRC = s_audio_pa.c s_audio_pablio.c s_audio_paring.c \
! s_audio_mmio.c s_midi_mmio.c
SRC = g_canvas.c g_graph.c g_text.c g_rtext.c g_array.c g_template.c g_io.c \
--- 21,25 ----
SYSSRC = s_audio_pa.c s_audio_pablio.c s_audio_paring.c \
! s_audio_mmio.c s_midi_pm.c
SRC = g_canvas.c g_graph.c g_text.c g_rtext.c g_array.c g_template.c g_io.c \
***************
*** 55,60 ****
SRCASIO = $(PADIR)/pa_asio/pa_asio.cpp
! ASIOLIB = $(LDIR)\user32.lib $(LDIR)\gdi32.lib $(LDIR)\winspool.lib $(LDIR)\comdlg32.lib \
! $(LDIR)\advapi32.lib $(LDIR)\shell32.lib $(LDIR)\ole32.lib $(LDIR)\oleaut32.lib $(LDIR)\uuid.lib \
$(LDIR)\odbc32.lib $(LDIR)\odbccp32.lib ..\lib\asio\asiolib.lib
--- 55,61 ----
SRCASIO = $(PADIR)/pa_asio/pa_asio.cpp
! ASIOLIB = $(LDIR)\user32.lib $(LDIR)\gdi32.lib $(LDIR)\winspool.lib \
! $(LDIR)\comdlg32.lib $(LDIR)\advapi32.lib $(LDIR)\shell32.lib \
! $(LDIR)\ole32.lib $(LDIR)\oleaut32.lib $(LDIR)\uuid.lib \
$(LDIR)\odbc32.lib $(LDIR)\odbccp32.lib ..\lib\asio\asiolib.lib
***************
*** 65,70 ****
pa_win_wmme.obj
! OBJC = $(SRC:.c=.obj) $(PAOBJ)
GSRC = t_main.c t_tkcmd.c
--- 66,81 ----
pa_win_wmme.obj
+ PMDIR = ..\portmidi
+ INCPM = -I$(PMDIR)\pm_common -I$(PMDIR)\pm_win -I$(PMDIR)\porttime
+ SRCPM = $(PADIR)/pm_common/portmidi.c \
+ $(PMDIR)/pm_common/pmutil.c \
+ $(PMDIR)/porttime/porttime.c \
+ $(PMDIR)/porttime/ptwinmm.c \
+ $(PMDIR)/pm_win/pmwin.c \
+ $(PMDIR)/pm_win/pmwinmm.c
+
+ PMOBJ = portmidi.obj pmutil.obj porttime.obj ptwinmm.obj pmwin.obj pmwinmm.obj
! OBJC = $(SRC:.c=.obj) $(PAOBJ) $(PMOBJ)
GSRC = t_main.c t_tkcmd.c
***************
*** 73,77 ****
.PHONY: pd gui
! ALLCF = $(CFLAGS) $(INCLUDE) $(INCASIO) $(INCPA) $(INCPM) /D_WINDOWS /DPA_NO_DS
.c.obj:
--- 84,89 ----
.PHONY: pd gui
! ALLCF = $(CFLAGS) $(INCLUDE) $(INCASIO) $(INCPA) $(INCPM) /D_WINDOWS \
! /DPA_NO_DS
.c.obj:
***************
*** 101,106 ****
..\bin\pdreceive.exe: u_pdreceive.obj
! link $(LFLAGS) /out:..\bin\pdreceive.exe /INCREMENTAL:NO u_pdreceive.obj \
! $(LIB)
# explicit rules to compile portaudio sources:
--- 113,118 ----
..\bin\pdreceive.exe: u_pdreceive.obj
! link $(LFLAGS) /out:..\bin\pdreceive.exe /INCREMENTAL:NO \
! u_pdreceive.obj $(LIB)
# explicit rules to compile portaudio sources:
***************
*** 133,136 ****
--- 145,161 ----
cl /c $(ALLCF) $(PADIR)\pa_asio\pa_asio.cpp
+ portmidi.obj: $(PMDIR)\pm_common\portmidi.c
+ cl /c $(ALLCF) $(PMDIR)\pm_common\portmidi.c
+ pmutil.obj: $(PMDIR)\pm_common\pmutil.c
+ cl /c $(ALLCF) $(PMDIR)\pm_common\pmutil.c
+ pmwin.obj: $(PMDIR)\pm_win\pmwin.c
+ cl /c $(ALLCF) $(PMDIR)\pm_win\pmwin.c
+ pmwinmm.obj: $(PMDIR)\pm_win\pmwinmm.c
+ cl /c $(ALLCF) $(PMDIR)\pm_win\pmwinmm.c
+ porttime.obj: $(PMDIR)\porttime\porttime.c
+ cl /c $(ALLCF) $(PMDIR)\porttime\porttime.c
+ ptwinmm.obj: $(PMDIR)\porttime\ptwinmm.c
+ cl /c $(ALLCF) $(PMDIR)\porttime\ptwinmm.c
+
# the following should also clean up "bin" but it doesn't because "bin" holds
# precious stuff from elsewhere.
Index: g_editor.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_editor.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** g_editor.c 2 Jul 2005 05:03:06 -0000 1.8
--- g_editor.c 8 Jul 2005 00:02:44 -0000 1.9
***************
*** 854,857 ****
--- 854,859 ----
}
+ void garray_properties(t_garray *x);
+
/* tell GUI to create a properties dialog on the canvas. We tell
the user the negative of the "pixel" y scale to make it appear to grow
***************
*** 859,862 ****
--- 861,865 ----
void canvas_properties(t_glist *x)
{
+ t_gobj *y;
char graphbuf[200];
if (glist_isgraph(x) != 0)
***************
*** 876,879 ****
--- 879,886 ----
(int)x->gl_xmargin, (int)x->gl_ymargin);
gfxstub_new(&x->gl_pd, x, graphbuf);
+ /* if any arrays are in the graph, put out their dialogs too */
+ for (y = x->gl_list; y; y = y->g_next)
+ if (pd_class(&y->g_pd) == garray_class)
+ garray_properties((t_garray *)y);
}
***************
*** 947,951 ****
/* LATER avoid doing 2 redraws here (possibly one inside setgraph) */
canvas_setgraph(x, graphme, 0);
! canvas_redraw(x);
}
--- 954,960 ----
/* LATER avoid doing 2 redraws here (possibly one inside setgraph) */
canvas_setgraph(x, graphme, 0);
! if (x->gl_havewindow)
! canvas_redraw(x);
! else gobj_redraw(&x->gl_gobj, x->gl_owner);
}
Index: s_midi_pm.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_midi_pm.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** s_midi_pm.c 30 May 2005 03:04:19 -0000 1.5
--- s_midi_pm.c 8 Jul 2005 00:02:45 -0000 1.6
***************
*** 38,53 ****
Pt_Start(1, 0, 0); /* start a timer with millisecond accuracy */
- /* protect the unwary from having MIDI inputs open; they're
- bad news if you close Pd's terminal window. see sys_nmidiin
- in s_main.c too. */
- #ifdef MSW
- if (nmidiin)
- {
- post(
- "midi input enabled; warning, don't close the DOS window directly!");
- }
- else post("not using MIDI input (use 'pd -midiindev 1' to override)");
- #endif
-
mac_nmidiindev = 0;
for (i = 0; i < nmidiin; i++)
--- 38,41 ----
Index: s_midi.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/s_midi.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** s_midi.c 6 Nov 2004 16:07:34 -0000 1.5
--- s_midi.c 8 Jul 2005 00:02:45 -0000 1.6
***************
*** 508,516 ****
#define DEVDESCSIZE 80
- #ifdef MSW
- #define DEVONSET 0 /* microsoft device list starts at 0 (the "mapper"). */
- #else /* (see also MSW ifdef in sys_parsedevlist(), s_main.c) */
#define DEVONSET 1 /* To agree with command line flags, normally start at 1 */
- #endif
void sys_listmididevs(void )
--- 508,512 ----
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** u_main.tk 2 Jul 2005 05:03:06 -0000 1.11
--- u_main.tk 8 Jul 2005 00:02:45 -0000 1.12
***************
*** 103,124 ****
.mbar add cascade -label "Windows" -menu .mbar.windows
.mbar add cascade -label "Media" -menu .mbar.audio
! # a menu on the main menubar named $whatever.help while be treated
! # as a special menu with specific behaviors on different platforms.
! # See SPECIAL MENUS IN MENUBARS http://www.tcl.tk/man/tcl8.4/TkCmd/menu.htm
! menu .mbar.help -tearoff $pd_tearoff
! .mbar add cascade -label "Help" -menu .mbar.help
} else {
! menu .mbar.apple -tearoff 0
! .mbar add cascade -label "Apple" -menu .mbar.apple
# arrange menus according to Apple HIG
.mbar add cascade -label "Media" -menu .mbar.audio
.mbar add cascade -label "Window" -menu .mbar.windows
! # a menu on the main menubar named "$whatever.help" while be treated
! # as a special menu with specific behaviors on different platforms.
! # See SPECIAL MENUS IN MENUBARS http://www.tcl.tk/man/tcl8.4/TkCmd/menu.htm
! # Apple doesn't allow cascading menus in their Help so I had to call this
! # one $mbar.docs # <hans(a)at.or.at>
! menu .mbar.docs -tearoff $pd_tearoff
! .mbar add cascade -label "Help" -menu .mbar.docs
}
--- 103,116 ----
.mbar add cascade -label "Windows" -menu .mbar.windows
.mbar add cascade -label "Media" -menu .mbar.audio
! menu .mbar.help -tearoff $pd_tearoff
! .mbar add cascade -label "Help" -menu .mbar.help
} else {
! menu .mbar.apple -tearoff 0
! .mbar add cascade -label "Apple" -menu .mbar.apple
# arrange menus according to Apple HIG
.mbar add cascade -label "Media" -menu .mbar.audio
.mbar add cascade -label "Window" -menu .mbar.windows
! menu .mbar.help -tearoff $pd_tearoff
! .mbar add cascade -label "Help" -menu .mbar.help
}
***************
*** 507,535 ****
! # the "Help" menu
! if {$pd_nt != 2} {
! # a menu on the main menubar named "$whatever.help" while be treated
! # as a special menu with specific behaviors on different platforms.
! # See SPECIAL MENUS IN MENUBARS http://www.tcl.tk/man/tcl8.4/TkCmd/menu.htm
! $mbar.help add command -label {About Pd} \
! -command {menu_doc_open doc/1.manual 1.introduction.txt}
! $mbar.help add command -label {Pure Documentation...} \
! -command {menu_documentation}
! # add menu items for each section instead of using Pd patches
! $mbar.help add separator
! set helpmenuname help
! } else {
! # Apple doesn't allow cascading menus in their Help so I had to call this
! # one "docs" <hans(a)at.or.at>
! set helpmenuname docs
! }
!
! $mbar.$helpmenuname add command -label {1 manual...} \
! -command {menu_doc_open doc/1.manual index.htm}
! doc_submenu $mbar.$helpmenuname 2.control.examples
! doc_submenu $mbar.$helpmenuname 3.audio.examples
! doc_submenu $mbar.$helpmenuname 4.fft.examples
! doc_submenu $mbar.$helpmenuname 5.reference
! doc_submenu $mbar.$helpmenuname 6.externs
}
--- 499,511 ----
! # the "Help" menu
! if {$pd_nt != 2} {
! $mbar.help add command -label {About Pd} \
! -command {menu_doc_open doc/1.manual 1.introduction.txt}
! }
! $mbar.help add command -label {Html ...} \
! -command {menu_doc_open doc/1.manual index.htm}
! $mbar.help add command -label {Browser ...} \
! -command {menu_documentation}
}
***************
*** 1105,1120 ****
# the help menu
- # a menu on the main menubar named "$whatever.help" while be treated
- # as a special menu with specific behaviors on different platforms.
- # See SPECIAL MENUS IN MENUBARS http://www.tcl.tk/man/tcl8.4/TkCmd/menu.htm
- if {$pd_nt != 2} {
menu $name.m.help -tearoff $pd_tearoff
$name.m add cascade -label Help -menu $name.m.help
- } else {
- # Apple doesn't allow cascading menus in their Help
- # so I had to call this one "docs". <hans(a)at.or.at>
- menu $name.m.docs -tearoff $pd_tearoff
- $name.m add cascade -label Help -menu $name.m.docs
- }
menu_addstd $name.m
--- 1081,1086 ----
1
0
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2709
Modified Files:
Tag: devel_0_38
SConscript
Log Message:
another tk header location :-/
Index: SConscript
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/SConscript,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -C2 -d -r1.1.2.7 -r1.1.2.8
*** SConscript 6 Jul 2005 19:16:46 -0000 1.1.2.7
--- SConscript 7 Jul 2005 19:30:47 -0000 1.1.2.8
***************
*** 141,146 ****
break
else:
! print "can't find tk header"
!
--- 141,149 ----
break
else:
! for i in range (0,10):
! if conf.CheckHeader('tcl8.4/tk.h' % i):
! break
! else:
! print "can't find tk header"
***************
*** 229,232 ****
--- 232,249 ----
pdenv.Append(LIBPATH=".")
+ ######################################################################
+ #
+ # portaudio stuff
+ pa_common_sources = map(lambda x: '../portaudio/pa_common/' + x,
+ Split("""pa_allocation.c
+ pa_converters.c
+ pa_cpuload.c
+ pa_dither.c
+ pa_front.c
+ pa_process.c
+ pa_skeleton.c
+ pa_stream.c
+ pa_trace.c"""))
+
######################################################################
***************
*** 301,310 ****
pa_osx_sources = (Split("""../portaudio/pa_mac_core/pa_mac_core.c
! ../portaudio/pa_mac/pa_mac_sm.c"""))
! osx_sources = pm_sources + pm_osx_sources + simd_ve_gcc_sources
! osx_defs = Split("UNISTD PA_BIG_ENDIAN")
sources.append(osx_sources)
--- 318,328 ----
pa_osx_sources = (Split("""../portaudio/pa_mac_core/pa_mac_core.c
! ../portaudio/pa_mac/pa_mac_hostapis.c
! ../portaudio/pa_unix/pa_unix_util.c"""))
! osx_sources = pa_osx_sources + pa_osx_sources + pm_sources + pm_osx_sources + simd_ve_gcc_sources
! osx_defs = Split("UNISTD PA_BIG_ENDIAN PA_USE_COREAUDIO")
sources.append(osx_sources)
1
0