diff options
Diffstat (limited to 'externals/grill/vasp/source/obj_vasp.cpp')
| -rw-r--r-- | externals/grill/vasp/source/obj_vasp.cpp | 205 |
1 files changed, 0 insertions, 205 deletions
diff --git a/externals/grill/vasp/source/obj_vasp.cpp b/externals/grill/vasp/source/obj_vasp.cpp deleted file mode 100644 index 9b8cfb5d..00000000 --- a/externals/grill/vasp/source/obj_vasp.cpp +++ /dev/null @@ -1,205 +0,0 @@ -/* - -VASP modular - vector assembling signal processor / objects for Max/MSP and PD - -Copyright (c) 2002 Thomas Grill (xovo@gmx.net) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -*/ - -/*! \file obj_vasp.cpp - \brief basic vasp objects. -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_v - \remark \b vasp - \brief Stores vasp messages. - \since 0.0.1 - \param cmdln.* vasp - to be stored - \param inlet.1 vasp - is stored and output - \param inlet.1 list - if possible list is converted to vasp format - \param inlet.1 bang - triggers stored Vasp output - \param inlet.1 set vasp - Vasp is stored (and not immediately output) - \param inlet.2 vasp - Vasp is stored (and not immediately output) - \retval outlet vasp -*/ -class vasp_v: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_v,vasp_tx,Setup) - -public: - - vasp_v(I argc,const t_atom *argv) - { - m_set(argc,argv); - - AddInAnything(2); - AddOutAnything(); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD_(c,0,"list",m_vasp); - - FLEXT_CADDMETHOD_(c,1,"list",m_set); - FLEXT_CADDMETHOD_(c,1,"vasp",m_set); - FLEXT_CADDMETHOD_(c,1,"radio",a_radio); - } - - V a_radio(I,const t_atom *) {} - - virtual Vasp *x_work() { return new Vasp(ref); } - - virtual V m_help() { post("%s - Store and output a vasp",thisName()); } -private: - FLEXT_CALLBACK_V(a_radio); -}; - -VASP_LIB_V("vasp",vasp_v) - - - -/*! \class vasp_update - \remark \b vasp.update - \brief Refreshes buffer graphics for a vasp. - \since 0.0.1 - \param inlet vasp - is stored and output - \param inlet bang - triggers stored vasp output - \param inlet set - vasp to be stored (and not immediately output) - \retval outlet vasp - - \note In Max/MSP only necessary when buffer is in another window. -*/ -class vasp_update: - public vasp_tx -{ - FLEXT_HEADER(vasp_update,vasp_tx) - -public: - vasp_update() - { - AddInAnything(); - AddOutAnything(); - } - - virtual Vasp *x_work() - { - ref.Refresh(); - return new Vasp(ref); - } - - virtual V m_help() { post("%s - Update graphics of a vasp",thisName()); } -}; - -VASP_LIB("vasp.update vasp.u",vasp_update) - - - -/*! \class vasp_check - \remark \b vasp.check - \brief Check vasp dimensions. - \since 0.0.1 - \param inlet vasp - is stored and output - \param inlet bang - triggers stored vasp output - \param inlet set - vasp to be stored (and not immediately output) - \retval outlet vasp - - \remark checks and corrects frame count - \remark checks channel index... no correction, no output on error! -*/ -class vasp_check: - public vasp_tx -{ - FLEXT_HEADER(vasp_check,vasp_tx) - -public: - vasp_check() - { - AddInAnything(); - AddOutAnything(); - } - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - I fr = ret->ChkFrames(); // maximum common frame length - ret->Frames(fr); - - BL chok = true; - - for(I i = 0; i < ret->Vectors(); ++i) { - VBuffer *buf = ret->Buffer(i); - chok = chok && buf->Ok() && buf->Channel() == ret->Vector(i).Channel(); - delete buf; - } - - if(chok) - return ret; - else { - delete ret; - return NULL; - } - } - - virtual V m_help() { post("%s - Check vasp dimensions",thisName()); } -}; - -VASP_LIB("vasp.check vasp.chk",vasp_check) - - - -/*! \class vasp_multi - \remark \b vasp.m - \brief Outputs multiple (identical) vasps. - \since 0.0.1 - \param cmdln.1 int - number of vasp outlets - \param inlet vasp - is stored and output - \param inlet bang - triggers stored Vasp output - \param inlet set - vasp to be stored (and not immediately output) - \retval outlet.* vasp - - \note Outputs in right to left order. -*/ -class vasp_multi: - public vasp_op -{ - FLEXT_HEADER(vasp_multi,vasp_op) - -public: - - vasp_multi(I argc,const t_atom *argv) - { - I cnt = -1; - if(argc) { - if(CanbeInt(argv[0])) cnt = GetAInt(argv[0]); - if(cnt <= 1) { - post("%s - integer argument invalid: set to 2",thisName()); - cnt = 2; - } - } - else cnt = 2; - - AddInAnything(); - AddOutAnything(cnt); - } - - virtual V m_bang() - { - if(ref.Check()) - for(I i = CntOut()-1; i >= 0; --i) ToOutVasp(i,ref); - else - post("%s - Invalid vasp",thisName()); - } - - virtual V m_help() { post("%s - Output a vasp multiple times",thisName()); } -}; - -VASP_LIB_V("vasp.multi vasp.m",vasp_multi) - |