diff options
Diffstat (limited to 'externals/grill/xsample/source/play.cpp')
| -rw-r--r-- | externals/grill/xsample/source/play.cpp | 160 |
1 files changed, 160 insertions, 0 deletions
diff --git a/externals/grill/xsample/source/play.cpp b/externals/grill/xsample/source/play.cpp new file mode 100644 index 00000000..827d88de --- /dev/null +++ b/externals/grill/xsample/source/play.cpp @@ -0,0 +1,160 @@ +/* + +xsample - extended sample objects for Max/MSP and pd (pure data) + +Copyright (c) 2001,2002 Thomas Grill (xovo@gmx.net) +For information on usage and redistribution, and for a DISCLAIMER OF ALL +WARRANTIES, see the file, "license.txt," in this distribution. + +*/ + +#include "main.h" + +#ifdef _MSC_VER +#pragma warning (disable:4244) +#endif + + +class xplay: + public xinter +{ +// FLEXT_HEADER_S(xplay,xinter,setup) + FLEXT_HEADER(xplay,xinter) + +public: + xplay(I argc, t_atom *argv); + + virtual BL Init(); + +#ifdef MAXMSP + virtual V m_assist(L msg,L arg,C *s); +#endif + + virtual V m_help(); + virtual V m_print(); + +private: +// static V setup(t_class *c); + + virtual V m_signal(I n,S *const *in,S *const *out) + { + bufchk(); + playfun(n,in,out); + } +}; + +FLEXT_LIB_DSP_V("xplay~",xplay) + +/* +V xplay::setup(t_class *) +{ +#ifndef PD + post("loaded xplay~ - part of xsample objects, version " XSAMPLE_VERSION " - (C) Thomas Grill, 2001-2002"); +#endif +} +*/ + +xplay::xplay(I argc, t_atom *argv) +{ + I argi = 0; +#ifdef MAXMSP + if(argc > argi && CanbeInt(argv[argi])) { + outchns = GetAInt(argv[argi]); + argi++; + } +#endif + + if(argc > argi && IsSymbol(argv[argi])) { + buf = new buffer(GetSymbol(argv[argi]),true); + argi++; + +#ifdef MAXMSP + // oldstyle command line? + if(argi == 1 && argc == 2 && CanbeInt(argv[argi])) { + outchns = GetAInt(argv[argi]); + argi++; + post("%s: old style command line detected - please change to '%s [channels] [buffer]'",thisName(),thisName()); + } +#endif + } + else + buf = new buffer(NULL,true); + + AddInSignal(); // pos signal + AddOutSignal(outchns); + + m_reset(); +} + +BL xplay::Init() +{ + if(xinter::Init()) { + m_reset(); + return true; + } + else + return false; +} + + + +V xplay::m_help() +{ + post("%s - part of xsample objects, version " XSAMPLE_VERSION,thisName()); +#ifdef _DEBUG + post("compiled on " __DATE__ " " __TIME__); +#endif + post("(C) Thomas Grill, 2001-2002"); +#ifdef MAXMSP + post("Arguments: %s [channels=1] [buffer]",thisName()); +#else + post("Arguments: %s [buffer]",thisName()); +#endif + post("Inlets: 1:Messages/Position signal"); + post("Outlets: 1:Audio signal"); + post("Methods:"); + post("\thelp: shows this help"); + post("\tset name: set buffer"); + post("\tenable 0/1: turn dsp calculation off/on"); + post("\tprint: print current settings"); + post("\tbang/start: begin playing"); + post("\tstop: stop playing"); + post("\treset: checks buffer"); + post("\trefresh: checks buffer and refreshes outlets"); + post("\tunits 0/1/2/3: set units to samples/buffer size/ms/s"); + post("\tinterp 0/1/2: set interpolation to off/4-point/linear"); + post(""); +} + +V xplay::m_print() +{ + const C *interp_txt[] = {"off","4-point","linear"}; + // print all current settings + post("%s - current settings:",thisName()); + post("bufname = '%s', length = %.3f, channels = %i",buf->Name(),(F)(buf->Frames()*s2u),buf->Channels()); + post("out channels = %i, samples/unit = %.3f, interpolation = %s",outchns,(F)(1./s2u),interp_txt[interp >= xsi_none && interp <= xsi_lin?interp:xsi_none]); + post(""); +} + + +#ifdef MAXMSP +V xplay::m_assist(L msg,L arg,C *s) +{ + switch(msg) { + case 1: //ASSIST_INLET: + switch(arg) { + case 0: + sprintf(s,"Messages and Signal of playing position"); break; + } + break; + case 2: //ASSIST_OUTLET: + if(arg < outchns) + sprintf(s,"Audio signal channel %li",arg+1); + break; + } +} +#endif + + + + |