diff options
Diffstat (limited to 'externals/grill/vasp')
395 files changed, 0 insertions, 44194 deletions
diff --git a/externals/grill/vasp/changes.txt b/externals/grill/vasp/changes.txt deleted file mode 100644 index 5248913c..00000000 --- a/externals/grill/vasp/changes.txt +++ /dev/null @@ -1,148 +0,0 @@ -Version history: - -0.1.4: -- FIX: resurrect help message-functionality and add some missing help texts -- FIX: break condition for some loop constructs (thanks to Patrick King) -- FIX: help file names / object names have been broken by flext changes - -0.1.3: -- CHANGE: exchanged #defines for templates in vector calculation loops -- FIX: bug for binary operations of complex vasps -- ADD: implemented (factor-4) loop unrolling for vector calculation loops -- CHANGE: completely restructured vector optimization and introduced multi-dimensional multi-layered functionality -- ADD: vasp.size variants: attribute "zero" (default: true) - whether new samples shall be zeroed -- ADD: vasp.sum? to get sum of sample values -- ADD: all objects: attribute "defer" to queue outgoing vasps - to avoid stack faults for message loops -- CHANGE: enable attributes "detach" and "prior" also for non-threaded builds to ensure patch compatibility -- FIX: vasp.size - flext bug for @keep=1 -- FIX: vasp.imm - bug with memory reservation length -- ADD: vasp.imm - attribute "zero" (default: true) - whether array should be cleared -- FIX: Max/MSP - freeing immediate buffers with overdrive is bogus -> using queued flext timer -- FIX: Bug in clearing vasp references -- CHANGE: changed behavior of vasp.spit on uneven vector counts - [vasp a b c( -> [vasp.spit 2] now outputs a(outlet 2), b(outlet 1), c(outlet 2), bang(outlet 3) -- REMOVE: eliminated [vasp.cconj] as an object as it can easily be replaced by an abstraction -- ADD: vasp.search (vasp.o=, vasp.f=) objects... @incl attribute (default false) to include current sample into search -- ADD: [vasp.channels?] reports number of channels in the first vasp vector (buffer/array) -- CHANGE: vasp.min?, vasp.max?, vasp.amin?, vasp.amax?, vasp.rmin?, vasp.rmax? no longer return the reference vasp / return a list of vector maxima/minima -- CHANGE: inherited several classes from the flext class, so that new and delete use the RT-system functions -- FIX: fixed memory leaks associated to VBuffer retrieval -- FIX: fixed bug on vasp.search for vectors with 0 channels - -0.1.2: -- FIX: bug in vasp.frames* ... wrong argument -- FIX: another bug in resize of immediate buffers -- CHANGE: immediates will be initialized to zero, also upon resize to a larger size (by default, later make this optional) -- ADD: attributes for all basic parameters: ref,to,arg, update,detach,prior (loglvl,argchk,unit later) -- ADD: vasp.channel,vasp.vector - attribute "index" -- ADD: vasp.frames,vasp.frames+,vasp.offset,vasp.offset+,vasp.size,vasp.size+,vasp.imm - attribute "frames" -- ADD: vasp.frames*,vasp.frames/,vasp.size*,vasp.size/ - attribute "factor" -- ADD: vasp.part - attribute "parts" -- ADD: vasp.peaks? - attribute "peaks" -- ADD: vasp.shift,vasp.xshift - attribute "fill" -- ADD: vasp.tilt,vasp.xtilt - attributes "fill","inter" -- ADD: vasp.offset=,vasp.frames= - attributes "dir","slope" -- CHANGE: update m_method_ virtual functions of same objects -- FIX: immediate vasp garbage collection is now done in separate thread -- ADD: vasp.size... objects: attribute "keep" determines whether buffer content should be preserved (default = 1) -- CHANGE: buffer reference checks upon all operations enforced (by new CVasp (checked vasp) class) -- FIX: immediate vasps can not have frames > size -- FIX: immediate garbage collection was not triggered in threaded build -- FIX: changed forgotten standard ASSERT to FLEXT_ASSERT (thanks to Frank Barknecht) - -0.1.1: -- FIX: bug in resize of immediate buffers -- CHANGE: check (at actual operation!) whether vector exceeds buffer size (GetRVecs, GetCVecs -> corrlen) - -0.1.0: -- NEW: vasp.a<, vasp.a>, vasp.a<=, vasp.a>= for absolute comparisons -- CHANGE: clear stored vasp of an object if a "set" message with an invalid vasp is received -- CHANGE: cleaned up the process loops (with thread yield) and fixed a corresponding bug in vasp.peaks/valleys -- CHANGE: warn - but don't stop - on large FFT prime factors -- FIX: vasp.radd and vasp.rpow had wrong argument initialization -- FIX: mixfft is not thread-safe... introduced thread mutex for it -- FIX: vasp.shift: shift argument was modulo frame count... why? - -0.0.8: -- CHANGE: vasp.radio got right outlet for non-radio messages -- ADD: thread yield for all simple vasp objects -- CHANGE: vasp.? and vasp.??: made explicit list outlets -- NEW: vasp.window, vasp.*window, vasp.!window, vasp.*!window, vasp.xwindow, vasp.*xwindow -- REMOVE: vasp.bevel, vasp.!bevel... obsolete due to new vasp.window objects -- REMOVE: vasp.noradio (vasp.!radio)... can easily be an abstraction of vasp.radio -- ADD: minimum length parameter for immediate vasps -- NEW: vasp.channel? (vasp.c?), vasp.channel (vasp.c) for set/query of buffer channel -- CHANGE: env - reversed time/value pairs to value/time pairs -- FIX: vasp.! with length arg outputs its reference on bang -- FIX: on set message check for invalid vasps -- FIX: reintroduce test for invalid buffer names (why was it commented out?) -- FIX: fixe several bugs in vasp.offset= and vasp.frames= -- CHANGE: allow size 0 (is default) for immediate vasps - -0.0.7: -- CHANGE: vasp.m is now called vasp.multi by default -- CHANGE: vasp.sync and vasp.multi now have a default argument = 2 -- FIX: vasp.phasor - period length now 1 instead of 2 PI -- FIX: bug in multi mode (more src, one arg vector) -- ADD: path specification for help symbols -- CHANGE: rewrote vasp.imm implementation (still very inefficient!!) -- ADD: prior message defines differential priority for detached operations -- ADD: full DFT implementation (radix-2/radix-n) - also support of "to" message -- ADD: full implementation of vasp.(x)tilt with several interpolation methods -- CHANGE: vasp.split and vasp.join now have default argument = 2 -- ADD: vasp.offset= (vasp.o=) and vasp.frames= (vasp.f=): search for sample values (eg. zero crossings) -- ADD: checks and log messages for out-of-range buffer offset and length - -0.0.6: -- reorganized file structure -- ADD: main names of vasp.n and vasp.n? are now vasp.vector and vasp.vectors?, respectively -- ADD: main names of vasp.? and vasp.?? are now vasp.list and vasp.nonzero, respectively -- NEW: vasp.size, vasp.size+, vasp.size? (vasp.s,vasp.s+,vasp.s?) for buffer size manipulation -- NEW: vasp.peaks? for extremum extraction -- ADD: shortcuts for vasp.frames,vasp.frames+,vasp.frames? -> vasp.f,vasp.f+,vasp.f? -- CHANGE: changed vasp.offs,vasp.offs+,vasp.offs? to vasp.offset,vasp.offset+,vasp.offset? -- ADD: shortcuts for vasp.offset,vasp.offset+,vasp.offset? -> vasp.o,vasp.o+,vasp.o? -- ADD: envelopes (env ...) as arguments to all operations where vasps are used -- FIX: default arguments for all binary/anytype operations -- ADD: vasp.frames* (vasp.f*), vasp.frames/ (vasp.f/), vasp.size* (vasp.s*), vasp.size/ (vasp.s/) -- ADD: detached operation: operations run as threads, according to detach flag/message -- CHANGE: vasp.sync has as many outputs as inputs and outputs all input vasps -- ADD: vasp.! : like vasp but stores the content temporarily (not just the reference) -- ADD: vasp.copy (vasp.->) and vasp.ccopy (vasp.c->) for instant vasp copying -- ADD: vasp.radio and vasp.noradio (vasp.!radio) ... filters for radio messages -- ADD: vasp.fix - bashes NANs to zero, normalizes denormal numbers -- ADD: double type consisting of 2 additive floats (e.g. "double 1. 1.e-13") for all numeric arguments -- ADD: vasp.(x)shift - "fill" method/flag defines how to fill shifted areas (0..zero (default),1..none,2..edge value) - -0.0.5: -- FIX: lacking sqrt in [vasp.rmin?],[vasp.rmax?] -- FIX: (offs >= frames) bug in [vasp.offs?] -- ADD: lacking setup of [vasp.!-] and [vasp.c!-] objects -- FIX: buggy [vasp.int] code -- FIX: recognition of integer arguments - -0.0.4: -- CHANGE: vasp.min/max functions so that a vasp length 0 results in 0 -- REMOVED: [vasp.inv], [vasp.cinv].... already replaced by [vasp.!/ 1] -- FIX: outlet bug in [vasp.?] -- ADD: right inlet to [vasp]... just like in [float] etc. - -0.0.3: -- restructured the code for future use of break-point lists (aka envelopes) as arguments -- changed some object's names -- new objects: vasp.min?, vasp.max? and the likes -- fixed Max problem with connecting vasp.min,vasp.max right outlet to number boxes -- fixed right inlet problem for generator and filter objects - -0.0.2: -- vasp.cmin,vasp.cmax - renamed to vasp.rmin,vasp.rmax -- reversed vasp channel and offset -- fixed bug with arguments to complex binary operations -- vasp.chk: included channel check -- fixed pointer bug in vasp.? -- fixed pointer increment bug in vasp.fhp -- changed VecBlock implementation - -0.0.1: -- defined the vasp -- quick and dirty setup of most functions (non-interruptible) diff --git a/externals/grill/vasp/gpl.txt b/externals/grill/vasp/gpl.txt deleted file mode 100644 index 5ea29a7d..00000000 --- a/externals/grill/vasp/gpl.txt +++ /dev/null @@ -1,346 +0,0 @@ - GNU GENERAL PUBLIC LICENSE - Version 2, June 1991 - - Copyright (C) 1989, 1991 Free Software Foundation, Inc. - 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - - Preamble - - The licenses for most software are designed to take away your -freedom to share and change it. By contrast, the GNU General Public -License is intended to guarantee your freedom to share and change free -software--to make sure the software is free for all its users. This -General Public License applies to most of the Free Software -Foundation's software and to any other program whose authors commit to -using it. (Some other Free Software Foundation software is covered by -the GNU Library General Public License instead.) You can apply it to -your programs, too. - - When we speak of free software, we are referring to freedom, not -price. Our General Public Licenses are designed to make sure that you -have the freedom to distribute copies of free software (and charge for -this service if you wish), that you receive source code or can get it -if you want it, that you can change the software or use pieces of it -in new free programs; and that you know you can do these things. - - To protect your rights, we need to make restrictions that forbid -anyone to deny you these rights or to ask you to surrender the rights. -These restrictions translate to certain responsibilities for you if you -distribute copies of the software, or if you modify it. - - For example, if you distribute copies of such a program, whether -gratis or for a fee, you must give the recipients all the rights that -you have. You must make sure that they, too, receive or can get the -source code. And you must show them these terms so they know their -rights. - - We protect your rights with two steps: (1) copyright the software, and -(2) offer you this license which gives you legal permission to copy, -distribute and/or modify the software. - - Also, for each author's protection and ours, we want to make certain -that everyone understands that there is no warranty for this free -software. If the software is modified by someone else and passed on, we -want its recipients to know that what they have is not the original, so -that any problems introduced by others will not reflect on the original -authors' reputations. - - Finally, any free program is threatened constantly by software -patents. We wish to avoid the danger that redistributors of a free -program will individually obtain patent licenses, in effect making the -program proprietary. To prevent this, we have made it clear that any -patent must be licensed for everyone's free use or not licensed at all. - - The precise terms and conditions for copying, distribution and -modification follow. - - - GNU GENERAL PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. This License applies to any program or other work which contains -a notice placed by the copyright holder saying it may be distributed -under the terms of this General Public License. The "Program", below, -refers to any such program or work, and a "work based on the Program" -means either the Program or any derivative work under copyright law: -that is to say, a work containing the Program or a portion of it, -either verbatim or with modifications and/or translated into another -language. (Hereinafter, translation is included without limitation in -the term "modification".) Each licensee is addressed as "you". - -Activities other than copying, distribution and modification are not -covered by this License; they are outside its scope. The act of -running the Program is not restricted, and the output from the Program -is covered only if its contents constitute a work based on the -Program (independent of having been made by running the Program). -Whether that is true depends on what the Program does. - - 1. You may copy and distribute verbatim copies of the Program's -source code as you receive it, in any medium, provided that you -conspicuously and appropriately publish on each copy an appropriate -copyright notice and disclaimer of warranty; keep intact all the -notices that refer to this License and to the absence of any warranty; -and give any other recipients of the Program a copy of this License -along with the Program. - -You may charge a fee for the physical act of transferring a copy, and -you may at your option offer warranty protection in exchange for a fee. - - 2. You may modify your copy or copies of the Program or any portion -of it, thus forming a work based on the Program, and copy and -distribute such modifications or work under the terms of Section 1 -above, provided that you also meet all of these conditions: - - a) You must cause the modified files to carry prominent notices - stating that you changed the files and the date of any change. - - b) You must cause any work that you distribute or publish, that in - whole or in part contains or is derived from the Program or any - part thereof, to be licensed as a whole at no charge to all third - parties under the terms of this License. - - c) If the modified program normally reads commands interactively - when run, you must cause it, when started running for such - interactive use in the most ordinary way, to print or display an - announcement including an appropriate copyright notice and a - notice that there is no warranty (or else, saying that you provide - a warranty) and that users may redistribute the program under - these conditions, and telling the user how to view a copy of this - License. (Exception: if the Program itself is interactive but - does not normally print such an announcement, your work based on - the Program is not required to print an announcement.) - - -These requirements apply to the modified work as a whole. If -identifiable sections of that work are not derived from the Program, -and can be reasonably considered independent and separate works in -themselves, then this License, and its terms, do not apply to those -sections when you distribute them as separate works. But when you -distribute the same sections as part of a whole which is a work based -on the Program, the distribution of the whole must be on the terms of -this License, whose permissions for other licensees extend to the -entire whole, and thus to each and every part regardless of who wrote it. - -Thus, it is not the intent of this section to claim rights or contest -your rights to work written entirely by you; rather, the intent is to -exercise the right to control the distribution of derivative or -collective works based on the Program. - -In addition, mere aggregation of another work not based on the Program -with the Program (or with a work based on the Program) on a volume of -a storage or distribution medium does not bring the other work under -the scope of this License. - - 3. You may copy and distribute the Program (or a work based on it, -under Section 2) in object code or executable form under the terms of -Sections 1 and 2 above provided that you also do one of the following: - - a) Accompany it with the complete corresponding machine-readable - source code, which must be distributed under the terms of Sections - 1 and 2 above on a medium customarily used for software interchange; or, - - b) Accompany it with a written offer, valid for at least three - years, to give any third party, for a charge no more than your - cost of physically performing source distribution, a complete - machine-readable copy of the corresponding source code, to be - distributed under the terms of Sections 1 and 2 above on a medium - customarily used for software interchange; or, - - c) Accompany it with the information you received as to the offer - to distribute corresponding source code. (This alternative is - allowed only for noncommercial distribution and only if you - received the program in object code or executable form with such - an offer, in accord with Subsection b above.) - -The source code for a work means the preferred form of the work for -making modifications to it. For an executable work, complete source -code means all the source code for all modules it contains, plus any -associated interface definition files, plus the scripts used to -control compilation and installation of the executable. However, as a -special exception, the source code distributed need not include -anything that is normally distributed (in either source or binary -form) with the major components (compiler, kernel, and so on) of the -operating system on which the executable runs, unless that component -itself accompanies the executable. - -If distribution of executable or object code is made by offering -access to copy from a designated place, then offering equivalent -access to copy the source code from the same place counts as -distribution of the source code, even though third parties are not -compelled to copy the source along with the object code. - - - 4. You may not copy, modify, sublicense, or distribute the Program -except as expressly provided under this License. Any attempt -otherwise to copy, modify, sublicense or distribute the Program is -void, and will automatically terminate your rights under this License. -However, parties who have received copies, or rights, from you under -this License will not have their licenses terminated so long as such -parties remain in full compliance. - - 5. You are not required to accept this License, since you have not -signed it. However, nothing else grants you permission to modify or -distribute the Program or its derivative works. These actions are -prohibited by law if you do not accept this License. Therefore, by -modifying or distributing the Program (or any work based on the -Program), you indicate your acceptance of this License to do so, and -all its terms and conditions for copying, distributing or modifying -the Program or works based on it. - - 6. Each time you redistribute the Program (or any work based on the -Program), the recipient automatically receives a license from the -original licensor to copy, distribute or modify the Program subject to -these terms and conditions. You may not impose any further -restrictions on the recipients' exercise of the rights granted herein. -You are not responsible for enforcing compliance by third parties to -this License. - - 7. If, as a consequence of a court judgment or allegation of patent -infringement or for any other reason (not limited to patent issues), -conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot -distribute so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you -may not distribute the Program at all. For example, if a patent -license would not permit royalty-free redistribution of the Program by -all those who receive copies directly or indirectly through you, then -the only way you could satisfy both it and this License would be to -refrain entirely from distribution of the Program. - -If any portion of this section is held invalid or unenforceable under -any particular circumstance, the balance of the section is intended to -apply and the section as a whole is intended to apply in other -circumstances. - -It is not the purpose of this section to induce you to infringe any -patents or other property right claims or to contest validity of any -such claims; this section has the sole purpose of protecting the -integrity of the free software distribution system, which is -implemented by public license practices. Many people have made -generous contributions to the wide range of software distributed -through that system in reliance on consistent application of that -system; it is up to the author/donor to decide if he or she is willing -to distribute software through any other system and a licensee cannot -impose that choice. - -This section is intended to make thoroughly clear what is believed to -be a consequence of the rest of this License. - - - 8. If the distribution and/or use of the Program is restricted in -certain countries either by patents or by copyrighted interfaces, the -original copyright holder who places the Program under this License -may add an explicit geographical distribution limitation excluding -those countries, so that distribution is permitted only in or among -countries not thus excluded. In such case, this License incorporates -the limitation as if written in the body of this License. - - 9. The Free Software Foundation may publish revised and/or new versions -of the General Public License from time to time. Such new versions will -be similar in spirit to the present version, but may differ in detail to -address new problems or concerns. - -Each version is given a distinguishing version number. If the Program -specifies a version number of this License which applies to it and "any -later version", you have the option of following the terms and conditions -either of that version or of any later version published by the Free -Software Foundation. If the Program does not specify a version number of -this License, you may choose any version ever published by the Free Software -Foundation. - - 10. If you wish to incorporate parts of the Program into other free -programs whose distribution conditions are different, write to the author -to ask for permission. For software which is copyrighted by the Free -Software Foundation, write to the Free Software Foundation; we sometimes -make exceptions for this. Our decision will be guided by the two goals -of preserving the free status of all derivatives of our free software and -of promoting the sharing and reuse of software generally. - - NO WARRANTY - - 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED -OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS -TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE -PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, -REPAIR OR CORRECTION. - - 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, -INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING -OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED -TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY -YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER -PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE -POSSIBILITY OF SUCH DAMAGES. - - END OF TERMS AND CONDITIONS - - - How to Apply These Terms to Your New Programs - - If you develop a new program, and you want it to be of the greatest -possible use to the public, the best way to achieve this is to make it -free software which everyone can redistribute and change under these terms. - - To do so, attach the following notices to the program. It is safest -to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least -the "copyright" line and a pointer to where the full notice is found. - - <one line to give the program's name and a brief idea of what it does.> - Copyright (C) 19yy <name of author> - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - - -Also add information on how to contact you by electronic and paper mail. - -If the program is interactive, make it output a short notice like this -when it starts in an interactive mode: - - Gnomovision version 69, Copyright (C) 19yy name of author - Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. - This is free software, and you are welcome to redistribute it - under certain conditions; type `show c' for details. - -The hypothetical commands `show w' and `show c' should show the appropriate -parts of the General Public License. Of course, the commands you use may -be called something other than `show w' and `show c'; they could even be -mouse-clicks or menu items--whatever suits your program. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the program, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the program - `Gnomovision' (which makes passes at compilers) written by James Hacker. - - <signature of Ty Coon>, 1 April 1989 - Ty Coon, President of Vice - -This General Public License does not permit incorporating your program into -proprietary programs. If your program is a subroutine library, you may -consider it more useful to permit linking proprietary applications with the -library. If this is what you want to do, use the GNU Library General -Public License instead of this License. - diff --git a/externals/grill/vasp/license.txt b/externals/grill/vasp/license.txt deleted file mode 100644 index 9f60de24..00000000 --- a/externals/grill/vasp/license.txt +++ /dev/null @@ -1,64 +0,0 @@ -VASP modular - vector assembling signal processor -Object library for Max/MSP and PD -Copyright (C) 2002-2005 Thomas Grill - -This program is free software; you can redistribute it and/or -modify it under the terms of the GNU General Public License -as published by the Free Software Foundation; either version 2 -of the License, or (at your option) any later version. - -There is one exception though, concerning the usage of the -mixfft code by Jens Joergen Nielsen. See the file mixfft.txt -for the respective licensing details. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -In the official VASP distribution, the GNU General Public License is -in the file gpl.txt - - -Excluded from this license is the source code file of MixFFT. -See the mixfft.txt file of the VASP package for the respective license text. - ---------------------------------------------------------- - - OTHER COPYRIGHT NOTICES - ---------------------------------------------------------- - -The package is based on ideas originally conceived and -programmed in FORTRAN by Guenther Rabl. - -VASP modular uses some code - see the license texts below. - ---- flext ---------------------------------------------- -flext - C++ layer for Max/MSP and pd (pure data) externals -Copyright (C) 2001-2005 Thomas Grill - -This program is free software; you can redistribute it and/or -modify it under the terms of the GNU General Public License -as published by the Free Software Foundation; either version 2 -of the License, or (at your option) any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -In the official flext distribution, the GNU General Public License is -in the file gpl.txt - ---- mixfft ---------------------------------------------- -See the file mixfft.txt included with the VASP distribution. - diff --git a/externals/grill/vasp/max-ex/convolve b/externals/grill/vasp/max-ex/convolve Binary files differdeleted file mode 100755 index 2df42983..00000000 --- a/externals/grill/vasp/max-ex/convolve +++ /dev/null diff --git a/externals/grill/vasp/max-ex/freeze b/externals/grill/vasp/max-ex/freeze Binary files differdeleted file mode 100755 index be52f100..00000000 --- a/externals/grill/vasp/max-ex/freeze +++ /dev/null diff --git a/externals/grill/vasp/max-help/vasp.abs.help b/externals/grill/vasp/max-help/vasp.abs.help deleted file mode 100755 index 1292ea00..00000000 --- a/externals/grill/vasp/max-help/vasp.abs.help +++ /dev/null @@ -1,56 +0,0 @@ -max v2; -#N vpatcher 158 140 813 450; -#P origin 0 10; -#P message 435 237 61 196617 vasp bufabs; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 435 255 78 196617 p clear_buffers; -#P comment 146 190 107 196617 get the absolute values; -#P button 128 188 15 0; -#P newex 64 188 60 196617 prepend set; -#P newex 64 252 61 196617 vasp.update; -#P comment 133 136 99 196617 generate a sinewave; -#P message 64 135 61 196617 vasp bufabs; -#P newex 64 156 80 196617 vasp.osc 22050; -#P comment 59 63 137 196617 get absolute values of a vasp; -#P comment 59 40 89 196622 vasp.abs; -#P hidden message 310 114 54 196617 set bufabs; -#P hidden newex 310 94 45 196617 loadbang; -#P user waveform~ 310 133 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 521 255 101 196617 buffer~ bufabs 2000; -#P newex 64 213 45 196617 vasp.abs; -#P comment 59 79 402 196617 see also vasp.*.help for an example using vasp.abs to generate an envelope from a vasp; -#P connect 9 0 8 0; -#P connect 8 0 12 0; -#P connect 12 0 1 0; -#P fasten 13 0 1 0 133 208 69 208; -#P connect 1 0 11 0; -#P hidden connect 4 0 5 0; -#P hidden connect 5 0 3 0; -#P connect 16 0 15 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.add.help b/externals/grill/vasp/max-help/vasp.add.help deleted file mode 100755 index 0da7d475..00000000 --- a/externals/grill/vasp/max-help/vasp.add.help +++ /dev/null @@ -1,68 +0,0 @@ -max v2; -#N vpatcher 124 137 939 457; -#P origin 0 22; -#P message 580 242 52 196617 vasp buf+; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 580 263 73 196617 p clear_buffer; -#P comment 346 192 101 196617 shift all values - 0.5; -#P comment 112 191 131 196617 shift all values + 0.5; -#P comment 113 168 132 196617 half the amplitude; -#P comment 285 62 205 196617 optional argument/right inlet: right operand; -#P comment 285 45 195 196617 subtracts a value or a vasp from a vasp; -#P comment 285 21 89 196622 vasp.-; -#P message 288 112 52 196617 vasp buf+; -#P newex 288 212 61 196617 vasp.update; -#P newex 288 189 55 196617 vasp.- 0.5; -#P newex 288 144 80 196617 vasp.osc 44100; -#P newex 288 166 55 196617 vasp.* 0.5; -#P message 54 112 52 196617 vasp buf+; -#P newex 54 212 61 196617 vasp.update; -#P newex 54 189 55 196617 vasp.+ 0.5; -#P newex 54 144 80 196617 vasp.osc 44100; -#P hidden message 450 112 45 196617 set buf+; -#P hidden newex 450 91 45 196617 loadbang; -#P user waveform~ 450 132 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 671 263 92 196617 buffer~ buf+ 2000; -#P newex 54 166 55 196617 vasp.* 0.5; -#P comment 52 62 205 196617 optional argument/right inlet: right operand; -#P comment 52 45 168 196617 adds a value or a vasp to a vasp; -#P comment 52 21 89 196622 vasp.+; -#P comment 137 146 132 196617 generate a 1Hz sine wave; -#P connect 12 0 9 0; -#P connect 9 0 4 0; -#P connect 4 0 10 0; -#P connect 10 0 11 0; -#P connect 17 0 14 0; -#P connect 14 0 13 0; -#P connect 13 0 15 0; -#P connect 15 0 16 0; -#P hidden connect 7 0 8 0; -#P hidden connect 8 0 6 0; -#P connect 25 0 24 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.amaxq.help b/externals/grill/vasp/max-help/vasp.amaxq.help deleted file mode 100755 index 81e404e5..00000000 --- a/externals/grill/vasp/max-help/vasp.amaxq.help +++ /dev/null @@ -1,104 +0,0 @@ -max v2; -#N vpatcher 279 142 977 614; -#P message 477 385 75 196617 vasp bufamax?; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 477 405 73 196617 p clear_buffer; -#P hidden newex 554 368 48 196617 r 1148path; -#P user umenu 72 105 72 196647 1 64 121 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1148path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 134 127 43 196617 p loader; -#P comment 46 107 26 196617 read; -#P flonum 80 229 68 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 46 61 242 196617 maximum value of the absolute values of a vasp; -#P message 52 197 75 196617 vasp bufamax?; -#P newex 52 262 38 196617 vasp./; -#P newex 52 284 61 196617 vasp.update; -#P newex 52 383 45 196617 vasp.opt; -#P message 52 350 75 196617 vasp bufamax?; -#P newex 52 165 84 196617 vasp.amax?; -#P hidden message 357 142 69 196617 set bufamax?; -#P hidden newex 357 116 45 196617 loadbang; -#P user waveform~ 357 161 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 304 405 27 196617 stop; -#P message 237 405 65 196617 startwindow; -#P newex 357 383 30 196617 line~; -#P message 357 363 72 196617 0 \, 2000 2000; -#P newex 357 431 29 196617 dac~; -#P newex 357 405 80 196617 play~ bufamax?; -#P newex 52 405 61 196617 vasp.update; -#P message 52 144 75 196617 vasp bufamax?; -#P newex 554 405 115 196617 buffer~ bufamax? 2000; -#P comment 128 145 221 196617 find the absolute maximum of this soundfile; -#P comment 150 230 141 196617 -> current absolute maximum; -#P comment 93 264 153 196617 use it to optimize buffer content; -#P comment 46 333 179 196617 or use vasp.opt which does the same; -#P comment 46 37 91 196622 vasp.amax?; -#P comment 46 76 137 196617 right outlet: calculated value; -#P connect 7 0 18 0; -#P fasten 23 0 22 0 57 236 57 236; -#P connect 22 0 21 0; -#P connect 19 0 20 0; -#P connect 20 0 8 0; -#P fasten 18 1 25 0 131 224 85 224; -#P connect 25 0 22 1; -#P hidden connect 28 1 27 0; -#P hidden fasten 6 1 17 0 664 428 675 428 675 138 362 138; -#P hidden connect 16 0 17 0; -#P hidden connect 17 0 15 0; -#P connect 11 0 12 0; -#P connect 12 0 9 0; -#P fasten 13 0 10 0 242 426 362 426; -#P fasten 14 0 10 0 309 426 362 426; -#P connect 9 0 10 0; -#P connect 9 0 10 1; -#P connect 31 0 30 0; -#P hidden connect 29 0 6 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.aminq.help b/externals/grill/vasp/max-help/vasp.aminq.help deleted file mode 100755 index 07289028..00000000 --- a/externals/grill/vasp/max-help/vasp.aminq.help +++ /dev/null @@ -1,92 +0,0 @@ -max v2; -#N vpatcher 201 150 928 511; -#P origin 0 16; -#P message 501 272 73 196617 vasp bufamin?; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 501 292 73 196617 p clear_buffer; -#P hidden newex 583 267 48 196617 r 1038path; -#P user umenu 69 118 72 196647 1 64 134 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1038path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 131 140 43 196617 p loader; -#P comment 43 120 26 196617 read; -#P flonum 105 223 68 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 43 67 253 196617 minimum value of the absolute values of a vasp; -#P newex 56 183 59 196617 vasp.amin?; -#P hidden message 384 99 65 196617 set bufamin?; -#P hidden newex 384 74 45 196617 loadbang; -#P user waveform~ 384 124 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 331 292 27 196617 stop; -#P message 264 292 65 196617 startwindow; -#P newex 384 270 30 196617 line~; -#P message 384 250 72 196617 0 \, 2000 2000; -#P newex 384 318 29 196617 dac~; -#P newex 384 292 75 196617 play~ bufamin?; -#P message 56 157 73 196617 vasp bufamin?; -#P newex 583 292 113 196617 buffer~ bufamin? 2000; -#P comment 131 158 218 196617 find the absolute minimum of this soundfile; -#P comment 176 225 141 196617 -> current absolute minimum; -#P comment 43 44 91 196622 vasp.amin?; -#P comment 43 82 137 196617 right outlet: calculated value; -#P connect 5 0 15 0; -#P connect 15 1 17 0; -#P hidden connect 20 1 19 0; -#P hidden fasten 4 1 14 0 691 311 701 311 701 95 389 95; -#P hidden connect 13 0 14 0; -#P hidden connect 14 0 12 0; -#P connect 8 0 9 0; -#P connect 9 0 6 0; -#P fasten 10 0 7 0 269 312 389 312; -#P fasten 11 0 7 0 336 312 389 312; -#P connect 6 0 7 0; -#P connect 6 0 7 1; -#P connect 23 0 22 0; -#P hidden connect 21 0 4 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.beveldn.help b/externals/grill/vasp/max-help/vasp.beveldn.help deleted file mode 100755 index 87a58e65..00000000 --- a/externals/grill/vasp/max-help/vasp.beveldn.help +++ /dev/null @@ -1,92 +0,0 @@ -max v2; -#N vpatcher 89 186 867 430; -#P message 557 185 73 196617 vasp bufbevel!; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 557 205 73 196617 p clear_buffer; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 435 24 49 196617 p wfkeys; -#P comment 219 56 168 196617 generates a linear ramp from 1 to 0; -#P comment 219 34 89 196622 vasp.!bevel; -#P message 225 84 73 196617 vasp bufbevel!; -#P newex 225 112 59 196617 vasp.!bevel; -#P newex 225 138 61 196617 vasp.update; -#P newex 41 112 55 196617 vasp.bevel; -#P hidden message 435 65 65 196617 set bufbevel!; -#P hidden newex 435 46 45 196617 loadbang; -#P user waveform~ 435 83 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 41 138 61 196617 vasp.update; -#P message 41 84 73 196617 vasp bufbevel!; -#P newex 635 205 113 196617 buffer~ bufbevel! 2000; -#P comment 38 56 168 196617 generates a linear ramp from 0 to 1; -#P comment 38 34 89 196622 vasp.bevel; -#P connect 3 0 8 0; -#P connect 8 0 4 0; -#P connect 11 0 10 0; -#P connect 10 0 9 0; -#P hidden connect 6 0 7 0; -#P hidden connect 7 0 5 0; -#P hidden connect 14 0 5 0; -#P connect 16 0 15 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.bevelup.help b/externals/grill/vasp/max-help/vasp.bevelup.help deleted file mode 100755 index 61e5ab2e..00000000 --- a/externals/grill/vasp/max-help/vasp.bevelup.help +++ /dev/null @@ -1,92 +0,0 @@ -max v2; -#N vpatcher 141 224 919 475; -#P message 562 189 70 196617 vasp bufbevel; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 562 209 73 196617 p clear_buffer; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 438 29 49 196617 p wfkeys; -#P comment 222 59 168 196617 generates a linear ramp from 1 to 0; -#P comment 222 37 89 196622 vasp.!bevel; -#P message 228 87 70 196617 vasp bufbevel; -#P newex 228 115 59 196617 vasp.!bevel; -#P newex 228 141 61 196617 vasp.update; -#P newex 44 115 55 196617 vasp.bevel; -#P hidden message 438 69 63 196617 set bufbevel; -#P hidden newex 438 50 45 196617 loadbang; -#P user waveform~ 438 86 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 44 141 61 196617 vasp.update; -#P message 44 87 70 196617 vasp bufbevel; -#P newex 640 209 110 196617 buffer~ bufbevel 2000; -#P comment 41 59 168 196617 generates a linear ramp from 0 to 1; -#P comment 41 37 89 196622 vasp.bevel; -#P connect 3 0 8 0; -#P connect 8 0 4 0; -#P connect 11 0 10 0; -#P connect 10 0 9 0; -#P hidden connect 6 0 7 0; -#P hidden connect 7 0 5 0; -#P hidden connect 14 0 5 0; -#P connect 16 0 15 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cdiv.help b/externals/grill/vasp/max-help/vasp.cdiv.help deleted file mode 100755 index 820a1d4f..00000000 --- a/externals/grill/vasp/max-help/vasp.cdiv.help +++ /dev/null @@ -1,12 +0,0 @@ -max v2; -#N vpatcher 227 188 626 430; -#P comment 43 141 118 196617 c \, d ... right operand; -#P comment 43 126 118 196617 a \, b ... left operand; -#P comment 43 111 102 196617 e \, f ... target buffers; -#P newex 229 79 43 196617 vasp.c/; -#P comment 43 184 300 196617 differences in lengths are adjusted to smaller vector of each pair; -#P comment 43 81 98 196617 e+if=(a+ib)/(c+id); -#P comment 43 42 89 196622 vasp.c/; -#P comment 43 168 302 196617 vasp.c/ needs 2 vectors per operand which are treated as pairs; -#P comment 43 65 109 196617 complex division; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cfft.help b/externals/grill/vasp/max-help/vasp.cfft.help deleted file mode 100755 index d72d0030..00000000 --- a/externals/grill/vasp/max-help/vasp.cfft.help +++ /dev/null @@ -1,414 +0,0 @@ -max v2; -#N vpatcher 146 162 914 644; -#P origin 0 8; -#P message 546 392 84 196617 vasp bufre bufim; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 546 413 78 196617 p clear_buffers; -#P hidden newex 631 367 54 196617 r 1061path1; -#P user umenu 255 103 72 196647 1 64 119 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 54 196617 s 1061path1; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P connect 4 0 1 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 317 133 43 196617 p loader; -#P comment 229 105 26 196617 read; -#P comment 140 319 217 196617 inverse cfft to transform back to time domain; -#P newex 54 367 61 196617 vasp.update; -#P message 54 318 84 196617 vasp bufre bufim; -#P newex 54 346 52 196617 vasp.c!fft; -#N vpatcher 122 59 923 629; -#P origin 0 12; -#P comment 100 398 152 196617 set selected samples to 0; -#P user umenu 259 107 72 196647 1 64 123 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 344 681; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1061path; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P connect 4 0 1 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 321 137 43 196617 p loader; -#P message 566 469 95 196617 vasp bufre1 bufim1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 566 489 78 196617 p clear_buffers; -#P hidden newex 662 447 48 196617 r 1061path; -#P comment 230 108 26 196617 read; -#P comment 148 206 53 196617 transform; -#P comment 311 323 21 196617 and; -#P comment 283 323 17 196617 Hz; -#P flonum 224 321 59 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P hidden newex 554 406 27 196617 - 0.; -#P hidden newex 554 385 27 196617 t b f; -#P newex 51 489 61 196617 vasp.update; -#P comment 150 448 54 196617 invers cfft; -#P message 51 447 95 196617 vasp bufre1 bufim1; -#P newex 51 467 52 196617 vasp.c!fft; -#P comment 115 269 207 196617 clear upper (mirrored frequencies); -#P newex 51 287 61 196617 vasp.update; -#P newex 51 267 45 196617 vasp.= 0; -#P button 334 321 15 0; -#P newex 51 417 61 196617 vasp.update; -#P newex 51 396 45 196617 vasp.= 0; -#P message 67 373 158 196617 set vasp \$1 bufre1 \$2 bufim1 \$2; -#N vpatcher 139 82 551 321; -#P origin 0 107; -#N comlet length and offset as a list; -#P outlet 99 199 15 0; -#P comment 161 182 194 196617 2nd element of the list offset of the vasp; -#N comlet loop startpoint; -#P inlet 69 24 15 0; -#N comlet loop endpoint; -#P inlet 99 24 15 0; -#P newex 99 94 27 196617 - 0.; -#P newex 99 73 27 196617 t b f; -#P comment 181 117 72 196617 msec to samps; -#P comment 136 93 118 196617 <<< end - start = length; -#P newex 255 135 87 196617 * 44.099998; -#P newex 99 114 71 196617 * 44.099998; -#P newex 99 162 50 196617 pack 0 0; -#P comment 162 165 194 196617 1st element of the list lenght of the vasp; -#P fasten 9 0 6 0 74 61 104 61; -#P fasten 8 0 7 0 104 52 89 52 89 92 104 92; -#P connect 6 0 7 0; -#P connect 7 0 2 0; -#P connect 2 0 1 0; -#P connect 1 0 11 0; -#P connect 6 1 7 1; -#P fasten 3 0 1 1 260 157 144 157; -#P fasten 9 0 3 0 74 61 260 61; -#P pop; -#P newobj 67 346 64 196617 p looptovasp; -#P comment 452 365 71 196617 selection from; -#P comment 668 365 17 196617 Hz; -#P comment 586 365 17 196617 to; -#P flonum 606 363 59 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P flonum 525 363 59 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P hidden newex 606 342 27 196617 / 4.; -#P hidden newex 525 342 27 196617 / 4.; -#P hidden newex 606 325 67 196617 * 44.099998; -#P hidden newex 525 324 66 196617 * 44.099998; -#P comment 737 318 42 196617 44.1kHz; -#P comment 451 319 35 196617 0 Hz; -#P newex 51 246 55 196617 vasp.upper; -#P comment 714 202 49 196617 imaginary; -#P message 51 205 95 196617 vasp bufre1 bufim1; -#P newex 51 226 49 196617 vasp.cfft; -#P hidden message 452 198 55 196617 set bufim1; -#P user waveform~ 452 216 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 662 489 102 196617 buffer~ bufim1 4000; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 452 33 49 196617 p wfkeys; -#P message 411 490 27 196617 stop; -#P message 343 490 65 196617 startwindow; -#P newex 452 516 29 196617 dac~; -#P newex 452 464 30 196617 line~; -#P message 452 441 72 196617 0 \, 4000 4000; -#P newex 452 489 65 196617 play~ bufre1; -#P hidden message 452 76 55 196617 set bufre1; -#P hidden newex 452 55 45 196617 loadbang; -#P user waveform~ 452 95 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 51 149 55 196617 vasp.* 0.5; -#P newex 51 171 61 196617 vasp.update; -#P message 51 107 62 196617 vasp bufre1; -#P newex 662 469 102 196617 buffer~ bufre1 4000; -#P newex 51 127 55 196617 vasp.noise; -#P comment 45 60 242 196617 clear a region in the frequency domain to get a filter; -#P comment 45 38 144 196622 filter_example; -#P comment 115 108 112 196617 generate white noise or; -#P comment 739 82 26 196617 real; -#P comment 115 289 207 196617 now time is frequency and frequency is time; -#P comment 594 317 35 196617 sr/2; -#P comment 132 348 286 196617 this patcher scales a wavedraw selection into the vasp format; -#P comment 67 323 152 196617 select a region ( frequency band); -#P connect 10 0 8 0; -#P connect 8 0 12 0; -#P connect 12 0 11 0; -#P connect 27 0 26 0; -#P connect 26 0 29 0; -#P connect 29 0 46 0; -#P connect 46 0 47 0; -#P connect 42 0 43 0; -#P fasten 45 0 43 0 339 342 56 342; -#P lcolor 15; -#P connect 43 0 44 0; -#P connect 50 0 49 0; -#P connect 49 0 52 0; -#P hidden fasten 24 2 41 0 577 318 72 318; -#P connect 41 0 42 0; -#P hidden fasten 24 3 41 1 637 318 126 318; -#P hidden fasten 54 0 55 0 559 425 426 425 426 318 229 318; -#P hidden connect 64 1 63 0; -#P hidden connect 14 0 15 0; -#P hidden fasten 9 1 15 0 759 486 774 486 774 75; -#P hidden connect 22 0 13 0; -#P hidden connect 15 0 13 0; -#P hidden fasten 14 0 25 0 457 198 457 198; -#P hidden connect 25 0 24 0; -#P hidden fasten 22 0 24 0 457 91 457 91; -#P connect 17 0 18 0; -#P connect 18 0 16 0; -#P fasten 21 0 19 0 416 509 457 509; -#P fasten 20 0 19 0 348 509 457 509; -#P connect 16 0 19 0; -#P connect 16 0 19 1; -#P hidden fasten 24 2 32 0 577 323 530 323; -#P hidden connect 32 0 34 0; -#P hidden connect 34 0 36 0; -#P hidden fasten 36 0 53 0 530 382 559 382; -#P hidden fasten 37 0 54 0 611 404 559 404; -#P hidden connect 53 0 54 0; -#P connect 62 0 61 0; -#P hidden connect 53 1 54 1; -#P hidden fasten 24 3 33 0 637 323 611 323; -#P hidden connect 33 0 35 0; -#P hidden connect 35 0 37 0; -#P hidden connect 60 0 9 0; -#P hidden fasten 24 5 13 4 757 346 757 346 757 73 757 73; -#P hidden connect 13 5 24 4; -#P pop; -#P newobj 54 411 83 196617 p filter_example; -#P comment 699 315 42 196617 44.1kHz; -#P comment 413 316 35 196617 0 Hz; -#P newex 54 272 61 196617 vasp.update; -#P comment 677 198 49 196617 imaginary; -#P message 54 223 84 196617 vasp bufre bufim; -#P newex 54 244 49 196617 vasp.cfft; -#P hidden message 414 195 50 196617 set bufim; -#P user waveform~ 414 213 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 631 412 95 196617 buffer~ bufim 4000; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 414 30 49 196617 p wfkeys; -#P message 373 413 27 196617 stop; -#P message 305 413 65 196617 startwindow; -#P newex 414 439 29 196617 dac~; -#P newex 414 387 30 196617 line~; -#P message 414 364 72 196617 0 \, 4000 4000; -#P newex 414 412 60 196617 play~ bufre; -#P hidden message 414 73 49 196617 set bufre; -#P hidden newex 414 52 45 196617 loadbang; -#P user waveform~ 414 92 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 55 158 55 196617 vasp.* 0.5; -#P newex 55 180 61 196617 vasp.update; -#P message 55 104 55 196617 vasp bufre; -#P newex 631 392 95 196617 buffer~ bufre 4000; -#P newex 55 136 55 196617 vasp.noise; -#P comment 53 58 182 196617 complex fourier transformation; -#P comment 53 35 89 196622 vasp.cfft; -#P comment 113 105 115 196617 generate white noise or; -#P comment 53 73 105 196617 cfft needs two buffers; -#P comment 703 78 26 196617 real; -#P comment 119 275 207 196617 now time is frequency and frequency is time; -#P comment 556 314 35 196617 sr/2; -#P connect 26 0 25 0; -#P connect 25 0 28 0; -#P connect 33 0 32 0; -#P connect 32 0 34 0; -#P connect 9 0 7 0; -#P connect 7 0 11 0; -#P connect 11 0 10 0; -#P hidden connect 38 1 37 0; -#P hidden connect 13 0 14 0; -#P hidden fasten 8 1 14 0 721 408 737 408 737 72; -#P hidden connect 21 0 12 0; -#P hidden connect 14 0 12 0; -#P hidden fasten 13 0 24 0 419 195 419 195; -#P hidden connect 24 0 23 0; -#P hidden fasten 21 0 23 0 419 88 419 88; -#P connect 16 0 17 0; -#P connect 17 0 15 0; -#P connect 15 0 18 0; -#P fasten 19 0 18 0 310 432 419 432; -#P fasten 20 0 18 0 378 432 419 432; -#P connect 15 0 18 1; -#P connect 41 0 40 0; -#P hidden connect 39 0 8 0; -#P hidden fasten 23 5 12 4 719 343 745 343 745 70 719 70; -#P hidden connect 12 5 23 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.chk.help b/externals/grill/vasp/max-help/vasp.chk.help deleted file mode 100755 index 37412227..00000000 --- a/externals/grill/vasp/max-help/vasp.chk.help +++ /dev/null @@ -1,20 +0,0 @@ -max v2; -#N vpatcher 215 115 767 458; -#P hidden message 411 138 22 196617 set; -#P hidden newex 411 104 45 196617 loadbang; -#P comment 237 127 150 196617 buffer length = 88200 samples; -#P comment 237 272 253 196617 corrected vasp with maximum length at offset 44100; -#P newex 70 246 60 196617 prepend set; -#P message 70 170 135 196617 vasp 88200 bufchk 44100 0; -#P newex 70 194 45 196617 vasp.chk; -#P newex 70 125 101 196617 buffer~ bufchk 2000; -#P comment 59 77 272 196617 checks the dimensions of a vasp and corrects them; -#P comment 59 55 89 196622 vasp.chk; -#P comment 237 171 150 196617 vasp with impossible dimensions; -#P message 70 271 165 196617; -#P connect 6 0 5 0; -#P connect 5 0 7 0; -#P connect 7 0 0 0; -#P hidden fasten 11 0 0 0 416 266 75 266; -#P hidden connect 10 0 11 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cifft.help b/externals/grill/vasp/max-help/vasp.cifft.help deleted file mode 100755 index 0912ba43..00000000 --- a/externals/grill/vasp/max-help/vasp.cifft.help +++ /dev/null @@ -1,407 +0,0 @@ -max v2; -#N vpatcher 153 83 876 572; -#P origin 0 10; -#P user umenu 80 104 72 196647 1 64 120 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 344 681; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 54 196617 s 1063path1; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 4 0 1 0; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 142 125 43 196617 p loader; -#P message 501 400 90 196617 vasp bufre! bufim!; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 501 420 78 196617 p clear_buffers; -#P hidden newex 593 370 54 196617 r 1063path1; -#P comment 53 106 26 196617 read; -#P comment 154 312 214 196617 inverse cfft to transform back to time domain; -#P newex 62 360 61 196617 vasp.update; -#P message 62 311 90 196617 vasp bufre! bufim!; -#P newex 62 339 52 196617 vasp.c!fft; -#N vpatcher 155 102 963 712; -#P origin 0 7; -#P user umenu 262 101 72 196647 1 64 117 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 344 681; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1063path; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P connect 4 0 1 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 324 123 43 196617 p loader; -#P message 558 519 102 196617 vasp bufre1! bufim1!; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 558 539 78 196617 p clear_buffers; -#P hidden newex 662 492 48 196617 r 1063path; -#P comment 235 103 26 196617 read; -#P flonum 367 323 33 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 157 201 148 196617 transform to frequency domain; -#P comment 288 325 79 196617 Hz \, a gainfactor; -#P flonum 227 323 59 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P hidden newex 557 401 27 196617 - 0.; -#P hidden newex 557 380 27 196617 t b f; -#P newex 54 539 61 196617 vasp.update; -#P comment 159 498 177 196617 invers cfft to get back to time domain; -#P message 54 497 102 196617 vasp bufre1! bufim1!; -#P newex 54 517 52 196617 vasp.c!fft; -#P comment 105 264 167 196617 clear upper (mirrored frequencies); -#P newex 54 282 61 196617 vasp.update; -#P newex 54 262 45 196617 vasp.= 0; -#P button 97 342 15 0; -#P newex 54 467 61 196617 vasp.update; -#P newex 54 446 51 196617 vasp.* 1.; -#P message 64 399 164 196617 set vasp \$1 bufre1! \$2 bufim1! \$2; -#N vpatcher 139 82 551 321; -#P origin 0 107; -#N comlet length and offset as a list; -#P outlet 99 199 15 0; -#P comment 161 182 194 196617 2nd element of the list offset of the vasp; -#N comlet loop startpoint; -#P inlet 69 24 15 0; -#N comlet loop endpoint; -#P inlet 99 24 15 0; -#P newex 99 94 27 196617 - 0.; -#P newex 99 73 27 196617 t b f; -#P comment 181 117 72 196617 msec to samps; -#P comment 136 93 118 196617 <<< end - start = length; -#P newex 255 135 87 196617 * 44.099998; -#P newex 99 114 71 196617 * 44.099998; -#P newex 99 162 50 196617 pack 0 0; -#P comment 162 165 194 196617 1st element of the list lenght of the vasp; -#P fasten 9 0 6 0 74 61 104 61; -#P connect 6 0 7 0; -#P fasten 8 0 7 0 104 52 89 52 89 92 104 92; -#P connect 7 0 2 0; -#P connect 2 0 1 0; -#P connect 1 0 11 0; -#P connect 6 1 7 1; -#P fasten 3 0 1 1 260 157 144 157; -#P fasten 9 0 3 0 74 61 260 61; -#P pop; -#P newobj 64 371 64 196617 p looptovasp; -#P comment 455 360 71 196617 selection from; -#P comment 671 360 17 196617 Hz; -#P comment 589 360 17 196617 to; -#P flonum 609 358 59 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P flonum 528 358 59 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P hidden newex 609 337 27 196617 / 4.; -#P hidden newex 528 337 27 196617 / 4.; -#P hidden newex 609 320 67 196617 * 44.099998; -#P hidden newex 528 319 66 196617 * 44.099998; -#P comment 740 313 42 196617 44.1kHz; -#P comment 454 314 35 196617 0 Hz; -#P newex 54 241 55 196617 vasp.upper; -#P comment 717 197 49 196617 imaginary; -#P message 54 200 102 196617 vasp bufre1! bufim1!; -#P newex 54 221 49 196617 vasp.cfft; -#P hidden message 455 193 59 196617 set bufim1!; -#P user waveform~ 455 211 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 662 539 105 196617 buffer~ bufim1! 4000; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 455 28 49 196617 p wfkeys; -#P message 414 541 27 196617 stop; -#P message 346 541 65 196617 startwindow; -#P newex 455 567 29 196617 dac~; -#P newex 455 515 30 196617 line~; -#P message 455 492 72 196617 0 \, 4000 4000; -#P newex 455 539 69 196617 play~ bufre1!; -#P hidden message 455 71 58 196617 set bufre1!; -#P hidden newex 455 50 45 196617 loadbang; -#P user waveform~ 455 90 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 54 144 55 196617 vasp.* 0.5; -#P newex 54 166 61 196617 vasp.update; -#P message 54 102 65 196617 vasp bufre1!; -#P newex 662 519 105 196617 buffer~ bufre1! 4000; -#P newex 54 122 55 196617 vasp.noise; -#P comment 48 55 339 196617 change gain of a region in the frequency domain to filter a buffer content; -#P comment 48 33 144 196622 filter_example; -#P comment 120 103 114 196617 generate white noise or; -#P comment 744 77 26 196617 real; -#P comment 597 312 35 196617 sr/2; -#P comment 129 369 174 196617 this patcher scales a wavedraw selection into the vasp format; -#P comment 70 325 152 196617 select a region ( frequency band); -#P comment 70 343 25 196617 and; -#P connect 10 0 8 0; -#P connect 8 0 12 0; -#P connect 12 0 11 0; -#P connect 27 0 26 0; -#P connect 26 0 29 0; -#P connect 29 0 46 0; -#P connect 46 0 47 0; -#P fasten 42 0 43 0 69 430 59 430; -#P fasten 45 0 43 0 102 363 59 363; -#P connect 43 0 44 0; -#P connect 50 0 49 0; -#P connect 49 0 52 0; -#P hidden fasten 24 2 41 0 580 313 69 313; -#P connect 41 0 42 0; -#P fasten 58 0 43 1 372 428 100 428; -#P hidden fasten 24 3 41 1 640 313 123 313; -#P hidden fasten 54 0 55 0 562 420 429 420 429 313 232 313; -#P hidden connect 64 1 63 0; -#P hidden connect 14 0 15 0; -#P hidden fasten 9 1 15 0 762 537 774 537 774 70; -#P hidden connect 22 0 13 0; -#P hidden connect 15 0 13 0; -#P hidden fasten 14 0 25 0 460 193 460 193; -#P hidden fasten 22 0 24 0 460 86 460 86; -#P hidden connect 25 0 24 0; -#P connect 17 0 18 0; -#P connect 18 0 16 0; -#P connect 16 0 19 0; -#P fasten 20 0 19 0 351 561 460 561; -#P fasten 21 0 19 0 419 561 460 561; -#P connect 16 0 19 1; -#P hidden fasten 24 2 32 0 580 315 533 315; -#P hidden connect 32 0 34 0; -#P hidden connect 34 0 36 0; -#P hidden fasten 36 0 53 0 533 377 562 377; -#P hidden connect 53 0 54 0; -#P hidden fasten 37 0 54 0 614 399 562 399; -#P connect 62 0 61 0; -#P hidden connect 53 1 54 1; -#P hidden fasten 24 3 33 0 640 315 614 315; -#P hidden connect 33 0 35 0; -#P hidden connect 35 0 37 0; -#P hidden fasten 60 0 9 0 667 512 667 512; -#P hidden fasten 24 5 13 4 760 341 760 341 760 68 760 68; -#P hidden connect 13 5 24 4; -#P pop; -#P newobj 62 420 85 196617 p filter_example!; -#P comment 666 312 42 196617 44.1kHz; -#P comment 380 312 35 196617 0 Hz; -#P newex 62 192 61 196617 vasp.update; -#P comment 644 193 49 196617 imaginary; -#P message 62 143 90 196617 vasp bufre! bufim!; -#P newex 62 171 49 196617 vasp.cfft; -#P hidden message 381 190 53 196617 set bufim!; -#P user waveform~ 381 208 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 593 420 100 196617 buffer~ bufim! 4000; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 381 25 49 196617 p wfkeys; -#P message 340 421 27 196617 stop; -#P message 272 421 65 196617 startwindow; -#P newex 381 447 29 196617 dac~; -#P newex 381 395 30 196617 line~; -#P message 381 372 72 196617 0 \, 4000 4000; -#P newex 381 420 63 196617 play~ bufre!; -#P hidden message 381 68 52 196617 set bufre!; -#P hidden newex 381 47 45 196617 loadbang; -#P user waveform~ 381 87 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 593 400 100 196617 buffer~ bufre! 4000; -#P comment 49 58 218 196617 inverse complex fourier transformation; -#P comment 49 35 89 196622 vasp.c!fft; -#P comment 49 73 123 196617 c!fft needs two buffers; -#P comment 670 73 26 196617 real; -#P comment 127 195 207 196617 now time is frequency and frequency is time; -#P comment 524 312 35 196617 sr/2; -#P comment 62 243 249 196617 to get back to the source file in time domain either use 3 more times vasp.cfft or just vasp.c!fft !!; -#P comment 155 144 146 196617 transform to frequency domain; -#P connect 23 0 22 0; -#P connect 22 0 25 0; -#P connect 30 0 29 0; -#P connect 29 0 31 0; -#P hidden connect 38 1 37 0; -#P hidden connect 10 0 11 0; -#P hidden fasten 8 1 11 0 688 417 701 417 701 67; -#P hidden connect 18 0 9 0; -#P hidden connect 11 0 9 0; -#P hidden fasten 10 0 21 0 386 190 386 190; -#P hidden fasten 18 0 20 0 386 83 386 83; -#P hidden connect 21 0 20 0; -#P connect 13 0 14 0; -#P connect 14 0 12 0; -#P connect 12 0 15 0; -#P fasten 17 0 15 0 345 440 386 440; -#P fasten 16 0 15 0 277 440 386 440; -#P connect 12 0 15 1; -#P connect 36 0 35 0; -#P hidden connect 34 0 8 0; -#P hidden fasten 20 5 9 4 686 338 686 338 686 65 686 65; -#P hidden connect 9 5 20 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cmul.help b/externals/grill/vasp/max-help/vasp.cmul.help deleted file mode 100755 index 25d92f2e..00000000 --- a/externals/grill/vasp/max-help/vasp.cmul.help +++ /dev/null @@ -1,12 +0,0 @@ -max v2; -#N vpatcher 258 153 655 401; -#P comment 45 142 118 196617 c \, d ... right operand; -#P comment 45 127 118 196617 a \, b ... left operand; -#P comment 45 112 102 196617 e \, f ... target buffers; -#P newex 239 97 44 196617 vasp.c*; -#P comment 45 187 300 196617 differences in lengths are adjusted to smaller vector of each pair; -#P comment 45 80 98 196617 e+if=(a+ib)*(c+id); -#P comment 45 41 89 196622 vasp.c*; -#P comment 45 171 302 196617 vasp.c* needs 2 vectors per operand which are treated as pairs; -#P comment 45 64 109 196617 complex multiplication; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cnoise.help b/externals/grill/vasp/max-help/vasp.cnoise.help deleted file mode 100755 index 8cdf423a..00000000 --- a/externals/grill/vasp/max-help/vasp.cnoise.help +++ /dev/null @@ -1,116 +0,0 @@ -max v2; -#N vpatcher 130 121 812 507; -#P message 391 318 131 196617 vasp bufcnoise1 bufcnoise2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 391 338 73 196617 p clear_buffer; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 332 25 49 196617 p wfkeys; -#P comment 527 196 117 196617 imaginary part of cnoise; -#P message 45 125 131 196617 vasp bufcnoise1 bufcnoise2; -#P hidden message 332 190 73 196617 set bufcnoise2; -#P user waveform~ 332 211 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 524 338 120 196617 buffer~ bufcnoise2 2000; -#P hidden message 332 64 73 196617 set bufcnoise1; -#P hidden newex 332 44 45 196617 loadbang; -#P user waveform~ 332 84 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 45 180 55 196617 vasp.* 0.5; -#P newex 45 205 61 196617 vasp.update; -#P newex 524 318 120 196617 buffer~ bufcnoise1 2000; -#P newex 45 156 60 196617 vasp.cnoise; -#P comment 45 63 168 196617 vasp complex noise generator; -#P comment 45 41 89 196622 vasp.cnoise; -#P comment 107 158 197 196617 generate a complex noise into two buffers; -#P comment 538 68 106 196617 real part of the cnoise; -#P comment 45 81 85 196617 needs 2 buffers; -#P connect 15 0 5 0; -#P connect 5 0 8 0; -#P connect 8 0 7 0; -#P hidden connect 10 0 11 0; -#P hidden connect 17 0 9 0; -#P hidden connect 11 0 9 0; -#P hidden fasten 10 0 14 0 337 54 337 54; -#P hidden fasten 14 0 13 0 337 206 337 206; -#P hidden connect 17 0 13 0; -#P connect 19 0 18 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cnorm.help b/externals/grill/vasp/max-help/vasp.cnorm.help deleted file mode 100755 index 23d44f30..00000000 --- a/externals/grill/vasp/max-help/vasp.cnorm.help +++ /dev/null @@ -1,177 +0,0 @@ -max v2; -#N vpatcher 176 110 856 641; -#P origin 0 8; -#P message 434 416 131 196617 vasp bufcnorm1 bufcnorm2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 434 483 78 196617 p clear_buffers; -#P hidden newex 519 440 54 196617 r #01path; -#P user umenu 89 115 72 196647 1 64 131 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 54 196617 s #01path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 151 140 43 196617 p loader; -#P newex 62 368 63 196617 vasp.* 0.05; -#P comment 195 240 101 196617 set all samples to 1; -#P newex 62 288 61 196617 vasp.update; -#P message 62 239 131 196617 vasp bufcnorm1 bufcnorm2; -#P newex 62 263 60 196617 vasp.cnorm; -#P comment 194 324 72 196617 inverse cfft; -#P newex 62 392 61 196617 vasp.update; -#P message 62 323 131 196617 vasp bufcnorm1 bufcnorm2; -#P newex 62 344 52 196617 vasp.c!fft; -#P comment 612 327 42 196617 44.1kHz; -#P comment 326 328 35 196617 0 Hz; -#P newex 62 207 61 196617 vasp.update; -#P comment 590 210 49 196617 imaginary; -#P message 62 158 131 196617 vasp bufcnorm1 bufcnorm2; -#P newex 62 179 49 196617 vasp.cfft; -#P hidden message 327 207 73 196617 set bufcnorm2; -#P user waveform~ 327 225 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 519 483 120 196617 buffer~ bufcnorm2 4000; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 327 42 49 196617 p wfkeys; -#P message 286 465 27 196617 stop; -#P message 218 465 65 196617 startwindow; -#P newex 327 484 29 196617 dac~; -#P newex 327 439 30 196617 line~; -#P message 327 416 72 196617 0 \, 4000 4000; -#P newex 327 465 84 196617 play~ bufcnorm1; -#P hidden message 327 85 73 196617 set bufcnorm1; -#P hidden newex 327 64 45 196617 loadbang; -#P user waveform~ 327 104 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 519 464 120 196617 buffer~ bufcnorm1 4000; -#P comment 58 69 218 196617 sets complex radius of samples to unity; -#P comment 58 47 89 196622 vasp.cnorm; -#P comment 58 84 105 196617 needs two buffers; -#P comment 616 90 26 196617 real; -#P comment 194 159 26 196617 cfft; -#P comment 469 326 35 196617 sr/2; -#P comment 127 370 172 196617 reduce gain (safe your loudspeakers); -#P comment 64 117 25 196617 read; -#P connect 23 0 22 0; -#P connect 22 0 25 0; -#P connect 33 0 32 0; -#P connect 32 0 34 0; -#P connect 29 0 28 0; -#P connect 28 0 36 0; -#P connect 36 0 30 0; -#P hidden connect 38 1 37 0; -#P hidden connect 10 0 11 0; -#P hidden fasten 8 1 11 0 634 481 655 481 655 84; -#P hidden connect 18 0 9 0; -#P hidden connect 11 0 9 0; -#P hidden fasten 10 0 21 0 332 207 332 207; -#P hidden fasten 18 0 20 0 332 100 332 100; -#P hidden connect 21 0 20 0; -#P connect 13 0 14 0; -#P connect 14 0 12 0; -#P connect 12 0 15 0; -#P fasten 16 0 15 0 223 484 332 484; -#P fasten 17 0 15 0 291 484 332 484; -#P connect 12 0 15 1; -#P connect 41 0 40 0; -#P hidden connect 39 0 8 0; -#P hidden fasten 20 5 9 4 632 327 650 327 650 101 632 101; -#P hidden connect 9 5 20 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cosc.help b/externals/grill/vasp/max-help/vasp.cosc.help deleted file mode 100755 index 6432d8f1..00000000 --- a/externals/grill/vasp/max-help/vasp.cosc.help +++ /dev/null @@ -1,139 +0,0 @@ -max v2; -#N vpatcher 162 250 877 640; -#P message 451 318 115 196617 vasp bufcosc1 bufcosc2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 451 338 78 196617 p clear_buffers; -#N vpatcher 169 125 534 375; -#P flonum 70 179 61 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 125 27 196617 t b f; -#P message 309 151 27 196617 stop; -#P message 243 151 65 196617 startwindow; -#P newex 243 173 29 196617 dac~; -#P comment 141 175 83 196617 period length in samples (float); -#P flonum 88 97 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 147 27 196617 / 1.; -#P flonum 68 73 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 54 49 53 196617 dspstate~; -#P comment 133 98 100 196617 frequency in Hz; -#P connect 1 1 2 0; -#P fasten 4 0 9 0 93 118 75 118; -#P connect 9 0 3 0; -#P fasten 2 0 3 0 73 115 54 115 54 145 75 145; -#P connect 3 0 10 0; -#P connect 9 1 3 1; -#P connect 7 0 6 0; -#P fasten 8 0 6 0 314 169 248 169; -#P pop; -#P newobj 46 338 109 196617 p Hz_to_period_length; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 375 30 49 196617 p wfkeys; -#P comment 579 197 108 196617 imaginary part of cosc; -#P message 46 156 115 196617 vasp bufcosc1 bufcosc2; -#P hidden message 375 191 65 196617 set bufcosc2; -#P user waveform~ 375 212 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 575 338 112 196617 buffer~ bufcosc2 2000; -#P hidden message 375 69 65 196617 set bufcosc1; -#P hidden newex 375 50 45 196617 loadbang; -#P user waveform~ 375 87 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 46 214 55 196617 vasp.* 0.5; -#P newex 46 239 61 196617 vasp.update; -#P newex 575 318 112 196617 buffer~ bufcosc1 2000; -#P comment 45 79 312 196617 optional argument/right inlet: frequency in period length in samples; -#P newex 46 189 85 196617 vasp.cosc 44100; -#P comment 45 64 168 196617 vasp complex sine wave generator; -#P comment 45 41 89 196622 vasp.cosc; -#P comment 172 156 136 196617 generate a complex sinewave at 1Hz into two buffers; -#P comment 588 72 100 196617 real part of the cosc; -#P comment 45 94 78 196617 needs 2 buffers; -#P connect 16 0 5 0; -#P connect 5 0 9 0; -#P connect 9 0 8 0; -#P hidden connect 11 0 12 0; -#P hidden connect 18 0 10 0; -#P hidden connect 12 0 10 0; -#P hidden fasten 11 0 15 0 380 50 380 50; -#P hidden connect 18 0 14 0; -#P hidden connect 15 0 14 0; -#P connect 21 0 20 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cplus.help b/externals/grill/vasp/max-help/vasp.cplus.help deleted file mode 100755 index 7f4e999d..00000000 --- a/externals/grill/vasp/max-help/vasp.cplus.help +++ /dev/null @@ -1,12 +0,0 @@ -max v2; -#N vpatcher 258 153 663 403; -#P comment 49 142 118 196617 c \, d ... right operand; -#P comment 49 127 118 196617 a \, b ... left operand; -#P comment 49 112 102 196617 e \, f ... target buffers; -#P newex 238 88 43 196617 vasp.c+; -#P comment 49 190 300 196617 differences in lengths are adjusted to smaller vector of each pair; -#P comment 49 81 98 196617 e+if=(a+ib)+(c+id); -#P comment 49 42 89 196622 vasp.c+; -#P comment 49 174 302 196617 vasp.c+ needs 2 vectors per operand which are treated as pairs; -#P comment 49 65 100 196617 complex addition; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cpowi.help b/externals/grill/vasp/max-help/vasp.cpowi.help deleted file mode 100755 index d008f65c..00000000 --- a/externals/grill/vasp/max-help/vasp.cpowi.help +++ /dev/null @@ -1,166 +0,0 @@ -max v2; -#N vpatcher 218 95 852 551; -#P hidden newex 507 347 48 196617 r 1141path; -#P user umenu 63 136 72 196647 1 64 152 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1141path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 125 158 43 196617 p loader; -#P message 353 344 125 196617 vasp bufcpowi1 bufcpowi2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 353 392 73 196617 p clear_buffer; -#P comment 38 61 151 196617 complex integer power function; -#P comment 38 113 132 196617 argument: exponent (int); -#P newex 44 392 61 196617 vasp.update; -#P message 44 253 125 196617 vasp bufcpowi1 bufcpowi2; -#P message 228 392 27 196617 stop; -#P message 160 392 65 196617 startwindow; -#P newex 269 419 29 196617 dac~; -#P newex 269 367 30 196617 line~; -#P message 269 344 72 196617 0 \, 8000 8000; -#P newex 269 392 82 196617 play~ bufcpowi1; -#P hidden message 269 198 71 196617 set bufcpowi2; -#P user waveform~ 269 216 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 466 392 118 196617 buffer~ bufcpowi2 8000; -#P newex 44 370 45 196617 vasp.opt; -#P message 44 325 125 196617 vasp bufcpowi1 bufcpowi2; -#P newex 44 346 52 196617 vasp.c!fft; -#P comment 38 77 93 196617 complex sample^n; -#P newex 44 273 65 196617 vasp.cpowi 2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 269 31 49 196617 p wfkeys; -#P hidden message 269 76 71 196617 set bufcpowi1; -#P hidden newex 269 50 45 196617 loadbang; -#P user waveform~ 269 97 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 44 223 61 196617 vasp.update; -#P newex 44 295 61 196617 vasp.update; -#P message 44 177 125 196617 vasp bufcpowi1 bufcpowi2; -#P newex 466 371 118 196617 buffer~ bufcpowi1 8000; -#P newex 44 199 49 196617 vasp.cfft; -#P comment 38 34 89 196622 vasp.cpowi; -#P comment 38 95 100 196617 needs two vectors; -#P comment 38 137 33 196617 read; -#P connect 5 0 3 0; -#P connect 3 0 7 0; -#P connect 26 0 12 0; -#P connect 12 0 6 0; -#P connect 15 0 14 0; -#P connect 14 0 16 0; -#P connect 16 0 27 0; -#P hidden connect 33 1 32 0; -#P hidden connect 9 0 10 0; -#P hidden fasten 4 1 10 0 579 390 597 390 597 72 274 72; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 19 0; -#P hidden connect 19 0 18 0; -#P connect 21 0 22 0; -#P connect 22 0 20 0; -#P fasten 25 0 23 0 233 412 274 412; -#P fasten 24 0 23 0 165 412 274 412; -#P connect 20 0 23 0; -#P connect 20 0 23 1; -#P connect 31 0 30 0; -#P hidden connect 34 0 4 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.crsub.help b/externals/grill/vasp/max-help/vasp.crsub.help deleted file mode 100755 index a0fbf9ba..00000000 --- a/externals/grill/vasp/max-help/vasp.crsub.help +++ /dev/null @@ -1,12 +0,0 @@ -max v2; -#N vpatcher 258 153 663 391; -#P newex 238 90 45 196617 vasp.c!-; -#P comment 49 188 300 196617 differences in lengths are adjusted to smaller vector of each pair; -#P comment 49 142 118 196617 c \, d ... right operand; -#P comment 49 127 118 196617 a \, b ... left operand; -#P comment 49 83 98 196617 e+if=(c+id)-(a+ib); -#P comment 49 112 102 196617 e \, f ... target buffers; -#P comment 49 44 89 196622 vasp.c!-; -#P comment 49 172 302 196617 vasp.c- needs 2 vectors per operand which are treated as pairs; -#P comment 49 67 147 196617 complex inverse substraction; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.cset.help b/externals/grill/vasp/max-help/vasp.cset.help deleted file mode 100755 index d898e914..00000000 --- a/externals/grill/vasp/max-help/vasp.cset.help +++ /dev/null @@ -1,11 +0,0 @@ -max v2; -#N vpatcher 228 183 631 425; -#P newex 234 82 43 196617 vasp.c/; -#P comment 48 169 300 196617 differences in lengths are adjusted to smaller vector of each pair; -#P comment 48 124 118 196617 c \, d is the target; -#P comment 48 109 118 196617 a \, b is the source; -#P comment 48 84 98 196617 (a+ib)=(c+id); -#P comment 48 45 89 196622 vasp.c=; -#P comment 48 153 302 196617 vasp.c= needs 2 vectors per operand which are treated as pairs; -#P comment 48 68 59 196617 complex =; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.csqr.help b/externals/grill/vasp/max-help/vasp.csqr.help deleted file mode 100755 index 6724d738..00000000 --- a/externals/grill/vasp/max-help/vasp.csqr.help +++ /dev/null @@ -1,164 +0,0 @@ -max v2; -#N vpatcher 188 93 824 584; -#P user umenu 80 109 72 196647 1 64 125 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1143path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 142 131 43 196617 p loader; -#P message 365 388 115 196617 vasp bufcsqr1 bufcsqr2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 365 409 78 196617 p clear_buffers; -#P hidden newex 481 367 48 196617 r 1143path; -#P comment 53 110 26 196617 read; -#P newex 64 362 61 196617 vasp.update; -#P message 64 223 115 196617 vasp bufcsqr1 bufcsqr2; -#P message 243 410 27 196617 stop; -#P message 175 410 65 196617 startwindow; -#P newex 284 436 29 196617 dac~; -#P newex 284 384 30 196617 line~; -#P message 284 361 72 196617 0 \, 8000 8000; -#P newex 284 409 75 196617 play~ bufcsqr1; -#P hidden message 284 215 65 196617 set bufcsqr2; -#P user waveform~ 284 233 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 481 409 112 196617 buffer~ bufcsqr2 8000; -#P newex 64 340 45 196617 vasp.opt; -#P message 64 295 115 196617 vasp bufcsqr1 bufcsqr2; -#P newex 64 316 52 196617 vasp.c!fft; -#P comment 53 60 93 196617 complex sample^2; -#P newex 64 243 52 196617 vasp.csqr; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 284 48 49 196617 p wfkeys; -#P hidden message 284 93 65 196617 set bufcsqr1; -#P hidden newex 284 67 45 196617 loadbang; -#P user waveform~ 284 114 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 64 193 61 196617 vasp.update; -#P newex 64 265 61 196617 vasp.update; -#P message 64 147 115 196617 vasp bufcsqr1 bufcsqr2; -#P newex 481 388 112 196617 buffer~ bufcsqr1 8000; -#P newex 64 169 49 196617 vasp.cfft; -#P comment 53 36 89 196622 vasp.csqr; -#P comment 53 75 100 196617 needs two vectors; -#P connect 4 0 2 0; -#P connect 2 0 6 0; -#P connect 25 0 11 0; -#P connect 11 0 5 0; -#P connect 14 0 13 0; -#P connect 13 0 15 0; -#P connect 15 0 26 0; -#P hidden connect 32 1 31 0; -#P hidden connect 8 0 9 0; -#P hidden fasten 3 1 9 0 588 407 612 407 612 89 289 89; -#P hidden connect 9 0 7 0; -#P hidden connect 10 0 7 0; -#P hidden connect 8 0 18 0; -#P hidden connect 18 0 17 0; -#P connect 20 0 21 0; -#P connect 21 0 19 0; -#P fasten 23 0 22 0 180 429 289 429; -#P fasten 24 0 22 0 248 429 289 429; -#P connect 19 0 22 0; -#P connect 19 0 22 1; -#P connect 30 0 29 0; -#P hidden connect 28 0 3 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.csub.help b/externals/grill/vasp/max-help/vasp.csub.help deleted file mode 100755 index 2ee0998f..00000000 --- a/externals/grill/vasp/max-help/vasp.csub.help +++ /dev/null @@ -1,12 +0,0 @@ -max v2; -#N vpatcher 258 153 659 407; -#P comment 52 147 118 196617 c \, d ... right operand; -#P comment 52 132 118 196617 a \, b ... left operand; -#P comment 52 117 102 196617 e \, f ... target buffers; -#P newex 241 94 42 196617 vasp.c-; -#P comment 52 192 300 196617 differences in lengths are adjusted to smaller vector of each pair; -#P comment 52 87 98 196617 e+if=(a+ib)-(c+id); -#P comment 52 48 89 196622 vasp.c-; -#P comment 52 176 302 196617 vasp.c- needs 2 vectors per operand which are treated as pairs; -#P comment 52 71 100 196617 complex subtraction; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.dif.help b/externals/grill/vasp/max-help/vasp.dif.help deleted file mode 100755 index c6b68ea1..00000000 --- a/externals/grill/vasp/max-help/vasp.dif.help +++ /dev/null @@ -1,7 +0,0 @@ -max v2; -#N vpatcher 256 153 557 315; -#P comment 44 79 225 196617 argument/right inlet: repetition count(default 1); -#P comment 44 38 89 196622 vasp.dif; -#P newex 116 103 44 196617 vasp.dif; -#P comment 44 62 124 196617 vasp differential function; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.div.help b/externals/grill/vasp/max-help/vasp.div.help deleted file mode 100755 index 60ec8c13..00000000 --- a/externals/grill/vasp/max-help/vasp.div.help +++ /dev/null @@ -1,52 +0,0 @@ -max v2; -#N vpatcher 147 233 787 552; -#P message 426 243 52 196617 vasp buf/; -#N vpatcher 40 55 241 186; -#P newex 19 84 61 196617 vasp.update; -#P newex 19 60 50 196617 vasp.= 0.; -#N comlet vasp to clear in; -#P inlet 19 31 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 426 263 73 196617 p clear_buffer; -#P comment 110 135 147 196617 generate a sine wave at 1Hz; -#P newex 52 263 61 196617 vasp.update; -#P message 52 134 52 196617 vasp buf/; -#P newex 52 169 80 196617 vasp.osc 44100; -#P comment 45 74 189 196617 optional argument/right inlet: divisor; -#P flonum 87 202 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 45 59 168 196617 vasp division; -#P comment 45 36 89 196622 vasp./; -#P newex 501 263 92 196617 buffer~ buf/ 2000; -#P hidden message 284 106 45 196617 set buf/; -#P hidden newex 284 80 45 196617 loadbang; -#P user waveform~ 284 130 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 52 223 45 196617 vasp./ 2; -#P connect 10 0 9 0; -#P connect 9 0 0 0; -#P connect 0 0 11 0; -#P connect 7 0 0 1; -#P hidden connect 2 0 3 0; -#P hidden connect 3 0 1 0; -#P connect 14 0 13 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.equ.help b/externals/grill/vasp/max-help/vasp.equ.help deleted file mode 100755 index 0c2a0178..00000000 --- a/externals/grill/vasp/max-help/vasp.equ.help +++ /dev/null @@ -1,145 +0,0 @@ -max v2; -#N vpatcher 82 103 798 578; -#P message 482 408 99 196617 vasp buf==1 buf==2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 482 428 73 196617 p clear_buffer; -#P newex 71 393 61 196617 vasp.== -1.; -#P comment 332 310 43 196617 false/0; -#P message 71 123 64 196617 vasp buf==1; -#P newex 155 247 55 196617 vasp.= -1.; -#P newex 92 247 55 196617 vasp.= 0.3; -#P newex 218 214 55 196617 vasp.upper; -#P newex 155 214 58 196617 vasp.lower; -#P newex 218 247 59 196617 vasp.!bevel; -#P newex 92 214 55 196617 vasp.upper; -#P newex 31 214 58 196617 vasp.lower; -#P newex 121 302 61 196617 vasp.update; -#P newex 31 247 55 196617 vasp.bevel; -#P newex 182 187 55 196617 vasp.upper; -#P newex 71 187 58 196617 vasp.lower; -#P newex 71 154 121 196617 vasp.m 2; -#P newex 71 368 73 196617 vasp.= buf==1; -#P message 71 338 64 196617 vasp buf==2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 375 80 49 196617 p wfkeys; -#P hidden message 375 241 55 196617 set buf==2; -#P user waveform~ 375 262 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 583 428 104 196617 buffer~ buf==2 2000; -#P hidden message 375 119 55 196617 set buf==1; -#P hidden newex 375 100 45 196617 loadbang; -#P user waveform~ 375 137 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 71 428 61 196617 vasp.update; -#P newex 583 408 104 196617 buffer~ buf==1 2000; -#P comment 45 80 147 196617 argument/right inlet: value; -#P comment 45 65 45 196617 equal; -#P comment 45 41 71 196622 vasp.==; -#P comment 176 125 92 196617 generate a function; -#P comment 334 267 40 196617 true/1; -#P comment 148 396 216 196617 test if a part of the function is equal to -1.; -#P fasten 18 0 22 0 76 209 36 209; -#P connect 22 0 20 0; -#P connect 29 0 17 0; -#P connect 17 0 18 0; -#P connect 15 0 16 0; -#P connect 16 0 31 0; -#P connect 31 0 7 0; -#P fasten 18 0 23 0 76 209 97 209; -#P connect 23 0 27 0; -#P fasten 24 0 21 0 223 283 126 283; -#P fasten 20 0 21 0 36 283 126 283; -#P fasten 27 0 21 0 97 283 126 283; -#P fasten 28 0 21 0 160 283 126 283; -#P fasten 19 0 25 0 187 209 160 209; -#P connect 25 0 28 0; -#P connect 17 1 19 0; -#P fasten 19 0 26 0 187 209 223 209; -#P connect 26 0 24 0; -#P hidden connect 9 0 10 0; -#P hidden connect 14 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden fasten 9 0 13 0 380 100 380 100; -#P hidden connect 13 0 12 0; -#P hidden connect 14 0 12 0; -#P connect 33 0 32 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.exp.help b/externals/grill/vasp/max-help/vasp.exp.help deleted file mode 100755 index fa00c09d..00000000 --- a/externals/grill/vasp/max-help/vasp.exp.help +++ /dev/null @@ -1,96 +0,0 @@ -max v2; -#N vpatcher 248 135 854 471; -#P message 400 259 62 196617 vasp bufexp; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 400 282 73 196617 p clear_buffer; -#P newex 41 282 61 196617 vasp.update; -#P newex 41 164 55 196617 vasp.* 0.5; -#P newex 41 185 61 196617 vasp.update; -#P comment 38 58 85 196617 e^sample; -#P message 41 210 62 196617 vasp bufexp; -#P newex 41 233 48 196617 vasp.exp; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 268 54 49 196617 p wfkeys; -#P hidden message 268 100 55 196617 set bufexp; -#P hidden newex 268 76 45 196617 loadbang; -#P user waveform~ 268 126 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 41 259 45 196617 vasp.opt; -#P message 41 116 62 196617 vasp bufexp; -#P newex 477 282 102 196617 buffer~ bufexp 2000; -#P newex 41 143 80 196617 vasp.osc 22050; -#P comment 38 34 89 196622 vasp.exp; -#P comment 106 117 123 196617 generate a 1hz sine wave; -#P comment 38 73 100 196617 exponential function; -#P connect 5 0 3 0; -#P connect 3 0 15 0; -#P connect 15 0 14 0; -#P connect 12 0 11 0; -#P connect 11 0 6 0; -#P connect 6 0 16 0; -#P hidden connect 8 0 9 0; -#P hidden connect 9 0 7 0; -#P hidden connect 10 0 7 0; -#P connect 18 0 17 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.fhp.help b/externals/grill/vasp/max-help/vasp.fhp.help deleted file mode 100755 index 2f76a6cc..00000000 --- a/externals/grill/vasp/max-help/vasp.fhp.help +++ /dev/null @@ -1,138 +0,0 @@ -max v2; -#N vpatcher 228 129 899 595; -#P message 466 372 55 196617 vasp bufhp; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 466 392 73 196617 p clear_buffer; -#P comment 196 241 44 196617 q-faktor; -#N vpatcher 169 125 534 375; -#P flonum 70 179 61 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 125 27 196617 t b f; -#P message 309 151 27 196617 stop; -#P message 243 151 65 196617 startwindow; -#P newex 243 173 29 196617 dac~; -#P comment 141 175 83 196617 period length in samples (float); -#P flonum 88 97 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 147 27 196617 / 1.; -#P flonum 68 73 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 54 49 53 196617 dspstate~; -#P comment 133 98 100 196617 frequency in Hz; -#P connect 1 1 2 0; -#P fasten 4 0 9 0 93 118 75 118; -#P fasten 2 0 3 0 73 115 54 115 54 145 75 145; -#P connect 9 0 3 0; -#P connect 3 0 10 0; -#P connect 9 1 3 1; -#P fasten 8 0 6 0 314 169 248 169; -#P connect 7 0 6 0; -#P pop; -#P newobj 45 391 109 196617 p Hz_to_period_length; -#P number 195 255 35 9 1 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P flonum 137 255 45 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 137 276 68 196617 pack 0 0; -#P comment 38 88 266 196617 second argument: q-factor from 1 - ° (integer) default 1; -#P newex 45 322 61 196617 vasp.update; -#P message 45 255 55 196617 vasp bufhp; -#P newex 45 301 65 196617 vasp.fhp 220; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 328 100 49 196617 p wfkeys; -#P message 287 392 27 196617 stop; -#P message 219 392 65 196617 startwindow; -#P newex 328 418 29 196617 dac~; -#P newex 328 366 30 196617 line~; -#P message 328 343 72 196617 0 \, 2000 2000; -#P newex 328 391 60 196617 play~ bufhp; -#P hidden message 328 142 49 196617 set bufhp; -#P hidden newex 328 122 45 196617 loadbang; -#P user waveform~ 328 162 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 45 194 55 196617 vasp.* 0.5; -#P newex 45 216 61 196617 vasp.update; -#P message 45 151 55 196617 vasp bufhp; -#P newex 544 391 95 196617 buffer~ bufhp 2000; -#P newex 45 172 55 196617 vasp.noise; -#P comment 38 58 136 196617 vasp high pass filter (FIR); -#P comment 38 34 89 196622 vasp.fhp; -#P comment 109 152 99 196617 generate white noise; -#P comment 38 73 224 196617 first argument: cutoff frequency in period length; -#P comment 137 241 36 196617 cutoff; -#P comment 38 103 185 196617 right inlet: cutoff and q-factor (list); -#P connect 8 0 6 0; -#P connect 6 0 10 0; -#P connect 10 0 9 0; -#P connect 22 0 21 0; -#P connect 21 0 23 0; -#P fasten 25 0 21 1 142 297 105 297; -#P connect 26 0 25 0; -#P connect 27 0 25 1; -#P hidden connect 12 0 13 0; -#P hidden connect 20 0 11 0; -#P hidden connect 13 0 11 0; -#P connect 15 0 16 0; -#P connect 16 0 14 0; -#P connect 14 0 17 0; -#P fasten 19 0 17 0 292 410 333 410; -#P fasten 18 0 17 0 224 410 333 410; -#P connect 14 0 17 1; -#P connect 31 0 30 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.flp.help b/externals/grill/vasp/max-help/vasp.flp.help deleted file mode 100755 index 89a88590..00000000 --- a/externals/grill/vasp/max-help/vasp.flp.help +++ /dev/null @@ -1,138 +0,0 @@ -max v2; -#N vpatcher 176 195 828 655; -#P message 458 375 54 196617 vasp buflp; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 458 394 73 196617 p clear_buffer; -#P comment 214 247 44 196617 q-faktor; -#N vpatcher 169 125 534 375; -#P flonum 70 179 61 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 125 27 196617 t b f; -#P message 309 151 27 196617 stop; -#P message 243 151 65 196617 startwindow; -#P newex 243 173 29 196617 dac~; -#P comment 141 175 83 196617 period length in samples (float); -#P flonum 88 97 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 147 27 196617 / 1.; -#P flonum 68 73 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 54 49 53 196617 dspstate~; -#P comment 133 98 100 196617 frequency in Hz; -#P connect 1 1 2 0; -#P fasten 4 0 9 0 93 118 75 118; -#P fasten 2 0 3 0 73 115 54 115 54 145 75 145; -#P connect 9 0 3 0; -#P connect 3 0 10 0; -#P connect 9 1 3 1; -#P fasten 8 0 6 0 314 169 248 169; -#P connect 7 0 6 0; -#P pop; -#P newobj 51 394 109 196617 p Hz_to_period_length; -#P number 213 261 35 9 1 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P flonum 155 261 52 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 155 280 68 196617 pack 0. 0; -#P comment 46 90 266 196617 second argument: q-factor from 1 - ° (integer) default 1; -#P newex 54 329 61 196617 vasp.update; -#P message 54 261 54 196617 vasp buflp; -#P newex 54 307 65 196617 vasp.flp 220; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 318 95 49 196617 p wfkeys; -#P message 277 396 27 196617 stop; -#P message 209 396 65 196617 startwindow; -#P newex 318 421 29 196617 dac~; -#P newex 318 369 30 196617 line~; -#P message 318 346 72 196617 0 \, 2000 2000; -#P newex 318 394 58 196617 play~ buflp; -#P hidden message 318 137 45 196617 set buflp; -#P hidden newex 318 117 45 196617 loadbang; -#P user waveform~ 318 157 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 54 197 55 196617 vasp.* 0.5; -#P newex 54 219 61 196617 vasp.update; -#P message 54 154 54 196617 vasp buflp; -#P newex 536 394 94 196617 buffer~ buflp 2000; -#P newex 54 175 55 196617 vasp.noise; -#P comment 46 60 136 196617 vasp low pass filter (FIR); -#P comment 46 36 89 196622 vasp.flp; -#P comment 114 155 99 196617 generate white noise; -#P comment 46 75 225 196617 first argument: cutoff frequency in period length; -#P comment 155 247 36 196617 cutoff; -#P comment 46 105 185 196617 right inlet: cutoff and q-factor (list); -#P connect 8 0 6 0; -#P connect 6 0 10 0; -#P connect 10 0 9 0; -#P connect 22 0 21 0; -#P connect 21 0 23 0; -#P fasten 25 0 21 1 160 303 114 303; -#P connect 26 0 25 0; -#P connect 27 0 25 1; -#P hidden connect 12 0 13 0; -#P hidden connect 20 0 11 0; -#P hidden connect 13 0 11 0; -#P connect 15 0 16 0; -#P connect 16 0 14 0; -#P connect 14 0 17 0; -#P fasten 19 0 17 0 282 416 323 416; -#P fasten 18 0 17 0 214 416 323 416; -#P connect 14 0 17 1; -#P connect 31 0 30 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.frames.help b/externals/grill/vasp/max-help/vasp.frames.help deleted file mode 100755 index c0820a2a..00000000 --- a/externals/grill/vasp/max-help/vasp.frames.help +++ /dev/null @@ -1,134 +0,0 @@ -max v2; -#N vpatcher 130 118 966 571; -#P message 575 384 119 196617 vasp buffram1 buffram2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 575 404 78 196617 p clear_buffers; -#P hidden message 447 180 22 196617 set; -#P hidden message 500 229 65 196617 set buffram2; -#P newex 251 332 61 196617 vasp.update; -#P newex 251 310 80 196617 vasp.osc 22050; -#P user waveform~ 500 248 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 500 69 49 196617 p wfkeys; -#P hidden message 500 110 65 196617 set buffram1; -#P hidden newex 500 89 45 196617 loadbang; -#P user waveform~ 500 127 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 64 332 61 196617 vasp.update; -#P newex 64 310 80 196617 vasp.osc 22050; -#P number 336 197 47 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 698 404 114 196617 buffer~ buffram2 2000; -#P newex 698 384 114 196617 buffer~ buffram1 2000; -#P message 262 275 222 196617; -#P newex 262 243 60 196617 prepend set; -#P message 251 170 152 196617 vasp buffram1 buffram2 11050; -#P newex 251 218 95 196617 vasp.frames 22050; -#P message 75 275 137 196617; -#P newex 75 243 60 196617 prepend set; -#P message 64 170 74 196617 vasp buffram1; -#P newex 64 218 95 196617 vasp.frames 30000; -#P comment 59 90 182 196617 argument/right inlet: value in samples; -#P comment 59 75 178 196617 set the number of frames to a vasp; -#P comment 59 50 116 196622 vasp.frames; -#P comment 59 105 265 196617 !!!all vectors of a vasp have the same framesize/length!!!; -#P connect 5 0 4 0; -#P connect 4 0 15 0; -#P connect 15 0 16 0; -#P fasten 4 0 6 0 69 239 80 239; -#P hidden fasten 25 0 7 0 452 263 80 263; -#P connect 6 0 7 0; -#P connect 9 0 8 0; -#P connect 8 0 22 0; -#P connect 22 0 23 0; -#P fasten 8 0 10 0 256 239 267 239; -#P hidden fasten 25 0 11 0 452 264 267 264; -#P connect 10 0 11 0; -#P connect 14 0 8 1; -#P hidden fasten 18 0 25 0 505 132 452 132; -#P hidden connect 18 0 19 0; -#P hidden connect 19 0 17 0; -#P hidden connect 20 0 17 0; -#P hidden connect 18 0 24 0; -#P hidden connect 24 0 21 0; -#P connect 27 0 26 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.framesd.help b/externals/grill/vasp/max-help/vasp.framesd.help deleted file mode 100755 index ac6bf358..00000000 --- a/externals/grill/vasp/max-help/vasp.framesd.help +++ /dev/null @@ -1,134 +0,0 @@ -max v2; -#N vpatcher 82 104 939 544; -#P message 593 369 113 196617 vasp buffram buffram+; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 593 389 78 196617 p clear_buffers; -#P hidden message 449 191 22 196617 set; -#P hidden message 514 223 65 196617 set buffram+; -#P newex 253 325 61 196617 vasp.update; -#P newex 253 304 80 196617 vasp.osc 22050; -#P user waveform~ 514 241 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 514 60 49 196617 p wfkeys; -#P hidden message 514 104 61 196617 set buffram; -#P hidden newex 514 82 45 196617 loadbang; -#P user waveform~ 514 122 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 66 325 61 196617 vasp.update; -#P newex 66 304 80 196617 vasp.osc 22050; -#P number 346 191 47 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 711 389 114 196617 buffer~ buffram+ 2000; -#P newex 711 369 114 196617 buffer~ buffram 2000; -#P message 264 269 222 196617; -#P newex 264 237 60 196617 prepend set; -#P message 253 164 179 196617 vasp 20000 buffram buffram+ 44100; -#P newex 253 212 103 196617 vasp.frames+ 22050; -#P message 77 269 137 196617; -#P newex 77 237 60 196617 prepend set; -#P message 66 164 101 196617 vasp 20000 buffram; -#P newex 66 212 103 196617 vasp.frames+ 30000; -#P comment 59 89 182 196617 argument/right inlet: value in samples; -#P comment 59 75 255 196617 change the number of frames of a vasp (incrementally); -#P comment 59 50 111 196622 vasp.frames+; -#P comment 59 104 265 196617 !!!all vectors of a vasp have the same framesize/length!!!; -#P connect 5 0 4 0; -#P connect 4 0 15 0; -#P connect 15 0 16 0; -#P fasten 4 0 6 0 71 233 82 233; -#P hidden fasten 25 0 7 0 454 260 82 260; -#P connect 6 0 7 0; -#P connect 9 0 8 0; -#P connect 8 0 22 0; -#P connect 22 0 23 0; -#P fasten 8 0 10 0 258 233 269 233; -#P hidden fasten 25 0 11 0 454 259 269 259; -#P connect 10 0 11 0; -#P connect 14 0 8 1; -#P hidden fasten 18 0 25 0 519 120 454 120; -#P hidden connect 18 0 19 0; -#P hidden connect 20 0 17 0; -#P hidden connect 19 0 17 0; -#P hidden connect 18 0 24 0; -#P hidden connect 24 0 21 0; -#P connect 27 0 26 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.framesq.help b/externals/grill/vasp/max-help/vasp.framesq.help deleted file mode 100755 index a546e86d..00000000 --- a/externals/grill/vasp/max-help/vasp.framesq.help +++ /dev/null @@ -1,25 +0,0 @@ -max v2; -#N vpatcher 203 190 781 540; -#P comment 45 129 101 196617 get the vasps length; -#P comment 334 129 206 196617 get the maximum vasp length of both buffers; -#P message 334 154 125 196617 vasp buffram? buffram?1; -#P number 334 210 42 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 334 180 70 196617 vasp.frames?; -#P newex 418 296 120 196617 buffer~ buffram?1 1000; -#P number 192 210 42 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P number 45 210 42 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 418 273 120 196617 buffer~ buffram? 2000; -#P message 192 154 74 196617 vasp buffram?; -#P newex 192 180 70 196617 vasp.frames?; -#P message 45 154 115 196617 vasp 400 buffram? 300; -#P newex 45 180 70 196617 vasp.frames?; -#P comment 42 75 216 196617 get a vasp«s frame count (length) in samples; -#P comment 42 51 130 196622 vasp.frames?; -#P comment 192 129 101 196617 get the buffer length; -#P connect 4 0 3 0; -#P connect 3 0 8 0; -#P connect 6 0 5 0; -#P connect 5 0 9 0; -#P connect 13 0 11 0; -#P connect 11 0 12 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.gate.help b/externals/grill/vasp/max-help/vasp.gate.help deleted file mode 100755 index 0ab025a2..00000000 --- a/externals/grill/vasp/max-help/vasp.gate.help +++ /dev/null @@ -1,166 +0,0 @@ -max v2; -#N vpatcher 181 114 885 642; -#P message 429 422 113 196617 vasp bufgate1 bufgate2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 429 442 78 196617 p clear_buffers; -#P hidden newex 549 391 48 196617 r 1159path; -#P user umenu 80 139 72 196647 1 64 155 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1159path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 142 161 43 196617 p loader; -#P comment 52 141 26 196617 read; -#P comment 163 349 32 196617 value; -#P comment 139 321 112 196617 gate the buffer content; -#P newex 66 225 61 196617 vasp.update; -#P newex 66 404 61 196617 vasp.update; -#P flonum 125 348 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P message 66 320 71 196617 vasp bufgate2; -#P newex 66 375 69 196617 vasp.gate 0.2; -#P message 308 443 27 196617 stop; -#P message 240 443 65 196617 startwindow; -#P newex 349 467 29 196617 dac~; -#P newex 349 422 30 196617 line~; -#P message 349 387 72 196617 0 \, 2000 2000; -#P newex 349 442 75 196617 play~ bufgate2; -#P message 66 181 71 196617 vasp bufgate2; -#P newex 66 202 104 196617 vasp.= vasp bufgate1; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 349 92 49 196617 p wfkeys; -#P hidden message 349 247 64 196617 set bufgate2; -#P user waveform~ 349 265 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 549 442 111 196617 buffer~ bufgate2 2000; -#P hidden message 349 127 64 196617 set bufgate1; -#P hidden newex 349 109 45 196617 loadbang; -#P user waveform~ 349 145 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 549 422 111 196617 buffer~ bufgate1 2000; -#P comment 52 87 369 196617 optional argument/right inlet: value (usualy from 0-1) to gate the soundfile; -#P comment 52 70 168 196617 gate a buffer content with a value; -#P comment 52 48 89 196622 vasp.gate; -#P comment 141 181 161 196617 copy from buffgate1 to buffgate2; -#P connect 13 0 12 0; -#P connect 12 0 24 0; -#P connect 21 0 20 0; -#P connect 20 0 23 0; -#P connect 22 0 20 1; -#P hidden connect 29 1 28 0; -#P hidden fasten 6 0 7 0 354 108 354 108; -#P hidden fasten 4 1 7 0 655 440 680 440 680 123 354 123; -#P hidden connect 11 0 5 0; -#P hidden connect 7 0 5 0; -#P hidden fasten 6 0 10 0 354 108 354 108; -#P hidden fasten 8 1 10 0 655 461 680 461 680 252 354 252; -#P hidden connect 10 0 9 0; -#P hidden connect 11 0 9 0; -#P connect 15 0 16 0; -#P connect 16 0 14 0; -#P connect 14 0 17 0; -#P fasten 18 0 17 0 245 461 354 461; -#P fasten 19 0 17 0 313 461 354 461; -#P connect 14 0 17 1; -#P connect 32 0 31 0; -#P hidden connect 30 0 4 0; -#P hidden fasten 9 5 5 4 654 368 665 368 665 139 654 139; -#P hidden connect 5 5 9 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.gather.help b/externals/grill/vasp/max-help/vasp.gather.help deleted file mode 100755 index e1942f69..00000000 --- a/externals/grill/vasp/max-help/vasp.gather.help +++ /dev/null @@ -1,65 +0,0 @@ -max v2; -#N vpatcher 167 74 879 653; -#P origin 0 5; -#P hidden message 615 229 22 196617 set; -#P hidden newex 615 195 45 196617 loadbang; -#P message 406 242 81 196617 vasp bufgather4; -#P message 393 221 81 196617 vasp bufgather3; -#P button 342 178 15 0; -#P message 381 201 81 196617 vasp bufgather2; -#P message 342 314 341 196617; -#P newex 342 291 60 196617 prepend set; -#P newex 342 267 61 196617 vasp.gather; -#P message 371 178 81 196617 vasp bufgather1; -#P comment 336 160 276 196617 gather as many vasps as you want and put them out (bang); -#P message 138 450 81 196617 vasp bufgather4; -#P newex 562 522 121 196617 buffer~ bufgather4 2000; -#P message 179 178 81 196617 vasp bufgather2; -#P button 65 178 15 0; -#P message 65 314 252 196617; -#P newex 65 291 60 196617 prepend set; -#P newex 65 267 61 196617 vasp.gather; -#P message 87 178 81 196617 vasp bufgather1; -#P message 125 429 81 196617 vasp bufgather3; -#P button 65 386 15 0; -#P message 113 409 81 196617 vasp bufgather2; -#P newex 562 501 121 196617 buffer~ bufgather3 2000; -#P newex 562 479 121 196617 buffer~ bufgather2 2000; -#P newex 562 458 121 196617 buffer~ bufgather1 1000; -#P message 65 522 258 196617; -#P newex 65 499 60 196617 prepend set; -#P newex 65 475 70 196617 vasp.gather 2; -#P comment 59 74 137 196617 gather several vasps into one; -#P message 103 386 81 196617 vasp bufgather1; -#P comment 59 50 89 196622 vasp.gather; -#P comment 59 90 190 196617 argument: vasps to gather before output; -#P comment 59 121 241 196617 right inlet: stores the different vasps; -#P comment 59 106 419 196617 left inlet: outputs a vasp immediately \, causes output of vasps gathered in right inlet (bang); -#P comment 59 160 196 196617 use vasp.gather like the int/float object; -#P comment 59 366 227 196617 gather two vasps (opt. argument) an put them out; -#P comment 360 377 243 196617 !vasps can have more vectors \, but just one length!; -#P comment 360 393 245 196617 gather will always take the length from the shortest of all gathered vasps for the new one!; -#P fasten 19 0 20 0 92 260 70 260; -#P fasten 23 0 20 0 70 217 70 217; -#P connect 20 0 21 0; -#P hidden fasten 37 0 22 0 620 310 70 310; -#P connect 21 0 22 0; -#P connect 17 0 10 0; -#P connect 10 0 11 0; -#P hidden fasten 37 0 12 0 620 336 314 336 314 519 70 519; -#P connect 11 0 12 0; -#P fasten 24 0 20 1 184 259 121 259; -#P connect 18 0 10 1; -#P fasten 16 0 10 1 118 469 130 469; -#P fasten 8 0 10 1 108 469 130 469; -#P fasten 26 0 10 1 143 469 130 469; -#P connect 33 0 29 0; -#P connect 29 0 30 0; -#P connect 30 0 31 0; -#P hidden fasten 37 0 31 0 620 311 347 311; -#P connect 34 0 29 1; -#P fasten 32 0 29 1 386 262 398 262; -#P fasten 28 0 29 1 376 262 398 262; -#P fasten 35 0 29 1 411 262 398 262; -#P hidden connect 36 0 37 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.geq.help b/externals/grill/vasp/max-help/vasp.geq.help deleted file mode 100755 index 0a8912b6..00000000 --- a/externals/grill/vasp/max-help/vasp.geq.help +++ /dev/null @@ -1,128 +0,0 @@ -max v2; -#N vpatcher 188 104 857 525; -#P message 437 352 91 196617 vasp buf>= buf>=1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 437 373 78 196617 p clear_buffers; -#P newex 59 327 61 196617 vasp.update; -#P flonum 149 272 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 274 286 48 196617 0/false; -#P comment 129 145 148 196617 generate a sine wave at 1Hz; -#P message 59 145 55 196617 vasp buf>=; -#P newex 59 191 61 196617 vasp.update; -#P newex 59 168 80 196617 vasp.osc 44100; -#P comment 129 228 100 196617 copy to new buffer; -#P hidden message 321 219 55 196617 set buf>=1; -#P user waveform~ 321 237 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 530 373 103 196617 buffer~ buf>=1 2000; -#P comment 52 86 188 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 50 196617 set buf>=; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 296 65 196617 vasp.>= -0.4; -#P message 59 228 63 196617 vasp buf>=1; -#P newex 530 352 103 196617 buffer~ buf>= 2000; -#P newex 59 249 65 196617 vasp.= buf>=; -#P comment 52 71 83 196617 sample >= value; -#P comment 52 48 89 196622 vasp.>=; -#P comment 598 103 44 196617 source; -#P comment 277 244 44 196617 1/true; -#P connect 19 0 17 0; -#P connect 17 0 18 0; -#P connect 6 0 4 0; -#P connect 4 0 7 0; -#P connect 7 0 23 0; -#P fasten 22 0 7 1 154 292 119 292; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 628 371 638 371 638 94 326 94; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 15 0; -#P hidden connect 11 0 14 0; -#P hidden connect 15 0 14 0; -#P connect 25 0 24 0; -#P hidden fasten 14 5 8 4 626 340 638 340 638 94 626 94; -#P hidden connect 8 5 14 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.gtr.help b/externals/grill/vasp/max-help/vasp.gtr.help deleted file mode 100755 index d3614b83..00000000 --- a/externals/grill/vasp/max-help/vasp.gtr.help +++ /dev/null @@ -1,128 +0,0 @@ -max v2; -#N vpatcher 40 55 709 476; -#P message 446 353 79 196617 vasp buf> buf>1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 446 373 78 196617 p clear_buffers; -#P newex 59 327 61 196617 vasp.update; -#P flonum 149 272 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 274 286 48 196617 0/false; -#P comment 114 145 148 196617 generate a sine wave at 1Hz; -#P message 59 145 51 196617 vasp buf>; -#P newex 59 191 61 196617 vasp.update; -#P newex 59 168 80 196617 vasp.osc 44100; -#P comment 118 228 100 196617 copy to new buffer; -#P hidden message 321 219 50 196617 set buf>1; -#P user waveform~ 321 237 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 538 373 95 196617 buffer~ buf>1 2000; -#P comment 52 86 134 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 44 196617 set buf>; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 296 60 196617 vasp.> -0.4; -#P message 59 228 55 196617 vasp buf>1; -#P newex 538 353 95 196617 buffer~ buf> 2000; -#P newex 59 249 60 196617 vasp.= buf>; -#P comment 52 71 83 196617 sample > value; -#P comment 52 48 89 196622 vasp.>; -#P comment 598 103 44 196617 source; -#P comment 277 244 44 196617 1/true; -#P connect 19 0 17 0; -#P connect 17 0 18 0; -#P connect 6 0 4 0; -#P connect 4 0 7 0; -#P connect 7 0 23 0; -#P fasten 22 0 7 1 154 292 114 292; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 628 371 638 371 638 94 326 94; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 15 0; -#P hidden connect 11 0 14 0; -#P hidden connect 15 0 14 0; -#P connect 25 0 24 0; -#P hidden fasten 14 5 8 4 626 340 638 340 638 94 626 94; -#P hidden connect 8 5 14 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.help b/externals/grill/vasp/max-help/vasp.help deleted file mode 100755 index a03f562b..00000000 --- a/externals/grill/vasp/max-help/vasp.help +++ /dev/null @@ -1,710 +0,0 @@ -max v2; -#N vpatcher 20 50 720 450; -#P origin 32 21; -#P hidden message 456 87 200 196617 window size 20 50 720 450 \, window exec; -#N thispatcher; -#Q end; -#P hidden newobj 511 108 59 196617 thispatcher; -#P hidden newex 409 28 45 196617 loadbang; -#P hidden message 409 51 84 196617 read vasplogo.tif; -#P user fpic 488 21 186 57 vasplogo.tif 0 0 0 0. 0 0 0; -#N vpatcher 93 94 908 393; -#P comment 443 224 237 196617 don't miss that!; -#P comment 134 257 166 196617 http://www.canto-crudo.com/; -#P comment 443 190 237 196617 comparable (but more extensive) functionality; -#P comment 64 52 50 196617 about fft:; -#P comment 134 190 255 196617 http://www.bath.ac.uk/~masjpf/CDP/CDP.htm; -#P comment 84 190 28 196617 CDP:; -#P comment 134 113 255 196617 http://sepwww.stanford.edu/oldsep/hale/FftLab.html; -#P comment 443 113 73 196617 very useful; -#P comment 134 151 225 196617 http://www.fftw.org/links.html; -#P comment 443 151 92 196617 more fft links; -#P comment 443 80 95 196617 introduction to fft; -#P comment 134 80 225 196617 http://www.eptools.com/tn/T0001/INDEX.HTM; -#P comment 20 224 92 196617 Numerical Recipes:; -#P comment 134 224 272 196617 http://www.nr.com/; -#P comment 443 49 305 196617 the author (marius schebella) also handles the documentation for the pure data port of vasp; -#P comment 134 52 299 196617 http://www.parasitaere-kapazitaeten.net/Pd/fft_und_pd.htm; -#P comment 44 257 68 196617 gŸnther rabl :; -#P comment 28 22 107 196622 vasp_links; -#P pop; -#P newobj 570 248 35 196617 p links; -#P comment 509 250 59 196617 useful links; -#P comment 45 136 469 196617 consisting of functions to generate and modify buffer content in a non-realtime context.; -#P comment 386 250 55 196617 vasps units; -#N vpatcher 71 356 541 680; -#N vpatcher 442 226 781 479; -#P comment 114 90 102 196617 current sampling rate; -#P flonum 68 194 54 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 68 141 27 196617 t b f; -#P message 267 140 27 196617 stop; -#P message 201 140 65 196617 startwindow; -#P newex 201 163 29 196617 dac~; -#P comment 126 195 64 196617 period length; -#P flonum 68 113 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 68 163 27 196617 / 1.; -#P flonum 56 89 54 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 42 65 53 196617 dspstate~; -#P comment 126 115 80 196617 frequency in Hz; -#P comment 20 21 170 196622 Hz_to_period_length; -#P connect 2 1 3 0; -#P fasten 5 0 10 0 73 134 73 134; -#P fasten 3 0 4 0 61 108 61 108 61 160 73 160; -#P connect 10 0 4 0; -#P connect 4 0 11 0; -#P connect 10 1 4 1; -#P fasten 9 0 7 0 272 159 206 159; -#P connect 8 0 7 0; -#P pop; -#P newobj 123 280 109 196617 p Hz_to_period_length; -#P comment 103 262 301 196617 sample rate/frequency in Hz = frequency in period length (float); -#P comment 60 245 234 196617 - frequencies are always defined in period lengths; -#P message 122 197 125 196617 vasp 44100 buf1 22050 0; -#P comment 103 171 305 196617 e.g: vasp message with an offset of 0.5 sec. and a length of 1 sec. (sr 44100); -#P comment 60 155 366 196617 - lengths and offsets are always defined in samples (depending on sample rate); -#P message 123 102 125 196617 vasp 44100 buf1 22050 0; -#P comment 60 69 182 196617 - vasp index counting starts from 0; -#P comment 38 24 106 196622 vasp_units; -#P comment 103 84 313 196617 e.g: channel 0 in a vasp message means first channel in the buffer; -#P pop; -#P newobj 446 248 38 196617 p units; -#P comment 218 250 78 196617 the vasp objects; -#P comment 45 250 83 196617 the vasp message; -#N vpatcher 740 49 953 357; -#N vpatcher 119 475 293 627; -#P origin 0 23; -#P newex 21 21 39 196617 r ohelp; -#P newex 21 41 78 196617 prepend symbol; -#P newex 21 92 45 196617 pcontrol; -#P message 21 67 41 196617 help \$1; -#P connect 3 0 2 0; -#P connect 2 0 0 0; -#P connect 0 0 1 0; -#P pop; -#P hidden newobj 60 274 54 196617 p openhelp; -#N vpatcher 306 143 730 390; -#P comment 132 137 195 196617 rotate buffer content symmetrically; -#P message 67 137 52 196617 vasp.xrot; -#P message 67 193 59 196617 vasp.xmirr; -#P message 67 164 53 196617 vasp.mirr; -#P message 67 110 45 196617 vasp.rot; -#P message 67 81 59 196617 vasp.xshift; -#P message 67 52 53 196617 vasp.shift; -#P hidden newex 319 205 39 196617 s ohelp; -#P comment 132 193 171 196617 mirrors a vasp symmetrically; -#P comment 131 81 228 196617 shifts the buffer content symetrically; -#P comment 132 164 171 196617 mirrors a vasp; -#P comment 132 52 222 196617 shifts the buffer content; -#P comment 132 110 100 196617 rotate buffer content; -#P comment 43 23 131 196622 vasp.displace; -#P hidden connect 11 0 6 0; -#P hidden connect 10 0 6 0; -#P hidden connect 9 0 6 0; -#P hidden connect 8 0 6 0; -#P hidden connect 7 0 6 0; -#P hidden connect 12 0 6 0; -#P pop; -#P newobj 60 178 75 196617 p vasp.displace; -#N vpatcher 531 93 1020 661; -#P origin 0 41; -#P hidden newex 413 514 39 196617 s ohelp; -#P message 62 522 51 196617 vasp.part; -#P message 62 496 61 196617 vasp.gather; -#P message 62 470 49 196617 vasp.spit; -#P message 62 444 49 196617 vasp.join; -#P message 62 418 52 196617 vasp.split; -#P message 62 392 70 196617 vasp.frames?; -#P message 62 366 70 196617 vasp.frames+; -#P message 62 340 64 196617 vasp.frames; -#P message 62 314 55 196617 vasp.offs?; -#P message 62 288 55 196617 vasp.offs+; -#P message 62 262 50 196617 vasp.offs; -#P message 62 236 43 196617 vasp.n?; -#P message 62 210 35 196617 vasp.n; -#P message 62 184 40 196617 vasp.m; -#P message 62 158 61 196617 vasp.update; -#P message 62 132 53 196617 vasp.sync; -#P message 62 106 45 196617 vasp.chk; -#P message 62 80 44 196617 vasp.??; -#P message 62 54 38 196617 vasp.?; -#P comment 134 80 225 196617 output all non zero samples of a vasp as list; -#P comment 134 496 252 196617 gather several vasps into one; -#P comment 134 418 252 196617 split a vasp into its vectors; -#P comment 134 470 252 196617 spit out vectors of a vasp (one vector after the other); -#P comment 134 444 252 196617 join several vasps into one; -#P comment 134 392 252 196617 get a vasps frame count; -#P comment 134 366 252 196617 raise/lower a vasps frame count; -#P comment 134 340 252 196617 set a vasps frame count; -#P comment 134 314 252 196617 get a single vectored vasp«s offset(s) into the buffer; -#P comment 134 288 252 196617 shift a vasp«s offset(s) into the vector buffers; -#P comment 134 262 252 196617 set a vasp«s offset(s) into the vector buffers; -#P comment 134 236 252 196617 get the number vectors of a vasp; -#P comment 134 210 252 196617 get a vector of a vasp; -#P comment 134 184 252 196617 output a vasp multiply; -#P comment 134 54 186 196617 output the samples of a vasp as list; -#P comment 134 106 110 196617 check vasp dimensions; -#P comment 134 132 246 196617 sync 2 or more vasps; -#P comment 134 158 252 196617 update the graphics of a patcher (e.g. waveform); -#P comment 134 522 238 196617 output vasps with different lengths and offsets; -#P comment 27 22 135 196622 define_vasps; -#P hidden connect 22 0 39 0; -#P hidden connect 38 0 39 0; -#P hidden connect 37 0 39 0; -#P hidden connect 36 0 39 0; -#P hidden connect 35 0 39 0; -#P hidden connect 34 0 39 0; -#P hidden connect 33 0 39 0; -#P hidden connect 32 0 39 0; -#P hidden connect 31 0 39 0; -#P hidden connect 30 0 39 0; -#P hidden connect 29 0 39 0; -#P hidden connect 28 0 39 0; -#P hidden connect 27 0 39 0; -#P hidden connect 26 0 39 0; -#P hidden connect 25 0 39 0; -#P hidden connect 24 0 39 0; -#P hidden connect 23 0 39 0; -#P hidden connect 21 0 39 0; -#P hidden connect 20 0 39 0; -#P pop; -#P newobj 60 65 75 196617 p define_vasps; -#N vpatcher 463 267 1141 534; -#P message 63 228 52 196617 vasp.xtilt; -#P comment 130 229 165 196617 symmetrical resampling; -#P message 64 204 45 196617 vasp.tilt; -#P comment 129 205 165 196617 resampling; -#P message 279 81 60 196617 vasp.cnorm; -#P message 483 109 70 196617 vasp.rvalleys; -#P message 483 137 62 196617 vasp.rpeaks; -#P message 483 81 51 196617 vasp.ropt; -#P comment 559 109 83 196617 radius valleys; -#P comment 559 137 83 196617 radius peaks; -#P comment 559 81 83 196617 radius optimize; -#P message 483 53 55 196617 vasp.rgate; -#P comment 559 53 83 196617 radius gate; -#P hidden newex 304 187 39 196617 s ohelp; -#P message 64 165 60 196617 vasp.pwrap; -#P message 64 137 55 196617 vasp.peaks; -#P message 64 109 65 196617 vasp.valleys; -#P message 64 81 45 196617 vasp.opt; -#P message 64 53 51 196617 vasp.gate; -#P comment 129 165 165 196617 wraps value from 0-2¹ to -¹ to ¹; -#P comment 129 137 100 196617 local peaks of a vasp; -#P comment 129 109 123 196617 local minima of a vasp; -#P comment 129 81 134 196617 optimize buffer content; -#P comment 129 53 171 196617 gates vasp under a value (amplitude); -#P comment 26 25 144 196622 vasp_utilities; -#P comment 341 81 125 196617 sets complex radius of all samples to unity; -#P hidden connect 25 0 12 0; -#P hidden connect 23 0 12 0; -#P hidden connect 20 0 12 0; -#P hidden connect 19 0 12 0; -#P hidden connect 18 0 12 0; -#P hidden connect 14 0 12 0; -#P hidden connect 10 0 12 0; -#P hidden connect 9 0 12 0; -#P hidden connect 8 0 12 0; -#P hidden connect 7 0 12 0; -#P hidden connect 21 0 12 0; -#P hidden connect 11 0 12 0; -#P pop; -#P newobj 60 246 75 196617 p vasp.utilities; -#N vpatcher 195 285 765 547; -#P origin 0 24; -#P message 352 208 53 196617 vasp.rmin; -#P message 352 182 55 196617 vasp.rmax; -#P comment 426 208 83 196617 radius minimum; -#P comment 426 182 83 196617 radius maximum; -#P hidden newex 309 229 39 196617 s ohelp; -#P message 63 208 48 196617 vasp.min; -#P message 63 182 51 196617 vasp.max; -#P message 63 156 55 196617 vasp.max?; -#P message 63 130 54 196617 vasp.min?; -#P message 63 104 62 196617 vasp.amax?; -#P message 63 78 59 196617 vasp.amin?; -#P message 352 156 62 196617 vasp.rmax?; -#P message 352 130 59 196617 vasp.rmin?; -#P message 63 52 65 196617 vasp.minmax; -#P comment 139 208 171 196617 minimum of vasp and argument; -#P comment 139 182 171 196617 maximum of vasp and argument; -#P comment 139 130 131 196617 output min. value of a vasp; -#P comment 139 156 131 196617 output max. value of a vasp; -#P comment 139 104 172 196617 output max. absolute value of a vasp; -#P comment 139 78 204 196617 output min. absolute value of a vasp; -#P comment 426 156 99 196617 radius max. value; -#P comment 426 130 96 196617 radius min. value; -#P comment 139 54 228 196617 splits a vasp into minimum and maximum values; -#P comment 27 23 140 196622 vasp_minmax_etc.; -#P hidden connect 23 0 19 0; -#P hidden connect 22 0 19 0; -#P hidden connect 18 0 19 0; -#P hidden connect 17 0 19 0; -#P hidden connect 16 0 19 0; -#P hidden connect 15 0 19 0; -#P hidden connect 14 0 19 0; -#P hidden connect 13 0 19 0; -#P hidden connect 12 0 19 0; -#P hidden connect 11 0 19 0; -#P hidden connect 10 0 19 0; -#P pop; -#P newobj 60 223 98 196617 p vasp.minmax_etc.; -#N vpatcher 480 321 1117 575; -#P origin 0 27; -#P comment 292 137 98 196617 complex sample^2; -#P comment 292 112 148 196617 complex integer power function; -#P comment 121 162 98 196617 square root; -#P comment 121 188 87 196617 signed sample^2; -#P message 230 112 58 196617 vasp.cpowi; -#P message 230 137 52 196617 vasp.csqr; -#P message 61 214 55 196617 vasp.ssqrt; -#P message 61 188 52 196617 vasp.ssqr; -#P message 61 162 51 196617 vasp.sqrt; -#P message 61 137 45 196617 vasp.sqr; -#P message 61 112 50 196617 vasp.pow; -#P comment 121 214 98 196617 signed square root; -#P comment 121 112 48 196617 samps^x; -#P comment 121 137 70 196617 sample^2; -#P message 448 112 55 196617 vasp.rpow; -#P comment 504 112 112 196617 radius power function; -#P hidden newex 346 206 39 196617 s ohelp; -#P message 61 85 45 196617 vasp.log; -#P message 61 55 48 196617 vasp.exp; -#P comment 121 85 86 196617 logarithm; -#P comment 121 55 84 196617 exponential; -#P comment 27 22 143 196622 vasp_transcendent; -#P hidden connect 3 0 5 0; -#P hidden connect 4 0 5 0; -#P hidden connect 11 0 5 0; -#P hidden connect 12 0 5 0; -#P hidden connect 13 0 5 0; -#P hidden connect 14 0 5 0; -#P hidden connect 15 0 5 0; -#P hidden connect 17 0 5 0; -#P hidden connect 16 0 5 0; -#P hidden connect 7 0 5 0; -#P pop; -#P newobj 60 201 98 196617 p vasp.transcendent; -#N vpatcher 508 79 1002 585; -#P origin 0 26; -#P message 251 114 45 196617 vasp.c!-; -#P comment 125 112 100 196617 reverse subtraction; -#P message 62 112 40 196617 vasp.!-; -#P comment 126 439 100 196617 integral function; -#P comment 126 462 100 196617 differential function; -#P message 63 462 44 196617 vasp.dif; -#P message 63 439 44 196617 vasp.int; -#P message 336 70 43 196617 vasp.r+; -#P comment 385 70 83 196617 radius offset; -#P message 252 182 45 196617 vasp.c!/; -#P comment 126 181 100 196617 reverse division; -#P message 63 181 41 196617 vasp.!/; -#P message 252 205 43 196617 vasp.c=; -#P message 252 160 43 196617 vasp.c/; -#P message 252 136 44 196617 vasp.c*; -#P message 251 92 42 196617 vasp.c-; -#P message 251 70 43 196617 vasp.c+; -#P hidden newex 417 333 39 196617 s ohelp; -#P message 63 416 50 196617 vasp.sign; -#P message 63 394 41 196617 vasp.%; -#P message 63 373 45 196617 vasp.abs; -#P message 63 350 41 196617 vasp.!=; -#P message 63 327 44 196617 vasp.==; -#P message 63 304 43 196617 vasp.>=; -#P message 63 280 43 196617 vasp.<=; -#P message 63 256 35 196617 vasp.>; -#P message 63 232 35 196617 vasp.<; -#P message 63 207 38 196617 vasp.=; -#P message 63 159 38 196617 vasp./; -#P message 63 135 39 196617 vasp.*; -#P message 62 92 35 196617 vasp.-; -#P message 62 70 38 196617 vasp.+; -#P comment 126 304 100 196617 vasp >= x; -#P comment 126 280 100 196617 vasp >= x; -#P comment 126 256 100 196617 vasp > x; -#P comment 126 232 100 196617 vasp < x; -#P comment 126 327 58 196617 equal to; -#P comment 126 135 100 196617 multiplication; -#P comment 126 159 100 196617 division; -#P comment 125 92 100 196617 subtraction; -#P comment 126 350 58 196617 not equal to; -#P comment 126 394 158 196617 modulo (remainder of a division); -#P comment 126 373 128 196617 absolute value of a vasp; -#P comment 125 70 100 196617 addition; -#P comment 251 49 73 196617 complex ....; -#P comment 27 24 151 196622 vasp_arithmetic; -#P comment 126 207 100 196617 vasp = x; -#P comment 126 416 204 196617 values < 0 become -1 | values > 0 become 1; -#P comment 336 49 100 196617 radius ....; -#P hidden connect 43 0 31 0; -#P hidden connect 42 0 31 0; -#P hidden connect 41 0 31 0; -#P hidden connect 39 0 31 0; -#P hidden connect 37 0 31 0; -#P hidden connect 36 0 31 0; -#P hidden connect 35 0 31 0; -#P hidden connect 34 0 31 0; -#P hidden connect 33 0 31 0; -#P hidden connect 32 0 31 0; -#P hidden connect 30 0 31 0; -#P hidden connect 29 0 31 0; -#P hidden connect 28 0 31 0; -#P hidden connect 27 0 31 0; -#P hidden connect 26 0 31 0; -#P hidden connect 25 0 31 0; -#P hidden connect 23 0 31 0; -#P hidden connect 21 0 31 0; -#P hidden connect 19 0 31 0; -#P hidden connect 18 0 31 0; -#P hidden connect 17 0 31 0; -#P hidden connect 20 0 31 0; -#P hidden connect 22 0 31 0; -#P hidden connect 24 0 31 0; -#P hidden connect 46 0 31 0; -#P hidden connect 48 0 31 0; -#P pop; -#P newobj 60 109 85 196617 p vasp.arithmetic; -#N vpatcher 528 390 958 618; -#P origin 25 0; -#P message 234 86 52 196617 vasp.r!fft; -#P message 234 59 49 196617 vasp.rfft; -#P message 64 133 55 196617 vasp.polar; -#P message 64 86 52 196617 vasp.c!fft; -#P message 64 59 49 196617 vasp.cfft; -#P hidden newex 309 192 39 196617 s ohelp; -#P comment 121 133 238 196617 changes between cartesian and polar representation; -#P comment 287 86 114 196617 inverse real fft; -#P comment 121 59 100 196617 complex fft; -#P comment 121 86 100 196617 inverse complex fft; -#P comment 287 59 100 196617 real fft; -#P comment 26 22 135 196622 vasp_fftobjects; -#P comment 121 177 238 196617 changes between polar and cartesian representation; -#P message 64 177 51 196617 vasp.rect; -#P hidden fasten 11 0 8 0 69 161 314 161; -#P hidden fasten 10 0 8 0 69 113 314 113; -#P hidden fasten 9 0 8 0 69 78 314 78; -#P hidden fasten 0 0 8 0 69 198 314 198; -#P hidden fasten 12 0 8 0 239 113 314 113; -#P hidden fasten 13 0 8 0 239 77 314 77; -#P pop; -#P newobj 60 87 85 196617 p vasp.fftobjects; -#N vpatcher 506 170 738 299; -#P origin 0 12; -#P hidden newex 149 90 39 196617 s ohelp; -#P message 65 79 44 196617 vasp.flp; -#P message 65 53 45 196617 vasp.fhp; -#P comment 116 79 100 196617 low pass; -#P comment 116 53 100 196617 high pass; -#P comment 24 21 117 196622 vasp_filters; -#P hidden connect 4 0 5 0; -#P hidden connect 3 0 5 0; -#P pop; -#P newobj 60 155 69 196617 p vasp.filters; -#N vpatcher 193 174 800 440; -#P origin 0 -227; -#P hidden newex 371 208 39 196617 s ohelp; -#P message 422 192 59 196617 vasp.*cosc; -#P message 422 169 65 196617 vasp.*!bevel; -#P message 422 146 63 196617 vasp.*bevel; -#P message 422 100 69 196617 vasp.*phasor; -#P message 422 77 54 196617 vasp.*osc; -#P message 60 214 60 196617 vasp.cnoise; -#P message 60 191 52 196617 vasp.cosc; -#P message 60 168 59 196617 vasp.!bevel; -#P message 60 145 55 196617 vasp.bevel; -#P message 60 122 55 196617 vasp.noise; -#P message 60 99 62 196617 vasp.phasor; -#P message 60 76 45 196617 vasp.osc; -#P comment 60 56 126 196617 generate .....; -#P comment 128 169 120 196617 vasp ramp from 1- 0; -#P comment 128 145 120 196617 vasp ramp from 0 - 1; -#P comment 128 121 120 196617 vasp noise generator; -#P comment 128 98 120 196617 vasp saw tooth generator; -#P comment 128 75 126 196617 vasp sine wave generator; -#P comment 292 59 283 196617 multiplies a buffer content with the oscillator functions ...; -#P comment 128 217 140 196617 complex noise; -#P comment 128 192 140 196617 complex sine wave; -#P comment 26 22 138 196622 vasp_generators; -#P hidden connect 21 0 22 0; -#P hidden connect 20 0 22 0; -#P hidden connect 19 0 22 0; -#P hidden connect 18 0 22 0; -#P hidden connect 17 0 22 0; -#P hidden connect 16 0 22 0; -#P hidden connect 15 0 22 0; -#P hidden connect 14 0 22 0; -#P hidden connect 13 0 22 0; -#P hidden connect 12 0 22 0; -#P hidden connect 11 0 22 0; -#P hidden connect 10 0 22 0; -#P pop; -#P newobj 60 132 89 196617 p vasp.generators; -#P comment 25 23 121 196622 vasp_objects; -#P pop; -#P newobj 301 248 49 196617 p objects; -#P comment 45 152 478 196617 vasp objects are using a specialized message syntax for all objects to refer to a buffer or a part of it.; -#N vpatcher 120 60 880 570; -#P origin 0 97; -#P comment 104 1341 139 196617 set all samples of buf5/6 to 0; -#P message 246 1340 75 196617 vasp buf5 buf6; -#P newex 246 1382 61 196617 vasp.update; -#P newex 246 1360 45 196617 vasp.= 0; -#P comment 38 1289 207 196617 and modulate the noise with a 4Hz sine wave; -#P newex 246 1206 55 196617 vasp.* 0.5; -#P hidden newex 494 37 45 196617 loadbang; -#P comment 725 1385 13 196620 |||; -#P newex 517 1384 92 196617 buffer~ buf6 2000; -#P newex 517 1364 92 196617 buffer~ buf5 2000; -#P newex 518 1122 92 196617 buffer~ buf4 2000; -#P newex 504 848 92 196617 buffer~ buf3 2000; -#P newex 504 828 92 196617 buffer~ buf2 2000; -#P newex 501 414 92 196617 buffer~ buf1 2000; -#P hidden newex 373 599 45 196617 loadbang; -#P hidden message 494 57 205 196617 window size 120 60 880 570 \, window exec; -#N thispatcher; -#Q end; -#P hidden newobj 494 75 59 196617 thispatcher; -#P comment 555 1273 63 196617 buffer buf6; -#P comment 554 1180 63 196617 buffer buf5; -#P comment 94 1158 37 196617 - to:; -#P comment 115 1076 127 196617 set all samples of buf1 to 0; -#P comment 553 1030 63 196617 buffer buf4; -#P message 246 1268 115 196617 to vasp buf6 \, vasp buf5; -#P newex 246 1311 61 196617 vasp.update; -#P newex 246 1287 85 196617 vasp.*osc 11025; -#P newex 246 1228 61 196617 vasp.update; -#P newex 246 1184 55 196617 vasp.noise; -#P message 246 1074 52 196617 vasp buf4; -#P newex 246 1116 61 196617 vasp.update; -#P newex 246 1094 45 196617 vasp.= 0; -#P hidden message 387 1271 45 196617 set buf6; -#P user waveform~ 387 1287 223 74 3 9; -#W mode none; -#W mouseoutput none; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P hidden newex 387 1158 45 196617 loadbang; -#P hidden message 387 1177 45 196617 set buf5; -#P user waveform~ 387 1195 223 74 3 9; -#W mode none; -#W mouseoutput none; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P button 193 993 15 0; -#P hidden newex 387 1002 45 196617 loadbang; -#P hidden message 387 1029 45 196617 set buf4; -#P newex 246 1049 61 196617 vasp.update; -#P newex 246 1024 80 196617 vasp.osc 22050; -#P user waveform~ 387 1045 223 74 3 9; -#W mode none; -#W mouseoutput none; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P comment 539 737 63 196617 buffer buf3; -#P comment 534 644 63 196617 buffer buf2; -#P comment 536 324 57 196617 buffer buf1; -#P comment 117 748 112 196617 set all samples of buf1 and buf2 to 0; -#P message 231 750 75 196617 vasp buf2 buf3; -#P newex 231 788 61 196617 vasp.update; -#P newex 231 768 45 196617 vasp.= 0; -#P newex 228 705 61 196617 vasp.update; -#P newex 228 680 80 196617 vasp.osc 22050; -#P comment 92 375 127 196617 set all samples of buf1 to 0; -#P comment 92 320 135 196617 generate a sine wave at 2Hz; -#P message 229 376 55 196617 vasp buf1; -#P newex 229 414 61 196617 vasp.update; -#P newex 229 394 45 196617 vasp.= 0; -#P hidden message 373 734 45 196617 set buf3; -#P user waveform~ 373 751 223 74 3 9; -#W mode none; -#W mouseoutput none; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P hidden message 373 641 45 196617 set buf2; -#P hidden newex 373 620 35 196617 del 10; -#P user waveform~ 373 659 223 74 3 9; -#W mode none; -#W mouseoutput none; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 228 343 61 196617 vasp.update; -#P newex 228 318 80 196617 vasp.osc 22050; -#P hidden message 370 319 45 196617 set buf1; -#P hidden newex 370 299 45 196617 loadbang; -#P user waveform~ 370 338 223 74 3 9; -#W mode none; -#W mouseoutput none; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P comment 117 1270 127 196617 sets the target buffer buf6; -#P message 246 1158 52 196617 vasp buf5; -#P comment 379 202 117 196617 (default 0); -#P comment 351 993 214 196617 sets the message \, bang triggers the operation; -#P comment 63 958 198 196622 additional vasp messages:; -#P message 246 993 102 196617 set vasp 44100 buf4; -#P comment 130 868 502 196617 a vasp message can contain as many vectors as you like \, but all vectors have the same length; -#P comment 391 570 281 196617 refering to buffer buf1 from 0 sec to 1 sec on channel 0 and buffer buf2 from 0.5 sec to 1.5 sec on channel 0; -#P message 228 573 159 196617 vasp 44100 buf2 0 0 buf3 22050; -#P comment 92 574 135 196617 two vectored vasp message:; -#P comment 92 527 395 196617 all vectors have the same length \, but the vectors can differ in the buffers and offsets; -#P comment 74 497 269 196617 - if a vasp message contains more than one vector:; -#P comment 296 226 117 196617 (default 0); -#P comment 354 270 284 196617 refering to buffer buf1 from 0.5 sec to 1.5 sec on channel 0; -#P message 228 269 125 196617 vasp 44100 buf1 22050 0; -#P comment 92 271 135 196617 one vectored vasp message:; -#P comment 379 153 141 196617 which does the same.; -#P message 336 151 43 196617 vasp -1; -#P comment 92 153 192 196617 if missing \, it refers to the whole buffer; -#P message 169 225 125 196617 vasp 44100 buf1 22050 0; -#P comment 92 226 75 196617 and the channel; -#P message 258 201 118 196617 vasp 44100 buf1 22050; -#P comment 92 202 138 196617 an optional offset in samples; -#P message 258 179 85 196617 vasp 44100 buf1; -#P comment 92 180 164 196617 the name of the buffer it refers to; -#P message 271 131 62 196617 vasp 44100; -#P comment 92 134 173 196617 followed by the length in samples; -#P message 214 110 31 196617 vasp; -#P comment 63 43 158 196622 the vasp message:; -#P comment 63 1 124 196622 vasp_syntax; -#P comment 74 85 362 196617 - a vasp message is structured by the following parts:; -#P comment 92 112 113 196617 it always starts with; -#P comment 291 153 41 196617 or type; -#P comment 94 993 37 196617 - set:; -#P comment 725 473 14 196620 |; -#P comment 725 934 13 196620 ||; -#P connect 21 0 39 0; -#P connect 39 0 40 0; -#P connect 27 0 51 0; -#P connect 51 0 52 0; -#P connect 48 0 46 0; -#P connect 46 0 47 0; -#P connect 55 0 53 0; -#P connect 53 0 54 0; -#P connect 30 0 61 0; -#P fasten 65 0 61 0 198 1014 251 1014; -#P connect 61 0 62 0; -#P connect 73 0 71 0; -#P connect 71 0 72 0; -#P connect 34 0 74 0; -#P connect 74 0 95 0; -#P connect 95 0 75 0; -#P connect 78 0 76 0; -#P connect 76 0 77 0; -#P connect 99 0 97 0; -#P connect 97 0 98 0; -#P hidden connect 37 0 38 0; -#P hidden connect 38 0 36 0; -#P hidden connect 86 0 42 0; -#P hidden connect 42 0 43 0; -#P hidden connect 43 0 41 0; -#P hidden connect 42 0 45 0; -#P hidden connect 45 0 44 0; -#P hidden connect 64 0 63 0; -#P hidden connect 63 0 60 0; -#P hidden connect 68 0 67 0; -#P hidden connect 67 0 66 0; -#P hidden connect 68 0 70 0; -#P hidden connect 70 0 69 0; -#P hidden connect 94 0 85 0; -#P hidden connect 85 0 84 0; -#P pop; -#P newobj 134 248 45 196617 p syntax; -#P comment 25 41 148 196622 vasp_modular.help; -#P comment 45 120 354 196617 vasp is a library of objects for max/msp and pd \,; -#P comment 45 348 432 196617 inspired by gŸnther rabl«s fft-box and tool-box. find gŸnther rabl at www.canto-crudo.com; -#P comment 45 75 362 196620 vasp modular - vector assembling signal processor ©2002 thomas grill; -#P comment 45 365 470 196617 vasp.help patches by florian bogner and oliver grimm - ©2002 patcherboys - www.patcherboys.com; -#P comment 45 168 570 196617 these help patches should give you an idea of what is possible. feel free to combine different patches to more complex ones.; -#P hidden connect 18 0 20 0; -#P hidden connect 17 0 16 0; -#P hidden connect 20 0 19 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.int.help b/externals/grill/vasp/max-help/vasp.int.help deleted file mode 100755 index 255494e2..00000000 --- a/externals/grill/vasp/max-help/vasp.int.help +++ /dev/null @@ -1,93 +0,0 @@ -max v2; -#N vpatcher 270 159 881 476; -#P newex 46 237 45 196617 vasp.opt; -#P message 404 216 58 196617 vasp bufint; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 404 237 73 196617 p clear_buffer; -#P comment 38 75 131 196617 argument: repetition count; -#P newex 46 158 61 196617 vasp.update; -#P comment 38 58 131 196617 vasp integral function; -#P message 46 188 58 196617 vasp bufint; -#P newex 46 211 44 196617 vasp.int; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 268 31 49 196617 p wfkeys; -#P hidden message 268 77 51 196617 set bufint; -#P hidden newex 268 53 45 196617 loadbang; -#P user waveform~ 268 104 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 46 262 61 196617 vasp.update; -#P message 46 104 58 196617 vasp bufint; -#P newex 482 237 98 196617 buffer~ bufint 2000; -#P newex 46 131 55 196617 vasp.bevel; -#P comment 38 34 89 196622 vasp.int; -#P connect 3 0 1 0; -#P connect 1 0 12 0; -#P connect 10 0 9 0; -#P connect 9 0 16 0; -#P connect 16 0 4 0; -#P hidden connect 6 0 7 0; -#P hidden connect 8 0 5 0; -#P hidden connect 7 0 5 0; -#P connect 15 0 14 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.join.help b/externals/grill/vasp/max-help/vasp.join.help deleted file mode 100755 index ba53ca5c..00000000 --- a/externals/grill/vasp/max-help/vasp.join.help +++ /dev/null @@ -1,31 +0,0 @@ -max v2; -#N vpatcher 235 91 615 568; -#P hidden message 310 213 22 196617 set; -#P hidden newex 310 186 45 196617 loadbang; -#P message 182 159 149 196617 vasp bufjoin1 bufjoin2 bufjoin3; -#P newex 239 431 109 196617 buffer~ bufjoin3 2000; -#P newex 239 409 109 196617 buffer~ bufjoin2 2000; -#P newex 239 388 109 196617 buffer~ bufjoin1 2000; -#P newex 111 215 60 196617 prepend set; -#P message 111 239 237 196617; -#P message 61 329 287 196617; -#P newex 61 305 60 196617 prepend set; -#P newex 61 191 61 196617 vasp.split 2; -#P newex 61 282 58 196617 vasp.join 2; -#P comment 51 62 137 196617 join several vasps into one; -#P message 61 159 109 196617 vasp bufjoin1 bufjoin2; -#P comment 51 39 89 196622 vasp.join; -#P comment 51 78 164 196617 argument: number of vasps to join; -#P comment 51 95 138 196617 left inlet triggers the output; -#P fasten 14 0 6 0 187 179 66 179; -#P connect 3 0 6 0; -#P connect 6 0 5 0; -#P connect 5 0 7 0; -#P hidden fasten 16 0 8 0 315 326 66 326; -#P connect 7 0 8 0; -#P fasten 6 1 5 1 91 274 114 274; -#P connect 6 2 10 0; -#P connect 10 0 9 0; -#P hidden fasten 16 0 9 0 315 234 116 234; -#P hidden connect 15 0 16 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.leq.help b/externals/grill/vasp/max-help/vasp.leq.help deleted file mode 100755 index ab0aee34..00000000 --- a/externals/grill/vasp/max-help/vasp.leq.help +++ /dev/null @@ -1,128 +0,0 @@ -max v2; -#N vpatcher 188 104 857 525; -#P message 437 350 91 196617 vasp buf<= buf<=1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 437 373 78 196617 p clear_buffers; -#P newex 59 327 61 196617 vasp.update; -#P flonum 149 272 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 274 286 48 196617 0/false; -#P comment 137 145 148 196617 generate a sine wave at 1Hz; -#P message 59 145 55 196617 vasp buf<=; -#P newex 59 191 61 196617 vasp.update; -#P newex 59 168 80 196617 vasp.osc 44100; -#P comment 137 229 100 196617 copy to new buffer; -#P hidden message 321 219 55 196617 set buf<=1; -#P user waveform~ 321 237 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 530 373 103 196617 buffer~ buf<=1 2000; -#P comment 52 86 188 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 50 196617 set buf<=; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 296 65 196617 vasp.<= -0.4; -#P message 59 228 63 196617 vasp buf<=1; -#P newex 530 350 103 196617 buffer~ buf<= 2000; -#P newex 59 249 65 196617 vasp.= buf<=; -#P comment 52 71 83 196617 sample <= value; -#P comment 52 48 89 196622 vasp.<=; -#P comment 598 103 44 196617 source; -#P comment 277 244 44 196617 1/true; -#P connect 19 0 17 0; -#P connect 17 0 18 0; -#P connect 6 0 4 0; -#P connect 4 0 7 0; -#P connect 7 0 23 0; -#P fasten 22 0 7 1 154 292 119 292; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 628 371 638 371 638 94 326 94; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 15 0; -#P hidden connect 11 0 14 0; -#P hidden connect 15 0 14 0; -#P connect 25 0 24 0; -#P hidden fasten 14 5 8 4 626 340 638 340 638 94 626 94; -#P hidden connect 8 5 14 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.list.help b/externals/grill/vasp/max-help/vasp.list.help deleted file mode 100755 index 77081652..00000000 --- a/externals/grill/vasp/max-help/vasp.list.help +++ /dev/null @@ -1,85 +0,0 @@ -max v2; -#N vpatcher 89 186 906 488; -#P origin 0 3; -#P hidden message 380 52 22 196617 set; -#P hidden newex 380 22 45 196617 loadbang; -#P message 42 228 598 196617; -#P newex 42 200 60 196617 prepend set; -#P newex 42 172 38 196617 vasp.?; -#P comment 39 54 238 196617 outputs the values of all samples of a vasp as list; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 435 21 49 196617 p wfkeys; -#P newex 42 113 55 196617 vasp.bevel; -#P hidden message 435 62 45 196617 set buf?; -#P hidden newex 435 43 45 196617 loadbang; -#P user waveform~ 435 80 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 42 139 61 196617 vasp.update; -#P message 42 85 52 196617 vasp buf?; -#P newex 664 228 83 196617 buffer~ buf? 0.3; -#P comment 39 30 89 196622 vasp.?; -#P connect 2 0 7 0; -#P connect 7 0 3 0; -#P connect 3 0 10 0; -#P connect 10 0 11 0; -#P connect 11 0 12 0; -#P hidden fasten 14 0 12 0 385 220 47 220; -#P hidden connect 13 0 14 0; -#P hidden connect 5 0 6 0; -#P hidden connect 6 0 4 0; -#P hidden connect 8 0 4 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.log.help b/externals/grill/vasp/max-help/vasp.log.help deleted file mode 100755 index a9d784e7..00000000 --- a/externals/grill/vasp/max-help/vasp.log.help +++ /dev/null @@ -1,8 +0,0 @@ -max v2; -#N vpatcher 200 142 489 314; -#P origin 0 2; -#P newex 124 111 45 196617 vasp.log; -#P comment 45 57 189 196617 natural logarithm; -#P comment 45 34 89 196622 vasp.log; -#P comment 45 73 100 196617 ln(sample); -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.lwr.help b/externals/grill/vasp/max-help/vasp.lwr.help deleted file mode 100755 index a0d95c38..00000000 --- a/externals/grill/vasp/max-help/vasp.lwr.help +++ /dev/null @@ -1,128 +0,0 @@ -max v2; -#N vpatcher 147 90 816 511; -#P message 451 352 84 196617 vasp buf<a buf<1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 451 373 78 196617 p clear_buffers; -#P newex 59 327 61 196617 vasp.update; -#P flonum 149 272 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 274 286 48 196617 0/false; -#P comment 137 145 148 196617 generate a sine wave at 1Hz; -#P message 59 145 51 196617 vasp buf<; -#P newex 59 191 61 196617 vasp.update; -#P newex 59 168 80 196617 vasp.osc 44100; -#P comment 137 229 100 196617 copy to new buffer; -#P hidden message 321 219 50 196617 set buf<1; -#P user waveform~ 321 237 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 538 373 95 196617 buffer~ buf<1 2000; -#P comment 52 86 188 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 44 196617 set buf<; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 296 60 196617 vasp.< -0.4; -#P message 59 228 55 196617 vasp buf<1; -#P newex 538 352 95 196617 buffer~ buf< 2000; -#P newex 59 249 60 196617 vasp.= buf<; -#P comment 52 71 83 196617 sample < value; -#P comment 52 48 89 196622 vasp.<; -#P comment 598 103 44 196617 source; -#P comment 277 244 44 196617 1/true; -#P connect 19 0 17 0; -#P connect 17 0 18 0; -#P connect 6 0 4 0; -#P connect 4 0 7 0; -#P connect 7 0 23 0; -#P fasten 22 0 7 1 154 292 114 292; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 628 371 638 371 638 94 326 94; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 15 0; -#P hidden connect 15 0 14 0; -#P hidden connect 11 0 14 0; -#P connect 25 0 24 0; -#P hidden fasten 14 5 8 4 626 340 638 340 638 94 626 94; -#P hidden connect 8 5 14 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.max.help b/externals/grill/vasp/max-help/vasp.max.help deleted file mode 100755 index 4bb318de..00000000 --- a/externals/grill/vasp/max-help/vasp.max.help +++ /dev/null @@ -1,125 +0,0 @@ -max v2; -#N vpatcher 257 116 926 537; -#P message 411 353 105 196617 vasp bufmax bufmax1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 411 373 78 196617 p clear_buffers; -#P comment 140 145 148 196617 generate a sine wave at 1Hz; -#P message 59 145 65 196617 vasp bufmax; -#P newex 59 191 61 196617 vasp.update; -#P newex 59 168 80 196617 vasp.osc 44100; -#P newex 59 271 45 196617 vasp.abs; -#P comment 140 229 100 196617 copy to new buffer; -#P hidden message 321 219 64 196617 set bufmax1; -#P user waveform~ 321 237 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 521 373 111 196617 buffer~ bufmax1 2000; -#P comment 52 87 188 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 58 196617 set bufmax; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 297 69 196617 vasp.max 0.4; -#P message 59 228 71 196617 vasp bufmax1; -#P newex 521 353 111 196617 buffer~ bufmax 2000; -#P newex 59 249 74 196617 vasp.= bufmax; -#P comment 52 71 244 196617 take maximum of vasp and argument; -#P comment 52 48 89 196622 vasp.max; -#P comment 140 273 100 196617 find absolute values; -#P comment 598 103 44 196617 source; -#P connect 20 0 18 0; -#P connect 18 0 19 0; -#P connect 6 0 4 0; -#P connect 4 0 17 0; -#P connect 17 0 7 0; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 627 371 638 371 638 94 326 94; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 15 0; -#P hidden connect 11 0 14 0; -#P hidden connect 15 0 14 0; -#P connect 23 0 22 0; -#P hidden fasten 14 5 8 4 626 340 638 340 638 94 626 94; -#P hidden connect 8 5 14 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.maxq.help b/externals/grill/vasp/max-help/vasp.maxq.help deleted file mode 100755 index bd33265f..00000000 --- a/externals/grill/vasp/max-help/vasp.maxq.help +++ /dev/null @@ -1,86 +0,0 @@ -max v2; -#N vpatcher 257 116 917 432; -#P message 59 223 75 196617 vasp buffmax?; -#P newex 59 182 55 196617 vasp.* 0.5; -#P comment 168 274 100 196617 >>>> maximum value; -#P flonum 104 274 60 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 52 101 188 196617 right outlet: max value; -#P comment 140 139 148 196617 generate a sine wave at 1Hz; -#P message 59 139 75 196617 vasp buffmax?; -#P newex 59 201 61 196617 vasp.update; -#P newex 59 162 80 196617 vasp.osc 44100; -#P comment 52 86 188 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 73 49 196617 p wfkeys; -#P hidden message 321 119 68 196617 set buffmax?; -#P hidden newex 321 95 45 196617 loadbang; -#P user waveform~ 321 139 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 245 55 196617 vasp.max?; -#P newex 507 274 120 196617 buffer~ buffmax? 2000; -#P comment 52 71 200 196617 get maximum sample value of a vasp; -#P comment 52 48 89 196622 vasp.max?; -#P connect 11 0 9 0; -#P connect 9 0 16 0; -#P connect 16 0 10 0; -#P connect 17 0 3 0; -#P connect 3 1 14 0; -#P hidden connect 5 0 6 0; -#P hidden fasten 2 1 6 0 622 299 638 299 638 115 326 115; -#P hidden connect 7 0 4 0; -#P hidden connect 6 0 4 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.mbeveldn.help b/externals/grill/vasp/max-help/vasp.mbeveldn.help deleted file mode 100755 index c44f378a..00000000 --- a/externals/grill/vasp/max-help/vasp.mbeveldn.help +++ /dev/null @@ -1,100 +0,0 @@ -max v2; -#N vpatcher 171 80 847 440; -#P message 450 292 75 196617 vasp buf*bevel; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 450 312 73 196617 p clear_buffer; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 408 127 49 196617 p wfkeys; -#P newex 41 245 61 196617 vasp.update; -#P newex 332 150 61 196617 vasp.update; -#P comment 483 103 150 196617 generate a 500 ms fade out; -#P message 332 102 143 196617 vasp 22050 buf*bevel 66150; -#P newex 332 127 65 196617 vasp.*!bevel; -#P newex 41 155 55 196617 vasp.* 0.5; -#P comment 160 199 142 196617 generate a 500 ms fade in; -#P message 41 197 110 196617 vasp 22050 buf*bevel; -#P newex 41 129 62 196617 vasp.osc 44; -#P comment 332 53 215 196617 multiplies a linear ramp from 1 to 0 to a vasp; -#P comment 332 29 126 196622 vasp.*!bevel; -#P newex 41 222 63 196617 vasp.*bevel; -#P hidden message 408 167 70 196617 set buf*bevel; -#P hidden newex 408 150 45 196617 loadbang; -#P user waveform~ 332 187 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 41 100 75 196617 vasp buf*bevel; -#P newex 529 312 115 196617 buffer~ buf*bevel 2000; -#P comment 38 53 213 196617 multiplies a linear ramp from 0 to 1 to a vasp; -#P comment 38 29 125 196622 vasp.*bevel; -#P comment 127 102 142 196617 generate a sine wave at 1kHz; -#P connect 4 0 11 0; -#P connect 11 0 14 0; -#P connect 12 0 8 0; -#P connect 8 0 19 0; -#P connect 16 0 15 0; -#P connect 15 0 18 0; -#P hidden fasten 7 0 5 0 413 184 337 184; -#P hidden fasten 20 0 5 0 413 186 337 186; -#P hidden connect 6 0 7 0; -#P connect 22 0 21 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.mbevelup.help b/externals/grill/vasp/max-help/vasp.mbevelup.help deleted file mode 100755 index 5d36531e..00000000 --- a/externals/grill/vasp/max-help/vasp.mbevelup.help +++ /dev/null @@ -1,100 +0,0 @@ -max v2; -#N vpatcher 180 143 862 501; -#P message 454 290 75 196617 vasp buf*bevel; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 454 310 73 196617 p clear_buffer; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 409 127 49 196617 p wfkeys; -#P newex 41 245 61 196617 vasp.update; -#P newex 332 150 61 196617 vasp.update; -#P comment 483 104 150 196617 generate a 500 ms fade out; -#P message 332 102 143 196617 vasp 22050 buf*bevel 66150; -#P newex 332 127 65 196617 vasp.*!bevel; -#P newex 41 155 55 196617 vasp.* 0.5; -#P comment 160 199 142 196617 generate a 500 ms fade in; -#P message 41 197 110 196617 vasp 22050 buf*bevel; -#P newex 41 129 62 196617 vasp.osc 44; -#P comment 332 53 215 196617 multiplies a linear ramp from 1 to 0 to a vasp; -#P comment 332 29 126 196622 vasp.*!bevel; -#P newex 41 222 63 196617 vasp.*bevel; -#P hidden message 409 168 70 196617 set buf*bevel; -#P hidden newex 409 150 45 196617 loadbang; -#P user waveform~ 332 185 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 41 100 75 196617 vasp buf*bevel; -#P newex 529 310 115 196617 buffer~ buf*bevel 2000; -#P comment 38 53 213 196617 multiplies a linear ramp from 0 to 1 to a vasp; -#P comment 38 29 112 196622 vasp.*bevel; -#P comment 127 102 144 196617 generate a sine wave at 1khz; -#P connect 4 0 11 0; -#P connect 11 0 14 0; -#P connect 12 0 8 0; -#P connect 8 0 19 0; -#P connect 16 0 15 0; -#P connect 15 0 18 0; -#P hidden fasten 20 0 5 0 414 184 337 184; -#P hidden fasten 7 0 5 0 414 183 337 183; -#P hidden connect 6 0 7 0; -#P connect 22 0 21 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.mcosc.help b/externals/grill/vasp/max-help/vasp.mcosc.help deleted file mode 100755 index b5b65b66..00000000 --- a/externals/grill/vasp/max-help/vasp.mcosc.help +++ /dev/null @@ -1,144 +0,0 @@ -max v2; -#N vpatcher 132 131 841 556; -#P message 429 357 129 196617 vasp buf*cosc3 buf*cosc4; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 429 378 78 196617 p clear_buffers; -#P comment 193 195 114 196617 multiply the ramp with a complex sine wave; -#P newex 56 173 61 196617 vasp.update; -#P message 56 127 129 196617 vasp buf*cosc3 buf*cosc4; -#P newex 56 148 55 196617 vasp.bevel; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 366 54 49 196617 p wfkeys; -#N vpatcher 169 125 534 375; -#P flonum 70 179 61 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 125 27 196617 t b f; -#P message 309 151 27 196617 stop; -#P message 243 151 65 196617 startwindow; -#P newex 243 173 29 196617 dac~; -#P comment 141 175 83 196617 period length in samples (float); -#P flonum 88 97 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 147 27 196617 / 1.; -#P flonum 68 73 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 54 49 53 196617 dspstate~; -#P comment 133 98 100 196617 frequency in Hz; -#P connect 1 1 2 0; -#P fasten 4 0 9 0 93 118 75 118; -#P connect 9 0 3 0; -#P fasten 2 0 3 0 73 115 54 115 54 145 75 145; -#P connect 3 0 10 0; -#P connect 9 1 3 1; -#P connect 7 0 6 0; -#P fasten 8 0 6 0 314 169 248 169; -#P pop; -#P newobj 53 378 109 196617 p Hz_to_period_length; -#P comment 567 229 119 196617 *imaginary part of cosc; -#P message 56 198 129 196617 vasp buf*cosc3 buf*cosc4; -#P hidden message 366 221 72 196617 set buf*cosc4; -#P user waveform~ 367 246 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 559 378 119 196617 buffer~ buf*cosc4 2000; -#P hidden message 366 94 72 196617 set buf*cosc3; -#P hidden newex 366 75 45 196617 loadbang; -#P user waveform~ 366 112 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 56 246 55 196617 vasp.* 0.5; -#P newex 56 271 61 196617 vasp.update; -#P newex 559 357 119 196617 buffer~ buf*cosc3 2000; -#P comment 45 79 316 196617 argument/right inlet: frequency in period length in samples; -#P newex 56 222 92 196617 vasp.*cosc 44100; -#P comment 45 64 293 196617 multiplies a complex buffer content with a complex sine wave; -#P comment 45 41 89 196622 vasp.*cosc; -#P comment 192 128 137 196617 generate a ramp from 0 to 1; -#P comment 575 96 108 196617 *real part of the cosc; -#P connect 20 0 19 0; -#P connect 19 0 21 0; -#P connect 15 0 4 0; -#P connect 4 0 8 0; -#P connect 8 0 7 0; -#P hidden connect 10 0 11 0; -#P hidden connect 18 0 9 0; -#P hidden connect 11 0 9 0; -#P hidden fasten 10 0 14 0 371 82 371 82; -#P hidden fasten 14 0 13 0 371 237 372 237; -#P hidden connect 18 0 13 0; -#P connect 24 0 23 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.min.help b/externals/grill/vasp/max-help/vasp.min.help deleted file mode 100755 index bfeef086..00000000 --- a/externals/grill/vasp/max-help/vasp.min.help +++ /dev/null @@ -1,125 +0,0 @@ -max v2; -#N vpatcher 129 80 798 501; -#P message 421 352 101 196617 vasp bufmin bufmin1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 421 372 78 196617 p clear_buffers; -#P comment 123 146 148 196617 generate a sine wave at 1Hz; -#P message 57 145 62 196617 vasp bufmin; -#P newex 57 191 61 196617 vasp.update; -#P newex 57 168 80 196617 vasp.osc 44100; -#P newex 57 271 45 196617 vasp.abs; -#P comment 128 229 148 196617 copy to new buffer; -#P hidden message 321 219 61 196617 set bufmin1; -#P user waveform~ 321 237 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 525 372 108 196617 buffer~ bufmin1 2000; -#P comment 52 86 188 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 55 196617 set bufmin; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 57 294 65 196617 vasp.min 0.4; -#P message 57 228 68 196617 vasp bufmin1; -#P newex 525 352 108 196617 buffer~ bufmin 2000; -#P newex 57 249 71 196617 vasp.= bufmin; -#P comment 52 70 167 196617 take minimum of vasp and argument; -#P comment 52 48 89 196622 vasp.min; -#P comment 106 273 100 196617 find absolute values; -#P comment 598 103 44 196617 source; -#P connect 20 0 18 0; -#P connect 18 0 19 0; -#P connect 6 0 4 0; -#P connect 4 0 17 0; -#P connect 17 0 7 0; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 628 371 638 371 638 94 326 94; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 15 0; -#P hidden connect 11 0 14 0; -#P hidden connect 15 0 14 0; -#P connect 23 0 22 0; -#P hidden fasten 14 5 8 4 626 340 638 340 638 94 626 94; -#P hidden connect 8 5 14 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.minmax.help b/externals/grill/vasp/max-help/vasp.minmax.help deleted file mode 100755 index f111101f..00000000 --- a/externals/grill/vasp/max-help/vasp.minmax.help +++ /dev/null @@ -1,149 +0,0 @@ -max v2; -#N vpatcher 164 76 829 634; -#P message 374 478 145 196617 vasp bufmm1 bufmm2 bufmm3; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 374 501 78 196617 p clear_buffers; -#P comment 561 329 73 196617 positive values; -#P newex 53 395 61 196617 vasp.update; -#P hidden message 321 324 61 196617 set bufmm3; -#P user waveform~ 321 343 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 521 501 108 196617 buffer~ bufmm3 2000; -#P comment 131 154 148 196617 generate a sine wave at 1Hz; -#P message 53 154 68 196617 vasp bufmm1; -#P newex 53 210 61 196617 vasp.update; -#P newex 53 189 80 196617 vasp.osc 44100; -#P comment 172 319 99 196617 copy to new buffer; -#P hidden message 321 202 61 196617 set bufmm2; -#P user waveform~ 321 220 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 521 478 108 196617 buffer~ bufmm2 2000; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 35 49 196617 p wfkeys; -#P hidden message 321 81 61 196617 set bufmm1; -#P hidden newex 321 57 45 196617 loadbang; -#P user waveform~ 321 101 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 53 374 65 196617 vasp.minmax; -#P message 53 318 105 196617 vasp bufmm2 bufmm3; -#P newex 521 457 108 196617 buffer~ bufmm1 2000; -#P newex 53 352 75 196617 vasp.= bufmm1; -#P comment 44 71 242 196617 splits a vasp pairs into smaller and larger values; -#P comment 44 48 102 196622 vasp.minmax; -#P comment 598 86 44 196617 source; -#P comment 559 206 75 196617 negative values; -#P connect 18 0 16 0; -#P connect 16 0 17 0; -#P connect 6 0 4 0; -#P connect 4 0 7 0; -#P connect 7 0 23 0; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 624 475 638 475 638 77 326 77; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 14 0; -#P hidden connect 11 0 13 0; -#P hidden connect 14 0 13 0; -#P hidden connect 9 0 22 0; -#P hidden connect 22 0 21 0; -#P connect 26 0 25 0; -#P hidden fasten 13 5 8 4 626 323 638 323 638 77 626 77; -#P hidden connect 8 5 13 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.minq.help b/externals/grill/vasp/max-help/vasp.minq.help deleted file mode 100755 index 3b3eb2e6..00000000 --- a/externals/grill/vasp/max-help/vasp.minq.help +++ /dev/null @@ -1,86 +0,0 @@ -max v2; -#N vpatcher 257 116 917 432; -#P message 59 223 68 196617 vasp bufmin?; -#P newex 59 182 55 196617 vasp.* 0.5; -#P comment 167 274 100 196617 >>>> minimum value; -#P flonum 103 274 60 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 52 101 188 196617 right outlet: max value; -#P comment 140 139 148 196617 generate a sine wave at 1Hz; -#P message 59 139 68 196617 vasp bufmin?; -#P newex 59 201 61 196617 vasp.update; -#P newex 59 162 80 196617 vasp.osc 44100; -#P comment 52 86 188 196617 argument/right inlet: value; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 73 49 196617 p wfkeys; -#P hidden message 321 119 61 196617 set bufmin?; -#P hidden newex 321 95 45 196617 loadbang; -#P user waveform~ 321 139 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 245 54 196617 vasp.min?; -#P newex 526 274 108 196617 buffer~ bufmin? 2000; -#P comment 52 71 200 196617 get minimum sample value of a vasp; -#P comment 52 48 89 196622 vasp.min?; -#P connect 11 0 9 0; -#P connect 9 0 16 0; -#P connect 16 0 10 0; -#P connect 17 0 3 0; -#P connect 3 1 14 0; -#P hidden fasten 2 1 6 0 629 299 638 299 638 115 326 115; -#P hidden connect 5 0 6 0; -#P hidden connect 6 0 4 0; -#P hidden connect 7 0 4 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.mirr.help b/externals/grill/vasp/max-help/vasp.mirr.help deleted file mode 100755 index 2e09c2c4..00000000 --- a/externals/grill/vasp/max-help/vasp.mirr.help +++ /dev/null @@ -1,88 +0,0 @@ -max v2; -#N vpatcher 159 193 741 563; -#P message 359 278 65 196617 vasp bufmirr; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 359 298 73 196617 p clear_buffer; -#P hidden newex 442 270 48 196617 r 1128path; -#P user umenu 82 116 72 196647 1 64 132 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1128path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 144 138 43 196617 p loader; -#P comment 56 118 26 196617 read; -#P message 194 300 27 196617 stop; -#P message 126 300 65 196617 startwindow; -#P newex 235 325 29 196617 dac~; -#P newex 235 273 30 196617 line~; -#P message 235 250 72 196617 0 \, 2000 2000; -#P newex 235 298 71 196617 play~ bufmirr; -#P newex 61 222 61 196617 vasp.update; -#P message 61 156 65 196617 vasp bufmirr; -#P newex 61 200 53 196617 vasp.mirr; -#P comment 51 67 75 196617 mirrors a vasp; -#P comment 51 43 96 196622 vasp.mirr; -#P hidden message 235 102 60 196617 set bufmirr; -#P hidden newex 235 77 45 196617 loadbang; -#P user waveform~ 235 121 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 442 299 105 196617 buffer~ bufmirr 2000; -#P connect 7 0 6 0; -#P connect 6 0 8 0; -#P hidden connect 17 1 16 0; -#P hidden fasten 0 1 3 0 542 318 551 318 551 98 240 98; -#P hidden connect 2 0 3 0; -#P hidden connect 3 0 1 0; -#P connect 10 0 11 0; -#P connect 11 0 9 0; -#P connect 9 0 12 0; -#P fasten 13 0 12 0 131 318 240 318; -#P fasten 14 0 12 0 199 318 240 318; -#P connect 9 0 12 1; -#P connect 20 0 19 0; -#P hidden connect 18 0 0 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.mod.help b/externals/grill/vasp/max-help/vasp.mod.help deleted file mode 100755 index 45fdd08e..00000000 --- a/externals/grill/vasp/max-help/vasp.mod.help +++ /dev/null @@ -1,62 +0,0 @@ -max v2; -#N vpatcher 200 142 915 479; -#P message 511 273 55 196617 vasp buf%; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 511 292 73 196617 p clear_buffer; -#P comment 271 127 75 196617 ramp from 0-1; -#P newex 215 173 61 196617 vasp.update; -#P newex 50 173 61 196617 vasp.update; -#P message 83 219 55 196617 vasp buf%; -#P newex 215 147 55 196617 vasp.bevel; -#P message 215 126 55 196617 vasp buf%; -#P comment 108 127 107 196617 a sine wave at 1Hz or; -#P newex 83 292 61 196617 vasp.update; -#P message 50 126 55 196617 vasp buf%; -#P newex 50 146 80 196617 vasp.osc 44100; -#P comment 45 77 189 196617 optional argument/right inlet: divisor; -#P flonum 138 237 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 45 60 195 196617 modulo function / remainder of a division; -#P comment 45 36 89 196622 vasp.%; -#P newex 590 292 95 196617 buffer~ buf% 2000; -#P hidden message 377 114 48 196617 set buf%; -#P hidden newex 377 88 45 196617 loadbang; -#P user waveform~ 377 138 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 83 258 65 196617 vasp.% 0.25; -#P comment 156 260 59 196617 modulo; -#P connect 11 0 10 0; -#P connect 10 0 17 0; -#P connect 16 0 1 0; -#P connect 1 0 12 0; -#P connect 8 0 1 1; -#P connect 14 0 15 0; -#P connect 15 0 18 0; -#P hidden connect 3 0 4 0; -#P hidden connect 4 0 2 0; -#P connect 21 0 20 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.mphasor.help b/externals/grill/vasp/max-help/vasp.mphasor.help deleted file mode 100755 index 0a21a23f..00000000 --- a/externals/grill/vasp/max-help/vasp.mphasor.help +++ /dev/null @@ -1,127 +0,0 @@ -max v2; -#N vpatcher 159 224 859 578; -#P message 465 263 83 196617 vasp buf*phasor; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 465 283 73 196617 p clear_buffer; -#N vpatcher 169 125 534 375; -#P flonum 70 179 61 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 125 27 196617 t b f; -#P message 309 151 27 196617 stop; -#P message 243 151 65 196617 startwindow; -#P newex 243 173 29 196617 dac~; -#P comment 141 175 83 196617 period length in samples (float); -#P flonum 88 97 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 147 27 196617 / 1.; -#P flonum 68 73 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 54 49 53 196617 dspstate~; -#P comment 133 98 100 196617 frequency in Hz; -#P connect 1 1 2 0; -#P fasten 4 0 9 0 93 118 75 118; -#P connect 9 0 3 0; -#P fasten 2 0 3 0 73 115 54 115 54 145 75 145; -#P connect 3 0 10 0; -#P connect 9 1 3 1; -#P connect 7 0 6 0; -#P fasten 8 0 6 0 314 169 248 169; -#P pop; -#P newobj 41 283 109 196617 p Hz_to_period_length; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 355 34 49 196617 p wfkeys; -#P message 314 283 27 196617 stop; -#P message 246 283 65 196617 startwindow; -#P comment 38 69 311 196617 argument/right inlet: frequency in period length in samples; -#P newex 355 260 30 196617 line~; -#P message 355 233 72 196617 0 \, 2000 2000; -#P newex 355 307 29 196617 dac~; -#P newex 355 283 85 196617 play~ buf*phasor; -#P newex 41 255 61 196617 vasp.update; -#P newex 41 168 55 196617 vasp.* 0.5; -#P comment 128 208 192 196617 generate a amplitude modulation with 2Hz; -#P message 41 207 83 196617 vasp buf*phasor; -#P newex 41 144 55 196617 vasp.noise; -#P newex 41 232 102 196617 vasp.*phasor 22050; -#P hidden message 355 76 75 196617 set buf*phasor; -#P hidden newex 355 57 45 196617 loadbang; -#P user waveform~ 355 95 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 41 121 83 196617 vasp buf*phasor; -#P newex 542 283 123 196617 buffer~ buf*phasor 2000; -#P comment 38 53 229 196617 multiplies a saw tooth ramp with a buffer content; -#P comment 38 29 109 196622 vasp.*phasor; -#P comment 128 122 100 196617 generate white noise; -#P connect 4 0 9 0; -#P connect 9 0 12 0; -#P connect 10 0 8 0; -#P connect 8 0 13 0; -#P hidden connect 6 0 7 0; -#P hidden connect 21 0 5 0; -#P hidden connect 7 0 5 0; -#P connect 16 0 17 0; -#P connect 17 0 14 0; -#P fasten 20 0 15 0 319 303 360 303; -#P fasten 19 0 15 0 251 303 360 303; -#P connect 14 0 15 0; -#P connect 14 0 15 1; -#P connect 24 0 23 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.mul.help b/externals/grill/vasp/max-help/vasp.mul.help deleted file mode 100755 index c3eabaa8..00000000 --- a/externals/grill/vasp/max-help/vasp.mul.help +++ /dev/null @@ -1,227 +0,0 @@ -max v2; -#N vpatcher 194 184 786 554; -#P origin 45 0; -#P message 387 294 53 196617 vasp buf*; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 387 315 73 196617 p clear_buffer; -#N vpatcher 197 137 868 621; -#P newex 58 280 61 196617 vasp.update; -#P comment 600 218 37 196617 buf*b; -#P user umenu 78 79 72 196647 1 64 95 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 355 682; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1074path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 140 100 43 196617 p loader; -#P message 433 395 85 196617 vasp buf*a buf*b; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 433 416 78 196617 p clear_buffers; -#P newex 58 159 61 196617 vasp.update; -#P hidden newex 526 367 48 196617 r 1074path; -#P comment 52 81 26 196617 read; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 325 50 49 196617 p wfkeys; -#P comment 126 313 157 196617 multiplie noise with the envelope; -#P comment 126 119 100 196617 generate noise; -#P comment 109 259 100 196617 normalize the vasp; -#P comment 133 231 149 196617 filter the values with a lowpass to get the envelope (2Hz); -#P message 58 312 58 196617 vasp buf*a; -#P newex 58 333 68 196617 vasp.* buf*b; -#P message 292 417 27 196617 stop; -#P message 224 417 65 196617 startwindow; -#P newex 325 441 29 196617 dac~; -#P newex 325 389 30 196617 line~; -#P message 325 360 72 196617 0 \, 2000 2000; -#P newex 325 415 62 196617 play~ buf*a; -#P newex 58 360 61 196617 vasp.update; -#P newex 58 257 45 196617 vasp.opt; -#P newex 58 234 71 196617 vasp.flp 2205; -#P message 58 188 58 196617 vasp buf*b; -#P newex 58 210 45 196617 vasp.abs; -#P message 58 118 58 196617 vasp buf*a; -#P newex 58 137 55 196617 vasp.noise; -#P hidden message 325 215 51 196617 set buf*b; -#P user waveform~ 325 233 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P hidden message 325 93 51 196617 set buf*a; -#P hidden newex 325 69 45 196617 loadbang; -#P user waveform~ 325 113 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 539 415 98 196617 buffer~ buf*b 2000; -#P newex 539 390 98 196617 buffer~ buf*a 2000; -#P comment 125 189 100 196617 get absolute values; -#P comment 52 43 336 196622 use vasp.* to multiplie an envelope to noise; -#P comment 150 81 100 196617 into buffer buf*b; -#P comment 600 98 37 196617 buf*a; -#P connect 12 0 11 0; -#P connect 11 0 33 0; -#P connect 14 0 13 0; -#P connect 13 0 15 0; -#P connect 15 0 16 0; -#P connect 16 0 39 0; -#P connect 25 0 24 0; -#P connect 24 0 17 0; -#P hidden connect 37 1 36 0; -#P hidden connect 7 0 8 0; -#P hidden connect 30 0 6 0; -#P hidden connect 8 0 6 0; -#P hidden connect 7 0 10 0; -#P hidden fasten 5 1 10 0 632 436 644 436 644 213 330 213; -#P hidden connect 10 0 9 0; -#P hidden connect 30 0 9 0; -#P connect 19 0 20 0; -#P connect 20 0 18 0; -#P connect 18 0 21 0; -#P fasten 22 0 21 0 229 438 330 438; -#P fasten 23 0 21 0 297 438 330 438; -#P connect 18 0 21 1; -#P connect 35 0 34 0; -#P hidden fasten 32 0 5 0 531 413 544 413; -#P pop; -#P newobj 45 315 98 196617 p envelope_example; -#P comment 103 141 76 196617 generate noise; -#P newex 45 263 61 196617 vasp.update; -#P message 45 140 53 196617 vasp buf*; -#P newex 45 175 55 196617 vasp.noise; -#P comment 39 74 189 196617 optional argument/right inlet: multiplier; -#P flonum 90 208 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 39 59 97 196617 multiplies a vasp; -#P comment 39 36 66 196622 vasp.*; -#P newex 463 315 93 196617 buffer~ buf* 2000; -#P hidden message 246 120 45 196617 set buf*; -#P hidden newex 246 94 45 196617 loadbang; -#P user waveform~ 246 144 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 45 229 55 196617 vasp.* 0.5; -#P comment 129 210 59 196617 change gain; -#P connect 11 0 10 0; -#P connect 10 0 1 0; -#P connect 1 0 12 0; -#P connect 8 0 1 1; -#P hidden connect 3 0 4 0; -#P hidden connect 4 0 2 0; -#P connect 16 0 15 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.multi.help b/externals/grill/vasp/max-help/vasp.multi.help deleted file mode 100755 index 64ee9b09..00000000 --- a/externals/grill/vasp/max-help/vasp.multi.help +++ /dev/null @@ -1,23 +0,0 @@ -max v2; -#N vpatcher 262 131 701 451; -#P hidden message 303 155 22 196617 set; -#P hidden newex 303 123 45 196617 loadbang; -#P message 223 257 162 196617; -#P newex 223 232 60 196617 prepend set; -#P comment 51 80 138 196617 argument: number of outlets; -#P message 56 257 162 196617; -#P newex 56 232 60 196617 prepend set; -#P message 56 156 129 196617 vasp 22050 bufm 44100 0; -#P newex 56 180 49 196617 vasp.m 2; -#P newex 56 111 94 196617 buffer~ bufm 2000; -#P comment 51 63 151 196617 outputs a vasp multiple times; -#P comment 51 41 89 196622 vasp.m; -#P connect 4 0 3 0; -#P connect 3 0 5 0; -#P hidden fasten 11 0 6 0 308 253 61 253; -#P connect 5 0 6 0; -#P fasten 3 1 8 0 100 214 228 214; -#P hidden fasten 11 0 9 0 308 254 228 254; -#P connect 8 0 9 0; -#P hidden connect 10 0 11 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.neq.help b/externals/grill/vasp/max-help/vasp.neq.help deleted file mode 100755 index 6a533cdd..00000000 --- a/externals/grill/vasp/max-help/vasp.neq.help +++ /dev/null @@ -1,145 +0,0 @@ -max v2; -#N vpatcher 82 103 798 578; -#P message 490 408 93 196617 vasp buf!=1 buf!=2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 490 428 78 196617 p clear_buffers; -#P newex 79 393 58 196617 vasp.!= -1.; -#P comment 332 310 43 196617 false/0; -#P message 71 123 61 196617 vasp buf!=1; -#P newex 155 247 55 196617 vasp.= -1.; -#P newex 92 247 55 196617 vasp.= 0.3; -#P newex 224 214 55 196617 vasp.upper; -#P newex 155 214 58 196617 vasp.lower; -#P newex 224 247 59 196617 vasp.!bevel; -#P newex 92 214 55 196617 vasp.upper; -#P newex 31 214 58 196617 vasp.lower; -#P newex 121 302 61 196617 vasp.update; -#P newex 30 247 55 196617 vasp.bevel; -#P newex 182 187 55 196617 vasp.upper; -#P newex 71 187 58 196617 vasp.lower; -#P newex 71 154 121 196617 vasp.m 2; -#P newex 79 368 70 196617 vasp.= buf!=1; -#P message 79 338 61 196617 vasp buf!=2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 375 80 49 196617 p wfkeys; -#P hidden message 375 241 54 196617 set buf!=2; -#P user waveform~ 375 262 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 586 428 101 196617 buffer~ buf!=2 2000; -#P hidden message 375 119 54 196617 set buf!=1; -#P hidden newex 375 100 45 196617 loadbang; -#P user waveform~ 375 137 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 79 428 61 196617 vasp.update; -#P newex 586 408 101 196617 buffer~ buf!=1 2000; -#P comment 45 80 147 196617 argument/right inlet: value; -#P comment 45 63 59 196617 not equal; -#P comment 45 41 89 196622 vasp.!=; -#P comment 176 125 92 196617 generate a function; -#P comment 334 267 40 196617 true/1; -#P comment 148 396 216 196617 test if a part of the function is not equal to -1.; -#P connect 22 0 20 0; -#P fasten 18 0 22 0 76 209 36 209; -#P connect 29 0 17 0; -#P connect 17 0 18 0; -#P connect 15 0 16 0; -#P connect 16 0 31 0; -#P connect 31 0 7 0; -#P fasten 18 0 23 0 76 209 97 209; -#P connect 23 0 27 0; -#P fasten 28 0 21 0 160 283 126 283; -#P fasten 27 0 21 0 97 283 126 283; -#P fasten 20 0 21 0 35 283 126 283; -#P fasten 24 0 21 0 229 283 126 283; -#P fasten 19 0 25 0 187 209 160 209; -#P connect 25 0 28 0; -#P connect 17 1 19 0; -#P fasten 19 0 26 0 187 209 229 209; -#P connect 26 0 24 0; -#P hidden connect 9 0 10 0; -#P hidden connect 14 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden fasten 9 0 13 0 380 100 380 100; -#P hidden connect 14 0 12 0; -#P hidden connect 13 0 12 0; -#P connect 33 0 32 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.noise.help b/externals/grill/vasp/max-help/vasp.noise.help deleted file mode 100755 index 8200fdbc..00000000 --- a/externals/grill/vasp/max-help/vasp.noise.help +++ /dev/null @@ -1,100 +0,0 @@ -max v2; -#N vpatcher 184 116 763 458; -#P message 358 248 69 196617 vasp bufnoise; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 358 268 73 196617 p clear_buffer; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 236 40 49 196617 p wfkeys; -#P message 195 269 27 196617 stop; -#P message 127 269 65 196617 startwindow; -#P newex 236 295 29 196617 dac~; -#P newex 236 243 30 196617 line~; -#P message 236 220 72 196617 0 \, 2000 2000; -#P newex 236 268 73 196617 play~ bufnoise; -#P hidden message 236 82 62 196617 set bufnoise; -#P hidden newex 236 62 45 196617 loadbang; -#P user waveform~ 236 102 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 41 146 55 196617 vasp.* 0.5; -#P newex 41 168 61 196617 vasp.update; -#P message 41 103 69 196617 vasp bufnoise; -#P newex 437 268 109 196617 buffer~ bufnoise 2000; -#P newex 41 124 55 196617 vasp.noise; -#P comment 38 56 136 196617 vasp noise generator; -#P comment 38 34 89 196622 vasp.noise; -#P comment 116 104 99 196617 generate white noise; -#P connect 5 0 3 0; -#P connect 3 0 7 0; -#P connect 7 0 6 0; -#P hidden connect 9 0 10 0; -#P hidden connect 10 0 8 0; -#P hidden connect 17 0 8 0; -#P connect 12 0 13 0; -#P connect 13 0 11 0; -#P connect 11 0 14 0; -#P fasten 15 0 14 0 132 288 241 288; -#P fasten 16 0 14 0 200 288 241 288; -#P connect 11 0 14 1; -#P connect 19 0 18 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.nonzero.help b/externals/grill/vasp/max-help/vasp.nonzero.help deleted file mode 100755 index 652ce582..00000000 --- a/externals/grill/vasp/max-help/vasp.nonzero.help +++ /dev/null @@ -1,162 +0,0 @@ -max v2; -#N vpatcher 73 92 960 655; -#P hidden newex 737 368 48 196617 r 1042path; -#P message 633 391 93 196617 vasp buf?? buf??1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 633 410 78 196617 p clear_buffers; -#P user umenu 59 141 72 196647 1 64 157 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1042path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 121 160 43 196617 p loader; -#P hidden message 448 239 22 196617 set; -#P comment 133 448 100 196617 sample values; -#P message 20 463 794 196617; -#P newex 20 434 60 196617 prepend set; -#P message 20 399 528 196617; -#P comment 52 101 133 196617 right outlet: sample value; -#P newex 59 364 60 196617 prepend set; -#P newex 59 265 44 196617 vasp.??; -#P comment 811 222 44 196617 peaks; -#P comment 132 182 148 196617 copy to new buffer \, find peaks; -#P hidden message 529 220 55 196617 set buf??1; -#P user waveform~ 529 237 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 737 410 104 196617 buffer~ buf??1 1000; -#P comment 52 86 134 196617 left outlet: sample index; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 529 52 49 196617 p wfkeys; -#P hidden message 529 98 51 196617 set buf??; -#P hidden newex 529 74 45 196617 loadbang; -#P user waveform~ 529 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 227 93 196617 vasp.peaks 0.0004; -#P message 59 180 64 196617 vasp buf??1; -#P newex 737 391 104 196617 buffer~ buf?? 1000; -#P newex 59 201 65 196617 vasp.= buf??; -#P comment 52 71 259 196617 outputs all samples of a vasp that are unequal to zero; -#P comment 52 48 89 196622 vasp.??; -#P comment 806 103 44 196617 source; -#P comment 131 382 100 196617 sample index; -#P hidden fasten 25 0 21 0 453 390 25 390; -#P fasten 19 0 21 0 64 390 25 390; -#P fasten 18 1 22 0 98 302 9 302 9 424 25 424; -#P hidden fasten 25 0 23 0 453 457 25 457; -#P connect 22 0 23 0; -#P connect 6 0 4 0; -#P connect 4 0 7 0; -#P connect 7 0 18 0; -#P connect 18 0 19 0; -#P hidden connect 27 1 26 0; -#P hidden fasten 9 0 25 0 531 91 453 91; -#P hidden connect 9 0 10 0; -#P hidden fasten 5 1 10 0 836 406 846 406 846 94 534 94; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P hidden connect 9 0 15 0; -#P hidden connect 15 0 14 0; -#P hidden connect 11 0 14 0; -#P connect 29 0 28 0; -#P hidden connect 30 0 5 0; -#P hidden fasten 14 5 8 4 834 340 846 340 846 94 834 94; -#P hidden connect 8 5 14 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.offset.help b/externals/grill/vasp/max-help/vasp.offset.help deleted file mode 100755 index 2153dbce..00000000 --- a/externals/grill/vasp/max-help/vasp.offset.help +++ /dev/null @@ -1,32 +0,0 @@ -max v2;
-#N vpatcher 188 145 681 517;
-#P hidden message 424 146 22 196617 set;
-#P hidden newex 424 116 45 196617 loadbang;
-#P number 306 175 47 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0;
-#P number 119 175 47 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0;
-#P newex 344 323 110 196617 buffer~ bufoffs2 2000;
-#P newex 344 303 110 196617 buffer~ bufoffs1 2000;
-#P message 245 254 209 196617;
-#P newex 245 221 60 196617 prepend set;
-#P message 245 148 153 196617 vasp bufoffs1 220 bufoffs2 100;
-#P newex 245 196 80 196617 vasp.offset 300;
-#P message 58 254 180 196617;
-#P newex 58 221 60 196617 prepend set;
-#P message 58 148 70 196617 vasp bufoffs1;
-#P newex 58 196 80 196617 vasp.offset 300;
-#P comment 55 83 135 196617 argument/right inlet: value;
-#P comment 55 69 204 196617 set the offset of a vasp (into a buffer);
-#P comment 55 45 89 196622 vasp.offs;
-#P comment 55 98 253 196617 ---! vasp.offs sets all vectors to the same offset !---;
-#P connect 5 0 4 0;
-#P connect 4 0 6 0;
-#P hidden fasten 17 0 7 0 429 246 63 246;
-#P connect 6 0 7 0;
-#P connect 14 0 4 1;
-#P connect 9 0 8 0;
-#P connect 8 0 10 0;
-#P hidden fasten 17 0 11 0 429 246 250 246;
-#P connect 10 0 11 0;
-#P connect 15 0 8 1;
-#P hidden connect 16 0 17 0;
-#P pop;
diff --git a/externals/grill/vasp/max-help/vasp.offsetd.help b/externals/grill/vasp/max-help/vasp.offsetd.help deleted file mode 100755 index 59b71516..00000000 --- a/externals/grill/vasp/max-help/vasp.offsetd.help +++ /dev/null @@ -1,31 +0,0 @@ -max v2; -#N vpatcher 191 100 695 451; -#P hidden message 438 125 22 196617 set; -#P hidden newex 438 97 45 196617 loadbang; -#P newex 359 305 115 196617 buffer~ bufoffs+2 2000; -#P newex 359 284 115 196617 buffer~ bufoffs+1 2000; -#P number 310 151 45 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P number 123 151 45 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P message 245 234 229 196617; -#P newex 245 201 60 196617 prepend set; -#P message 245 128 165 196617 vasp bufoffs+1 220 bufoffs+2 100; -#P newex 245 172 75 196617 vasp.offs+ 300; -#P message 58 234 171 196617; -#P newex 58 201 60 196617 prepend set; -#P message 58 128 75 196617 vasp bufoffs+1; -#P newex 58 172 75 196617 vasp.offs+ 300; -#P comment 55 80 135 196617 argument/right inlet: value; -#P comment 55 63 189 196617 change the offset to a vasp (relatively); -#P comment 55 39 89 196622 vasp.offs+; -#P connect 4 0 3 0; -#P connect 3 0 5 0; -#P hidden fasten 16 0 6 0 443 228 63 228; -#P connect 5 0 6 0; -#P connect 11 0 3 1; -#P connect 8 0 7 0; -#P connect 7 0 9 0; -#P hidden fasten 16 0 10 0 443 227 250 227; -#P connect 9 0 10 0; -#P connect 12 0 7 1; -#P hidden connect 15 0 16 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.offsetq.help b/externals/grill/vasp/max-help/vasp.offsetq.help deleted file mode 100755 index 8a01e618..00000000 --- a/externals/grill/vasp/max-help/vasp.offsetq.help +++ /dev/null @@ -1,17 +0,0 @@ -max v2; -#N vpatcher 243 134 660 396; -#P number 202 162 42 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P number 45 162 42 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 278 221 114 196617 buffer~ buffoffs? 2000; -#P message 202 106 161 196617 vasp buffoffs? 220 buffoffs? 300; -#P newex 202 127 65 196617 vasp.offset?; -#P message 45 106 115 196617 vasp 200 buffoffs? 300; -#P newex 45 127 65 196617 vasp.offset?; -#P comment 42 59 167 196617 get a single vectored vasp«s offset; -#P comment 42 35 89 196622 vasp.offs?; -#P comment 199 89 190 196617 more than 1 vector. watch max window!; -#P connect 4 0 3 0; -#P connect 3 0 8 0; -#P connect 6 0 5 0; -#P connect 5 0 9 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.opt.help b/externals/grill/vasp/max-help/vasp.opt.help deleted file mode 100755 index 45a976bf..00000000 --- a/externals/grill/vasp/max-help/vasp.opt.help +++ /dev/null @@ -1,104 +0,0 @@ -max v2; -#N vpatcher 158 141 801 655; -#P message 441 425 60 196617 vasp bufopt; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 441 446 73 196617 p clear_buffer; -#P user umenu 73 119 72 196647 1 64 135 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1160path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 135 141 43 196617 p loader; -#P comment 46 120 26 196617 read; -#P hidden newex 519 425 48 196617 r 1160path; -#P flonum 120 208 44 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P flonum 137 353 68 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 46 67 177 196617 otptimize a vasp (aka normalize); -#P message 64 352 60 196617 vasp bufopt; -#P newex 85 380 38 196617 vasp./; -#P newex 85 403 61 196617 vasp.update; -#P newex 85 188 45 196617 vasp.opt; -#P message 85 160 60 196617 vasp bufopt; -#P newex 85 319 62 196617 vasp.amax?; -#P hidden message 302 131 53 196617 set bufopt; -#P hidden newex 302 106 45 196617 loadbang; -#P user waveform~ 302 156 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 240 446 27 196617 stop; -#P message 173 446 65 196617 startwindow; -#P newex 293 425 30 196617 line~; -#P message 293 404 72 196617 0 \, 2000 2000; -#P newex 293 472 29 196617 dac~; -#P newex 293 446 64 196617 play~ bufopt; -#P newex 85 228 61 196617 vasp.update; -#P message 85 297 60 196617 vasp bufopt; -#P newex 519 446 100 196617 buffer~ bufopt 2000; -#P comment 210 355 141 196617 -> current absolute maximum; -#P comment 83 279 210 196617 or use vasp.amax? to optimize buffer content; -#P comment 46 44 95 196622 vasp.opt; -#P comment 46 82 204 196617 right outlet: the original maximum value; -#P connect 17 0 18 0; -#P connect 18 0 6 0; -#P connect 5 0 16 0; -#P fasten 21 0 20 0 69 373 90 373; -#P connect 20 0 19 0; -#P fasten 23 0 20 1 142 374 118 374; -#P connect 18 1 24 0; -#P hidden connect 28 1 27 0; -#P fasten 16 1 23 0 142 344 142 344; -#P connect 9 0 10 0; -#P connect 10 0 7 0; -#P connect 7 0 8 0; -#P fasten 11 0 8 0 178 466 298 466; -#P fasten 12 0 8 0 245 466 298 466; -#P hidden fasten 4 1 15 0 614 94 295 94 295 162 307 162; -#P hidden connect 14 0 15 0; -#P hidden connect 15 0 13 0; -#P connect 7 0 8 1; -#P connect 30 0 29 0; -#P hidden connect 25 0 4 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.osc.help b/externals/grill/vasp/max-help/vasp.osc.help deleted file mode 100755 index 33e26427..00000000 --- a/externals/grill/vasp/max-help/vasp.osc.help +++ /dev/null @@ -1,123 +0,0 @@ -max v2; -#N vpatcher 201 127 842 502; -#P message 428 281 61 196617 vasp bufosc; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 428 301 73 196617 p clear_buffer; -#N vpatcher 169 125 534 375; -#P flonum 70 179 61 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 125 27 196617 t b f; -#P message 309 151 27 196617 stop; -#P message 243 151 65 196617 startwindow; -#P newex 243 173 29 196617 dac~; -#P comment 141 175 83 196617 period length in samples (float); -#P flonum 88 97 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 147 27 196617 / 1.; -#P flonum 68 73 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 54 49 53 196617 dspstate~; -#P comment 133 98 100 196617 frequency in Hz; -#P connect 1 1 2 0; -#P fasten 4 0 9 0 93 118 75 118; -#P fasten 2 0 3 0 73 115 54 115 54 145 75 145; -#P connect 9 0 3 0; -#P connect 3 0 10 0; -#P connect 9 1 3 1; -#P fasten 8 0 6 0 314 169 248 169; -#P connect 7 0 6 0; -#P pop; -#P newobj 56 301 109 196617 p Hz_to_period_length; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 301 79 49 196617 p wfkeys; -#P message 260 303 27 196617 stop; -#P message 192 303 65 196617 startwindow; -#P newex 301 328 29 196617 dac~; -#P newex 301 276 30 196617 line~; -#P message 301 253 72 196617 0 \, 2000 2000; -#P newex 301 301 65 196617 play~ bufosc; -#P hidden message 301 115 54 196617 set bufosc; -#P hidden newex 301 97 45 196617 loadbang; -#P user waveform~ 301 133 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 56 183 55 196617 vasp.* 0.5; -#P newex 56 205 61 196617 vasp.update; -#P message 56 129 61 196617 vasp bufosc; -#P newex 512 301 101 196617 buffer~ bufosc 2000; -#P comment 51 76 314 196617 optional argument/right inlet: frequency in period length in samples; -#P newex 56 161 123 196617 vasp.osc 44.099998; -#P comment 51 61 168 196617 vasp sine wave generator; -#P comment 51 38 89 196622 vasp.osc; -#P comment 126 130 142 196617 generate a sine wave at 1kHz; -#P connect 6 0 3 0; -#P connect 3 0 8 0; -#P connect 8 0 7 0; -#P hidden connect 10 0 11 0; -#P hidden connect 18 0 9 0; -#P hidden connect 11 0 9 0; -#P connect 13 0 14 0; -#P connect 14 0 12 0; -#P fasten 17 0 15 0 265 321 306 321; -#P fasten 16 0 15 0 197 321 306 321; -#P connect 12 0 15 0; -#P connect 12 0 15 1; -#P connect 21 0 20 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.part.help b/externals/grill/vasp/max-help/vasp.part.help deleted file mode 100755 index 686ebd02..00000000 --- a/externals/grill/vasp/max-help/vasp.part.help +++ /dev/null @@ -1,30 +0,0 @@ -max v2; -#N vpatcher 214 79 812 563; -#P newex 103 380 52 196617 print rest; -#P newex 62 380 30 196617 print; -#P comment 56 93 316 196617 left inlet: a vasp to define the buffername and the maximum lenght; -#P comment 56 140 344 196617 right outlet: a vasp with remaining length (if there is one) of the input vasp; -#P message 62 176 81 196617 vasp buffpart11; -#P comment 159 382 271 196617 so there are just 4 vasps and no rest.... watch maxwindow; -#P message 221 314 131 196617 100 200 300 500 100 200; -#P newex 62 344 51 196617 vasp.part; -#P message 62 289 148 196617 vasp 1100 buffpart1 buffpart2; -#P newex 166 239 52 196617 print rest; -#P newex 62 238 30 196617 print; -#P comment 56 125 214 196617 left outlet: the new vasps one after the other; -#P newex 437 444 115 196617 buffer~ buffpart2 2000; -#P newex 437 423 115 196617 buffer~ buffpart1 2000; -#P newex 62 208 114 196617 vasp.part 100 100 100; -#P comment 56 77 260 196617 generates vasps with certain lenghts; -#P comment 56 53 89 196622 vasp.part; -#P comment 56 109 197 196617 argument/ right inlet: vasps lenghts (list); -#P comment 144 177 225 196617 vasp.part generates 3 new vasps and a rest vasp; -#P comment 211 290 323 196617 the input vasp defines the maximum lengths of the vasps at the output; -#P connect 15 0 5 0; -#P connect 5 0 9 0; -#P connect 11 0 12 0; -#P connect 12 0 18 0; -#P fasten 13 0 12 1 226 336 108 336; -#P connect 12 1 19 0; -#P connect 5 1 10 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.peaks.help b/externals/grill/vasp/max-help/vasp.peaks.help deleted file mode 100755 index 6e2068d3..00000000 --- a/externals/grill/vasp/max-help/vasp.peaks.help +++ /dev/null @@ -1,176 +0,0 @@ -max v2; -#N vpatcher 120 75 805 582; -#P comment 172 313 92 196617 = number of peaks; -#P number 134 311 35 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 59 258 44 196617 vasp.??; -#P flonum 134 259 71 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 134 283 51 196617 * 88200.; -#P comment 52 101 162 196617 outlet: current density value 0-1; -#P message 417 419 109 196617 vasp bufpeak bufpeak1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 417 442 73 196617 p clear_buffer; -#P hidden newex 538 396 48 196617 r 1164path; -#P user umenu 78 135 72 196647 1 64 151 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1164path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 140 157 43 196617 p loader; -#P comment 52 137 26 196617 read; -#P comment 619 254 44 196617 peaks; -#P comment 165 181 148 196617 copy to new buffer \, find peaks; -#P message 59 357 72 196617 vasp bufpeak1; -#P newex 59 380 45 196617 vasp.opt; -#P hidden message 337 251 65 196617 set bufpeak1; -#P user waveform~ 337 269 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 538 442 112 196617 buffer~ bufpeak1 2000; -#P comment 52 86 188 196617 argument/right inlet: density value 0-1; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 337 84 49 196617 p wfkeys; -#P message 296 442 27 196617 stop; -#P message 227 442 65 196617 startwindow; -#P newex 337 468 29 196617 dac~; -#P newex 337 419 30 196617 line~; -#P message 337 398 72 196617 0 \, 2000 2000; -#P newex 337 442 75 196617 play~ bufpeak1; -#P hidden message 337 130 59 196617 set bufpeak; -#P hidden newex 337 106 45 196617 loadbang; -#P user waveform~ 337 150 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 59 231 85 196617 vasp.peaks 0.001; -#P newex 59 406 61 196617 vasp.update; -#P message 59 180 105 196617 vasp 88200 bufpeak1; -#P newex 538 419 112 196617 buffer~ bufpeak 2000; -#P newex 59 201 75 196617 vasp.= bufpeak; -#P comment 52 72 218 196617 find the local maxima of the buffer samples; -#P comment 52 48 89 196622 vasp.peaks; -#P comment 133 358 111 196617 optimize buffer content; -#P comment 614 135 44 196617 source; -#P comment 206 262 100 196617 current density; -#P comment 189 285 100 196617 * lenght of the vasp; -#P connect 8 0 6 0; -#P connect 6 0 10 0; -#P connect 10 0 38 0; -#P connect 26 0 25 0; -#P connect 25 0 9 0; -#P connect 10 1 37 0; -#P connect 37 0 36 0; -#P connect 36 0 39 0; -#P hidden connect 31 1 30 0; -#P hidden connect 12 0 13 0; -#P hidden fasten 7 1 13 0 645 438 654 438 654 126 342 126; -#P hidden connect 20 0 11 0; -#P hidden connect 13 0 11 0; -#P hidden connect 12 0 24 0; -#P hidden connect 20 0 23 0; -#P hidden connect 24 0 23 0; -#P connect 15 0 16 0; -#P connect 16 0 14 0; -#P fasten 19 0 17 0 301 461 342 461; -#P fasten 18 0 17 0 232 461 342 461; -#P connect 14 0 17 0; -#P connect 14 0 17 1; -#P connect 34 0 33 0; -#P hidden connect 32 0 7 0; -#P hidden fasten 23 5 11 4 642 372 654 372 654 126 642 126; -#P hidden connect 11 5 23 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.phasor.help b/externals/grill/vasp/max-help/vasp.phasor.help deleted file mode 100755 index 3f246eee..00000000 --- a/externals/grill/vasp/max-help/vasp.phasor.help +++ /dev/null @@ -1,123 +0,0 @@ -max v2; -#N vpatcher 152 239 816 612; -#P message 441 281 75 196617 vasp bufphasor; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 441 300 73 196617 p clear_buffer; -#N vpatcher 169 125 534 375; -#P flonum 70 179 61 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 125 27 196617 t b f; -#P message 309 151 27 196617 stop; -#P message 243 151 65 196617 startwindow; -#P newex 243 173 29 196617 dac~; -#P comment 141 175 83 196617 period length in samples (float); -#P flonum 88 97 43 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 70 147 27 196617 / 1.; -#P flonum 68 73 54 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 54 49 53 196617 dspstate~; -#P comment 133 98 100 196617 frequency in Hz; -#P connect 1 1 2 0; -#P fasten 4 0 9 0 93 118 75 118; -#P connect 9 0 3 0; -#P fasten 2 0 3 0 73 115 54 115 54 145 75 145; -#P connect 3 0 10 0; -#P connect 9 1 3 1; -#P connect 7 0 6 0; -#P fasten 8 0 6 0 314 169 248 169; -#P pop; -#P newobj 54 300 109 196617 p Hz_to_period_length; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 327 66 49 196617 p wfkeys; -#P message 286 301 27 196617 stop; -#P message 218 301 65 196617 startwindow; -#P newex 327 327 29 196617 dac~; -#P newex 327 275 30 196617 line~; -#P message 327 252 72 196617 0 \, 2000 2000; -#P newex 327 300 80 196617 play~ bufphasor; -#P hidden message 327 104 69 196617 set bufphasor; -#P hidden newex 327 83 45 196617 loadbang; -#P user waveform~ 327 122 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 54 175 55 196617 vasp.* 0.5; -#P newex 54 197 61 196617 vasp.update; -#P message 54 127 75 196617 vasp bufphasor; -#P newex 524 300 115 196617 buffer~ bufphasor 2000; -#P comment 46 76 311 196617 optional argument/right inlet: frequency in period length in samples; -#P newex 54 153 89 196617 vasp.phasor 2205; -#P comment 46 61 168 196617 vasp saw tooth ramp generator; -#P comment 46 38 111 196622 vasp.phasor; -#P comment 139 128 129 196617 generate saw tooth at 20Hz; -#P connect 6 0 3 0; -#P connect 3 0 8 0; -#P connect 8 0 7 0; -#P hidden connect 10 0 11 0; -#P hidden connect 18 0 9 0; -#P hidden connect 11 0 9 0; -#P connect 13 0 14 0; -#P connect 14 0 12 0; -#P connect 12 0 15 0; -#P fasten 17 0 15 0 291 320 332 320; -#P fasten 16 0 15 0 223 320 332 320; -#P connect 12 0 15 1; -#P connect 21 0 20 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.polar.help b/externals/grill/vasp/max-help/vasp.polar.help deleted file mode 100755 index c2dbdf2c..00000000 --- a/externals/grill/vasp/max-help/vasp.polar.help +++ /dev/null @@ -1,291 +0,0 @@ -max v2; -#N vpatcher 209 148 932 603; -#P origin 0 27; -#P user umenu 79 131 72 196647 1 64 147 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 347 671; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 54 196617 s 1067path1; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 4 0 1 0; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 141 153 43 196617 p loader; -#P message 487 360 101 196617 vasp bufpol1 bufpol2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 487 380 78 196617 p clear_buffers; -#P hidden newex 589 336 54 196617 r 1067path1; -#P comment 52 133 26 196617 read; -#P newex 60 216 61 196617 vasp.update; -#N vpatcher 148 79 912 552; -#P origin 0 14; -#P user umenu 83 71 72 196647 1 64 87 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 344 681; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1067path; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P connect 4 0 1 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 145 89 43 196617 p loader; -#P message 521 380 101 196617 vasp bufpol3 bufpol4; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 521 399 78 196617 p clear_buffers; -#P hidden newex 624 341 48 196617 r 1067path; -#P comment 56 72 26 196617 read; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 421 101 49 196617 p wfkeys; -#P hidden message 421 145 58 196617 set bufpol3; -#P hidden newex 421 121 45 196617 loadbang; -#P user waveform~ 421 163 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 380 400 27 196617 stop; -#P message 312 400 65 196617 startwindow; -#P newex 421 425 29 196617 dac~; -#P newex 421 375 30 196617 line~; -#P message 421 352 72 196617 0 \, 4000 4000; -#P newex 421 399 69 196617 play~ bufpol3; -#P newex 61 399 61 196617 vasp.freeze; -#P comment 119 294 190 196617 polar to cartesian coordinate conversion; -#P comment 178 238 81 196617 scale to 0 - 2¹; -#P comment 146 215 68 196617 random phase; -#P comment 130 184 116 196617 split amplitude and phase; -#P comment 130 157 193 196617 cartesian to polar coordinate conversion; -#P newex 624 399 105 196617 buffer~ bufpol4 4000; -#P newex 624 378 105 196617 buffer~ bufpol3 4000; -#P message 61 109 101 196617 vasp bufpol3 bufpol4; -#P newex 61 338 61 196617 vasp.update; -#P newex 61 315 52 196617 vasp.c!fft; -#P newex 61 292 51 196617 vasp.rect; -#P newex 61 269 58 196617 vasp.join 2; -#P newex 86 237 86 196617 vasp.* 3.141593; -#P newex 86 213 55 196617 vasp.noise; -#P newex 61 181 61 196617 vasp.split 2; -#P newex 61 155 55 196617 vasp.polar; -#P newex 61 133 49 196617 vasp.cfft; -#P comment 129 135 151 196617 complex fourier transmormation; -#P comment 56 31 193 196622 phase random_example; -#P comment 127 401 170 196617 is an abstraction that does the same; -#P connect 12 0 3 0; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 8 0; -#P connect 8 0 9 0; -#P connect 9 0 10 0; -#P connect 10 0 11 0; -#P connect 5 1 6 0; -#P connect 6 0 7 0; -#P fasten 7 0 8 1 91 261 114 261; -#P hidden connect 36 1 35 0; -#P hidden connect 28 0 29 0; -#P hidden fasten 13 1 29 0 724 396 740 396 740 103 426 103; -#P hidden connect 30 0 27 0; -#P hidden connect 29 0 27 0; -#P connect 22 0 23 0; -#P connect 23 0 21 0; -#P connect 21 0 24 0; -#P fasten 26 0 24 0 385 420 426 420; -#P fasten 25 0 24 0 317 420 426 420; -#P connect 21 0 24 1; -#P connect 34 0 33 0; -#P hidden fasten 32 0 13 0 629 372 629 372; -#P pop; -#P newobj 60 380 115 196617 p phaserandom_example; -#P comment 173 258 173 196617 real-> amplitude / imaginary-> phase; -#P comment 173 174 179 196617 transform into real and imaginary part; -#P message 60 257 101 196617 vasp bufpol1 bufpol2; -#P message 60 173 101 196617 vasp bufpol1 bufpol2; -#P newex 60 277 55 196617 vasp.polar; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 382 43 49 196617 p wfkeys; -#P comment 607 215 86 196617 phase / imaginary; -#P hidden message 382 209 58 196617 set bufpol2; -#P user waveform~ 382 230 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 589 380 105 196617 buffer~ bufpol2 2000; -#P hidden message 382 87 58 196617 set bufpol1; -#P hidden newex 382 63 45 196617 loadbang; -#P user waveform~ 382 105 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 60 193 49 196617 vasp.cfft; -#P newex 60 304 61 196617 vasp.update; -#P newex 589 359 105 196617 buffer~ bufpol1 2000; -#P comment 52 59 192 196617 cartesian to polar coordinate conversion; -#P comment 52 36 89 196622 vasp.polar; -#P comment 617 90 78 196617 amplitude / real; -#P connect 15 0 5 0; -#P connect 5 0 20 0; -#P connect 16 0 14 0; -#P connect 14 0 4 0; -#P hidden connect 26 1 25 0; -#P hidden connect 7 0 8 0; -#P hidden fasten 3 1 8 0 689 377 699 377 699 82 387 82; -#P hidden connect 13 0 6 0; -#P hidden connect 8 0 6 0; -#P hidden fasten 7 0 11 0 387 68 387 68; -#P hidden connect 13 0 10 0; -#P hidden connect 11 0 10 0; -#P connect 24 0 23 0; -#P hidden connect 22 0 3 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.pow.help b/externals/grill/vasp/max-help/vasp.pow.help deleted file mode 100755 index 496b0468..00000000 --- a/externals/grill/vasp/max-help/vasp.pow.help +++ /dev/null @@ -1,98 +0,0 @@ -max v2; -#N vpatcher 201 127 816 493; -#P newex 55 196 61 196617 vasp.update; -#P message 404 291 64 196617 vasp bufpow; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 404 312 73 196617 p clear_buffer; -#P flonum 134 257 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 50 67 66 196617 sample^x; -#P message 55 235 64 196617 vasp bufpow; -#P newex 55 280 68 196617 vasp.pow 0.1; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 280 65 49 196617 p wfkeys; -#P hidden message 280 111 55 196617 set bufpow; -#P hidden newex 280 87 45 196617 loadbang; -#P user waveform~ 280 137 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 55 174 55 196617 vasp.* 0.2; -#P newex 55 312 61 196617 vasp.update; -#P message 55 123 64 196617 vasp bufpow; -#P newex 487 312 104 196617 buffer~ bufpow 2000; -#P comment 50 97 155 196617 argument/right inlet: exponent; -#P newex 55 152 80 196617 vasp.osc 44100; -#P comment 50 82 168 196617 power function; -#P comment 50 43 89 196622 vasp.pow; -#P comment 171 258 52 196617 exponent; -#P comment 141 153 123 196617 generate a 1Hz sine wave; -#P connect 7 0 4 0; -#P connect 4 0 9 0; -#P connect 9 0 20 0; -#P connect 15 0 14 0; -#P connect 14 0 8 0; -#P fasten 17 0 14 1 139 275 118 275; -#P hidden connect 11 0 12 0; -#P hidden connect 12 0 10 0; -#P hidden connect 13 0 10 0; -#P connect 19 0 18 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.pwrap.help b/externals/grill/vasp/max-help/vasp.pwrap.help deleted file mode 100755 index ddc11a81..00000000 --- a/externals/grill/vasp/max-help/vasp.pwrap.help +++ /dev/null @@ -1,6 +0,0 @@ -max v2; -#N vpatcher 256 153 557 315; -#P comment 44 38 89 196622 vasp.pwrap; -#P newex 116 103 60 196617 vasp.pwrap; -#P comment 44 62 179 196617 wraps value from 0-2¹ to -¹ to ¹; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.radd.help b/externals/grill/vasp/max-help/vasp.radd.help deleted file mode 100755 index af2abb0f..00000000 --- a/externals/grill/vasp/max-help/vasp.radd.help +++ /dev/null @@ -1,168 +0,0 @@ -max v2; -#N vpatcher 196 126 817 622; -#P message 393 402 95 196617 vasp bufr+1 bufr+2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 393 423 78 196617 p clear_buffers; -#P hidden newex 492 383 48 196617 r 1108path; -#P user umenu 73 129 72 196647 1 64 145 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1108path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 135 151 43 196617 p loader; -#P comment 46 131 26 196617 read; -#P comment 190 244 30 196617 value; -#P newex 53 287 61 196617 vasp.update; -#P newex 53 367 61 196617 vasp.update; -#P newex 53 213 61 196617 vasp.update; -#P flonum 153 243 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 46 89 137 196617 needs two vectors; -#P newex 53 346 52 196617 vasp.c!fft; -#P message 53 325 95 196617 vasp bufr+1 bufr+2; -#P newex 53 191 49 196617 vasp.cfft; -#P message 53 169 95 196617 vasp bufr+1 bufr+2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 283 74 49 196617 p wfkeys; -#P hidden message 283 246 55 196617 set bufr+2; -#P user waveform~ 283 264 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 492 423 103 196617 buffer~ bufr+2 2000; -#P comment 46 60 170 196617 add a value to the complex radius; -#P newex 53 267 65 196617 vasp.r+ 0.05; -#P hidden message 283 122 55 196617 set bufr+1; -#P hidden newex 283 95 45 196617 loadbang; -#P user waveform~ 283 143 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 230 423 27 196617 stop; -#P message 163 423 65 196617 startwindow; -#P newex 283 401 30 196617 line~; -#P message 283 381 72 196617 0 \, 2000 2000; -#P newex 283 449 29 196617 dac~; -#P newex 283 423 65 196617 play~ bufr+1; -#P message 53 243 95 196617 vasp bufr+1 bufr+2; -#P newex 492 402 103 196617 buffer~ bufr+1 2000; -#P comment 46 37 78 196622 vasp.r+; -#P comment 46 74 168 196617 argument/right inlet: value (offset); -#P connect 19 0 20 0; -#P connect 20 0 25 0; -#P connect 3 0 13 0; -#P connect 13 0 27 0; -#P connect 21 0 22 0; -#P connect 22 0 26 0; -#P fasten 24 0 13 1 158 263 113 263; -#P hidden connect 31 1 30 0; -#P hidden connect 11 0 12 0; -#P hidden fasten 2 1 12 0 590 421 601 421 601 116 288 116; -#P hidden connect 18 0 10 0; -#P hidden connect 12 0 10 0; -#P hidden connect 11 0 17 0; -#P hidden fasten 15 1 17 0 590 444 601 444 601 243 288 243; -#P hidden connect 18 0 16 0; -#P hidden connect 17 0 16 0; -#P connect 6 0 7 0; -#P connect 7 0 4 0; -#P fasten 9 0 5 0 235 443 288 443; -#P fasten 8 0 5 0 168 443 288 443; -#P connect 4 0 5 0; -#P connect 4 0 5 1; -#P connect 34 0 33 0; -#P hidden connect 32 0 2 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rect.help b/externals/grill/vasp/max-help/vasp.rect.help deleted file mode 100755 index f03d5187..00000000 --- a/externals/grill/vasp/max-help/vasp.rect.help +++ /dev/null @@ -1,301 +0,0 @@ -max v2; -#N vpatcher 213 143 951 665; -#P user umenu 84 105 72 196647 1 64 121 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 347 671; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 54 196617 s 1069path1; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 4 0 1 0; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 146 127 43 196617 p loader; -#P message 467 441 113 196617 vasp bufrect1 bufrect2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 467 460 78 196617 p clear_buffers; -#P hidden newex 582 414 54 196617 r 1069path1; -#P comment 57 107 26 196617 read; -#P comment 187 376 179 196617 tranform with invers cfft to original; -#P newex 63 416 61 196617 vasp.update; -#P message 63 375 113 196617 vasp bufrect1 bufrect2; -#P newex 63 395 52 196617 vasp.c!fft; -#P newex 63 186 61 196617 vasp.update; -#P message 63 297 113 196617 vasp bufrect1 bufrect2; -#P newex 63 317 51 196617 vasp.rect; -#P newex 63 339 61 196617 vasp.update; -#P comment 187 221 173 196617 real-> amplitude / imaginary-> phase; -#N vpatcher 148 168 892 640; -#P user umenu 83 67 72 196647 1 64 83 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 347 671; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1069path; -#P newex 138 102 79 196617 sprintf read %s; -#P connect 2 0 3 0; -#P connect 3 0 4 0; -#P fasten 0 0 1 0 143 134 64 134; -#P connect 4 0 1 0; -#P connect 3 1 0 0; -#P pop; -#P hidden newobj 145 89 43 196617 p loader; -#P message 591 355 113 196617 vasp bufrect3 bufrect4; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 591 374 78 196617 p clear_buffers; -#P hidden newex 544 395 48 196617 r 1069path; -#P comment 56 68 26 196617 read; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 394 60 49 196617 p wfkeys; -#P hidden message 394 104 64 196617 set bufrect3; -#P hidden newex 394 80 45 196617 loadbang; -#P user waveform~ 394 122 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 394 395 27 196617 stop; -#P message 326 395 65 196617 startwindow; -#P newex 435 421 29 196617 dac~; -#P newex 435 369 30 196617 line~; -#P message 435 346 72 196617 0 \, 4000 4000; -#P newex 435 394 75 196617 play~ bufrect3; -#P newex 61 395 61 196617 vasp.freeze; -#P comment 118 290 190 196617 polar to cartesian coordinate conversion; -#P comment 178 235 81 196617 scale to 0 - 2¹; -#P comment 149 211 68 196617 random phase; -#P comment 128 180 116 196617 split amplitude and phase; -#P comment 123 153 193 196617 cartesian to polar coordinate conversion; -#P newex 591 416 111 196617 buffer~ bufrect4 4000; -#P newex 591 394 111 196617 buffer~ bufrect3 4000; -#P message 61 105 113 196617 vasp bufrect3 bufrect4; -#P newex 61 334 61 196617 vasp.update; -#P newex 61 311 52 196617 vasp.c!fft; -#P newex 61 288 51 196617 vasp.rect; -#P newex 61 265 58 196617 vasp.join 2; -#P newex 86 233 86 196617 vasp.* 3.141593; -#P newex 86 209 55 196617 vasp.noise; -#P newex 61 177 61 196617 vasp.split 2; -#P newex 61 151 55 196617 vasp.polar; -#P newex 61 129 49 196617 vasp.cfft; -#P comment 122 131 151 196617 complex fourier transformation; -#P comment 56 35 177 196622 phase random_example; -#P comment 127 397 170 196617 is an abstraction that does the same; -#P connect 12 0 3 0; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 8 0; -#P connect 8 0 9 0; -#P connect 9 0 10 0; -#P connect 10 0 11 0; -#P connect 5 1 6 0; -#P connect 6 0 7 0; -#P fasten 7 0 8 1 91 257 114 257; -#P hidden connect 36 1 35 0; -#P hidden fasten 13 1 29 0 697 413 713 413 713 99 399 99; -#P hidden connect 28 0 29 0; -#P hidden connect 29 0 27 0; -#P hidden connect 30 0 27 0; -#P connect 22 0 23 0; -#P connect 23 0 21 0; -#P connect 21 0 24 0; -#P fasten 25 0 24 0 331 414 440 414; -#P fasten 26 0 24 0 399 414 440 414; -#P connect 21 0 24 1; -#P connect 34 0 33 0; -#P hidden fasten 32 0 13 0 549 388 596 388; -#P pop; -#P newobj 63 460 115 196617 p phaserandom_example; -#P comment 187 298 180 196617 amplitude-> real / phase-> imaginary; -#P comment 187 146 179 196617 tranform with cfft to real / imaginary; -#P message 63 220 113 196617 vasp bufrect1 bufrect2; -#P message 63 145 113 196617 vasp bufrect1 bufrect2; -#P newex 63 240 55 196617 vasp.polar; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 385 85 49 196617 p wfkeys; -#P comment 611 257 86 196617 imaginary / phase; -#P hidden message 385 251 64 196617 set bufrect2; -#P user waveform~ 385 272 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 582 460 111 196617 buffer~ bufrect2 2000; -#P hidden message 385 129 64 196617 set bufrect1; -#P hidden newex 385 105 45 196617 loadbang; -#P user waveform~ 385 147 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 63 165 49 196617 vasp.cfft; -#P newex 63 262 61 196617 vasp.update; -#P newex 582 441 111 196617 buffer~ bufrect1 2000; -#P comment 54 71 192 196617 polar to cartesian coordinate conversion; -#P comment 54 48 76 196622 vasp.rect; -#P comment 620 132 83 196617 real / amplitude; -#P connect 15 0 5 0; -#P connect 5 0 24 0; -#P connect 16 0 14 0; -#P connect 14 0 4 0; -#P connect 23 0 22 0; -#P connect 22 0 21 0; -#P connect 26 0 25 0; -#P connect 25 0 27 0; -#P hidden connect 34 1 33 0; -#P hidden connect 7 0 8 0; -#P hidden fasten 3 1 8 0 688 458 702 458 702 74 390 74; -#P hidden connect 13 0 6 0; -#P hidden connect 8 0 6 0; -#P hidden fasten 7 0 11 0 390 110 390 110; -#P hidden connect 11 0 10 0; -#P hidden connect 13 0 10 0; -#P connect 32 0 31 0; -#P hidden connect 30 0 3 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rfft.help b/externals/grill/vasp/max-help/vasp.rfft.help deleted file mode 100755 index 4508d4da..00000000 --- a/externals/grill/vasp/max-help/vasp.rfft.help +++ /dev/null @@ -1,137 +0,0 @@ -max v2; -#N vpatcher 424 101 1093 481; -#P comment 120 291 78 196617 inverse real fft; -#P comment 122 211 43 196617 real fft; -#P message 281 312 27 196617 stop; -#P message 213 312 65 196617 startwindow; -#P newex 322 338 29 196617 dac~; -#P newex 322 286 30 196617 line~; -#P message 322 263 72 196617 0 \, 2000 2000; -#P newex 322 312 65 196617 play~ bufrfft; -#P hidden newex 522 292 48 196617 r 1065path; -#P user umenu 86 140 72 196647 1 64 156 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1065path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 148 162 43 196617 p loader; -#P message 439 292 63 196617 vasp bufrfft; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 439 312 73 196617 p clear_buffer; -#P newex 65 312 61 196617 vasp.update; -#P message 65 267 63 196617 vasp bufrfft; -#P newex 65 288 52 196617 vasp.r!fft; -#P newex 65 232 61 196617 vasp.update; -#P comment 51 105 254 196617 the imaginary part of the fft is assumed to be zero; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 55 196617 set bufrfft; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 65 187 63 196617 vasp bufrfft; -#P newex 522 312 103 196617 buffer~ bufrfft 2000; -#P newex 65 208 49 196617 vasp.rfft; -#P comment 52 70 167 196617 real fft; -#P comment 52 48 89 196622 vasp.rfft; -#P comment 598 103 44 196617 source; -#P comment 52 88 254 196617 opposite to cfft there is only one real input buffer; -#P comment 54 142 31 196617 read; -#P connect 7 0 5 0; -#P connect 5 0 13 0; -#P connect 15 0 14 0; -#P connect 14 0 16 0; -#P hidden connect 20 1 19 0; -#P hidden connect 9 0 10 0; -#P hidden fasten 6 1 10 0 620 333 638 333 638 94 326 94; -#P hidden connect 10 0 8 0; -#P hidden connect 11 0 8 0; -#P connect 23 0 24 0; -#P connect 24 0 22 0; -#P fasten 27 0 25 0 286 331 327 331; -#P fasten 26 0 25 0 218 331 327 331; -#P connect 22 0 25 0; -#P connect 22 0 25 1; -#P connect 18 0 17 0; -#P hidden connect 21 0 6 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rgate.help b/externals/grill/vasp/max-help/vasp.rgate.help deleted file mode 100755 index ce5a6a4e..00000000 --- a/externals/grill/vasp/max-help/vasp.rgate.help +++ /dev/null @@ -1,170 +0,0 @@ -max v2; -#N vpatcher 180 112 873 652; -#P message 425 400 123 196617 vasp bufrgate1 bufrgate2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 425 455 78 196617 p clear_buffers; -#P hidden newex 539 406 48 196617 r 1170path; -#P user umenu 78 143 72 196647 1 64 159 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1170path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 140 165 43 196617 p loader; -#P comment 52 145 26 196617 read; -#P comment 52 101 172 196617 needs two vectors (real/imaginary); -#P newex 63 404 61 196617 vasp.update; -#P message 63 360 123 196617 vasp bufrgate1 bufrgate2; -#P newex 63 381 52 196617 vasp.c!fft; -#P comment 165 287 32 196617 value; -#P newex 63 227 61 196617 vasp.update; -#P newex 63 324 61 196617 vasp.update; -#P flonum 127 285 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P message 63 261 123 196617 vasp bufrgate1 bufrgate2; -#P newex 63 304 74 196617 vasp.rgate 0.2; -#P message 301 456 27 196617 stop; -#P message 233 456 65 196617 startwindow; -#P newex 342 480 29 196617 dac~; -#P newex 342 429 30 196617 line~; -#P message 342 400 72 196617 0 \, 2000 2000; -#P newex 342 455 80 196617 play~ bufrgate1; -#P message 63 183 123 196617 vasp bufrgate1 bufrgate2; -#P newex 63 204 49 196617 vasp.cfft; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 342 85 49 196617 p wfkeys; -#P hidden message 342 255 69 196617 set bufrgate2; -#P user waveform~ 342 273 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 539 455 115 196617 buffer~ bufrgate2 2000; -#P hidden message 342 135 69 196617 set bufrgate1; -#P hidden newex 342 107 45 196617 loadbang; -#P user waveform~ 342 153 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 539 434 115 196617 buffer~ bufrgate1 2000; -#P comment 52 86 303 196617 argument/right inlet: value (usualy from 0-1) to gate the radius; -#P comment 52 71 257 196617 gate the radius of a complex buffer content with a value; -#P comment 52 48 89 196622 vasp.rgate; -#P connect 12 0 11 0; -#P connect 11 0 23 0; -#P connect 20 0 19 0; -#P connect 19 0 22 0; -#P connect 26 0 25 0; -#P connect 25 0 27 0; -#P connect 21 0 19 1; -#P hidden connect 31 1 30 0; -#P hidden fasten 5 0 6 0 347 116 347 116; -#P hidden fasten 3 1 6 0 649 452 673 452 673 131 347 131; -#P hidden connect 10 0 4 0; -#P hidden connect 6 0 4 0; -#P hidden fasten 5 0 9 0 347 116 347 116; -#P hidden fasten 7 1 9 0 649 474 673 474 673 260 347 260; -#P hidden connect 9 0 8 0; -#P hidden connect 10 0 8 0; -#P connect 14 0 15 0; -#P connect 15 0 13 0; -#P connect 13 0 16 0; -#P fasten 17 0 16 0 238 474 347 474; -#P fasten 18 0 16 0 306 474 347 474; -#P connect 13 0 16 1; -#P connect 34 0 33 0; -#P hidden connect 32 0 3 0; -#P hidden fasten 8 5 4 4 647 376 658 376 658 147 647 147; -#P hidden connect 4 5 8 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rifft.help b/externals/grill/vasp/max-help/vasp.rifft.help deleted file mode 100755 index 019a9aad..00000000 --- a/externals/grill/vasp/max-help/vasp.rifft.help +++ /dev/null @@ -1,137 +0,0 @@ -max v2; -#N vpatcher 308 211 977 591; -#P comment 120 291 78 196617 inverse real fft; -#P comment 122 211 43 196617 real fft; -#P message 281 312 27 196617 stop; -#P message 213 312 65 196617 startwindow; -#P newex 322 338 29 196617 dac~; -#P newex 322 286 30 196617 line~; -#P message 322 263 72 196617 0 \, 2000 2000; -#P newex 322 312 65 196617 play~ bufrfft; -#P hidden newex 522 292 48 196617 r 1066path; -#P user umenu 83 140 72 196647 1 64 156 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1066path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 145 162 43 196617 p loader; -#P message 442 292 63 196617 vasp bufrfft; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 442 312 73 196617 p clear_buffer; -#P newex 65 312 61 196617 vasp.update; -#P message 65 267 63 196617 vasp bufrfft; -#P newex 65 288 52 196617 vasp.r!fft; -#P newex 65 232 61 196617 vasp.update; -#P comment 52 100 254 196617 the imaginary part of the fft is assumed to be zero; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 321 52 49 196617 p wfkeys; -#P hidden message 321 98 55 196617 set bufrfft; -#P hidden newex 321 74 45 196617 loadbang; -#P user waveform~ 321 118 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 65 187 63 196617 vasp bufrfft; -#P newex 522 312 103 196617 buffer~ bufrfft 2000; -#P newex 65 208 49 196617 vasp.rfft; -#P comment 52 70 96 196617 inverse real fft; -#P comment 52 48 89 196622 vasp.r!fft; -#P comment 598 103 44 196617 source; -#P comment 52 85 254 196617 opposite to cfft there is only one real input buffer; -#P comment 52 142 31 196617 read; -#P connect 7 0 5 0; -#P connect 5 0 13 0; -#P connect 15 0 14 0; -#P connect 14 0 16 0; -#P hidden connect 20 1 19 0; -#P hidden fasten 6 1 10 0 620 333 638 333 638 94 326 94; -#P hidden connect 9 0 10 0; -#P hidden connect 11 0 8 0; -#P hidden connect 10 0 8 0; -#P connect 23 0 24 0; -#P connect 24 0 22 0; -#P connect 22 0 25 0; -#P fasten 26 0 25 0 218 331 327 331; -#P fasten 27 0 25 0 286 331 327 331; -#P connect 22 0 25 1; -#P connect 18 0 17 0; -#P hidden connect 21 0 6 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rmax.help b/externals/grill/vasp/max-help/vasp.rmax.help deleted file mode 100755 index 029cff9b..00000000 --- a/externals/grill/vasp/max-help/vasp.rmax.help +++ /dev/null @@ -1,165 +0,0 @@ -max v2; -#N vpatcher 185 142 812 630; -#P message 374 374 123 196617 vasp bufrmax1 bufrmax2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 374 416 78 196617 p clear_buffers; -#P hidden newex 549 375 48 196617 r 1157path; -#P user umenu 75 127 72 196647 1 64 143 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1157path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 137 149 43 196617 p loader; -#P comment 49 128 26 196617 read; -#P newex 53 356 61 196617 vasp.update; -#P flonum 180 250 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 46 90 137 196617 needs two vectors; -#P newex 53 335 52 196617 vasp.c!fft; -#P message 53 314 123 196617 vasp bufrmax1 bufrmax2; -#P newex 53 189 49 196617 vasp.cfft; -#P message 53 167 123 196617 vasp bufrmax1 bufrmax2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 287 76 49 196617 p wfkeys; -#P hidden message 287 239 69 196617 set bufrmax2; -#P user waveform~ 287 256 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 484 416 115 196617 buffer~ bufrmax2 2000; -#P comment 46 60 314 196617 compares the complex radius of buffer pairs and takes maximum; -#P newex 53 274 74 196617 vasp.rmax 0.2; -#P hidden message 287 118 69 196617 set bufrmax1; -#P hidden newex 287 97 45 196617 loadbang; -#P user waveform~ 287 136 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 234 416 27 196617 stop; -#P message 167 416 65 196617 startwindow; -#P newex 287 394 30 196617 line~; -#P message 287 374 72 196617 0 \, 2000 2000; -#P newex 287 442 29 196617 dac~; -#P newex 287 416 80 196617 play~ bufrmax1; -#P message 53 250 123 196617 vasp bufrmax1 bufrmax2; -#P newex 484 394 115 196617 buffer~ bufrmax1 2000; -#P comment 46 37 78 196622 vasp.rmax; -#P comment 46 75 137 196617 argument/right inlet: value; -#P newex 53 213 61 196617 vasp.update; -#P connect 20 0 21 0; -#P connect 21 0 0 0; -#P connect 4 0 14 0; -#P connect 22 0 23 0; -#P connect 23 0 26 0; -#P fasten 25 0 14 1 185 269 122 269; -#P hidden connect 29 1 28 0; -#P hidden connect 12 0 13 0; -#P hidden fasten 3 1 13 0 594 413 605 413 605 115 292 115; -#P hidden connect 19 0 11 0; -#P hidden connect 13 0 11 0; -#P hidden fasten 16 1 18 0 594 436 605 436 605 237 292 237; -#P hidden connect 12 0 18 0; -#P hidden connect 19 0 17 0; -#P hidden connect 18 0 17 0; -#P connect 7 0 8 0; -#P connect 8 0 5 0; -#P fasten 10 0 6 0 239 436 292 436; -#P fasten 9 0 6 0 172 436 292 436; -#P connect 5 0 6 0; -#P connect 5 0 6 1; -#P connect 32 0 31 0; -#P hidden connect 30 0 3 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rmaxq.help b/externals/grill/vasp/max-help/vasp.rmaxq.help deleted file mode 100755 index 0e49d689..00000000 --- a/externals/grill/vasp/max-help/vasp.rmaxq.help +++ /dev/null @@ -1,179 +0,0 @@ -max v2; -#N vpatcher 180 75 870 686; -#P message 437 500 135 196617 vasp bufrmax?1 bufrmax?2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 437 542 78 196617 p clear_buffers; -#P newex 59 452 61 196617 vasp.update; -#P newex 59 210 61 196617 vasp.update; -#P hidden newex 535 500 48 196617 r 1155path; -#P user umenu 78 127 72 196647 1 64 143 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1155path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 140 149 43 196617 p loader; -#P comment 52 129 26 196617 read; -#P comment 46 90 137 196617 needs two vectors; -#P newex 59 430 52 196617 vasp.c!fft; -#P message 59 409 135 196617 vasp bufrmax?1 bufrmax?2; -#P newex 59 189 49 196617 vasp.cfft; -#P message 59 167 135 196617 vasp bufrmax?1 bufrmax?2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 344 97 49 196617 p wfkeys; -#P hidden message 344 278 75 196617 set bufrmax?2; -#P user waveform~ 344 299 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 534 542 122 196617 buffer~ bufrmax?2 2000; -#P flonum 92 321 68 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 46 60 286 196617 maximum of the radius values of a complex vasp; -#P message 59 293 135 196617 vasp bufrmax?1 bufrmax?2; -#P newex 59 350 43 196617 vasp.c/; -#P newex 59 372 61 196617 vasp.update; -#P newex 58 522 51 196617 vasp.ropt; -#P message 58 498 135 196617 vasp bufrmax?1 bufrmax?2; -#P newex 59 260 62 196617 vasp.rmax?; -#P hidden message 344 145 75 196617 set bufrmax?1; -#P hidden newex 344 118 45 196617 loadbang; -#P user waveform~ 344 166 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 291 542 27 196617 stop; -#P message 224 542 65 196617 startwindow; -#P newex 344 520 30 196617 line~; -#P message 344 500 72 196617 0 \, 2000 2000; -#P newex 344 568 29 196617 dac~; -#P newex 344 542 85 196617 play~ bufrmax?1; -#P newex 58 542 61 196617 vasp.update; -#P message 59 241 135 196617 vasp bufrmax?1 bufrmax?2; -#P newex 534 521 122 196617 buffer~ bufrmax?1 2000; -#P comment 163 322 141 196617 -> current maximum; -#P comment 106 351 181 196617 use the maximum to optimize radius; -#P comment 52 482 179 196617 or use vasp.ropt which does the same; -#P comment 46 37 92 196622 vasp.rmax?; -#P comment 46 75 137 196617 right outlet: calculated value; -#P connect 18 0 19 0; -#P connect 19 0 7 0; -#P connect 29 0 30 0; -#P connect 30 0 38 0; -#P connect 6 0 17 0; -#P connect 22 0 21 0; -#P connect 21 0 20 0; -#P connect 31 0 32 0; -#P connect 32 0 39 0; -#P fasten 17 1 24 0 116 283 200 283 200 314 97 314; -#P connect 24 0 21 1; -#P hidden connect 36 1 35 0; -#P hidden connect 15 0 16 0; -#P hidden fasten 5 1 16 0 651 540 662 540 662 139 349 139; -#P hidden connect 28 0 14 0; -#P hidden connect 16 0 14 0; -#P hidden fasten 25 1 27 0 651 561 662 561 662 272 349 272; -#P hidden connect 15 0 27 0; -#P hidden connect 27 0 26 0; -#P hidden connect 28 0 26 0; -#P connect 10 0 11 0; -#P connect 11 0 8 0; -#P fasten 12 0 9 0 229 562 349 562; -#P fasten 13 0 9 0 296 562 349 562; -#P connect 8 0 9 0; -#P connect 8 0 9 1; -#P connect 41 0 40 0; -#P hidden connect 37 0 5 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rmin.help b/externals/grill/vasp/max-help/vasp.rmin.help deleted file mode 100755 index 9544d81c..00000000 --- a/externals/grill/vasp/max-help/vasp.rmin.help +++ /dev/null @@ -1,167 +0,0 @@ -max v2; -#N vpatcher 239 143 840 647; -#P newex 53 362 61 196617 vasp.update; -#P newex 53 286 61 196617 vasp.update; -#P newex 53 211 61 196617 vasp.update; -#P message 359 391 115 196617 vasp bufrmin1 bufrmin2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 359 433 78 196617 p clear_buffers; -#P user umenu 72 129 72 196647 1 64 145 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 54 196617 s #01path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 134 151 43 196617 p loader; -#P comment 46 130 26 196617 read; -#P hidden newex 459 389 54 196617 r #01path; -#P flonum 173 242 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 46 90 137 196617 needs two vectors; -#P newex 53 342 52 196617 vasp.c!fft; -#P message 53 321 115 196617 vasp bufrmin1 bufrmin2; -#P newex 53 189 49 196617 vasp.cfft; -#P message 53 169 115 196617 vasp bufrmin1 bufrmin2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 260 63 49 196617 p wfkeys; -#P hidden message 260 244 65 196617 set bufrmin2; -#P user waveform~ 260 265 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 459 433 113 196617 buffer~ bufrmin2 2000; -#P comment 46 60 310 196617 compares the complex radius of buffer pairs and takes minimum; -#P newex 53 266 75 196617 vasp.rmin 0.05; -#P hidden message 260 111 65 196617 set bufrmin1; -#P hidden newex 260 84 45 196617 loadbang; -#P user waveform~ 260 132 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 207 433 27 196617 stop; -#P message 140 433 65 196617 startwindow; -#P newex 260 412 30 196617 line~; -#P message 260 391 72 196617 0 \, 2000 2000; -#P newex 260 459 29 196617 dac~; -#P newex 260 433 75 196617 play~ bufrmin1; -#P message 53 242 115 196617 vasp bufrmin1 bufrmin2; -#P newex 459 412 113 196617 buffer~ bufrmin1 2000; -#P comment 46 37 78 196622 vasp.rmin; -#P comment 46 75 137 196617 argument/right inlet:; -#P connect 19 0 20 0; -#P connect 20 0 31 0; -#P connect 3 0 13 0; -#P connect 13 0 32 0; -#P connect 21 0 22 0; -#P connect 22 0 33 0; -#P fasten 24 0 13 1 178 261 123 261; -#P hidden connect 28 1 27 0; -#P hidden connect 11 0 12 0; -#P hidden fasten 2 1 12 0 567 430 578 430 578 105 265 105; -#P hidden connect 18 0 10 0; -#P hidden connect 12 0 10 0; -#P hidden fasten 15 1 17 0 567 452 578 452 578 238 265 238; -#P hidden connect 11 0 17 0; -#P hidden connect 18 0 16 0; -#P hidden connect 17 0 16 0; -#P connect 6 0 7 0; -#P connect 7 0 4 0; -#P fasten 9 0 5 0 212 453 265 453; -#P fasten 8 0 5 0 145 453 265 453; -#P connect 4 0 5 0; -#P connect 4 0 5 1; -#P connect 30 0 29 0; -#P hidden connect 25 0 2 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rminq.help b/externals/grill/vasp/max-help/vasp.rminq.help deleted file mode 100755 index d3c472e0..00000000 --- a/externals/grill/vasp/max-help/vasp.rminq.help +++ /dev/null @@ -1,149 +0,0 @@ -max v2; -#N vpatcher 211 115 858 569; -#P message 365 381 129 196617 vasp bufrmin?1 bufrmin?2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 365 402 73 196617 p clear_buffer; -#P newex 53 213 61 196617 vasp.update; -#P hidden newex 496 362 48 196617 r 1154path; -#P user umenu 72 128 72 196647 1 64 144 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1154path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 134 150 43 196617 p loader; -#P comment 46 130 26 196617 read; -#P comment 46 89 137 196617 needs two vectors; -#P newex 53 191 49 196617 vasp.cfft; -#P message 53 169 129 196617 vasp bufrmin?1 bufrmin?2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 303 79 49 196617 p wfkeys; -#P hidden message 303 245 72 196617 set bufrmin?2; -#P user waveform~ 303 263 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 496 402 119 196617 buffer~ bufrmin?2 2000; -#P flonum 102 297 68 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 46 61 232 196617 min-value of the radius values of a complex vasp; -#P newex 53 259 59 196617 vasp.rmin?; -#P hidden message 303 121 72 196617 set bufrmin?1; -#P hidden newex 303 100 45 196617 loadbang; -#P user waveform~ 303 140 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 53 240 129 196617 vasp bufrmin?1 bufrmin?2; -#P newex 496 381 119 196617 buffer~ bufrmin?1 2000; -#P comment 173 298 99 196617 -> current minimum; -#P comment 46 37 98 196622 vasp.rmin?; -#P comment 46 74 137 196617 right outlet: calculated value; -#P connect 15 0 16 0; -#P connect 16 0 22 0; -#P connect 4 0 8 0; -#P connect 8 1 10 0; -#P hidden connect 20 1 19 0; -#P hidden connect 6 0 7 0; -#P hidden fasten 3 1 7 0 610 399 621 399 621 118 308 118; -#P hidden connect 14 0 5 0; -#P hidden connect 7 0 5 0; -#P hidden fasten 11 1 13 0 610 423 621 423 621 242 308 242; -#P hidden connect 6 0 13 0; -#P hidden connect 14 0 12 0; -#P hidden connect 13 0 12 0; -#P connect 24 0 23 0; -#P hidden connect 21 0 3 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.ropt.help b/externals/grill/vasp/max-help/vasp.ropt.help deleted file mode 100755 index 176df949..00000000 --- a/externals/grill/vasp/max-help/vasp.ropt.help +++ /dev/null @@ -1,168 +0,0 @@ -max v2; -#N vpatcher 220 112 892 639; -#P message 416 408 113 196617 vasp bufropt1 bufropt2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 416 450 73 196617 p clear_buffer; -#P hidden newex 532 403 48 196617 r 1171path; -#P user umenu 72 129 72 196647 1 64 145 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1171path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 134 151 43 196617 p loader; -#P comment 46 131 26 196617 read; -#P comment 168 336 131 196617 transform to time domain; -#P comment 167 170 155 196617 transform to frequency domain; -#P comment 170 258 47 196617 optimize; -#P newex 53 215 61 196617 vasp.update; -#P newex 53 297 61 196617 vasp.update; -#P comment 46 90 95 196617 needs two vectors; -#P newex 53 356 52 196617 vasp.c!fft; -#P message 53 335 113 196617 vasp bufropt1 bufropt2; -#P newex 53 191 49 196617 vasp.cfft; -#P message 53 169 113 196617 vasp bufropt1 bufropt2; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 331 67 49 196617 p wfkeys; -#P hidden message 331 248 64 196617 set bufropt2; -#P user waveform~ 331 269 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 532 450 111 196617 buffer~ bufropt2 2000; -#P comment 46 60 222 196617 optimize the radius of a complex buffer content; -#P newex 53 276 51 196617 vasp.ropt; -#P hidden message 331 115 64 196617 set bufropt1; -#P hidden newex 331 88 45 196617 loadbang; -#P user waveform~ 331 136 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 280 450 27 196617 stop; -#P message 213 450 65 196617 startwindow; -#P newex 333 428 30 196617 line~; -#P message 333 408 72 196617 0 \, 2000 2000; -#P newex 333 476 29 196617 dac~; -#P newex 333 450 75 196617 play~ bufropt1; -#P newex 53 379 61 196617 vasp.update; -#P message 53 257 113 196617 vasp bufropt1 bufropt2; -#P newex 532 428 111 196617 buffer~ bufropt1 2000; -#P comment 46 37 78 196622 vasp.ropt; -#P comment 46 75 171 196617 right outlet: the previous maximum; -#P connect 20 0 21 0; -#P connect 21 0 26 0; -#P connect 3 0 14 0; -#P connect 14 0 25 0; -#P connect 22 0 23 0; -#P connect 23 0 4 0; -#P hidden connect 32 1 31 0; -#P hidden connect 12 0 13 0; -#P hidden fasten 2 1 13 0 638 446 649 446 649 109 336 109; -#P hidden connect 19 0 11 0; -#P hidden connect 13 0 11 0; -#P hidden fasten 16 1 18 0 638 471 649 471 649 242 336 242; -#P hidden connect 12 0 18 0; -#P hidden connect 19 0 17 0; -#P hidden connect 18 0 17 0; -#P connect 7 0 8 0; -#P connect 8 0 5 0; -#P fasten 10 0 6 0 285 470 338 470; -#P fasten 9 0 6 0 218 470 338 470; -#P connect 5 0 6 0; -#P connect 5 0 6 1; -#P connect 35 0 34 0; -#P hidden connect 33 0 2 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rot.help b/externals/grill/vasp/max-help/vasp.rot.help deleted file mode 100755 index e78b227c..00000000 --- a/externals/grill/vasp/max-help/vasp.rot.help +++ /dev/null @@ -1,91 +0,0 @@ -max v2; -#N vpatcher 199 239 788 608; -#P message 380 279 60 196617 vasp bufrot; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 380 299 73 196617 p clear_buffer; -#P hidden newex 458 273 48 196617 r 1126path; -#P user umenu 85 121 72 196647 1 64 137 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1126path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 147 143 43 196617 p loader; -#P comment 59 123 26 196617 read; -#P comment 57 82 187 196617 optional argument/right inlet: value; -#P message 205 299 27 196617 stop; -#P message 137 299 65 196617 startwindow; -#P newex 246 325 29 196617 dac~; -#P newex 246 273 30 196617 line~; -#P message 246 250 72 196617 0 \, 2000 2000; -#P newex 246 298 64 196617 play~ bufrot; -#P number 133 179 64 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 64 230 61 196617 vasp.update; -#P message 64 152 60 196617 vasp bufrot; -#P newex 64 202 79 196617 vasp.rot 10000; -#P comment 57 67 101 196617 rotate buffer content; -#P comment 57 43 96 196622 vasp.rot; -#P hidden message 246 102 53 196617 set bufrot; -#P hidden newex 246 77 45 196617 loadbang; -#P user waveform~ 246 121 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 458 298 100 196617 buffer~ bufrot 2000; -#P connect 7 0 6 0; -#P connect 6 0 8 0; -#P connect 9 0 6 1; -#P hidden connect 19 1 18 0; -#P hidden connect 2 0 3 0; -#P hidden fasten 0 1 3 0 553 318 562 318 562 98 251 98; -#P hidden connect 3 0 1 0; -#P connect 11 0 12 0; -#P connect 12 0 10 0; -#P fasten 14 0 13 0 142 318 251 318; -#P fasten 15 0 13 0 210 318 251 318; -#P connect 10 0 13 0; -#P connect 10 0 13 1; -#P connect 22 0 21 0; -#P hidden connect 20 0 0 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rpeaks.help b/externals/grill/vasp/max-help/vasp.rpeaks.help deleted file mode 100755 index 4a4860d5..00000000 --- a/externals/grill/vasp/max-help/vasp.rpeaks.help +++ /dev/null @@ -1,174 +0,0 @@ -max v2; -#N vpatcher 248 88 903 607; -#P flonum 133 327 61 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 52 102 197 196617 right outlet: current peaks density (0-1); -#P message 393 394 135 196617 vasp bufrpeaks1 bufrpeaks2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 393 449 73 196617 p clear_buffer; -#P hidden newex 495 403 48 196617 r 1175path; -#P user umenu 78 142 72 196647 1 64 158 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1175path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 140 164 43 196617 p loader; -#P comment 52 143 26 196617 read; -#P comment 52 115 172 196617 needs two vectors (real/imaginary); -#P newex 58 402 61 196617 vasp.update; -#P message 58 358 135 196617 vasp bufrpeaks1 bufrpeaks2; -#P newex 58 379 52 196617 vasp.c!fft; -#P comment 180 285 43 196617 density; -#P newex 58 225 61 196617 vasp.update; -#P newex 58 322 61 196617 vasp.update; -#P flonum 133 283 45 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P message 58 259 135 196617 vasp bufrpeaks1 bufrpeaks2; -#P newex 58 302 85 196617 vasp.rpeaks 0.05; -#P message 264 450 27 196617 stop; -#P message 196 450 65 196617 startwindow; -#P newex 305 474 29 196617 dac~; -#P newex 305 423 30 196617 line~; -#P message 305 394 72 196617 0 \, 2000 2000; -#P newex 305 449 85 196617 play~ bufrpeaks1; -#P message 58 181 135 196617 vasp bufrpeaks1 bufrpeaks2; -#P newex 58 202 49 196617 vasp.cfft; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 305 72 49 196617 p wfkeys; -#P hidden message 305 242 75 196617 set bufrpeaks2; -#P user waveform~ 305 260 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 495 449 122 196617 buffer~ bufrpeaks2 2000; -#P hidden message 305 122 75 196617 set bufrpeaks1; -#P hidden newex 305 94 45 196617 loadbang; -#P user waveform~ 305 140 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 495 427 122 196617 buffer~ bufrpeaks1 2000; -#P comment 52 87 197 196617 argument/right inlet: peaks density (0-1); -#P comment 52 72 177 196617 find radius peaks of a complex vasp; -#P comment 52 48 108 196622 vasp.rpeaks; -#P comment 194 328 68 196617 current peaks; -#P connect 13 0 12 0; -#P connect 12 0 24 0; -#P connect 21 0 20 0; -#P connect 20 0 23 0; -#P connect 27 0 26 0; -#P connect 26 0 28 0; -#P connect 22 0 20 1; -#P connect 20 1 37 0; -#P hidden connect 32 1 31 0; -#P hidden fasten 6 0 7 0 310 103 310 103; -#P hidden fasten 4 1 7 0 612 446 636 446 636 118 310 118; -#P hidden connect 11 0 5 0; -#P hidden connect 7 0 5 0; -#P hidden fasten 6 0 10 0 310 103 310 103; -#P hidden fasten 8 1 10 0 612 468 636 468 636 255 310 255; -#P hidden connect 11 0 9 0; -#P hidden connect 10 0 9 0; -#P connect 15 0 16 0; -#P connect 16 0 14 0; -#P connect 14 0 17 0; -#P fasten 18 0 17 0 201 468 310 468; -#P fasten 19 0 17 0 269 468 310 468; -#P connect 14 0 17 1; -#P connect 35 0 34 0; -#P hidden connect 33 0 4 0; -#P hidden fasten 9 5 5 4 610 363 621 363 621 134 610 134; -#P hidden connect 5 5 9 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rpow.help b/externals/grill/vasp/max-help/vasp.rpow.help deleted file mode 100755 index 408a28ce..00000000 --- a/externals/grill/vasp/max-help/vasp.rpow.help +++ /dev/null @@ -1,171 +0,0 @@ -max v2; -#N vpatcher 172 126 831 625; -#P message 398 362 121 196617 vasp bufrpow1 bufrpow2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 398 417 78 196617 p clear_buffers; -#P hidden newex 506 373 48 196617 r 1145path; -#P user umenu 84 143 72 196647 1 64 159 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 373 689; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1145path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 146 165 43 196617 p loader; -#P comment 58 144 26 196617 read; -#P comment 51 65 49 196617 radius^x; -#P comment 51 110 172 196617 needs two vectors (real/imaginary); -#P newex 64 404 61 196617 vasp.update; -#P message 64 360 121 196617 vasp bufrpow1 bufrpow2; -#P newex 64 381 52 196617 vasp.c!fft; -#P comment 156 287 46 196617 exponent; -#P newex 64 227 61 196617 vasp.update; -#P newex 64 324 61 196617 vasp.update; -#P flonum 118 285 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P message 64 261 121 196617 vasp bufrpow1 bufrpow2; -#P newex 64 304 64 196617 vasp.rpow 2; -#P message 273 418 27 196617 stop; -#P message 205 418 65 196617 startwindow; -#P newex 314 442 29 196617 dac~; -#P newex 314 391 30 196617 line~; -#P message 314 362 72 196617 0 \, 2000 2000; -#P newex 314 417 79 196617 play~ bufrpow1; -#P message 64 183 121 196617 vasp bufrpow1 bufrpow2; -#P newex 64 204 49 196617 vasp.cfft; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 313 56 49 196617 p wfkeys; -#P hidden message 313 221 68 196617 set bufrpow2; -#P user waveform~ 313 239 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 506 417 115 196617 buffer~ bufrpow2 2000; -#P hidden message 313 101 68 196617 set bufrpow1; -#P hidden newex 313 78 45 196617 loadbang; -#P user waveform~ 313 119 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 506 394 115 196617 buffer~ bufrpow1 2000; -#P comment 51 95 152 196617 argument/right inlet: exponent; -#P comment 51 80 257 196617 power function for the radius values of a complex vasp; -#P comment 51 42 89 196622 vasp.rpow; -#P connect 12 0 11 0; -#P connect 11 0 23 0; -#P connect 20 0 19 0; -#P connect 19 0 22 0; -#P connect 26 0 25 0; -#P connect 25 0 27 0; -#P connect 21 0 19 1; -#P hidden connect 32 1 31 0; -#P hidden fasten 5 0 6 0 318 82 318 82; -#P hidden fasten 3 1 6 0 616 413 644 413 644 97 318 97; -#P hidden connect 10 0 4 0; -#P hidden connect 6 0 4 0; -#P hidden fasten 7 1 9 0 616 438 644 438 644 220 318 220; -#P hidden fasten 5 0 9 0 318 82 318 82; -#P hidden connect 9 0 8 0; -#P hidden connect 10 0 8 0; -#P connect 14 0 15 0; -#P connect 15 0 13 0; -#P fasten 17 0 16 0 210 436 319 436; -#P fasten 18 0 16 0 278 436 319 436; -#P connect 13 0 16 0; -#P connect 13 0 16 1; -#P connect 35 0 34 0; -#P hidden connect 33 0 3 0; -#P hidden fasten 8 5 4 4 618 342 629 342 629 113 618 113; -#P hidden connect 4 5 8 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rsub.help b/externals/grill/vasp/max-help/vasp.rsub.help deleted file mode 100755 index cdc8edab..00000000 --- a/externals/grill/vasp/max-help/vasp.rsub.help +++ /dev/null @@ -1,52 +0,0 @@ -max v2; -#N vpatcher 189 164 749 507; -#P message 357 275 54 196617 vasp buf!-; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 357 295 73 196617 p clear_buffer; -#P comment 49 91 205 196617 optional argument/right inlet: right operand; -#P comment 49 76 214 196617 subtracts a value or a vasp from a vasp; -#P comment 49 37 89 196622 vasp.!-; -#P message 52 136 54 196617 vasp buf!-; -#P newex 52 236 61 196617 vasp.update; -#P newex 52 213 58 196617 vasp.!- 0.2; -#P newex 52 168 80 196617 vasp.osc 44100; -#P newex 52 191 55 196617 vasp.* 0.5; -#P hidden message 214 136 45 196617 set buf!-; -#P hidden newex 214 115 45 196617 loadbang; -#P user waveform~ 214 156 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 432 295 94 196617 buffer~ buf!- 2000; -#P comment 49 60 100 196617 reverse subtraction; -#P connect 9 0 6 0; -#P connect 6 0 5 0; -#P connect 5 0 7 0; -#P connect 7 0 8 0; -#P hidden connect 3 0 4 0; -#P hidden connect 4 0 2 0; -#P connect 14 0 13 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.rvalleys.help b/externals/grill/vasp/max-help/vasp.rvalleys.help deleted file mode 100755 index 0c805c6f..00000000 --- a/externals/grill/vasp/max-help/vasp.rvalleys.help +++ /dev/null @@ -1,177 +0,0 @@ -max v2; -#N vpatcher 247 96 939 616; -#P newex 58 434 55 196617 vasp.* 0.5; -#P newex 58 411 45 196617 vasp.opt; -#P flonum 142 331 72 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 53 98 170 196617 right outlet: current density (0-1); -#P message 442 405 159 196617 vasp buffrvalleys1 buffrvalleys2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 442 460 78 196617 p clear_buffers; -#P hidden newex 521 415 48 196617 r 1173path; -#P user umenu 79 143 72 196647 1 64 159 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1173path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 141 165 43 196617 p loader; -#P flonum 181 285 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P comment 53 113 172 196617 needs two vectors (real/imaginary); -#P newex 58 459 61 196617 vasp.update; -#P message 58 363 159 196617 vasp buffrvalleys1 buffrvalleys2; -#P newex 58 384 52 196617 vasp.c!fft; -#P newex 58 230 61 196617 vasp.update; -#P newex 58 328 61 196617 vasp.update; -#P message 58 264 159 196617 vasp buffrvalleys1 buffrvalleys2; -#P newex 58 308 94 196617 vasp.rvalleys 0.05; -#P message 302 461 27 196617 stop; -#P message 234 461 65 196617 startwindow; -#P newex 343 485 29 196617 dac~; -#P newex 343 434 30 196617 line~; -#P message 343 405 72 196617 0 \, 2000 2000; -#P newex 343 460 98 196617 play~ buffrvalleys1; -#P message 58 186 159 196617 vasp buffrvalleys1 buffrvalleys2; -#P newex 58 207 49 196617 vasp.cfft; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 343 87 49 196617 p wfkeys; -#P hidden message 343 253 85 196617 set buffrvalleys2; -#P user waveform~ 343 271 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 521 460 134 196617 buffer~ buffrvalleys2 2000; -#P hidden message 343 133 85 196617 set buffrvalleys1; -#P hidden newex 343 109 45 196617 loadbang; -#P user waveform~ 343 151 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 521 440 134 196617 buffer~ buffrvalleys1 2000; -#P comment 53 82 170 196617 argument/right inlet: density (0-1); -#P comment 53 67 177 196617 find radius valleys of a complex vasp; -#P comment 53 44 138 196622 vasp.rvalleys; -#P comment 53 145 33 196617 read; -#P comment 217 333 78 196617 current density; -#P connect 14 0 13 0; -#P connect 13 0 24 0; -#P connect 22 0 21 0; -#P connect 21 0 23 0; -#P connect 26 0 25 0; -#P connect 25 0 37 0; -#P connect 37 0 38 0; -#P connect 38 0 27 0; -#P hidden connect 31 1 30 0; -#P fasten 29 0 21 1 186 304 147 304; -#P connect 21 1 36 0; -#P hidden fasten 7 0 8 0 348 114 348 114; -#P hidden fasten 5 1 8 0 650 459 674 459 674 129 348 129; -#P hidden connect 12 0 6 0; -#P hidden connect 8 0 6 0; -#P hidden fasten 7 0 11 0 348 114 348 114; -#P hidden fasten 9 1 11 0 650 480 674 480 674 251 348 251; -#P hidden connect 12 0 10 0; -#P hidden connect 11 0 10 0; -#P connect 16 0 17 0; -#P connect 17 0 15 0; -#P connect 15 0 18 0; -#P fasten 19 0 18 0 239 479 348 479; -#P fasten 20 0 18 0 307 479 348 479; -#P connect 15 0 18 1; -#P connect 34 0 33 0; -#P hidden connect 32 0 5 0; -#P hidden fasten 10 5 6 4 648 374 659 374 659 145 648 145; -#P hidden connect 6 5 10 4; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.set.help b/externals/grill/vasp/max-help/vasp.set.help deleted file mode 100755 index 7d3a4a3e..00000000 --- a/externals/grill/vasp/max-help/vasp.set.help +++ /dev/null @@ -1,326 +0,0 @@ -max v2; -#N vpatcher 241 84 852 554; -#P message 396 398 52 196617 vasp buf=; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 396 419 73 196617 p clear_buffer; -#N vpatcher 113 336 466 586; -#P newex 152 160 27 196617 t b f; -#P newex 67 98 27 196617 - 0.; -#P newex 67 76 27 196617 t b i; -#P comment 226 139 72 196617 msec to samps; -#P comment 107 80 118 196617 <<< end - start = length; -#P newex 152 137 71 196617 * 44.099998; -#P newex 67 137 67 196617 * 44.099998; -#P newex 67 190 50 196617 pack 0 0; -#N comlet endpoint in ms; -#P inlet 152 32 15 0; -#N comlet startpoint in ms; -#P inlet 67 32 15 0; -#N comlet length and offset in samples (list); -#P outlet 67 215 15 0; -#P comment 151 98 75 196617 start = offset; -#P connect 2 0 9 0; -#P connect 3 0 10 0; -#P connect 9 0 10 0; -#P connect 10 0 5 0; -#P fasten 11 0 4 0 157 180 72 180; -#P connect 5 0 4 0; -#P connect 4 0 1 0; -#P connect 9 1 10 1; -#P fasten 11 1 4 1 174 183 112 183; -#P connect 2 0 6 0; -#P connect 6 0 11 0; -#P pop; -#P newobj 362 281 115 196617 p loop_to_length/offset; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 261 89 49 196617 p wfkeys; -#P comment 114 298 136 196617 set selected samples to zero; -#P button 95 297 15 0; -#P newex 55 219 61 196617 vasp.update; -#P newex 55 193 55 196617 vasp.* 0.5; -#P message 362 327 99 196617 set vasp \$1 buf= \$2; -#P comment 114 147 70 196617 generate noise; -#N vpatcher 278 163 996 630; -#P user umenu 86 119 72 196647 1 64 135 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 355 682; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1077path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 148 140 43 196617 p loader; -#P message 504 394 85 196617 vasp buf=a buf=b; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 504 415 78 196617 p clear_buffers; -#P hidden newex 637 374 48 196617 r 1077path; -#P comment 59 121 26 196617 read; -#N vpatcher 113 336 466 586; -#N comlet length in ms out; -#P outlet 11 215 15 0; -#P newex 152 160 27 196617 t b f; -#P newex 67 98 27 196617 - 0.; -#P newex 67 76 27 196617 t b i; -#P comment 226 139 72 196617 msec to samps; -#P comment 107 80 118 196617 <<< end - start = length; -#P newex 152 137 71 196617 * 44.099998; -#P newex 67 137 67 196617 * 44.099998; -#P newex 67 190 50 196617 pack 0 0; -#N comlet endpoint in ms; -#P inlet 152 32 15 0; -#N comlet startpoint in ms; -#P inlet 67 32 15 0; -#N comlet length and offset in samples (list); -#P outlet 67 215 15 0; -#P comment 151 98 75 196617 start = offset; -#P connect 10 0 12 0; -#P connect 2 0 9 0; -#P connect 9 0 10 0; -#P connect 3 0 10 0; -#P connect 10 0 5 0; -#P connect 5 0 4 0; -#P fasten 11 0 4 0 157 180 72 180; -#P connect 4 0 1 0; -#P connect 9 1 10 1; -#P fasten 11 1 4 1 174 183 112 183; -#P connect 2 0 6 0; -#P connect 6 0 11 0; -#P pop; -#P newobj 214 233 115 196617 p loop_to_length/offset; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 375 51 49 196617 p wfkeys; -#P newex 73 289 27 196617 t f f; -#P message 593 376 41 196617 size \$1; -#P newex 73 323 74 196617 * 44.099998; -#P newex 73 264 27 196617 f; -#P button 73 200 15 0; -#P message 168 348 85 196617 vasp \$1 buf=a \$2; -#P message 73 349 72 196617 vasp \$1 buf=b; -#P newex 73 378 38 196617 vasp.=; -#P comment 359 235 14 196617 B; -#P newex 73 408 61 196617 vasp.update; -#P hidden message 375 214 50 196617 set buf=b; -#P user waveform~ 375 233 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P hidden message 375 92 50 196617 set buf=a; -#P hidden newex 375 71 45 196617 loadbang; -#P user waveform~ 374 112 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 593 394 95 196617 buffer~ buf=b 2000; -#P newex 593 414 95 196617 buffer~ buf=a 2000; -#P comment 359 114 14 196617 A; -#P comment 90 200 124 196617 copy selection from a to b; -#P comment 73 160 162 196617 choose a selection from buffer a; -#P comment 36 49 326 196622 use vasp.= to copy from buffer a to buffer b; -#P comment 358 363 100 196617 resize the buffer with selectionlength; -#P connect 17 0 18 0; -#P connect 18 0 21 0; -#P connect 21 0 19 0; -#P connect 19 0 15 0; -#P connect 15 0 14 0; -#P connect 14 0 12 0; -#P fasten 23 0 18 1 219 256 95 256; -#P fasten 16 0 14 1 173 371 106 371; -#P hidden connect 29 1 28 0; -#P fasten 23 1 16 0 324 283 173 283; -#P fasten 7 2 23 0 499 219 219 219; -#P fasten 7 3 23 1 559 225 324 225; -#P hidden connect 22 0 7 0; -#P hidden connect 9 0 7 0; -#P hidden fasten 5 1 9 0 683 434 694 434 694 88 380 88; -#P hidden connect 8 0 9 0; -#P hidden connect 8 0 11 0; -#P hidden connect 11 0 10 0; -#P hidden connect 22 0 10 0; -#P connect 27 0 26 0; -#P fasten 21 1 20 0 95 317 357 317 357 362 598 362; -#P fasten 20 0 6 0 598 389 598 389; -#P hidden connect 25 0 5 0; -#P pop; -#P newobj 55 419 85 196617 p more_examples; -#P message 55 146 52 196617 vasp buf=; -#P newex 55 167 55 196617 vasp.noise; -#P newex 55 378 61 196617 vasp.update; -#P message 55 272 52 196617 vasp buf=; -#P newex 55 354 45 196617 vasp.= 0; -#P comment 52 81 195 196617 optional argument/right inlet: value/vasp; -#P comment 52 66 102 196617 set a vasp to a value; -#P comment 52 43 89 196622 vasp.=; -#P hidden message 261 129 45 196617 set buf=; -#P hidden newex 261 109 45 196617 loadbang; -#P user waveform~ 261 148 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P comment 114 273 110 196617 set all samples to zero; -#P newex 481 419 92 196617 buffer~ buf= 2000; -#P comment 55 121 131 196617 use vasp.= to clear a buffer; -#P connect 13 0 12 0; -#P connect 12 0 17 0; -#P connect 17 0 18 0; -#P fasten 16 0 9 0 367 346 60 346; -#P fasten 19 0 9 0 100 346 60 346; -#P connect 10 0 9 0; -#P connect 9 0 11 0; -#P hidden connect 4 0 5 0; -#P hidden connect 21 0 3 0; -#P hidden connect 5 0 3 0; -#P fasten 3 2 22 0 386 264 367 264; -#P connect 22 0 16 0; -#P connect 24 0 23 0; -#P fasten 3 3 22 1 446 264 472 264; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.shift.help b/externals/grill/vasp/max-help/vasp.shift.help deleted file mode 100755 index 80acf8b4..00000000 --- a/externals/grill/vasp/max-help/vasp.shift.help +++ /dev/null @@ -1,92 +0,0 @@ -max v2; -#N vpatcher 179 197 765 568; -#P origin 0 20; -#P message 376 267 65 196617 vasp bufshift; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 376 287 73 196617 p clear_buffer; -#P hidden newex 456 257 48 196617 r 1124path; -#P user umenu 84 105 72 196647 1 64 121 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1124path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 146 127 43 196617 p loader; -#P comment 58 107 26 196617 read; -#P comment 55 71 187 196617 optional argument/right inlet: value; -#P message 207 288 27 196617 stop; -#P message 139 288 65 196617 startwindow; -#P newex 249 314 29 196617 dac~; -#P newex 249 262 30 196617 line~; -#P message 249 239 72 196617 0 \, 2000 2000; -#P newex 249 287 71 196617 play~ bufshift; -#P number 138 173 64 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 63 224 61 196617 vasp.update; -#P message 63 146 65 196617 vasp bufshift; -#P newex 63 196 85 196617 vasp.shift 10000; -#P comment 55 56 128 196617 shifts the buffer content; -#P comment 55 33 96 196622 vasp.shift; -#P hidden message 249 91 60 196617 set bufshift; -#P hidden newex 249 66 45 196617 loadbang; -#P user waveform~ 249 110 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 456 287 105 196617 buffer~ bufshift 2000; -#P connect 7 0 6 0; -#P connect 6 0 8 0; -#P connect 9 0 6 1; -#P hidden connect 19 1 18 0; -#P hidden fasten 0 1 3 0 556 307 565 307 565 87 254 87; -#P hidden connect 2 0 3 0; -#P hidden connect 3 0 1 0; -#P connect 11 0 12 0; -#P connect 12 0 10 0; -#P connect 10 0 13 0; -#P fasten 15 0 13 0 212 307 254 307; -#P fasten 14 0 13 0 144 307 254 307; -#P connect 10 0 13 1; -#P connect 22 0 21 0; -#P hidden connect 20 0 0 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.sign.help b/externals/grill/vasp/max-help/vasp.sign.help deleted file mode 100755 index 236417cf..00000000 --- a/externals/grill/vasp/max-help/vasp.sign.help +++ /dev/null @@ -1,94 +0,0 @@ -max v2; -#N vpatcher 228 161 880 523; -#P comment 58 96 192 196617 samples == 0 stay 0; -#P message 420 284 64 196617 vasp bufsign; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 420 305 73 196617 p clear_buffer; -#P comment 58 81 192 196617 samples < 0 become -1; -#P newex 60 195 61 196617 vasp.update; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 304 52 49 196617 p wfkeys; -#P newex 60 305 61 196617 vasp.update; -#P comment 58 236 256 196617 use sign to generate a square wave out of a sine wave; -#P message 60 257 64 196617 vasp bufsign; -#P newex 60 148 80 196617 vasp.osc 44100; -#P newex 60 282 50 196617 vasp.sign; -#P hidden message 304 90 55 196617 set bufsign; -#P hidden newex 304 71 45 196617 loadbang; -#P user waveform~ 304 109 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P message 60 127 64 196617 vasp bufsign; -#P newex 508 305 104 196617 buffer~ bufsign 2000; -#P comment 58 66 192 196617 samples > 0 become 1; -#P comment 58 43 109 196622 vasp.sign; -#P comment 135 128 100 196617 generate a sine wave; -#P connect 4 0 9 0; -#P connect 9 0 14 0; -#P connect 10 0 8 0; -#P connect 8 0 12 0; -#P hidden connect 6 0 7 0; -#P hidden connect 7 0 5 0; -#P hidden connect 13 0 5 0; -#P connect 17 0 16 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.spit.help b/externals/grill/vasp/max-help/vasp.spit.help deleted file mode 100755 index 17903423..00000000 --- a/externals/grill/vasp/max-help/vasp.spit.help +++ /dev/null @@ -1,42 +0,0 @@ -max v2; -#N vpatcher 250 84 747 648; -#P comment 158 430 219 196617 if more vectors than outlets \, see what it does!; -#P comment 194 307 245 196617 spits out one vector after the other from right to left; -#P newex 101 458 38 196617 print b; -#P newex 62 458 38 196617 print a; -#P message 62 399 149 196617 vasp bufspit1 bufspit2 bufspit3; -#P newex 62 428 88 196617 vasp.spit 2; -#P newex 140 458 59 196617 print ready; -#P newex 101 335 38 196617 print b; -#P newex 62 335 38 196617 print a; -#P newex 62 305 127 196617 vasp.spit 3; -#P message 62 271 109 196617 vasp bufspit1 bufspit2; -#P newex 140 335 38 196617 print c; -#P newex 179 335 59 196617 print ready; -#P newex 101 220 38 196617 print b; -#P newex 62 220 38 196617 print a; -#P comment 56 106 171 196617 most right outlet: bang when ready; -#P message 62 160 149 196617 vasp bufspit1 bufspit2 bufspit3; -#P newex 348 469 109 196617 buffer~ bufspit1 2000; -#P newex 62 190 49 196617 vasp.spit; -#P comment 56 76 260 196617 spit out vectors of a vasp (one vector after the other); -#P comment 56 53 89 196622 vasp.spit; -#P comment 56 91 344 196617 argument: number of outlets ( if more than 1 \, outputs from right to left ); -#P comment 119 192 235 196617 spits out one vector after the other out of 1 outlet; -#P message 187 271 149 196617 vasp bufspit1 bufspit2 bufspit3; -#P newex 348 490 109 196617 buffer~ bufspit2 2000; -#P newex 348 512 109 196617 buffer~ bufspit3 2000; -#P fasten 9 0 7 0 67 178 67 178; -#P connect 7 0 11 0; -#P connect 15 0 16 0; -#P fasten 2 0 16 0 192 293 67 293; -#P connect 16 0 17 0; -#P fasten 21 0 20 0 67 416 67 416; -#P connect 20 0 22 0; -#P connect 7 1 12 0; -#P fasten 16 1 18 0 106 328 106 328; -#P fasten 20 1 23 0 106 451 106 451; -#P connect 16 2 14 0; -#P connect 20 2 19 0; -#P connect 16 3 13 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.split.help b/externals/grill/vasp/max-help/vasp.split.help deleted file mode 100755 index 088f8aba..00000000 --- a/externals/grill/vasp/max-help/vasp.split.help +++ /dev/null @@ -1,31 +0,0 @@ -max v2; -#N vpatcher 217 175 685 652; -#P hidden message 386 189 22 196617 set; -#P hidden newex 386 160 45 196617 loadbang; -#P comment 56 100 374 196617 most right outlet: rest (if there is one) of vectors in a new vasp \, otherwise: bang; -#P message 190 153 158 196617 vasp bufsplit1 bufsplit2 bufsplit3; -#P newex 319 423 112 196617 buffer~ bufsplit3 2000; -#P newex 319 380 112 196617 buffer~ bufsplit1 2000; -#P newex 113 217 60 196617 prepend set; -#P message 113 241 208 196617; -#P message 63 339 258 196617; -#P newex 63 310 60 196617 prepend set; -#P newex 63 187 61 196617 vasp.split 2; -#P newex 63 278 58 196617 vasp.join 2; -#P comment 56 70 137 196617 split a vasp into its vectors; -#P message 63 153 119 196617 vasp bufsplit1 buffsplit2; -#P comment 56 47 89 196622 vasp.split; -#P comment 56 85 174 196617 argument: number of vectors to split; -#P newex 319 401 112 196617 buffer~ bufsplit2 2000; -#P connect 3 0 6 0; -#P fasten 13 0 6 0 195 175 68 175; -#P connect 6 0 5 0; -#P connect 5 0 7 0; -#P hidden fasten 16 0 8 0 391 332 68 332; -#P connect 7 0 8 0; -#P fasten 6 1 5 1 93 266 116 266; -#P connect 6 2 10 0; -#P connect 10 0 9 0; -#P hidden fasten 16 0 9 0 391 236 118 236; -#P hidden connect 15 0 16 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.sqr.help b/externals/grill/vasp/max-help/vasp.sqr.help deleted file mode 100755 index ecb11e25..00000000 --- a/externals/grill/vasp/max-help/vasp.sqr.help +++ /dev/null @@ -1,91 +0,0 @@ -max v2; -#N vpatcher 195 123 811 458; -#P message 407 267 61 196617 vasp bufsqr; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 407 288 73 196617 p clear_buffer; -#P newex 56 182 61 196617 vasp.update; -#P comment 53 70 66 196617 sample^2; -#P message 56 241 61 196617 vasp bufsqr; -#P newex 56 266 45 196617 vasp.sqr; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 277 67 49 196617 p wfkeys; -#P hidden message 277 109 54 196617 set bufsqr; -#P hidden newex 277 89 45 196617 loadbang; -#P user waveform~ 277 128 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 56 288 61 196617 vasp.update; -#P message 56 130 61 196617 vasp bufsqr; -#P newex 484 288 101 196617 buffer~ bufsqr 2000; -#P newex 56 160 80 196617 vasp.osc 44100; -#P comment 53 47 89 196622 vasp.sqr; -#P comment 126 130 123 196617 generate a 1Hz sine wave; -#P connect 4 0 2 0; -#P connect 2 0 13 0; -#P connect 11 0 10 0; -#P connect 10 0 5 0; -#P hidden connect 7 0 8 0; -#P hidden connect 9 0 6 0; -#P hidden connect 8 0 6 0; -#P connect 15 0 14 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.sqrt.help b/externals/grill/vasp/max-help/vasp.sqrt.help deleted file mode 100755 index 7df082a9..00000000 --- a/externals/grill/vasp/max-help/vasp.sqrt.help +++ /dev/null @@ -1,91 +0,0 @@ -max v2; -#N vpatcher 247 135 857 466; -#P message 398 255 65 196617 vasp bufsqrt; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 398 276 73 196617 p clear_buffer; -#P newex 54 165 61 196617 vasp.update; -#P comment 51 63 81 196617 square root; -#P message 54 225 65 196617 vasp bufsqrt; -#P newex 54 255 51 196617 vasp.sqrt; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 270 39 49 196617 p wfkeys; -#P hidden message 270 85 58 196617 set bufsqrt; -#P hidden newex 270 61 45 196617 loadbang; -#P user waveform~ 270 111 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 54 276 61 196617 vasp.update; -#P message 54 114 65 196617 vasp bufsqrt; -#P newex 476 276 105 196617 buffer~ bufsqrt 2000; -#P newex 54 144 80 196617 vasp.osc 44100; -#P comment 51 40 89 196622 vasp.sqrt; -#P comment 125 115 123 196617 generate a 1hz sine wave; -#P connect 4 0 2 0; -#P connect 2 0 13 0; -#P connect 11 0 10 0; -#P connect 10 0 5 0; -#P hidden connect 7 0 8 0; -#P hidden connect 9 0 6 0; -#P hidden connect 8 0 6 0; -#P connect 15 0 14 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.ssqr.help b/externals/grill/vasp/max-help/vasp.ssqr.help deleted file mode 100755 index 0dac0545..00000000 --- a/externals/grill/vasp/max-help/vasp.ssqr.help +++ /dev/null @@ -1,219 +0,0 @@ -max v2; -#N vpatcher 213 206 826 598; -#P message 398 317 65 196617 vasp bufssqr; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 398 338 73 196617 p clear_buffer; -#N vpatcher 339 132 955 467; -#P message 396 232 72 196617 vasp bufssqr1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 396 252 73 196617 p clear_buffer; -#P user umenu 73 100 72 196647 1 64 116 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1137path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 135 122 43 196617 p loader; -#P hidden newex 472 229 48 196617 r 1137path; -#P comment 45 102 26 196617 read; -#P newex 52 184 45 196617 vasp.opt; -#P message 120 252 27 196617 stop; -#P message 52 252 65 196617 startwindow; -#P newex 156 229 30 196617 line~; -#P message 156 203 72 196617 0 \, 8000 8000; -#P newex 156 276 29 196617 dac~; -#P newex 156 252 75 196617 play~ bufssqr1; -#P message 52 139 72 196617 vasp bufssqr1; -#P newex 52 162 52 196617 vasp.ssqr; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 275 46 49 196617 p wfkeys; -#P hidden message 275 93 65 196617 set bufssqr1; -#P hidden newex 275 68 45 196617 loadbang; -#P user waveform~ 275 119 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 52 206 61 196617 vasp.update; -#P newex 472 252 112 196617 buffer~ bufssqr1 8000; -#P comment 45 41 123 196622 listen to ssquare; -#P connect 8 0 7 0; -#P connect 7 0 15 0; -#P connect 15 0 2 0; -#P hidden connect 19 1 18 0; -#P connect 11 0 12 0; -#P connect 12 0 9 0; -#P connect 9 0 10 0; -#P fasten 14 0 10 0 125 271 161 271; -#P fasten 13 0 10 0 57 271 161 271; -#P connect 9 0 10 1; -#P hidden fasten 1 1 5 0 579 260 601 260 601 88 280 88; -#P hidden connect 4 0 5 0; -#P hidden connect 6 0 3 0; -#P hidden connect 5 0 3 0; -#P connect 21 0 20 0; -#P hidden connect 17 0 1 0; -#P pop; -#P newobj 41 338 95 196617 p listen_to_ssquare; -#P newex 41 177 61 196617 vasp.update; -#P comment 38 58 85 196617 signed sample^2; -#P message 41 238 65 196617 vasp bufssqr; -#P newex 41 266 52 196617 vasp.ssqr; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 268 53 49 196617 p wfkeys; -#P hidden message 268 99 59 196617 set bufssqr; -#P hidden newex 268 75 45 196617 loadbang; -#P user waveform~ 268 125 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 41 287 61 196617 vasp.update; -#P message 41 127 65 196617 vasp bufssqr; -#P newex 475 338 105 196617 buffer~ bufssqr 2000; -#P newex 41 156 80 196617 vasp.osc 44100; -#P comment 38 34 89 196622 vasp.ssqr; -#P comment 114 127 123 196617 generate a 1Hz sine wave; -#P connect 4 0 2 0; -#P connect 2 0 13 0; -#P connect 11 0 10 0; -#P connect 10 0 5 0; -#P hidden connect 7 0 8 0; -#P hidden connect 8 0 6 0; -#P hidden connect 9 0 6 0; -#P connect 16 0 15 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.ssqrt.help b/externals/grill/vasp/max-help/vasp.ssqrt.help deleted file mode 100755 index e2a84cab..00000000 --- a/externals/grill/vasp/max-help/vasp.ssqrt.help +++ /dev/null @@ -1,219 +0,0 @@ -max v2; -#N vpatcher 191 126 812 519; -#P message 404 321 70 196617 vasp bufssqrt; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 404 340 73 196617 p clear_buffer; -#N vpatcher 189 114 813 442; -#P user umenu 74 100 72 196647 1 64 116 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1139path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 136 122 43 196617 p loader; -#P message 392 233 75 196617 vasp bufssqrt1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 392 252 73 196617 p clear_buffer; -#P hidden newex 472 232 48 196617 r 1139path; -#P comment 46 102 26 196617 read; -#P newex 52 184 45 196617 vasp.opt; -#P message 120 252 27 196617 stop; -#P message 52 252 65 196617 startwindow; -#P newex 156 229 30 196617 line~; -#P message 156 203 72 196617 0 \, 8000 8000; -#P newex 156 276 29 196617 dac~; -#P newex 156 252 80 196617 play~ bufssqrt1; -#P message 52 139 75 196617 vasp bufssqrt1; -#P newex 52 162 55 196617 vasp.ssqrt; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 275 46 49 196617 p wfkeys; -#P hidden message 275 93 69 196617 set bufssqrt1; -#P hidden newex 275 68 45 196617 loadbang; -#P user waveform~ 275 119 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 52 206 61 196617 vasp.update; -#P newex 472 252 115 196617 buffer~ bufssqrt1 8000; -#P comment 45 41 161 196622 listen to ssquare root; -#P connect 8 0 7 0; -#P connect 7 0 15 0; -#P connect 15 0 2 0; -#P hidden connect 21 1 20 0; -#P connect 11 0 12 0; -#P connect 12 0 9 0; -#P fasten 14 0 10 0 125 271 161 271; -#P fasten 13 0 10 0 57 271 161 271; -#P connect 9 0 10 0; -#P connect 9 0 10 1; -#P hidden connect 4 0 5 0; -#P hidden fasten 1 1 5 0 582 273 601 273 601 88 280 88; -#P hidden connect 6 0 3 0; -#P hidden connect 5 0 3 0; -#P connect 19 0 18 0; -#P hidden connect 17 0 1 0; -#P pop; -#P newobj 52 340 122 196617 p listen_to_ssquare_root; -#P newex 52 188 61 196617 vasp.update; -#P comment 49 67 90 196617 signed square root; -#P message 52 248 70 196617 vasp bufssqrt; -#P newex 52 278 55 196617 vasp.ssqrt; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 279 63 49 196617 p wfkeys; -#P hidden message 279 109 63 196617 set bufssqrt; -#P hidden newex 279 85 45 196617 loadbang; -#P user waveform~ 279 135 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 52 298 61 196617 vasp.update; -#P message 52 137 70 196617 vasp bufssqrt; -#P newex 480 340 110 196617 buffer~ bufssqrt 2000; -#P newex 52 167 80 196617 vasp.osc 44100; -#P comment 49 44 89 196622 vasp.ssqrt; -#P comment 129 138 123 196617 generate a 1hz sine wave; -#P connect 4 0 2 0; -#P connect 2 0 13 0; -#P connect 11 0 10 0; -#P connect 10 0 5 0; -#P hidden connect 7 0 8 0; -#P hidden connect 8 0 6 0; -#P hidden connect 9 0 6 0; -#P connect 16 0 15 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.sub.help b/externals/grill/vasp/max-help/vasp.sub.help deleted file mode 100755 index fbf4b8ae..00000000 --- a/externals/grill/vasp/max-help/vasp.sub.help +++ /dev/null @@ -1,67 +0,0 @@ -max v2; -#N vpatcher 124 137 939 471; -#P message 594 264 51 196617 vasp buf-; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 594 285 73 196617 p clear_buffer; -#P comment 350 214 101 196617 shift all values - 0.5; -#P comment 136 213 131 196617 shift all values + 0.5; -#P comment 138 190 132 196617 half the amplitude; -#P comment 285 84 205 196617 optional argument/right inlet: right operand; -#P comment 285 67 195 196617 subtracts a value or a vasp from a vasp; -#P comment 285 43 89 196622 vasp.-; -#P message 288 134 51 196617 vasp buf-; -#P newex 288 234 61 196617 vasp.update; -#P newex 288 211 55 196617 vasp.- 0.5; -#P newex 288 166 80 196617 vasp.osc 44100; -#P newex 288 188 55 196617 vasp.* 0.5; -#P message 54 134 51 196617 vasp buf-; -#P newex 54 234 61 196617 vasp.update; -#P newex 54 211 55 196617 vasp.+ 0.5; -#P newex 54 166 80 196617 vasp.osc 44100; -#P hidden message 450 134 44 196617 set buf-; -#P hidden newex 450 113 45 196617 loadbang; -#P user waveform~ 450 154 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 671 284 91 196617 buffer~ buf- 2000; -#P newex 54 188 55 196617 vasp.* 0.5; -#P comment 52 84 205 196617 optional argument/right inlet: right operand; -#P comment 52 67 168 196617 adds a value or a vasp to a vasp; -#P comment 52 43 89 196622 vasp.+; -#P comment 139 169 132 196617 generate a 1Hz sine wave; -#P connect 12 0 9 0; -#P connect 9 0 4 0; -#P connect 4 0 10 0; -#P connect 10 0 11 0; -#P connect 17 0 14 0; -#P connect 14 0 13 0; -#P connect 13 0 15 0; -#P connect 15 0 16 0; -#P hidden connect 7 0 8 0; -#P hidden connect 8 0 6 0; -#P connect 25 0 24 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.sync.help b/externals/grill/vasp/max-help/vasp.sync.help deleted file mode 100755 index 8ae0c72a..00000000 --- a/externals/grill/vasp/max-help/vasp.sync.help +++ /dev/null @@ -1,164 +0,0 @@ -max v2; -#N vpatcher 185 136 861 638; -#P origin 0 41; -#P message 406 413 115 196617 vasp bufsync1 bufsync2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 406 433 78 196617 p clear_buffers; -#P hidden newex 526 379 48 196617 r 1044path; -#P user umenu 86 140 72 196647 1 64 156 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1044path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 148 162 43 196617 p loader; -#P comment 60 142 26 196617 read; -#P comment 60 82 188 196617 argument: number of vasps to be synced; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 327 78 49 196617 p wfkeys; -#P newex 67 350 61 196617 vasp.update; -#P message 67 186 115 196617 vasp bufsync1 bufsync2; -#P newex 526 433 113 196617 buffer~ bufsync2 2000; -#P hidden message 327 241 65 196617 set bufsync2; -#P user waveform~ 327 259 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P hidden message 327 123 65 196617 set bufsync1; -#P hidden newex 327 101 45 196617 loadbang; -#P user waveform~ 327 140 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 526 412 113 196617 buffer~ bufsync1 2000; -#P comment 60 44 89 196622 vasp.sync; -#P newex 67 324 52 196617 vasp.c!fft; -#P newex 67 299 62 196617 vasp.sync 2; -#P newex 119 271 45 196617 vasp.= 0; -#P newex 67 218 49 196617 vasp.cfft; -#P newex 119 249 55 196617 vasp.upper; -#P comment 60 67 124 196617 syncs two or more vasps; -#P comment 135 301 167 196617 puts out vasp (from left inlet) after receiving a vasp into right inlet; -#P newex 327 433 75 196617 play~ bufsync1; -#P message 327 384 72 196617 0 \, 2000 2000; -#P newex 327 408 30 196617 line~; -#P newex 327 460 29 196617 dac~; -#P message 218 434 65 196617 startwindow; -#P message 286 434 27 196617 stop; -#P connect 21 0 9 0; -#P connect 9 0 11 0; -#P connect 11 0 12 0; -#P connect 12 0 22 0; -#P fasten 9 0 8 0 72 242 124 242; -#P connect 8 0 10 0; -#P connect 10 0 11 1; -#P hidden connect 27 1 26 0; -#P hidden connect 16 0 17 0; -#P hidden fasten 14 1 17 0 634 430 642 430 642 116 332 116; -#P hidden connect 23 0 15 0; -#P hidden connect 17 0 15 0; -#P hidden connect 16 0 19 0; -#P hidden connect 23 0 18 0; -#P hidden connect 19 0 18 0; -#P connect 4 0 3 0; -#P connect 3 0 5 0; -#P fasten 0 0 2 0 291 453 332 453; -#P fasten 1 0 2 0 223 453 332 453; -#P connect 5 0 2 0; -#P connect 5 0 2 1; -#P connect 30 0 29 0; -#P hidden connect 28 0 14 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.tilt.help b/externals/grill/vasp/max-help/vasp.tilt.help deleted file mode 100755 index 277dded2..00000000 --- a/externals/grill/vasp/max-help/vasp.tilt.help +++ /dev/null @@ -1,89 +0,0 @@ -max v2; -#N vpatcher 260 180 873 549; -#P hidden newex 491 280 48 196617 r 1168path; -#P message 415 282 60 196617 vasp buftilt; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 415 302 73 196617 p clear_buffer; -#P user umenu 60 118 72 196647 1 64 134 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1168path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 122 140 43 196617 p loader; -#P message 237 302 27 196617 stop; -#P message 169 302 65 196617 startwindow; -#P newex 278 329 29 196617 dac~; -#P newex 278 277 30 196617 line~; -#P message 278 254 72 196617 0 \, 4000 4000; -#P newex 278 302 64 196617 play~ buftilt; -#P newex 60 211 61 196617 vasp.update; -#P message 60 158 60 196617 vasp buftilt; -#P newex 60 189 64 196617 vasp.tilt 0.5; -#P comment 55 70 138 196617 resamples the buffer content; -#P comment 55 47 96 196622 vasp.tilt; -#P hidden message 278 110 53 196617 set buftilt; -#P hidden newex 278 85 45 196617 loadbang; -#P user waveform~ 278 129 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 491 302 100 196617 buffer~ buftilt 4000; -#P comment 55 85 194 196617 argument/right inlet: resampling factor; -#P comment 127 191 100 196617 pitch down an octave; -#P connect 9 0 8 0; -#P connect 8 0 10 0; -#P hidden connect 18 1 17 0; -#P hidden fasten 2 1 5 0 586 323 594 323 594 102 283 102; -#P hidden connect 4 0 5 0; -#P hidden connect 5 0 3 0; -#P connect 12 0 13 0; -#P connect 13 0 11 0; -#P connect 11 0 14 0; -#P fasten 15 0 14 0 174 322 283 322; -#P fasten 16 0 14 0 242 322 283 322; -#P connect 11 0 14 1; -#P connect 20 0 19 0; -#P hidden connect 21 0 2 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.update.help b/externals/grill/vasp/max-help/vasp.update.help deleted file mode 100755 index 481c7347..00000000 --- a/externals/grill/vasp/max-help/vasp.update.help +++ /dev/null @@ -1,41 +0,0 @@ -max v2; -#N vpatcher 209 155 868 527; -#P message 62 292 55 196617 vasp bufup; -#P newex 62 313 45 196617 vasp.= 0; -#P comment 127 231 99 196617 update the graphics; -#P newex 62 229 61 196617 vasp.update; -#P comment 127 126 99 196617 generate a sine wave; -#P message 62 125 55 196617 vasp bufup; -#P newex 62 185 80 196617 vasp.osc 22050; -#P comment 57 69 230 196617 updates the graphics of a patcher (e.g. waveform); -#P comment 57 46 96 196622 vasp.update; -#P hidden message 308 104 49 196617 set bufup; -#P hidden newex 308 84 45 196617 loadbang; -#P user waveform~ 308 123 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 525 323 95 196617 buffer~ bufup 2000; -#P comment 125 293 271 196617 use vasp.update at the end of a chain of vasp operations \, although most vasp objects are updating automatically; -#P connect 8 0 7 0; -#P connect 7 0 10 0; -#P connect 13 0 12 0; -#P hidden connect 3 0 4 0; -#P hidden connect 4 0 2 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.valleys.help b/externals/grill/vasp/max-help/vasp.valleys.help deleted file mode 100755 index 9752bbc1..00000000 --- a/externals/grill/vasp/max-help/vasp.valleys.help +++ /dev/null @@ -1,174 +0,0 @@ -max v2; -#N vpatcher 219 119 883 614; -#P message 435 404 95 196617 vasp bufval bufval1; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 435 425 78 196617 p clear_buffers; -#P hidden newex 532 382 48 196617 r 1162path; -#P user umenu 77 128 72 196647 1 64 144 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1162path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 139 150 43 196617 p loader; -#P comment 51 93 160 196617 outlet: current density value 0-1; -#P comment 181 294 115 196617 = number of valleys; -#P number 143 292 35 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P flonum 143 240 71 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 143 264 51 196617 * 88200.; -#P comment 215 242 100 196617 current density; -#P comment 198 266 100 196617 * lenght of the vasp; -#P newex 58 235 61 196617 vasp.update; -#P comment 592 237 44 196617 valleys; -#P comment 132 174 161 196617 copy to new buffer \, find valleys; -#P message 53 345 65 196617 vasp bufval1; -#P newex 53 373 45 196617 vasp.opt; -#P hidden message 325 234 59 196617 set bufval1; -#P user waveform~ 325 252 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 532 425 105 196617 buffer~ bufval1 2000; -#P comment 51 79 188 196617 argument/right inlet: density value 0-1; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 2 0 6 0 275 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 5 0 6 0 52 243 134 243; -#P connect 11 0 14 0; -#P connect 14 0 8 0; -#P connect 3 3 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 13 0 1 0; -#P connect 9 0 1 0; -#P connect 4 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 325 67 49 196617 p wfkeys; -#P message 284 425 27 196617 stop; -#P message 215 425 65 196617 startwindow; -#P newex 325 451 29 196617 dac~; -#P newex 325 404 30 196617 line~; -#P message 325 381 72 196617 0 \, 2000 2000; -#P newex 325 425 70 196617 play~ bufval1; -#P hidden message 325 113 53 196617 set bufval; -#P hidden newex 325 89 45 196617 loadbang; -#P user waveform~ 325 133 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 58 214 95 196617 vasp.valleys 0.001; -#P newex 53 394 61 196617 vasp.update; -#P message 58 173 65 196617 vasp bufval1; -#P newex 532 404 105 196617 buffer~ bufval 2000; -#P newex 58 194 69 196617 vasp.= bufval; -#P comment 51 64 215 196617 find the local minima of the buffer samples; -#P comment 51 41 107 196622 vasp.valleys; -#P comment 127 346 111 196617 optimize buffer content; -#P comment 594 118 44 196617 source; -#P comment 51 129 32 196617 read; -#P connect 25 0 24 0; -#P connect 24 0 8 0; -#P connect 7 0 5 0; -#P connect 5 0 9 0; -#P connect 9 0 28 0; -#P hidden connect 37 1 36 0; -#P connect 9 1 32 0; -#P connect 32 0 31 0; -#P connect 31 0 33 0; -#P hidden connect 11 0 12 0; -#P hidden fasten 6 1 12 0 632 421 642 421 642 109 330 109; -#P hidden connect 19 0 10 0; -#P hidden connect 12 0 10 0; -#P hidden connect 11 0 23 0; -#P hidden connect 19 0 22 0; -#P hidden connect 23 0 22 0; -#P connect 14 0 15 0; -#P connect 15 0 13 0; -#P connect 13 0 16 0; -#P fasten 17 0 16 0 220 444 330 444; -#P fasten 18 0 16 0 289 444 330 444; -#P connect 13 0 16 1; -#P connect 40 0 39 0; -#P hidden connect 38 0 6 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.vector.help b/externals/grill/vasp/max-help/vasp.vector.help deleted file mode 100755 index 0af86d39..00000000 --- a/externals/grill/vasp/max-help/vasp.vector.help +++ /dev/null @@ -1,175 +0,0 @@ -max v2; -#N vpatcher 282 124 678 511; -#P hidden message 324 118 22 196617 set; -#P hidden newex 324 92 45 196617 loadbang; -#N vpatcher 116 168 848 567; -#P message 515 334 85 196617 vasp bufn1 bufn2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 515 355 73 196617 p clear_buffer; -#P hidden newex 707 332 48 196617 r 1048path; -#P user umenu 88 71 72 196647 1 64 87 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1048path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 150 93 43 196617 p loader; -#P newex 58 158 61 196617 vasp.update; -#P comment 155 190 157 196617 clear imaginary part of soundfile (vector with index 1); -#P message 58 191 85 196617 vasp bufn1 bufn2; -#P newex 58 238 45 196617 vasp.= 0; -#P newex 58 213 45 196617 vasp.n 1; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 389 41 49 196617 p wfkeys; -#P comment 574 212 127 196617 imaginary part of soundfile; -#P message 58 115 85 196617 vasp bufn1 bufn2; -#P hidden message 389 206 50 196617 set bufn2; -#P user waveform~ 389 227 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 606 355 95 196617 buffer~ bufn2 2000; -#P hidden message 390 82 50 196617 set bufn1; -#P hidden newex 389 60 45 196617 loadbang; -#P user waveform~ 389 100 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 58 285 61 196617 vasp.update; -#P newex 606 334 95 196617 buffer~ bufn1 2000; -#P newex 58 137 49 196617 vasp.cfft; -#P comment 155 116 197 196617 transform into real and imaginary part; -#P comment 581 84 119 196617 real part of the soundfile; -#P comment 58 73 29 196617 read; -#P connect 12 0 3 0; -#P connect 3 0 19 0; -#P connect 17 0 15 0; -#P connect 15 0 16 0; -#P connect 16 0 5 0; -#P hidden connect 21 1 20 0; -#P hidden connect 14 0 6 0; -#P hidden connect 8 0 6 0; -#P hidden fasten 7 0 11 0 394 70 394 70; -#P hidden fasten 11 0 10 0 394 222 394 222; -#P hidden connect 14 0 10 0; -#P hidden fasten 4 1 8 0 696 352 707 352 707 71 395 71; -#P hidden connect 7 0 8 0; -#P connect 24 0 23 0; -#P hidden connect 22 0 4 0; -#P pop; -#P newobj 57 325 85 196617 p more_examples; -#P message 57 143 85 196617 vasp bufn1 bufn2; -#P newex 57 219 45 196617 vasp.n 0; -#P newex 220 219 45 196617 vasp.n 1; -#P comment 269 220 53 196617 vector 1; -#P message 220 271 130 196617; -#P newex 220 241 60 196617 prepend set; -#P comment 105 220 53 196617 vector 0; -#P message 57 271 130 196617; -#P newex 57 241 60 196617 prepend set; -#P comment 52 70 168 196617 get one vector of a vasp; -#P comment 52 48 89 196622 vasp.n; -#P comment 52 88 183 196617 argument/right inlet: index of vector; -#P connect 11 0 10 0; -#P connect 10 0 3 0; -#P hidden fasten 14 0 4 0 329 267 62 267; -#P connect 3 0 4 0; -#P fasten 11 0 9 0 62 187 225 187; -#P connect 9 0 6 0; -#P connect 6 0 7 0; -#P hidden fasten 14 0 7 0 329 268 225 268; -#P hidden connect 13 0 14 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.vectors.help b/externals/grill/vasp/max-help/vasp.vectors.help deleted file mode 100755 index 9d8774b1..00000000 --- a/externals/grill/vasp/max-help/vasp.vectors.help +++ /dev/null @@ -1,12 +0,0 @@ -max v2; -#N vpatcher 257 69 578 345; -#P number 57 218 35 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P message 57 112 63 196617 vasp bufn?1; -#P message 127 112 131 196617 vasp bufn?1 bufn?2 bufn?3; -#P newex 57 169 43 196617 vasp.n?; -#P comment 52 66 168 196617 get the number of vectors of a vasp; -#P comment 52 44 89 196622 vasp.n?; -#P fasten 3 0 2 0 132 140 62 140; -#P connect 4 0 2 0; -#P connect 2 0 5 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.xmirr.help b/externals/grill/vasp/max-help/vasp.xmirr.help deleted file mode 100755 index 34d30a42..00000000 --- a/externals/grill/vasp/max-help/vasp.xmirr.help +++ /dev/null @@ -1,169 +0,0 @@ -max v2; -#N vpatcher 157 154 838 677; -#P message 395 430 129 196617 vasp bufxmirr1 bufxmirr2; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 395 450 78 196617 p clear_buffers; -#P hidden newex 530 406 48 196617 r 1129path; -#P user umenu 80 101 72 196647 1 64 117 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1129path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 5 0 2 0; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 142 123 43 196617 p loader; -#P comment 54 103 26 196617 read; -#N vpatcher 40 55 418 371; -#P button 183 82 15 0; -#P newex 129 145 60 196617 prepend set; -#N comlet waveform~ mode messages; -#P inlet 129 121 15 0; -#P newex 259 64 27 196617 << 1; -#P newex 206 121 40 196617 change; -#P newex 206 145 107 196617 select 0 1 2; -#P newex 206 98 27 196617 |; -#P newex 47 121 40 196617 change; -#P outlet 129 252 15 0; -#P message 47 145 65 196617 constrain \$1; -#P newex 129 195 45 196617 loadbang; -#P newex 47 40 222 196617 pushkeys; -#P message 270 169 58 196617 mode move; -#P message 206 213 61 196617 mode select; -#P message 238 191 52 196617 mode loop; -#P connect 3 0 7 0; -#P connect 7 0 5 0; -#P connect 12 0 13 0; -#P fasten 5 0 6 0 52 243 134 243; -#P fasten 0 0 6 0 243 243 134 243; -#P fasten 1 0 6 0 211 243 134 243; -#P fasten 2 0 6 0 275 243 134 243; -#P connect 11 0 14 0; -#P connect 3 3 8 0; -#P connect 14 0 8 0; -#P connect 8 0 10 0; -#P connect 10 0 9 0; -#P connect 4 0 1 0; -#P connect 9 0 1 0; -#P connect 13 0 1 0; -#P connect 11 0 8 1; -#P connect 9 1 0 0; -#P connect 3 4 11 0; -#P connect 9 2 2 0; -#P pop; -#P hidden newobj 337 77 49 196617 p wfkeys; -#P newex 59 443 61 196617 vasp.update; -#P newex 59 364 61 196617 vasp.update; -#P newex 58 286 61 196617 vasp.update; -#P newex 57 183 61 196617 vasp.update; -#P newex 58 264 45 196617 vasp.= 0; -#P message 58 221 129 196617 vasp bufxmirr1 bufxmirr2; -#P newex 58 241 55 196617 vasp.upper; -#P message 276 451 27 196617 stop; -#P message 208 451 65 196617 startwindow; -#P newex 307 477 29 196617 dac~; -#P newex 307 420 30 196617 line~; -#P message 307 397 72 196617 0 \, 2000 2000; -#P newex 307 450 83 196617 play~ bufxmirr1; -#P message 59 399 129 196617 vasp bufxmirr1 bufxmirr2; -#P newex 59 421 49 196617 vasp.cfft; -#P message 59 320 129 196617 vasp bufxmirr1 bufxmirr2; -#P newex 59 342 59 196617 vasp.xmirr; -#P message 57 140 129 196617 vasp bufxmirr1 bufxmirr2; -#P newex 57 162 49 196617 vasp.cfft; -#P hidden message 337 243 72 196617 set bufxmirr2; -#P user waveform~ 337 262 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P hidden message 337 121 72 196617 set bufxmirr1; -#P hidden newex 337 97 45 196617 loadbang; -#P user waveform~ 337 140 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 530 428 119 196617 buffer~ bufxmirr1 2000; -#P comment 51 67 156 196617 mirrors a vasp symmetrically; -#P comment 51 43 96 196622 vasp.xmirr; -#P newex 530 450 119 196617 buffer~ bufxmirr2 2000; -#P connect 10 0 9 0; -#P connect 9 0 24 0; -#P connect 22 0 21 0; -#P connect 21 0 23 0; -#P connect 23 0 25 0; -#P connect 12 0 11 0; -#P connect 11 0 26 0; -#P connect 14 0 13 0; -#P connect 13 0 27 0; -#P hidden connect 31 1 30 0; -#P connect 16 0 17 0; -#P connect 17 0 15 0; -#P fasten 19 0 18 0 213 470 312 470; -#P fasten 20 0 18 0 281 470 312 470; -#P connect 15 0 18 0; -#P connect 15 0 18 1; -#P hidden connect 5 0 6 0; -#P hidden fasten 3 1 6 0 644 448 660 448 660 117 342 117; -#P hidden connect 28 0 4 0; -#P hidden connect 6 0 4 0; -#P hidden connect 5 0 8 0; -#P hidden connect 8 0 7 0; -#P hidden connect 28 0 7 0; -#P connect 34 0 33 0; -#P hidden connect 32 0 3 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.xrot.help b/externals/grill/vasp/max-help/vasp.xrot.help deleted file mode 100755 index e3f887e9..00000000 --- a/externals/grill/vasp/max-help/vasp.xrot.help +++ /dev/null @@ -1,91 +0,0 @@ -max v2; -#N vpatcher 441 216 1022 579; -#P message 367 275 65 196617 vasp bufxrot; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 367 295 73 196617 p clear_buffer; -#P hidden newex 449 275 48 196617 r 1127path; -#P user umenu 76 121 72 196647 1 64 137 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1127path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 138 143 43 196617 p loader; -#P comment 51 82 187 196617 optional argument/right inlet: value; -#P message 201 295 27 196617 stop; -#P message 133 295 65 196617 startwindow; -#P newex 242 321 29 196617 dac~; -#P newex 242 275 30 196617 line~; -#P message 242 246 72 196617 0 \, 2000 2000; -#P newex 242 295 70 196617 play~ bufxrot; -#P number 131 179 64 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 56 228 61 196617 vasp.update; -#P message 56 150 65 196617 vasp bufxrot; -#P newex 56 200 85 196617 vasp.xrot 10000; -#P comment 51 67 179 196617 rotate buffer content symmetrically; -#P comment 51 43 96 196622 vasp.xrot; -#P hidden message 242 98 59 196617 set bufxrot; -#P hidden newex 242 73 45 196617 loadbang; -#P user waveform~ 242 117 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 449 295 105 196617 buffer~ bufxrot 2000; -#P comment 51 122 29 196617 read; -#P connect 8 0 7 0; -#P connect 7 0 9 0; -#P connect 10 0 7 1; -#P hidden connect 19 1 18 0; -#P hidden fasten 1 1 4 0 549 316 558 316 558 94 247 94; -#P hidden connect 3 0 4 0; -#P hidden connect 4 0 2 0; -#P connect 12 0 13 0; -#P connect 13 0 11 0; -#P connect 11 0 14 0; -#P fasten 15 0 14 0 138 314 247 314; -#P fasten 16 0 14 0 206 314 247 314; -#P connect 11 0 14 1; -#P connect 22 0 21 0; -#P hidden connect 20 0 1 0; -#P pop; diff --git a/externals/grill/vasp/max-help/vasp.xshift.help b/externals/grill/vasp/max-help/vasp.xshift.help deleted file mode 100755 index 68cbfa5d..00000000 --- a/externals/grill/vasp/max-help/vasp.xshift.help +++ /dev/null @@ -1,91 +0,0 @@ -max v2; -#N vpatcher 220 165 835 542; -#P message 383 278 73 196617 vasp bufxshift; -#N vpatcher 40 55 218 175; -#P newex 45 79 61 196617 vasp.update; -#P newex 45 56 45 196617 vasp.= 0; -#N comlet vasp to clear in; -#P inlet 45 26 15 0; -#P connect 0 0 1 0; -#P connect 1 0 2 0; -#P pop; -#P newobj 383 298 73 196617 p clear_buffer; -#P hidden newex 463 269 48 196617 r 1125path; -#P user umenu 89 116 72 196647 1 64 132 1; -#X add bass.aif; -#X add beat.aif; -#X add fly.aif; -#X add plastic.aif; -#X add your_own...; -#N vpatcher 93 462 631 722; -#P message 59 102 28 196617 read; -#P newex 59 69 89 196617 route your_own...; -#N comlet popup comment in; -#P inlet 59 26 15 0; -#P newex 59 149 48 196617 s 1125path; -#P newex 138 102 79 196617 sprintf read %s; -#P user umenu 48 169 100 196647 1 64 185 1; -#X add drums.aif; -#X add voice.aif; -#X add test.aif; -#X add read a soundfile; -#P connect 3 0 4 0; -#P connect 4 0 5 0; -#P connect 5 0 2 0; -#P fasten 1 0 2 0 143 134 64 134; -#P connect 4 1 1 0; -#P pop; -#P hidden newobj 151 138 43 196617 p loader; -#P comment 63 118 26 196617 read; -#P comment 61 86 187 196617 optional argument/right inlet: value; -#P message 223 299 27 196617 stop; -#P message 155 299 65 196617 startwindow; -#P newex 264 325 29 196617 dac~; -#P newex 264 273 30 196617 line~; -#P message 264 250 72 196617 0 \, 2000 2000; -#P newex 264 298 75 196617 play~ bufxshift; -#P number 148 181 64 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; -#P newex 66 233 61 196617 vasp.update; -#P message 66 155 73 196617 vasp bufxshift; -#P newex 66 205 92 196617 vasp.xshift 11000; -#P comment 61 48 96 196622 vasp.xshift; -#P hidden message 264 102 65 196617 set bufxshift; -#P hidden newex 264 77 45 196617 loadbang; -#P user waveform~ 264 121 312 99 3 9; -#W mode select; -#W mouseoutput continuous; -#W unit ms; -#W grid 1000.; -#W ticks 8.; -#W labels 1; -#W vlabels 1; -#W vticks 1; -#W vzoom 1.; -#W voffset 0.; -#W bpm 120. 4.; -#W frgb 0 0 0; -#W brgb 255 255 255; -#W rgb2 132 132 132; -#W rgb3 0 0 0; -#W rgb4 0 0 0; -#W rgb5 255 255 255; -#W rgb6 100 100 100; -#W rgb7 100 100 100; -#P newex 463 298 113 196617 buffer~ bufxshift 2000; -#P comment 61 71 187 196617 shifts buffer content symmetrically; -#P connect 7 0 6 0; -#P connect 6 0 8 0; -#P connect 9 0 6 1; -#P hidden connect 19 1 18 0; -#P hidden fasten 1 1 4 0 571 319 580 319 580 98 269 98; -#P hidden connect 3 0 4 0; -#P hidden connect 4 0 2 0; -#P connect 11 0 12 0; -#P connect 12 0 10 0; -#P connect 10 0 13 0; -#P fasten 14 0 13 0 160 318 269 318; -#P fasten 15 0 13 0 228 318 269 318; -#P connect 10 0 13 1; -#P connect 22 0 21 0; -#P hidden connect 20 0 1 0; -#P pop; diff --git a/externals/grill/vasp/max/rndup2 b/externals/grill/vasp/max/rndup2 Binary files differdeleted file mode 100755 index 694fbbf5..00000000 --- a/externals/grill/vasp/max/rndup2 +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.cconj b/externals/grill/vasp/max/vasp.cconj Binary files differdeleted file mode 100755 index be241dbb..00000000 --- a/externals/grill/vasp/max/vasp.cconj +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.cconv b/externals/grill/vasp/max/vasp.cconv Binary files differdeleted file mode 100755 index 7fcfa76f..00000000 --- a/externals/grill/vasp/max/vasp.cconv +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.conv b/externals/grill/vasp/max/vasp.conv Binary files differdeleted file mode 100755 index 5a2ed9be..00000000 --- a/externals/grill/vasp/max/vasp.conv +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.defer b/externals/grill/vasp/max/vasp.defer Binary files differdeleted file mode 100755 index 30975436..00000000 --- a/externals/grill/vasp/max/vasp.defer +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.freeze b/externals/grill/vasp/max/vasp.freeze Binary files differdeleted file mode 100755 index 761cc032..00000000 --- a/externals/grill/vasp/max/vasp.freeze +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.hilbert b/externals/grill/vasp/max/vasp.hilbert Binary files differdeleted file mode 100755 index 5d5201ef..00000000 --- a/externals/grill/vasp/max/vasp.hilbert +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.im b/externals/grill/vasp/max/vasp.im Binary files differdeleted file mode 100755 index a670a68e..00000000 --- a/externals/grill/vasp/max/vasp.im +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.lower b/externals/grill/vasp/max/vasp.lower Binary files differdeleted file mode 100755 index 3e741c85..00000000 --- a/externals/grill/vasp/max/vasp.lower +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.meanq b/externals/grill/vasp/max/vasp.meanq Binary files differdeleted file mode 100755 index 1c7fc6ff..00000000 --- a/externals/grill/vasp/max/vasp.meanq +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.nodc b/externals/grill/vasp/max/vasp.nodc Binary files differdeleted file mode 100755 index 369c6ae9..00000000 --- a/externals/grill/vasp/max/vasp.nodc +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.opt b/externals/grill/vasp/max/vasp.opt Binary files differdeleted file mode 100755 index 5f504b44..00000000 --- a/externals/grill/vasp/max/vasp.opt +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.parts b/externals/grill/vasp/max/vasp.parts Binary files differdeleted file mode 100755 index c94d435c..00000000 --- a/externals/grill/vasp/max/vasp.parts +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.pwrap b/externals/grill/vasp/max/vasp.pwrap Binary files differdeleted file mode 100755 index 2677f07f..00000000 --- a/externals/grill/vasp/max/vasp.pwrap +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.re b/externals/grill/vasp/max/vasp.re Binary files differdeleted file mode 100755 index cd30f3ec..00000000 --- a/externals/grill/vasp/max/vasp.re +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.ropt b/externals/grill/vasp/max/vasp.ropt Binary files differdeleted file mode 100755 index 09275d73..00000000 --- a/externals/grill/vasp/max/vasp.ropt +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.spin b/externals/grill/vasp/max/vasp.spin Binary files differdeleted file mode 100755 index 8faf7de6..00000000 --- a/externals/grill/vasp/max/vasp.spin +++ /dev/null diff --git a/externals/grill/vasp/max/vasp.upper b/externals/grill/vasp/max/vasp.upper Binary files differdeleted file mode 100755 index 7adf2fb8..00000000 --- a/externals/grill/vasp/max/vasp.upper +++ /dev/null diff --git a/externals/grill/vasp/mixfft.txt b/externals/grill/vasp/mixfft.txt deleted file mode 100644 index 03262e52..00000000 --- a/externals/grill/vasp/mixfft.txt +++ /dev/null @@ -1,85 +0,0 @@ - - Arbitrary Length FFT - ------------------------------------------------------------------------ - NOTE : This is copyrighted material, NOT public domain. See below. - ------------------------------------------------------------------------ - Contents: - This packet contains the C source for a mixed-radix FFT routine. - It performs a fast discrete Fourier transform (FFT) of a complex - sequence, x, of an arbitrary length, n. The output, y, is also a - complex sequence of length n. - - y[k] = sum(x[m]*exp(-i*2*pi*k*m/n), m=0..(n-1)), k=0,...,(n-1) - - The largest prime factor of n must be less than or equal to the - constant, maxPrimeFactor defined in mixfft.c. The input/output - variables are each stored in two arrays comprising the real part - and the imaginary part respectively. - - The routine is accompanied by a demo program, fftbench.c, that - demonstrates the numerical capabilities. It measures the execution - time as well. If you wish to test the capabilities of another FFT - routine, the fftbench.c is easy to modify. - ------------------------------------------------------------------------ - Filelist: - mixfft.c 21.120 001030 The C source for the mixed-radix FFT. - fftbench.c 8.724 001030 The C source for FFT benchmark program. - fftbench.exe 62.976 001030 The PC executable. - readme.txt This file. - ------------------------------------------------------------------------ - Platforms: - - PC: - The included fftbench.exe was generated using the Microsoft Visual - C++ compiler with the following compile options: - /nologo /Gs /G2 /W4 /AH /Ox /D "NDEBUG" /D "_DOS" /FR - It was tested on a 50MHz 486DX. Please refer to fftbench.c for some - benchmarks. (jjn, March 1996) - - Other: - Your experience with other platforms are warmly welcomed. Please - e-mail me. - ------------------------------------------------------------------------ - Conditions: - The source code in this packet is copyrighted material. - - Non-commercial use of the source code is free. - - A $100 fee must be paid if used commercially. Please contact me at - jjn@get2net.dk and register your copy. The $100 fee includes - up to one hour of assistance related to your use of the code. A - trial period of 14 days is allowed. - - If the code is used for professional (paid) research and development - for non-profit organisations like universities a reduced fee of $20 - must be paid. - - The commercial license allows you to include the compiled code in a - product or to use the code on a regular basis. You are however NOT - allowed to sell the source code. - - Distribution of the complete unaltered package, including this - file, is free. This includes commercial CD's. - ------------------------------------------------------------------------ - Author: - Jens Joergen Nielsen For non-commercial use only. - Bakkehusene 54 A $100 fee must be paid if used - 2970 Hoersholm commercially. Please contact. - DENMARK - - mailto:jjn@get2net.dk All rights reserved. October 2000. - - Check my homepage for updates and FAQ's http://home.get2net.dk/jjn - ------------------------------------------------------------------------ - Release notes: - V.0.1 950301 Initial MIXFFT release. - V.0.3 960317 Input/output variables have separate arrays for - real and imag part. The speed of prime factors - larger than 7 is more than doubled. - V.0.4 980103 e-mail address changed. - V.0.5 001030 Memory allocation in FFTBench changed, now calloc - is used. Error reporting when primefactor is - larger than maxPrimeFactor has been corrected. - - - ------------------------------------------------------------------------ diff --git a/externals/grill/vasp/package.txt b/externals/grill/vasp/package.txt deleted file mode 100644 index 6a8dfa65..00000000 --- a/externals/grill/vasp/package.txt +++ /dev/null @@ -1,20 +0,0 @@ -NAME=vasp
-
-BUILDTYPE=multi
-
-PRECOMPILE=main.h
-
-SRCDIR=source
-
-SRCS= \
-arg.cpp mixfft.cpp obj_part.cpp obj_split.cpp opparam.cpp ops_cplx.cpp ops_gen.cpp ops_trnsc.cpp util.cpp \
-buflib.cpp obj_chns.cpp obj_peaks.cpp obj_sync.cpp ops_arith.cpp ops_dft.cpp ops_qminmax.cpp ops_wnd.cpp vasp.cpp \
-classes.cpp obj_frames.cpp obj_q.cpp obj_vasp.cpp ops_assign.cpp ops_feature.cpp ops_rearr.cpp opvecs.cpp vbuffer.cpp \
-env.cpp obj_imm.cpp obj_radio.cpp obj_vecs.cpp ops_carith.cpp ops_flt.cpp ops_resmp.cpp rdx2fft.cpp vecblk.cpp \
-main.cpp obj_offs.cpp obj_size.cpp opbase.cpp ops_cmp.cpp ops_gate.cpp ops_search.cpp rvfft.cpp
-
-HDRS= \
-arg.h env.h opdefs.h oppermute.h ops_assign.h ops_cplx.h ops_flt.h ops_resmp.h ops_wnd.h vbuffer.h \
-buflib.h main.h opfuns.h oploop.h ops.h ops_carith.h ops_dft.h ops_gen.h ops_search.h util.h vecblk.h \
-classes.h opbase.h opparam.h ops_arith.h ops_cmp.h ops_feature.h ops_rearr.h ops_trnsc.h vasp.h
-
diff --git a/externals/grill/vasp/pd-ex/convolve.pd b/externals/grill/vasp/pd-ex/convolve.pd deleted file mode 100644 index 8fe41faf..00000000 --- a/externals/grill/vasp/pd-ex/convolve.pd +++ /dev/null @@ -1,194 +0,0 @@ -#N canvas 84 222 646 423 12;
-#X obj 60 241 bng 50 250 50 0 start_bang empty start 0 -6 128 8 -24198
--1 -1;
-#X text 15 77 load/save/play etc.;
-#X obj 364 125 nbx 8 16 0 1e+008 0 0 len_src empty empty 0 -8 128 12
--225271 -1 -1 0 256;
-#X text 367 142 (defines the size of the result);
-#X obj 362 179 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12
--225271 -1 -1 0 256;
-#X obj 24 122 wedit buf_src;
-#X obj 23 176 wedit buf_arg;
-#X obj 33 350 wedit buf_res;
-#X text 122 255 start convolution;
-#X obj 177 356 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1
--1;
-#X obj 201 357 nbx 8 16 0 1e+008 0 0 len_arg empty empty 0 -8 128 12
--261689 -1 -1 1.04858e+006 256;
-#X obj 11 10 cnv 15 600 50 empty empty convolve 10 22 0 24 -260818
--1 0;
-#X text 202 41 http://www.parasitaere-kapazitaeten.net;
-#X text 203 10 fft-based convolution \, (C)2003 Thomas Grill;
-#X text 203 25 needs vasp and wedit;
-#X text 32 329 result buffer;
-#X text 140 121 source buffer;
-#X text 137 175 argument buffer;
-#N canvas 225 110 484 406 do 0;
-#X obj 27 255 vasp.u;
-#N canvas 406 75 413 555 convolve 0;
-#X obj 217 202 vasp.!;
-#X obj 116 163 vasp.f?;
-#X obj 216 173 vasp;
-#X obj 28 69 vasp;
-#N canvas 0 0 458 308 sf 0;
-#X obj 39 178 outlet;
-#X obj 38 43 inlet;
-#X obj 41 79 vasp.s;
-#X obj 120 43 inlet;
-#X obj 39 118 vasp.f;
-#X connect 1 0 2 0;
-#X connect 2 0 4 0;
-#X connect 3 0 2 1;
-#X connect 3 0 4 1;
-#X connect 4 0 0 0;
-#X restore 215 273 pd sf;
-#X obj 53 452 vasp.opt;
-#X obj 54 207 vasp;
-#X obj 29 39 inlet;
-#X obj 132 51 inlet;
-#X obj 221 50 inlet;
-#X obj 313 50 inlet;
-#X obj 43 520 outlet;
-#X text 26 15 bang;
-#X text 126 21 src1;
-#X text 218 20 src2;
-#X text 313 22 dst;
-#X text 214 220 copy to temp;
-#X text 100 519 dst;
-#N canvas 0 0 454 304 sf 0;
-#X obj 39 178 outlet;
-#X obj 38 43 inlet;
-#X obj 41 79 vasp.s;
-#X obj 120 43 inlet;
-#X obj 39 118 vasp.f;
-#X connect 1 0 2 0;
-#X connect 2 0 4 0;
-#X connect 3 0 2 1;
-#X connect 3 0 4 1;
-#X connect 4 0 0 0;
-#X restore 55 235 pd sf;
-#X obj 29 298 vasp.->;
-#X obj 27 482 vasp.radio;
-#X obj 29 94 t a b a;
-#X obj 54 393 vasp.cconv;
-#X obj 56 259 vasp.= 0;
-#N canvas 0 0 452 302 im0 0;
-#X obj 32 51 inlet;
-#X obj 31 250 outlet;
-#X obj 32 83 t a b a;
-#X obj 102 121 vasp.f?;
-#X obj 60 153 vasp.!;
-#X obj 32 210 vasp.join;
-#X text 31 10 make empty imaginary part;
-#X text 115 153 temporary buffer of same size;
-#X text 115 171 (initialized to 0);
-#X connect 0 0 2 0;
-#X connect 2 0 5 0;
-#X connect 2 1 4 0;
-#X connect 2 2 3 0;
-#X connect 3 0 4 1;
-#X connect 4 0 5 1;
-#X connect 5 0 1 0;
-#X restore 54 363 pd im0;
-#N canvas 0 0 452 302 im0 0;
-#X obj 32 51 inlet;
-#X obj 31 250 outlet;
-#X obj 32 83 t a b a;
-#X obj 102 121 vasp.f?;
-#X obj 60 153 vasp.!;
-#X obj 32 210 vasp.join;
-#X text 31 10 make empty imaginary part;
-#X text 115 153 temporary buffer of same size;
-#X text 115 171 (initialized to 0);
-#X connect 0 0 2 0;
-#X connect 2 0 5 0;
-#X connect 2 1 4 0;
-#X connect 2 2 3 0;
-#X connect 3 0 4 1;
-#X connect 4 0 5 1;
-#X connect 5 0 1 0;
-#X restore 129 363 pd im0;
-#X obj 53 424 vasp.re;
-#X obj 116 192 rndup2;
-#X obj 54 329 vasp.f;
-#X text 186 365 make imaginary parts;
-#X text 116 423 need only real part;
-#X text 124 451 "normalize";
-#X text 116 482 filter eventual radio msgs;
-#X connect 0 0 4 0;
-#X connect 1 0 27 0;
-#X connect 2 0 0 0;
-#X connect 3 0 21 0;
-#X connect 4 0 25 0;
-#X connect 5 0 20 0;
-#X connect 6 0 18 0;
-#X connect 7 0 3 0;
-#X connect 8 0 3 1;
-#X connect 9 0 2 1;
-#X connect 10 0 6 1;
-#X connect 18 0 23 0;
-#X connect 19 1 28 0;
-#X connect 20 1 11 0;
-#X connect 21 0 19 0;
-#X connect 21 1 2 0;
-#X connect 21 1 6 0;
-#X connect 21 2 1 0;
-#X connect 22 0 26 0;
-#X connect 23 0 19 1;
-#X connect 24 0 22 0;
-#X connect 25 0 22 1;
-#X connect 26 0 5 0;
-#X connect 27 0 18 1;
-#X connect 27 0 4 1;
-#X connect 27 0 28 1;
-#X connect 28 0 24 0;
-#X restore 26 226 pd convolve;
-#X obj 26 52 t b b;
-#X msg 154 93 vasp buf_arg;
-#X msg 267 92 vasp buf_res;
-#X obj 306 220 table buf_src 10;
-#X obj 307 242 table buf_arg 10;
-#X obj 307 264 table buf_res 10;
-#X obj 26 23 r start_bang;
-#X obj 143 21 r len_src;
-#X obj 229 24 r len_arg;
-#X obj 25 318 outlet;
-#X obj 27 291 vasp.f?;
-#X text 83 255 update buffer;
-#X obj 147 159 vasp.f;
-#X obj 43 157 vasp.f;
-#X msg 45 93 vasp buf_src;
-#X obj 141 51 r off_src;
-#X obj 227 54 r off_arg;
-#X obj 43 125 vasp.o;
-#X obj 147 127 vasp.o;
-#X text 123 225 convolve;
-#X connect 0 0 12 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X connect 2 1 3 0;
-#X connect 2 1 4 0;
-#X connect 2 1 16 0;
-#X connect 3 0 20 0;
-#X connect 4 0 1 3;
-#X connect 8 0 2 0;
-#X connect 9 0 15 1;
-#X connect 10 0 14 1;
-#X connect 12 0 11 0;
-#X connect 14 0 1 2;
-#X connect 15 0 1 1;
-#X connect 16 0 19 0;
-#X connect 17 0 19 1;
-#X connect 18 0 20 1;
-#X connect 19 0 15 0;
-#X connect 20 0 14 0;
-#X restore 177 324 pd do;
-#X obj 267 125 nbx 8 16 0 1e+008 0 0 off_src empty empty 0 -8 128 12
--225271 -1 -1 0 256;
-#X obj 265 179 nbx 8 16 0 1e+008 0 0 off_arg empty empty 0 -8 128 12
--225271 -1 -1 0 256;
-#X text 383 103 length;
-#X text 288 100 offset;
-#X text 286 78 range in samples;
-#X connect 18 0 9 0;
-#X connect 18 0 10 0;
diff --git a/externals/grill/vasp/pd-ex/enhance.pd b/externals/grill/vasp/pd-ex/enhance.pd deleted file mode 100644 index 05e8ef8a..00000000 --- a/externals/grill/vasp/pd-ex/enhance.pd +++ /dev/null @@ -1,478 +0,0 @@ -#N canvas 215 47 982 666 12; -#X obj 85 323 nbx 6 18 -100 0 0 1 empty empty spectral_gate(dB) 0 -8 -0 12 -225271 -1 -1 -18 256; -#X obj 85 366 nbx 7 18 -10000 10000 0 1 empty empty transpose(cents) -0 -8 0 12 -225271 -1 -1 0 256; -#X obj 463 303 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 744 304 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#N canvas 0 22 476 326 save 0; -#X obj 30 198 soundfiler; -#X obj 30 134 symbol; -#X obj 29 106 savepanel; -#X obj 32 8 inlet; -#X obj 27 232 outlet; -#X obj 30 42 route new again; -#X obj 29 73 t b; -#X obj 84 73 t b; -#X msg 27 169 write -bytes 3 -wave \$1 dst; -#X connect 0 0 4 0; -#X connect 1 0 8 0; -#X connect 2 0 1 0; -#X connect 3 0 5 0; -#X connect 5 0 6 0; -#X connect 5 1 7 0; -#X connect 6 0 2 0; -#X connect 7 0 1 0; -#X connect 8 0 0 0; -#X restore 744 275 pd save; -#N canvas 205 58 359 496 open 0; -#X obj 19 96 openpanel; -#X obj 21 6 inlet; -#X obj 15 390 outlet; -#X obj 20 123 symbol; -#X obj 17 345 vasp.u; -#X obj 17 233 t b; -#X obj 22 33 route new again; -#X obj 19 66 t b; -#X obj 74 66 t b; -#X msg 16 281 vasp src; -#X obj 74 230 s \$0-srclen; -#X obj 15 313 vasp.opt; -#X obj 18 192 sndfiler; -#X msg 19 152 read -resize \$1 src; -#X connect 0 0 3 0; -#X connect 1 0 6 0; -#X connect 3 0 13 0; -#X connect 4 0 2 0; -#X connect 5 0 9 0; -#X connect 6 0 7 0; -#X connect 6 1 8 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 11 0; -#X connect 11 0 4 0; -#X connect 12 0 5 0; -#X connect 12 0 10 0; -#X connect 13 0 12 0; -#X restore 463 275 pd open; -#X msg 396 247 stop; -#N canvas 0 22 450 300 graph10 0; -#X array src 5.99654e+06 float 0; -#X coords 0 1 5.99654e+06 -1 600 150 1; -#X restore 322 20 graph; -#X msg 462 247 new; -#X msg 497 247 again; -#X msg 743 247 new; -#X msg 776 247 again; -#X msg 347 247 play; -#X obj 8 9 cnv 15 300 48 empty empty enhance 5 14 0 20 -233017 -66577 -0; -#X obj 18 108 bng 25 250 50 0 empty empty do! 0 -6 0 12 -24198 -1 -1 -; -#X obj 107 115 nbx 12 18 0 1e+08 0 1 empty empty length(frames) 0 -8 -0 12 -225271 -1 -1 1e+06 256; -#X obj 347 222 cnv 15 100 20 empty empty play_src 5 8 0 10 -261681 --66577 0; -#X obj 462 222 cnv 15 100 20 empty empty read_src 5 8 0 10 -261681 --66577 0; -#X obj 742 222 cnv 15 100 20 empty empty write_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 450 300 graph10 0; -#X array dst 1e+06 float 0; -#X coords 0 1 999999 -1 600 150 1; -#X restore 324 392 graph; -#X msg 678 248 stop; -#X msg 629 248 play; -#X obj 629 223 cnv 15 100 20 empty empty play_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 519 371 playsrc 0; -#X obj 17 274 dac~; -#X obj 19 21 inlet; -#X obj 17 49 route play; -#X obj 18 197 tabplay~ src; -#X obj 338 23 r \$0-srclen; -#X obj 166 22 r \$0-offs; -#X obj 249 22 r \$0-len; -#X obj 338 48 t b f; -#X obj 166 94 *; -#X obj 248 93 *; -#X obj 75 132 pack 0 0; -#X obj 19 81 t b; -#X obj 77 105 loadbang; -#X obj 113 274 outlet; -#X obj 19 159 any; -#X obj 18 237 *~; -#X obj 451 21 inlet; -#X obj 451 50 pack 0 30; -#X obj 451 78 line~; -#X connect 1 0 2 0; -#X connect 2 0 11 0; -#X connect 2 1 3 0; -#X connect 3 0 15 0; -#X connect 3 1 13 0; -#X connect 4 0 7 0; -#X connect 5 0 8 0; -#X connect 6 0 9 0; -#X connect 7 0 8 0; -#X connect 7 0 9 0; -#X connect 7 1 8 1; -#X connect 7 1 9 1; -#X connect 8 0 10 0; -#X connect 9 0 10 1; -#X connect 10 0 14 1; -#X connect 11 0 14 0; -#X connect 12 0 10 0; -#X connect 14 0 3 0; -#X connect 15 0 0 0; -#X connect 15 0 0 1; -#X connect 16 0 17 0; -#X connect 17 0 18 0; -#X connect 18 0 15 1; -#X restore 347 275 pd playsrc; -#N canvas 0 22 499 351 playdst 0; -#X obj 23 199 dac~; -#X obj 19 21 inlet; -#X obj 22 51 route play; -#X obj 21 83 tabplay~ dst; -#X obj 113 200 outlet; -#X obj 27 147 *~; -#X obj 171 27 inlet; -#X obj 171 56 pack 0 30; -#X obj 171 84 line~; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X connect 2 1 3 0; -#X connect 3 0 5 0; -#X connect 3 1 4 0; -#X connect 5 0 0 0; -#X connect 5 0 0 1; -#X connect 6 0 7 0; -#X connect 7 0 8 0; -#X connect 8 0 5 1; -#X restore 629 276 pd playdst; -#N canvas 249 202 587 530 copy 0; -#X obj 27 26 inlet; -#X obj 27 51 t b b; -#X obj 316 19 inlet; -#X obj 25 361 outlet; -#X obj 26 81 vasp src; -#X obj 26 229 vasp.f; -#X obj 26 201 vasp.o; -#X obj 128 31 r \$0-offs; -#X obj 211 31 r \$0-len; -#X obj 316 87 f 1e+06; -#X obj 366 21 loadbang; -#X obj 84 169 *; -#X obj 117 169 *; -#X obj 82 139 vasp.f?; -#X obj 27 109 t a a; -#X obj 27 259 vasp.sync; -#X obj 26 328 vasp.f -1; -#X text 167 288 copy src to dst; -#X text 108 328 take all dst; -#X text 307 213 resize dst buffer; -#X obj 26 287 vasp.-> @detach 1; -#X text 340 139 set to zero; -#X obj 184 140 vasp.= 0 @ref dst @detach 1; -#X obj 183 194 vasp.s @detach 1; -#X connect 0 0 1 0; -#X connect 1 0 4 0; -#X connect 1 1 22 0; -#X connect 2 0 9 0; -#X connect 4 0 14 0; -#X connect 5 0 15 0; -#X connect 6 0 5 0; -#X connect 7 0 11 1; -#X connect 8 0 12 1; -#X connect 9 0 23 1; -#X connect 10 0 9 0; -#X connect 11 0 6 1; -#X connect 12 0 5 1; -#X connect 13 0 11 0; -#X connect 13 0 12 0; -#X connect 14 0 6 0; -#X connect 14 1 13 0; -#X connect 15 0 20 0; -#X connect 15 1 20 1; -#X connect 16 0 3 0; -#X connect 20 1 16 0; -#X connect 22 0 23 0; -#X connect 23 0 15 1; -#X restore 18 159 pd copy; -#X text 82 155 copy and resize; -#X obj 323 170 hsl 600 15 0 1 0 1 \$0-r2 empty empty -2 -6 0 8 -262131 --1 -1 51900 0; -#X obj 323 5 hsl 600 15 0 1 0 1 \$0-r1 empty empty -2 -6 0 8 -262131 --1 -1 34600 0; -#N canvas 148 330 313 273 sel 0; -#X obj 30 25 r \$0-r1; -#X obj 110 25 r \$0-r2; -#X obj 30 100 min; -#X obj 113 100 max; -#X obj 30 53 t f f; -#X obj 110 50 t b b f; -#X obj 113 130 -; -#X obj 27 190 s \$0-offs; -#X obj 113 190 s \$0-len; -#X obj 114 161 * -1; -#X connect 0 0 4 0; -#X connect 1 0 5 0; -#X connect 2 0 6 0; -#X connect 2 0 7 0; -#X connect 3 0 6 1; -#X connect 4 0 2 0; -#X connect 4 1 3 0; -#X connect 5 0 2 0; -#X connect 5 1 3 0; -#X connect 5 2 3 1; -#X connect 5 2 2 1; -#X connect 6 0 9 0; -#X connect 9 0 8 0; -#X restore 872 223 pd sel; -#X obj 85 410 nbx 7 18 0.01 10 1 1 empty empty power 0 -8 0 12 -225271 --1 -1 1.37078 256; -#X obj 346 302 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 628 302 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 165 324 -100... no gate; -#N canvas 0 22 482 332 normalize 0; -#X obj 127 29 loadbang; -#X msg 127 54 detach 1; -#X text 120 75 no attributes yet; -#X obj 39 115 vasp.opt; -#X obj 38 149 vasp.u; -#X obj 39 32 inlet; -#X obj 38 184 outlet; -#X connect 0 0 1 0; -#X connect 1 0 3 0; -#X connect 3 0 4 0; -#X connect 4 0 6 0; -#X connect 5 0 3 0; -#X restore 18 575 pd normalize; -#X obj 608 245 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 4400 1; -#X obj 324 247 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 5600 1; -#X text 11 37 (C)2007 Thomas Grill; -#N canvas 293 22 655 744 enhance 0; -#X obj 27 137 vasp.split 2; -#X obj 31 415 vasp.join 2; -#X obj 27 74 vasp.cfft @detach 1; -#X obj 33 471 vasp.c!fft @detach 1; -#X obj 25 13 inlet; -#X obj 91 230 * 0.01; -#X obj 302 17 inlet; -#X obj 26 107 vasp.polar @detach 1; -#X obj 33 442 vasp.rect @detach 1; -#X obj 29 321 vasp.gate @detach 1; -#X obj 30 386 vasp.sync; -#X obj 91 208 vasp.max? @detach 1; -#X obj 381 17 inlet; -#X obj 437 692 outlet; -#N canvas 238 212 484 334 non0 0; -#X obj 58 254 outlet; -#X obj 60 158 / 1; -#X obj 26 11 inlet; -#X obj 26 39 t a a; -#X obj 234 77 vasp.f?; -#X obj 46 98 vasp.!= 0 @detach 1; -#X obj 27 124 vasp.sum?; -#X obj 60 195 rmstodb; -#X obj 60 225 - 100; -#X obj 47 71 vasp.!; -#X connect 1 0 7 0; -#X connect 2 0 3 0; -#X connect 3 0 6 0; -#X connect 3 1 4 0; -#X connect 4 0 1 1; -#X connect 5 0 6 0; -#X connect 6 1 1 0; -#X connect 7 0 8 0; -#X connect 8 0 0 0; -#X connect 9 0 5 0; -#X restore 436 660 pd non0; -#X obj 34 511 vasp.n 0; -#X obj 302 45 + 100; -#X obj 300 76 dbtorms; -#N canvas 445 282 498 348 cplx 0; -#X obj 19 229 vasp.join; -#X obj 19 73 t a b a; -#X obj 149 137 vasp.f?; -#X obj 19 14 inlet; -#X obj 19 258 outlet; -#X text 216 135 get length of source; -#X text 225 181 make immediate; -#X text 225 196 initialized to 0; -#X text 101 230 make complex vasp; -#X obj 87 176 vasp.! @detach 1; -#X obj 19 203 vasp.sync; -#X connect 0 0 4 0; -#X connect 1 0 10 0; -#X connect 1 1 9 0; -#X connect 1 2 2 0; -#X connect 2 0 9 1; -#X connect 3 0 1 0; -#X connect 9 0 10 1; -#X connect 10 0 0 0; -#X connect 10 1 0 1; -#X restore 27 43 pd cplx; -#X text 281 166 resample; -#X text 146 230 find spectral peak; -#X text 203 320 gate spectrum below threshold; -#X text 107 387 wait for threads to finish; -#X text 193 75 FFT; -#X text 195 100 -> polar; -#X text 192 439 -> cartesian; -#X text 202 467 inverse FFT; -#X text 440 637 get spectral density; -#X obj 28 168 vasp.xtilt 1 @detach 1 @inter 2; -#X obj 30 347 vasp.pow @detach 1; -#X obj 441 21 inlet; -#X text 194 347 treat spectrum exponentially; -#X obj 28 238 t a a; -#X obj 28 288 vasp; -#X obj 89 257 t b f; -#X obj 381 51 / -1200; -#X obj 381 77 t b f; -#X obj 382 129 pow; -#X msg 382 103 2; -#X obj 73 542 t a a; -#X obj 74 640 vasp.* @detach 1; -#X obj 108 573 vasp.flp; -#X obj 33 678 outlet; -#X connect 0 0 28 0; -#X connect 0 1 10 1; -#X connect 1 0 8 0; -#X connect 2 0 7 0; -#X connect 3 0 15 0; -#X connect 4 0 18 0; -#X connect 5 0 34 0; -#X connect 6 0 16 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 29 0; -#X connect 10 0 1 0; -#X connect 10 1 1 1; -#X connect 11 0 5 0; -#X connect 12 0 35 0; -#X connect 14 0 13 0; -#X connect 15 0 42 0; -#X connect 16 0 17 0; -#X connect 17 0 5 1; -#X connect 18 0 2 0; -#X connect 28 0 32 0; -#X connect 29 0 10 0; -#X connect 29 0 14 0; -#X connect 30 0 29 1; -#X connect 32 0 11 0; -#X connect 32 1 33 1; -#X connect 33 0 9 0; -#X connect 34 0 33 0; -#X connect 34 1 9 1; -#X connect 35 0 36 0; -#X connect 36 0 38 0; -#X connect 36 1 37 1; -#X connect 37 0 28 1; -#X connect 38 0 37 0; -#X connect 39 0 40 0; -#X connect 39 1 41 0; -#X connect 40 0 42 0; -#X restore 17 440 pd enhance; -#N canvas 0 22 501 392 expand 0; -#X obj 41 33 inlet; -#X obj 41 313 outlet; -#X obj 42 64 t a a; -#X obj 76 93 vasp.!; -#X obj 41 280 vasp.* @detach 1; -#X obj 41 247 vasp.sync; -#X obj 77 167 vasp.flp @detach 1; -#X obj 218 35 inlet; -#X obj 76 202 vasp.pow @detach 1; -#X obj 376 37 inlet; -#X text 229 165 make a smooth volume curve; -#X obj 77 136 vasp.abs @detach 1; -#X connect 0 0 2 0; -#X connect 2 0 5 0; -#X connect 2 1 3 0; -#X connect 3 0 11 0; -#X connect 4 0 1 0; -#X connect 5 0 4 0; -#X connect 5 1 4 1; -#X connect 6 0 8 0; -#X connect 7 0 6 1; -#X connect 8 0 5 1; -#X connect 9 0 8 1; -#X connect 11 0 6 0; -#X restore 18 275 pd expand; -#X obj 82 204 nbx 7 18 1 1e+06 1 1 empty empty low_pass_(samples) 0 --8 0 12 -225271 -1 -1 220.673 256; -#X obj 82 240 nbx 7 18 -3 5 0 1 empty empty power 0 -8 0 12 -225271 --1 -1 0 256; -#N canvas 0 22 517 408 expand 0; -#X obj 41 33 inlet; -#X obj 41 313 outlet; -#X obj 42 64 t a a; -#X obj 76 93 vasp.!; -#X obj 41 280 vasp.* @detach 1; -#X obj 41 247 vasp.sync; -#X obj 77 167 vasp.flp @detach 1; -#X obj 218 35 inlet; -#X obj 76 202 vasp.pow @detach 1; -#X obj 376 37 inlet; -#X text 229 165 make a smooth volume curve; -#X obj 77 136 vasp.abs @detach 1; -#X connect 0 0 2 0; -#X connect 2 0 5 0; -#X connect 2 1 3 0; -#X connect 3 0 11 0; -#X connect 4 0 1 0; -#X connect 5 0 4 0; -#X connect 5 1 4 1; -#X connect 6 0 8 0; -#X connect 7 0 6 1; -#X connect 8 0 5 1; -#X connect 9 0 8 1; -#X connect 11 0 6 0; -#X restore 18 546 pd expand; -#X obj 84 482 nbx 7 18 1 1e+06 1 1 empty empty low_pass_(samples) 0 --8 0 12 -225271 -1 -1 5633.54 256; -#X obj 84 518 nbx 7 18 -3 10 0 1 empty empty power 0 -8 0 12 -225271 --1 -1 3 256; -#X obj 17 614 bng 25 250 50 0 empty empty ready 0 -6 0 12 -24198 -1 --1; -#X text 172 240 0... no change; -#X text 172 519 0... no change; -#X text 174 410 1... no change; -#X connect 0 0 38 1; -#X connect 1 0 38 2; -#X connect 4 0 3 0; -#X connect 5 0 2 0; -#X connect 6 0 23 0; -#X connect 8 0 5 0; -#X connect 9 0 5 0; -#X connect 10 0 4 0; -#X connect 11 0 4 0; -#X connect 12 0 23 0; -#X connect 14 0 25 0; -#X connect 15 0 25 1; -#X connect 20 0 24 0; -#X connect 21 0 24 0; -#X connect 23 0 31 0; -#X connect 24 0 32 0; -#X connect 25 0 39 0; -#X connect 30 0 38 3; -#X connect 31 0 12 0; -#X connect 32 0 21 0; -#X connect 34 0 45 0; -#X connect 35 0 24 1; -#X connect 36 0 23 1; -#X connect 38 0 42 0; -#X connect 39 0 38 0; -#X connect 40 0 39 1; -#X connect 41 0 39 2; -#X connect 42 0 34 0; -#X connect 43 0 42 1; -#X connect 44 0 42 2; diff --git a/externals/grill/vasp/pd-ex/freeze.pd b/externals/grill/vasp/pd-ex/freeze.pd deleted file mode 100644 index bc9aaa41..00000000 --- a/externals/grill/vasp/pd-ex/freeze.pd +++ /dev/null @@ -1,414 +0,0 @@ -#N canvas 268 127 978 522 12; -#N canvas 293 22 643 732 freeze 0; -#X obj 27 137 vasp.split 2; -#X obj 30 463 vasp.join 2; -#X obj 27 74 vasp.cfft @detach 1; -#X obj 32 519 vasp.c!fft @detach 1; -#X obj 25 13 inlet; -#X obj 91 230 * 0.01; -#X obj 302 17 inlet; -#X obj 26 107 vasp.polar @detach 1; -#X obj 32 490 vasp.rect @detach 1; -#X obj 29 321 vasp.gate @detach 1; -#X obj 95 374 vasp.noise @detach 1; -#X obj 29 434 vasp.sync; -#X obj 91 208 vasp.max? @detach 1; -#X obj 381 17 inlet; -#X obj 167 619 outlet; -#N canvas 238 212 484 334 non0 0; -#X obj 58 254 outlet; -#X obj 60 158 / 1; -#X obj 26 11 inlet; -#X obj 26 39 t a a; -#X obj 234 77 vasp.f?; -#X obj 46 98 vasp.!= 0 @detach 1; -#X obj 27 124 vasp.sum?; -#X obj 60 195 rmstodb; -#X obj 60 225 - 100; -#X obj 47 71 vasp.!; -#X connect 1 0 7 0; -#X connect 2 0 3 0; -#X connect 3 0 6 0; -#X connect 3 1 4 0; -#X connect 4 0 1 1; -#X connect 5 0 6 0; -#X connect 6 1 1 0; -#X connect 7 0 8 0; -#X connect 8 0 0 0; -#X connect 9 0 5 0; -#X restore 164 553 pd non0; -#X obj 32 564 vasp.n 0; -#X obj 302 45 + 100; -#X obj 300 76 dbtorms; -#N canvas 445 282 498 348 cplx 0; -#X obj 19 229 vasp.join; -#X obj 19 73 t a b a; -#X obj 149 137 vasp.f?; -#X obj 19 14 inlet; -#X obj 19 258 outlet; -#X text 216 135 get length of source; -#X text 225 181 make immediate; -#X text 225 196 initialized to 0; -#X text 101 230 make complex vasp; -#X obj 87 176 vasp.! @detach 1; -#X obj 19 203 vasp.sync; -#X connect 0 0 4 0; -#X connect 1 0 10 0; -#X connect 1 1 9 0; -#X connect 1 2 2 0; -#X connect 2 0 9 1; -#X connect 3 0 1 0; -#X connect 9 0 10 1; -#X connect 10 0 0 0; -#X connect 10 1 0 1; -#X restore 27 43 pd cplx; -#X text 281 166 resample; -#X text 146 230 find spectral peak; -#X text 203 320 gate spectrum below threshold; -#X text 106 435 wait for threads to finish; -#X text 193 75 FFT; -#X text 195 100 -> polar; -#X text 191 487 -> cartesian; -#X text 201 515 inverse FFT; -#X text 266 371 randomize complex arguments; -#X text 228 551 get spectral density; -#X obj 28 168 vasp.xtilt 1 @detach 1 @inter 2; -#X obj 30 347 vasp.pow @detach 1; -#X obj 441 21 inlet; -#X text 194 347 treat spectrum exponentially; -#X obj 28 238 t a a; -#X obj 28 288 vasp; -#X obj 89 257 t b f; -#X obj 95 399 vasp.* 3.14159 @detach 1; -#X obj 381 51 / -1200; -#X obj 381 77 t b f; -#X obj 382 129 pow; -#X msg 382 103 2; -#X obj 33 617 vasp.u; -#X connect 0 0 30 0; -#X connect 0 1 10 0; -#X connect 1 0 8 0; -#X connect 2 0 7 0; -#X connect 3 0 16 0; -#X connect 4 0 19 0; -#X connect 5 0 36 0; -#X connect 6 0 17 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 31 0; -#X connect 10 0 37 0; -#X connect 11 0 1 0; -#X connect 11 1 1 1; -#X connect 12 0 5 0; -#X connect 13 0 38 0; -#X connect 15 0 14 0; -#X connect 16 0 42 0; -#X connect 17 0 18 0; -#X connect 18 0 5 1; -#X connect 19 0 2 0; -#X connect 30 0 34 0; -#X connect 31 0 11 0; -#X connect 31 0 15 0; -#X connect 32 0 31 1; -#X connect 34 0 12 0; -#X connect 34 1 35 1; -#X connect 35 0 9 0; -#X connect 36 0 35 0; -#X connect 36 1 9 1; -#X connect 37 0 11 1; -#X connect 38 0 39 0; -#X connect 39 0 41 0; -#X connect 39 1 40 1; -#X connect 40 0 30 1; -#X connect 41 0 40 0; -#X restore 18 331 pd freeze; -#X obj 73 210 nbx 6 18 -100 0 0 1 empty empty spectral_gate(dB) 0 -8 -0 12 -225271 -1 -1 -95 256; -#X obj 73 253 nbx 7 18 -10000 10000 0 1 empty empty transpose(cents) -0 -8 0 12 -225271 -1 -1 0 256; -#X obj 448 278 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 729 279 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#N canvas 0 22 476 326 save 0; -#X obj 30 198 soundfiler; -#X obj 30 134 symbol; -#X obj 29 106 savepanel; -#X obj 32 8 inlet; -#X obj 27 232 outlet; -#X obj 30 42 route new again; -#X obj 29 73 t b; -#X obj 84 73 t b; -#X msg 27 169 write -bytes 3 -wave \$1 dst; -#X connect 0 0 4 0; -#X connect 1 0 8 0; -#X connect 2 0 1 0; -#X connect 3 0 5 0; -#X connect 5 0 6 0; -#X connect 5 1 7 0; -#X connect 6 0 2 0; -#X connect 7 0 1 0; -#X connect 8 0 0 0; -#X restore 729 250 pd save; -#N canvas 205 58 359 496 open 0; -#X obj 19 96 openpanel; -#X obj 21 6 inlet; -#X obj 15 390 outlet; -#X obj 20 123 symbol; -#X obj 17 345 vasp.u; -#X obj 17 233 t b; -#X obj 22 33 route new again; -#X obj 19 66 t b; -#X obj 74 66 t b; -#X msg 16 281 vasp src; -#X obj 74 230 s \$0-srclen; -#X obj 15 313 vasp.opt; -#X obj 18 192 sndfiler; -#X msg 19 152 read -resize \$1 src; -#X connect 0 0 3 0; -#X connect 1 0 6 0; -#X connect 3 0 13 0; -#X connect 4 0 2 0; -#X connect 5 0 9 0; -#X connect 6 0 7 0; -#X connect 6 1 8 0; -#X connect 7 0 0 0; -#X connect 8 0 3 0; -#X connect 9 0 11 0; -#X connect 11 0 4 0; -#X connect 12 0 5 0; -#X connect 12 0 10 0; -#X connect 13 0 12 0; -#X restore 448 250 pd open; -#X msg 381 222 stop; -#N canvas 0 22 450 300 graph10 0; -#X array src 2.2491e+07 float 0; -#X coords 0 1 2.2491e+07 -1 600 150 1; -#X restore 322 20 graph; -#X msg 447 222 new; -#X msg 482 222 again; -#X msg 728 222 new; -#X msg 761 222 again; -#X msg 332 222 play; -#X obj 8 9 cnv 15 300 48 empty empty freeze 5 14 0 20 -233017 -66577 -0; -#X text 128 13 make static sound; -#X obj 18 108 bng 25 250 50 0 empty empty do! 0 -6 0 12 -24198 -1 -1 -; -#X obj 107 115 nbx 12 18 0 1e+08 0 1 empty empty length(frames) 0 -8 -0 12 -225271 -1 -1 1e+06 256; -#X obj 19 375 nbx 9 14 -1e+37 1e+37 0 0 empty empty spectral_density(dB) -0 -6 0 10 -262131 -1 -1 -33.6745 256; -#X obj 332 197 cnv 15 100 20 empty empty play_src 5 8 0 10 -261681 --66577 0; -#X obj 447 197 cnv 15 100 20 empty empty read_src 5 8 0 10 -261681 --66577 0; -#X obj 727 197 cnv 15 100 20 empty empty write_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 450 300 graph10 0; -#X array dst 1e+06 float 0; -#X coords 0 1 999999 -1 600 150 1; -#X restore 325 304 graph; -#X msg 663 223 stop; -#X msg 614 223 play; -#X obj 614 198 cnv 15 100 20 empty empty play_dst 5 8 0 10 -261681 --66577 0; -#N canvas 0 22 519 371 playsrc 0; -#X obj 17 274 dac~; -#X obj 19 21 inlet; -#X obj 17 49 route play; -#X obj 18 197 tabplay~ src; -#X obj 338 23 r \$0-srclen; -#X obj 166 22 r \$0-offs; -#X obj 249 22 r \$0-len; -#X obj 338 48 t b f; -#X obj 166 94 *; -#X obj 248 93 *; -#X obj 75 132 pack 0 0; -#X obj 19 81 t b; -#X obj 77 105 loadbang; -#X obj 113 274 outlet; -#X obj 19 159 any; -#X obj 18 237 *~; -#X obj 451 21 inlet; -#X obj 451 50 pack 0 30; -#X obj 451 78 line~; -#X connect 1 0 2 0; -#X connect 2 0 11 0; -#X connect 2 1 3 0; -#X connect 3 0 15 0; -#X connect 3 1 13 0; -#X connect 4 0 7 0; -#X connect 5 0 8 0; -#X connect 6 0 9 0; -#X connect 7 0 8 0; -#X connect 7 0 9 0; -#X connect 7 1 8 1; -#X connect 7 1 9 1; -#X connect 8 0 10 0; -#X connect 9 0 10 1; -#X connect 10 0 14 1; -#X connect 11 0 14 0; -#X connect 12 0 10 0; -#X connect 14 0 3 0; -#X connect 15 0 0 0; -#X connect 15 0 0 1; -#X connect 16 0 17 0; -#X connect 17 0 18 0; -#X connect 18 0 15 1; -#X restore 332 250 pd playsrc; -#N canvas 0 22 499 351 playdst 0; -#X obj 23 199 dac~; -#X obj 19 21 inlet; -#X obj 22 51 route play; -#X obj 21 83 tabplay~ dst; -#X obj 113 200 outlet; -#X obj 27 147 *~; -#X obj 171 27 inlet; -#X obj 171 56 pack 0 30; -#X obj 171 84 line~; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X connect 2 1 3 0; -#X connect 3 0 5 0; -#X connect 3 1 4 0; -#X connect 5 0 0 0; -#X connect 5 0 0 1; -#X connect 6 0 7 0; -#X connect 7 0 8 0; -#X connect 8 0 5 1; -#X restore 614 251 pd playdst; -#N canvas 249 202 571 514 copy 0; -#X obj 27 26 inlet; -#X obj 27 51 t b b; -#X obj 316 19 inlet; -#X obj 25 361 outlet; -#X obj 26 81 vasp src; -#X obj 26 229 vasp.f; -#X obj 26 201 vasp.o; -#X obj 128 31 r \$0-offs; -#X obj 211 31 r \$0-len; -#X obj 316 87 f 1e+06; -#X obj 366 21 loadbang; -#X obj 84 169 *; -#X obj 117 169 *; -#X obj 82 139 vasp.f?; -#X obj 27 109 t a a; -#X obj 27 259 vasp.sync; -#X obj 26 328 vasp.f -1; -#X text 167 288 copy src to dst; -#X text 108 328 take all dst; -#X text 311 193 resize dst buffer; -#X text 341 221 set to zero; -#X obj 185 222 vasp.= 0 @detach 1; -#X obj 26 287 vasp.-> @detach 1; -#X obj 187 174 vasp.s @ref dst @detach 1; -#X connect 0 0 1 0; -#X connect 1 0 4 0; -#X connect 1 1 23 0; -#X connect 2 0 9 0; -#X connect 4 0 14 0; -#X connect 5 0 15 0; -#X connect 6 0 5 0; -#X connect 7 0 11 1; -#X connect 8 0 12 1; -#X connect 9 0 23 1; -#X connect 10 0 9 0; -#X connect 11 0 6 1; -#X connect 12 0 5 1; -#X connect 13 0 11 0; -#X connect 13 0 12 0; -#X connect 14 0 6 0; -#X connect 14 1 13 0; -#X connect 15 0 22 0; -#X connect 15 1 22 1; -#X connect 16 0 3 0; -#X connect 21 0 15 1; -#X connect 22 1 16 0; -#X connect 23 0 21 0; -#X restore 18 159 pd copy; -#X text 85 160 copy and resize; -#X obj 323 170 hsl 600 15 0 1 0 1 \$0-r2 empty empty -2 -6 0 8 -262131 --1 -1 12800 0; -#X obj 323 5 hsl 600 15 0 1 0 1 \$0-r1 empty empty -2 -6 0 8 -262131 --1 -1 0 0; -#N canvas 148 330 313 273 sel 0; -#X obj 30 25 r \$0-r1; -#X obj 110 25 r \$0-r2; -#X obj 30 100 min; -#X obj 113 100 max; -#X obj 30 53 t f f; -#X obj 110 50 t b b f; -#X obj 113 130 -; -#X obj 27 190 s \$0-offs; -#X obj 113 190 s \$0-len; -#X obj 114 161 * -1; -#X connect 0 0 4 0; -#X connect 1 0 5 0; -#X connect 2 0 6 0; -#X connect 2 0 7 0; -#X connect 3 0 6 1; -#X connect 4 0 2 0; -#X connect 4 1 3 0; -#X connect 5 0 2 0; -#X connect 5 1 3 0; -#X connect 5 2 3 1; -#X connect 5 2 2 1; -#X connect 6 0 9 0; -#X connect 9 0 8 0; -#X restore 871 198 pd sel; -#X obj 73 297 nbx 7 18 0.01 10 1 1 empty empty power 0 -8 0 12 -225271 --1 -1 0.873788 256; -#X obj 331 277 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 613 277 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 11 37 (C)2002-2007 Thomas Grill; -#X text 153 210 -100... no gate; -#X text 162 296 1... no power; -#X obj 18 426 bng 25 250 50 0 empty empty normalize 0 -6 0 12 -24198 --1 -1; -#N canvas 0 22 458 308 normalize 0; -#X obj 127 29 loadbang; -#X msg 127 54 detach 1; -#X text 120 75 no attributes yet; -#X obj 39 115 vasp.opt; -#X obj 38 149 vasp.u; -#X obj 39 32 inlet; -#X obj 40 82 vasp dst; -#X obj 40 56 t b; -#X connect 0 0 1 0; -#X connect 1 0 3 0; -#X connect 3 0 4 0; -#X connect 5 0 7 0; -#X connect 6 0 3 0; -#X connect 7 0 6 0; -#X restore 18 454 pd normalize; -#X obj 593 220 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 4900 1; -#X obj 309 222 vsl 15 70 0.01 10 1 1 empty empty empty 0 -8 0 8 -262144 --1 -1 4900 1; -#X connect 0 0 18 0; -#X connect 1 0 0 1; -#X connect 2 0 0 2; -#X connect 5 0 4 0; -#X connect 6 0 3 0; -#X connect 7 0 26 0; -#X connect 9 0 6 0; -#X connect 10 0 6 0; -#X connect 11 0 5 0; -#X connect 12 0 5 0; -#X connect 13 0 26 0; -#X connect 16 0 28 0; -#X connect 17 0 28 1; -#X connect 23 0 27 0; -#X connect 24 0 27 0; -#X connect 26 0 34 0; -#X connect 27 0 35 0; -#X connect 28 0 0 0; -#X connect 33 0 0 3; -#X connect 34 0 13 0; -#X connect 35 0 24 0; -#X connect 39 0 40 0; -#X connect 41 0 27 1; -#X connect 42 0 26 1; diff --git a/externals/grill/vasp/pd-ex/frqmax.pd b/externals/grill/vasp/pd-ex/frqmax.pd deleted file mode 100644 index f34fb297..00000000 --- a/externals/grill/vasp/pd-ex/frqmax.pd +++ /dev/null @@ -1,336 +0,0 @@ -#N canvas 530 176 764 598 12; -#N canvas 0 22 450 300 graph1 0; -#X array array1 2.205e+06 float 0; -#X coords 0 1 2.205e+06 -1 300 140 1; -#X restore 403 192 graph; -#X msg 23 156 vasp array1; -#X text 127 156 buffer to analyze; -#X obj 23 417 vasp.??; -#X obj 24 84 nbx 5 18 -100 0 0 1 \$0-thresh empty empty 0 -6 0 14 -225271 --1 -1 -5 256; -#X text 84 415 print list omitting zero values; -#X obj 22 536 print F; -#X obj 195 535 print V; -#N canvas 383 238 314 291 mag 0; -#X obj 37 34 inlet; -#X obj 39 214 outlet; -#N canvas 403 262 454 304 rfft 0; -#X obj 38 100 vasp.rfft; -#X obj 28 138 vasp.lower; -#X obj 114 138 vasp.upper; -#X obj 42 228 vasp.polar; -#X obj 43 170 vasp.sync; -#X obj 42 197 vasp.join; -#X obj 42 262 vasp.re; -#X text 112 262 get magnitude only; -#X text 119 102 real FFT; -#X text 132 156 separate real and imag part; -#X text 133 229 make polar representation; -#X obj 39 20 inlet; -#X obj 38 62 vasp.!; -#X text 97 64 make temporary buffer; -#X obj 41 305 outlet; -#X connect 0 0 1 0; -#X connect 0 0 2 0; -#X connect 1 0 4 0; -#X connect 2 0 4 1; -#X connect 3 0 6 0; -#X connect 4 0 5 0; -#X connect 4 1 5 1; -#X connect 5 0 3 0; -#X connect 6 0 14 0; -#X connect 11 0 12 0; -#X connect 12 0 0 0; -#X restore 100 151 pd rfft; -#N canvas 0 22 454 344 cfft 0; -#X obj 39 187 vasp.polar; -#X obj 39 221 vasp.re; -#X text 109 221 get magnitude only; -#X text 130 188 make polar representation; -#X obj 38 42 vasp.!; -#X obj 38 154 vasp.cfft; -#X obj 40 253 vasp.lower; -#X obj 37 100 vasp.sync; -#X text 169 56 make temporary buffers; -#X obj 101 44 vasp.!; -#X obj 102 71 vasp.= 0; -#X text 119 154 complex FFT; -#X obj 37 128 vasp.join; -#X obj 35 11 inlet; -#X obj 37 291 outlet; -#X connect 0 0 1 0; -#X connect 1 0 6 0; -#X connect 4 0 7 0; -#X connect 5 0 0 0; -#X connect 6 0 14 0; -#X connect 7 0 12 0; -#X connect 7 1 12 1; -#X connect 9 0 10 0; -#X connect 10 0 7 1; -#X connect 12 0 5 0; -#X connect 13 0 4 0; -#X connect 13 0 9 0; -#X restore 38 88 pd cfft; -#X text 105 89 complex method; -#X text 165 147 real method; -#X text 166 167 (off by one bin?); -#X connect 0 0 3 0; -#X connect 3 0 1 0; -#X restore 24 185 pd mag; -#X text 77 186 get spectral magnitude; -#X obj 11 10 cnv 15 700 50 empty empty fftmax 10 22 0 24 -260818 -1 -0; -#N canvas 0 22 478 370 load 0; -#X obj 30 100 openpanel; -#X obj 31 254 pack s s s s; -#X obj 28 130 t b b s b; -#X obj 30 22 inlet; -#X obj 31 313 soundfiler; -#X obj 29 74 t b s; -#X text 80 21 input message with target buffer; -#X obj 107 213 symbol array1; -#X obj 31 284 route list; -#X obj 51 189 symbol -resize; -#X obj 28 159 symbol read; -#X connect 0 0 2 0; -#X connect 1 0 8 0; -#X connect 2 0 10 0; -#X connect 2 1 9 0; -#X connect 2 2 1 2; -#X connect 2 3 7 0; -#X connect 3 0 5 0; -#X connect 5 0 0 0; -#X connect 5 1 7 1; -#X connect 7 0 1 3; -#X connect 8 0 4 0; -#X connect 9 0 1 1; -#X connect 10 0 1 0; -#X restore 410 144 pd load; -#X msg 410 114 array1; -#X text 442 85 load file into buffer; -#X obj 410 83 bng 25 250 50 0 empty empty empty 0 -6 0 8 -225271 -1 --1; -#X obj 125 259 vasp.max?; -#X text 103 383 discriminate lower values; -#X obj 125 350 *; -#X obj 156 299 + 100; -#X obj 156 322 dbtorms; -#X obj 23 382 vasp.gate; -#X obj 23 215 t a a; -#N canvas 0 22 359 314 ny 0; -#X obj 33 128 samplerate~; -#X obj 33 69 vasp.f?; -#X obj 32 39 inlet; -#X obj 32 171 /; -#X obj 32 97 t b f; -#X obj 32 244 outlet; -#X obj 33 208 / 2; -#X connect 0 0 3 0; -#X connect 1 0 4 0; -#X connect 2 0 1 0; -#X connect 3 0 6 0; -#X connect 4 0 0 0; -#X connect 4 1 3 1; -#X connect 6 0 5 0; -#X restore 65 258 pd ny; -#X text 89 536 frequencies; -#X text 102 84 threshold in dB (eg. -6); -#N canvas 0 22 466 316 testsig 0; -#X msg 30 107 vasp array1; -#X obj 29 256 vasp.u; -#X obj 93 168 samplerate~; -#X obj 29 227 vasp.osc 441; -#X obj 92 193 / 100; -#X obj 94 138 t b f; -#X text 31 10 set frequency \, then bang to synthesize; -#X obj 31 71 route bang; -#X obj 31 41 inlet; -#X connect 0 0 3 0; -#X connect 2 0 4 0; -#X connect 3 0 1 0; -#X connect 4 0 3 1; -#X connect 5 0 2 0; -#X connect 5 1 4 1; -#X connect 7 0 0 0; -#X connect 7 1 5 0; -#X connect 8 0 7 0; -#X restore 498 468 pd testsig; -#X text 496 392 create a test signal; -#X obj 23 121 bng 25 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 --1; -#X text 51 119 bang to start analysis; -#X obj 220 258 r \$0-thresh; -#X text 183 14 get loudest frequencies \, (C)2003-2007 Thomas Grill -; -#X text 184 34 http://grrrr.org; -#X obj 545 438 nbx 5 18 0 100000 0 0 empty empty frequency 0 -6 0 14 --225271 -1 -1 0 256; -#X obj 498 432 bng 25 250 50 0 empty empty make! 0 -6 0 8 -261689 -1 --1; -#N canvas 0 22 454 304 db 0; -#X obj 45 34 inlet; -#X obj 44 192 outlet; -#X obj 45 96 log; -#X obj 45 121 / 2.302; -#X text 114 122 ln 10; -#X obj 45 156 * 20; -#X connect 0 0 2 0; -#X connect 2 0 3 0; -#X connect 3 0 5 0; -#X connect 5 0 1 0; -#X restore 289 497 pd db; -#X obj 116 495 *; -#N canvas 0 22 458 308 list-map 0; -#N canvas 0 22 454 304 serial 0; -#X obj 65 38 inlet; -#X obj 53 227 outlet; -#X obj 38 180 list split 1; -#X obj 38 97 until; -#X obj 38 135 list append; -#X obj 64 64 t b l; -#X obj 182 130 bang; -#X connect 0 0 5 0; -#X connect 2 0 1 0; -#X connect 2 1 4 1; -#X connect 2 2 6 0; -#X connect 3 0 4 0; -#X connect 4 0 2 0; -#X connect 5 0 3 0; -#X connect 5 1 4 1; -#X connect 6 0 3 1; -#X restore 76 106 pd serial; -#N canvas 676 218 470 320 synth 0; -#X obj 55 34 inlet; -#X obj 107 266 outlet; -#X obj 200 37 inlet reset; -#X obj 55 61 route bang; -#X obj 134 99 t b a; -#X obj 197 64 t b b b; -#X obj 105 239 spigot; -#X msg 250 171 0; -#X msg 68 161 1; -#X obj 50 102 t b b b; -#X obj 185 169 list; -#X obj 126 166 any; -#X connect 0 0 3 0; -#X connect 2 0 5 0; -#X connect 3 0 9 0; -#X connect 3 1 4 0; -#X connect 4 0 11 0; -#X connect 4 1 10 1; -#X connect 5 0 10 0; -#X connect 5 1 10 1; -#X connect 5 2 7 0; -#X connect 6 0 1 0; -#X connect 7 0 6 1; -#X connect 8 0 6 1; -#X connect 9 0 7 0; -#X connect 9 1 11 0; -#X connect 9 2 8 0; -#X connect 10 0 11 1; -#X connect 11 0 10 0; -#X connect 11 0 6 0; -#X restore 59 196 pd synth; -#X obj 61 66 t b l b; -#X obj 61 31 inlet list-in; -#X obj 56 239 outlet list-out; -#X obj 261 242 outlet map-in; -#X obj 281 29 inlet map-out; -#X connect 0 0 5 0; -#X connect 1 0 4 0; -#X connect 2 0 1 0; -#X connect 2 1 0 0; -#X connect 2 2 1 1; -#X connect 3 0 2 0; -#X connect 6 0 1 0; -#X restore 23 495 pd list-map; -#N canvas 0 22 462 312 list-map 0; -#N canvas 0 22 454 304 serial 0; -#X obj 65 38 inlet; -#X obj 53 227 outlet; -#X obj 38 180 list split 1; -#X obj 38 97 until; -#X obj 38 135 list append; -#X obj 64 64 t b l; -#X obj 182 130 bang; -#X connect 0 0 5 0; -#X connect 2 0 1 0; -#X connect 2 1 4 1; -#X connect 2 2 6 0; -#X connect 3 0 4 0; -#X connect 4 0 2 0; -#X connect 5 0 3 0; -#X connect 5 1 4 1; -#X connect 6 0 3 1; -#X restore 76 106 pd serial; -#N canvas 676 218 474 324 synth 0; -#X obj 55 34 inlet; -#X obj 107 266 outlet; -#X obj 200 37 inlet reset; -#X obj 55 61 route bang; -#X obj 197 64 t b b b; -#X obj 105 239 spigot; -#X msg 250 171 0; -#X msg 68 161 1; -#X obj 50 102 t b b b; -#X obj 185 169 list; -#X obj 126 166 any; -#X obj 134 99 t b l; -#X connect 0 0 3 0; -#X connect 2 0 4 0; -#X connect 3 0 8 0; -#X connect 3 1 11 0; -#X connect 4 0 9 0; -#X connect 4 1 9 1; -#X connect 4 2 6 0; -#X connect 5 0 1 0; -#X connect 6 0 5 1; -#X connect 7 0 5 1; -#X connect 8 0 6 0; -#X connect 8 1 10 0; -#X connect 8 2 7 0; -#X connect 9 0 10 1; -#X connect 10 0 9 0; -#X connect 10 0 5 0; -#X connect 11 0 10 0; -#X connect 11 1 9 1; -#X restore 59 196 pd synth; -#X obj 61 66 t b l b; -#X obj 61 31 inlet list-in; -#X obj 56 239 outlet list-out; -#X obj 261 242 outlet map-in; -#X obj 281 29 inlet map-out; -#X connect 0 0 5 0; -#X connect 1 0 4 0; -#X connect 2 0 1 0; -#X connect 2 1 0 0; -#X connect 2 2 1 1; -#X connect 3 0 2 0; -#X connect 6 0 1 0; -#X restore 195 497 pd list-map; -#X text 257 536 dB; -#X connect 1 0 8 0; -#X connect 3 0 36 0; -#X connect 3 1 37 0; -#X connect 8 0 21 0; -#X connect 12 0 11 0; -#X connect 14 0 12 0; -#X connect 15 0 17 0; -#X connect 17 0 20 1; -#X connect 18 0 19 0; -#X connect 19 0 17 1; -#X connect 20 0 3 0; -#X connect 21 0 20 0; -#X connect 21 1 15 0; -#X connect 21 1 22 0; -#X connect 22 0 35 1; -#X connect 27 0 1 0; -#X connect 29 0 18 0; -#X connect 32 0 25 0; -#X connect 33 0 25 0; -#X connect 34 0 37 1; -#X connect 35 0 36 1; -#X connect 36 0 6 0; -#X connect 36 1 35 0; -#X connect 37 0 7 0; -#X connect 37 1 34 0; diff --git a/externals/grill/vasp/pd-ex/loudness.pd b/externals/grill/vasp/pd-ex/loudness.pd deleted file mode 100644 index b4fe5710..00000000 --- a/externals/grill/vasp/pd-ex/loudness.pd +++ /dev/null @@ -1,207 +0,0 @@ -#N canvas 258 35 637 398 12; -#N canvas 0 0 450 300 graph1 0; -#X array filter 1024 float 1; -#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#A 1000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; -#X coords 0 10 1023 -10 200 140 1; -#X restore 412 91 graph; -#X obj 171 129 table buf 10; -#X obj 37 128 wedit buf; -#X obj 44 203 bng 25 250 50 0 empty empty start 0 -6 0 8 -24198 -1 --1; -#N canvas 289 57 385 501 do 0; -#X obj 40 20 inlet; -#X obj 38 452 outlet; -#X obj 38 175 vasp.parts; -#X msg 40 91 vasp buf; -#N canvas 0 0 256 335 accum 0; -#X obj 31 158 +; -#X obj 65 159 f; -#X obj 32 95 t f b; -#X obj 64 229 /; -#X obj 111 158 1; -#X obj 112 183 +; -#X obj 146 184 f; -#X obj 32 53 inlet; -#X obj 64 276 outlet; -#X obj 169 53 inlet; -#X text 171 28 reset; -#X text 31 31 value; -#X obj 169 79 t b; -#X obj 167 106 0; -#X connect 0 0 1 0; -#X connect 1 0 0 1; -#X connect 1 0 3 0; -#X connect 2 0 0 0; -#X connect 2 1 4 0; -#X connect 3 0 8 0; -#X connect 4 0 5 0; -#X connect 5 0 6 0; -#X connect 6 0 5 1; -#X connect 6 0 3 1; -#X connect 7 0 2 0; -#X connect 9 0 12 0; -#X connect 12 0 13 0; -#X connect 13 0 1 1; -#X connect 13 0 6 1; -#X restore 37 382 pd accum; -#X text 129 174 loop over fragments; -#X text 112 380 make average of fragments; -#X msg 122 212 radio detach 1; -#X obj 190 125 vasp.f?; -#X obj 188 90 vasp.! @ref filter; -#X obj 138 261 vasp.db2pow; -#X obj 40 52 t b b; -#N canvas 0 0 257 314 frag 0; -#X obj 40 210 vasp.rms; -#X obj 40 92 vasp.rfft; -#X obj 40 176 vasp.r!fft; -#X obj 40 136 vasp.*; -#X obj 41 65 vasp.!; -#X obj 44 25 inlet; -#X obj 39 248 outlet; -#X obj 152 22 inlet; -#X connect 0 0 6 0; -#X connect 1 0 3 0; -#X connect 2 0 0 0; -#X connect 3 0 2 0; -#X connect 4 0 1 0; -#X connect 5 0 4 0; -#X connect 7 0 3 1; -#X restore 37 319 pd frag; -#X text 107 315 filter fragment and calc rms; -#X connect 0 0 11 0; -#X connect 2 0 12 0; -#X connect 3 0 2 0; -#X connect 4 0 1 0; -#X connect 7 0 12 0; -#X connect 8 0 2 1; -#X connect 9 0 8 0; -#X connect 9 0 10 0; -#X connect 10 0 12 1; -#X connect 11 0 3 0; -#X connect 11 1 4 1; -#X connect 11 1 7 0; -#X connect 11 1 9 0; -#X connect 12 0 4 0; -#X restore 44 284 pd do; -#X obj 44 348 nbx 5 18 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 14 --261689 -1 -1 0 256; -#N canvas 277 107 454 304 2db 0; -#X obj 38 19 inlet; -#X obj 40 58 powtodb; -#X obj 40 88 - 100; -#X obj 41 124 outlet; -#X connect 0 0 1 0; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X restore 44 311 pd 2db; -#X text 36 101 load/play buffer; -#X msg 44 246 vasp buf; -#X text 129 347 weighted loudness (decibels); -#N canvas 312 40 678 619 filter 0; -#X obj 46 26 inlet; -#X obj 46 544 vasp.= @ref filter; -#X obj 46 508 t b a; -#X obj 45 572 vasp.u; -#X msg 44 104 0; -#X obj 43 60 route flat dbA dbB dbC; -#X msg 87 102 env -77.8 8 -56.7 16 -39.4 31.5 -26.2 63 -16.1 125 -8.6 -250 -3.2 500 0 1000 1.2 2000 1 4000 -1.1 8000 -6.6 16000 -15.8 31500 -; -#X obj 392 11 loadbang; -#X obj 392 36 samplerate~; -#X obj 45 476 vasp.tilt; -#X obj 107 448 /; -#X text 156 336 large enough temporary buffer; -#X obj 44 338 vasp.! 100000; -#X obj 296 66 / 2; -#X obj 462 14 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 295 38 r smpfrq; -#X obj 43 365 vasp.=; -#X obj 44 309 t b a; -#X obj 67 422 vasp.f?; -#X obj 44 394 t a a b; -#X obj 134 421 vasp.s? @ref filter; -#X msg 129 158 env -43.6 8 -28.5 16 -17.1 31.5 -9.3 63 -4.2 125 -1.3 -250 -0.3 500 0 1000 -0.1 2000 -0.7 4000 -2.9 8000 -8.4 16000 -17.6 -31500; -#X msg 170 221 env -17.7 8 -8.5 16 -3 31.5 -0.8 63 -0.2 125 0 250 0 -500 0 1000 -0.2 2000 -0.8 4000 -3 8000 -8.5 16000 -17.7 31500; -#X text 124 476 resample; -#X connect 0 0 5 0; -#X connect 1 0 3 0; -#X connect 2 0 1 0; -#X connect 2 1 1 1; -#X connect 4 0 17 0; -#X connect 5 0 4 0; -#X connect 5 1 6 0; -#X connect 5 2 21 0; -#X connect 5 3 22 0; -#X connect 6 0 17 0; -#X connect 7 0 8 0; -#X connect 8 0 13 0; -#X connect 9 0 2 0; -#X connect 10 0 9 1; -#X connect 12 0 16 0; -#X connect 13 0 12 1; -#X connect 14 0 8 0; -#X connect 15 0 13 0; -#X connect 16 0 19 0; -#X connect 17 0 12 0; -#X connect 17 1 16 1; -#X connect 18 0 10 0; -#X connect 19 0 9 0; -#X connect 19 1 18 0; -#X connect 19 2 20 0; -#X connect 20 0 10 1; -#X connect 21 0 17 0; -#X connect 22 0 17 0; -#X restore 471 344 pd filter; -#X msg 416 300 flat; -#X msg 464 299 dbA; -#X obj 11 10 cnv 15 600 50 empty empty loudness 10 22 0 24 -260818 --1 0; -#X text 202 41 http://www.parasitaere-kapazitaeten.net; -#X text 203 25 needs vasp and wedit; -#X text 203 10 get weighted loudness \, (C)2003 Thomas Grill; -#X msg 499 299 dbB; -#X msg 536 300 dbC; -#X connect 3 0 8 0; -#X connect 4 0 6 0; -#X connect 6 0 5 0; -#X connect 8 0 4 0; -#X connect 11 0 10 0; -#X connect 12 0 10 0; -#X connect 17 0 10 0; -#X connect 18 0 10 0; diff --git a/externals/grill/vasp/pd-ex/wedit.pd b/externals/grill/vasp/pd-ex/wedit.pd deleted file mode 100644 index ce3ab56b..00000000 --- a/externals/grill/vasp/pd-ex/wedit.pd +++ /dev/null @@ -1,1727 +0,0 @@ -#N canvas 52 39 754 360 10;
-#X obj 73 100 hsl 401 100 0 400 0 0 \$0-slider1snd \$0-slider1rcv empty
--2 -6 1728 8 -262144 -1 -1 0 0;
-#X obj 37 90 cnv 15 600 220 empty empty empty 20 12 0 14 -233017 -66577
-0;
-#N canvas 389 97 591 525 inside 0;
-#N canvas 184 311 671 358 todo 0;
-#X floatatom 60 136 5 0 0 0 - - -;
-#X msg 60 173 \; \$2-p1b size \$1;
-#X obj 60 153 pack 0 \$0;
-#X msg 60 85 \; \$2-p1b color \$1;
-#X floatatom 60 48 5 0 0 0 - - -;
-#X obj 60 65 pack 0 \$0;
-#X text 210 57 wenn eine range den focus erhaelt (indem man in sie
-klickt) dann:;
-#X text 212 96 1 border changes to blue;
-#X text 211 115 2 other border gets black;
-#X text 211 136 3 middle is calculated;
-#X text 211 156 4 range min/max is set and tested;
-#N canvas 0 0 687 526 todo 0;
-#X text 51 126 noch kein scrollen und vergroessern;
-#X text 52 78 beim prototyp noch kein cursor (wird nicht so schnell
-kommen...;
-#X text 47 159 wavedisplay verwendet normale anzeige von pd;
-#X text 44 190 laengenanzeige in samples;
-#X text 78 12 todo;
-#X text 49 36 fuer das gop-tool muss die groesse variabel sein;
-#X text 53 220 record-moeglichkeit;
-#X text 47 246 preferences abspeichern: welches fileformat \, temporaere
-aufnahmedatei \, ab welcher groesse schreiben auf disk...;
-#X text 49 294 stereo-files...;
-#X restore 65 247 pd todo;
-#X text 79 13 only for testin \, debugging and todo list;
-#N canvas 0 0 476 326 reset 0;
-#X obj 183 177 s \$0-sm;
-#X obj 171 233 s \$0-rb;
-#X obj 123 230 s \$0-lb;
-#X msg 123 208 0;
-#X msg 171 212 400;
-#X obj 106 265 s \$0-redraw;
-#X obj 117 145 t b b b f;
-#X msg 145 102 1;
-#X obj 192 32 inlet;
-#X obj 221 72 symbol \$0-;
-#X msg 221 94 \; \$1 resize 400 \, bang;
-#X connect 3 0 2 0;
-#X connect 4 0 1 0;
-#X connect 6 0 5 0;
-#X connect 6 1 3 0;
-#X connect 6 2 4 0;
-#X connect 6 3 0 0;
-#X connect 7 0 6 0;
-#X connect 8 0 7 0;
-#X connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X restore 150 242 pd reset;
-#X obj 150 223 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X connect 4 0 5 0;
-#X connect 5 0 3 0;
-#X connect 14 0 13 0;
-#X restore 373 70 pd todo;
-#N canvas 154 197 727 356 play 0;
-#X obj 266 115 r \$0-o;
-#X obj 309 87 r \$0-f;
-#X obj 266 156 pack 0 0;
-#X obj 51 197 outlet~;
-#X msg 370 100 stop;
-#X msg 266 177 set \$1 \$2;
-#X msg 51 123;
-#X msg 69 98 set bang;
-#X msg 149 69 set;
-#X obj 149 49 loadbang;
-#X obj 309 114 t b f;
-#X obj 266 233 spigot;
-#X obj 51 77 t b b b;
-#X msg 297 205 0;
-#X obj 233 75 t b b b;
-#X msg 334 206 1;
-#X text 155 260 loop not exactly a loop \, based on messages not samples
-;
-#X obj 51 158 tabplay~ \$0-;
-#X obj 412 22 r \$0-loopbutton;
-#X obj 233 10 r \$0-playbutton;
-#X obj 51 46 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 22 27 play all (not used);
-#X obj 233 50 sel 1 0;
-#X obj 233 32 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
-;
-#X obj 467 149 spigot;
-#X obj 412 68 sel 0 1;
-#X msg 412 90 1;
-#X msg 445 91 0;
-#X obj 541 66 loadbang;
-#X obj 412 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
-;
-#X obj 467 177 s \$0-stopped;
-#X obj 118 206 sel 1;
-#X obj 118 182 0;
-#X obj 118 253 sel 1;
-#X obj 118 228 0;
-#X connect 0 0 2 0;
-#X connect 1 0 10 0;
-#X connect 2 0 5 0;
-#X connect 4 0 17 0;
-#X connect 4 0 30 0;
-#X connect 5 0 11 0;
-#X connect 6 0 17 0;
-#X connect 7 0 6 0;
-#X connect 8 0 6 0;
-#X connect 9 0 8 0;
-#X connect 10 0 2 0;
-#X connect 10 1 2 1;
-#X connect 11 0 6 0;
-#X connect 12 0 6 0;
-#X connect 12 1 7 0;
-#X connect 12 2 13 0;
-#X connect 13 0 11 1;
-#X connect 14 0 6 0;
-#X connect 14 1 2 0;
-#X connect 14 2 15 0;
-#X connect 15 0 11 1;
-#X connect 17 0 3 0;
-#X connect 17 1 24 0;
-#X connect 17 1 32 0;
-#X connect 18 0 29 0;
-#X connect 19 0 23 0;
-#X connect 20 0 12 0;
-#X connect 22 0 14 0;
-#X connect 22 1 4 0;
-#X connect 23 0 22 0;
-#X connect 23 0 32 1;
-#X connect 24 0 30 0;
-#X connect 25 0 26 0;
-#X connect 25 1 27 0;
-#X connect 26 0 24 1;
-#X connect 27 0 24 1;
-#X connect 28 0 26 0;
-#X connect 29 0 25 0;
-#X connect 29 0 34 1;
-#X connect 31 0 34 0;
-#X connect 32 0 31 0;
-#X connect 33 0 6 0;
-#X connect 34 0 33 0;
-#X restore 87 242 pd play;
-#N canvas 0 0 484 334 zu_vasp 0;
-#X obj 73 96 r \$0-lb;
-#X obj 173 97 r \$0-rb;
-#X obj 138 177 -;
-#X obj 138 155 t b f;
-#X obj 73 148 s \$0-o;
-#X obj 138 198 s \$0-f;
-#X obj 220 97 r \$0-sm;
-#X obj 120 96 r \$0-sm;
-#X obj 73 124 * 1;
-#X obj 173 120 * 1;
-#X text 81 63 setzt offset und frames(length) in den vasp-objekten
-;
-#X obj 202 155 s \$0-rbs;
-#X connect 0 0 8 0;
-#X connect 1 0 9 0;
-#X connect 2 0 5 0;
-#X connect 3 0 2 0;
-#X connect 3 1 2 1;
-#X connect 6 0 9 1;
-#X connect 7 0 8 1;
-#X connect 8 0 4 0;
-#X connect 8 0 3 0;
-#X connect 9 0 2 0;
-#X connect 9 0 11 0;
-#X restore 88 197 pd zu_vasp;
-#N canvas 105 284 510 289 zu_sampledisplay 0;
-#X obj 63 46 r \$0-lb;
-#X obj 163 47 r \$0-rb;
-#X obj 128 127 -;
-#X obj 128 105 t b f;
-#X obj 210 47 r \$0-sm;
-#X obj 110 46 r \$0-sm;
-#X obj 63 74 * 1;
-#X obj 163 70 * 1;
-#X obj 63 156 div;
-#X obj 185 161 div;
-#X obj 275 161 div;
-#X obj 63 181 s \$0-lbs_displ;
-#X obj 185 183 s \$0-rs_displ;
-#X obj 275 183 s \$0-rbs_displ;
-#X msg 293 66 400;
-#X obj 293 45 loadbang;
-#X connect 0 0 6 0;
-#X connect 1 0 7 0;
-#X connect 2 0 9 0;
-#X connect 3 0 2 0;
-#X connect 3 1 2 1;
-#X connect 4 0 7 1;
-#X connect 5 0 6 1;
-#X connect 6 0 3 0;
-#X connect 6 0 8 0;
-#X connect 7 0 2 0;
-#X connect 7 0 10 0;
-#X connect 8 0 11 0;
-#X connect 9 0 12 0;
-#X connect 10 0 13 0;
-#X connect 14 0 7 0;
-#X connect 15 0 14 0;
-#X restore 88 218 pd zu_sampledisplay;
-#N canvas 78 106 492 180 playbuttons 0;
-#N canvas 0 0 443 463 playbutton 0;
-#X obj 41 72 tgl 12 0 \$0-playselection \$0-playselection_r empty 16
-6 1728 8 -262144 -1 -1 0 1;
-#X text 67 68 playselection;
-#X obj 41 42 r \$0-playbutton;
-#X obj 41 127 \$0;
-#X obj 59 178 \$0;
-#X msg 137 120 \; \$1-play_white color 11 \; \$1-play_dark color 0
-;
-#X msg 117 219 \; \$1-play_white color 0 \; \$1-play_dark color 11
-;
-#X msg 137 168 \; \$1-playbutton1 color 18;
-#X msg 116 267 \; \$1-playbutton1 color 16;
-#X obj 41 99 sel 1 0;
-#X obj 160 90 s \$0-playbutton;
-#X msg 160 68 set \$1;
-#X obj 81 392 s \$0-playbuttonr;
-#X obj 81 342 r \$0-stopped;
-#X msg 81 365 set 0;
-#X msg 48 366 0;
-#X connect 0 0 9 0;
-#X connect 0 0 11 0;
-#X connect 2 0 0 0;
-#X connect 3 0 5 0;
-#X connect 3 0 7 0;
-#X connect 4 0 6 0;
-#X connect 4 0 8 0;
-#X connect 9 0 3 0;
-#X connect 9 1 4 0;
-#X connect 11 0 10 0;
-#X connect 13 0 14 0;
-#X connect 13 0 15 0;
-#X connect 14 0 12 0;
-#X connect 15 0 0 0;
-#X restore 46 76 pd playbutton;
-#N canvas 0 0 490 451 loopbutton 0;
-#X obj 71 109 \$0;
-#X obj 89 199 \$0;
-#X obj 71 35 r \$0-loopbutton;
-#X msg 167 130 \; \$1-loop_white color 11 \; \$1-loop_dark color 0
-;
-#X msg 167 178 \; \$1-loopbutton1 color 18;
-#X msg 147 229 \; \$1-loop_white color 0 \; \$1-loop_dark color 11
-;
-#X msg 146 277 \; \$1-loopbutton1 color 16;
-#X text 90 55 playselection loop;
-#X obj 71 59 tgl 12 0 \$0-playselection_loop \$0-playselection_r_loop
-empty 16 6 1728 8 -262144 -1 -1 0 1;
-#X msg 255 79 set \$1;
-#X obj 255 101 s \$0-loopbutton;
-#X obj 71 77 sel 1 0;
-#X connect 0 0 3 0;
-#X connect 0 0 4 0;
-#X connect 1 0 5 0;
-#X connect 1 0 6 0;
-#X connect 2 0 8 0;
-#X connect 8 0 9 0;
-#X connect 8 0 11 0;
-#X connect 9 0 10 0;
-#X connect 11 0 0 0;
-#X connect 11 1 1 0;
-#X restore 138 76 pd loopbutton;
-#N canvas 54 27 582 413 recbutton 0;
-#X obj 61 148 tgl 12 0 \$0-playselection \$0-playselection_r empty
-16 6 1728 8 -262144 -1 -1 0 1;
-#X obj 73 260 \$0;
-#X obj 256 272 \$0;
-#X obj 61 175 sel 1 0;
-#X msg 142 187 set \$1;
-#X msg 380 224 set 0;
-#X msg 347 225 0;
-#X text 86 139 recselection;
-#X msg 95 289 \; \$1-rec_white color 11 \; \$1-rec_dark color 0;
-#X obj 380 251 s \$0-recbuttonr;
-#X obj 380 201 r \$0-recstopped;
-#X obj 41 42 r \$0-recbuttons;
-#X obj 142 209 s \$0-recbuttonr;
-#X msg 279 293 \; \$1-rec_white color 0 \; \$1-rec_dark color 11;
-#X msg 95 337 \; \$1-recbutton1 color 13;
-#X msg 278 342 \; \$1-recbutton1 color 23;
-#X obj 61 203 t b b;
-#X msg 41 67 \; pd-record_window vis 1;
-#X connect 0 0 3 0;
-#X connect 0 0 4 0;
-#X connect 1 0 8 0;
-#X connect 1 0 14 0;
-#X connect 2 0 13 0;
-#X connect 2 0 15 0;
-#X connect 3 0 16 0;
-#X connect 3 1 2 0;
-#X connect 4 0 12 0;
-#X connect 5 0 9 0;
-#X connect 6 0 0 0;
-#X connect 10 0 5 0;
-#X connect 10 0 6 0;
-#X connect 11 0 17 0;
-#X connect 16 1 1 0;
-#X restore 225 76 pd recbutton;
-#N canvas 54 27 586 417 recbutton2 0;
-#X obj 41 71 tgl 12 0 \$0-playselection \$0-playselection_r empty 16
-6 1728 8 -262144 -1 -1 0 1;
-#X obj 61 175 \$0;
-#X obj 236 196 \$0;
-#X obj 59 137 sel 1 0;
-#X msg 122 111 set \$1;
-#X msg 360 148 set 0;
-#X msg 327 149 0;
-#X text 60 59 recselection;
-#X obj 360 175 s \$0-recbuttonr;
-#X obj 360 125 r \$0-recstopped;
-#X obj 41 42 r \$0-recbutton2s;
-#X obj 122 133 s \$0-recbutton2r;
-#X msg 83 204 \; \$1-rec2_white color 11 \; \$1-rec2_dark color 0;
-#X msg 259 217 \; \$1-rec2_white color 0 \; \$1-rec2_dark color 11
-;
-#X msg 258 266 \; \$1-recbutton2 color 23;
-#X msg 83 252 \; \$1-recbutton2 color 13;
-#X text 215 35 this is the recbutton inside the rec_window;
-#X obj 41 304 s \$0-rec_1_0;
-#X obj 41 88 t f f f;
-#X connect 0 0 18 0;
-#X connect 1 0 12 0;
-#X connect 1 0 15 0;
-#X connect 2 0 13 0;
-#X connect 2 0 14 0;
-#X connect 3 0 1 0;
-#X connect 3 1 2 0;
-#X connect 4 0 11 0;
-#X connect 5 0 8 0;
-#X connect 6 0 0 0;
-#X connect 9 0 5 0;
-#X connect 9 0 6 0;
-#X connect 10 0 0 0;
-#X connect 18 0 17 0;
-#X connect 18 1 3 0;
-#X connect 18 2 4 0;
-#X restore 306 76 pd recbutton2;
-#X restore 88 176 pd playbuttons;
-#N canvas 0 0 467 508 reduce 0;
-#X obj 166 199 vasp.!;
-#X text 192 70 reduce to selection;
-#X obj 166 177 vasp.o;
-#X obj 135 246 vasp.u;
-#X obj 166 156 vasp.f;
-#X obj 197 122 r \$0-f;
-#X obj 216 178 r \$0-o;
-#X obj 94 171 vasp.s;
-#X obj 135 224 vasp.=;
-#X obj 282 221 * 0.0025;
-#X obj 269 252 0;
-#X obj 318 302 s \$0-sm;
-#X obj 334 367 s \$0-rb;
-#X obj 285 364 s \$0-lb;
-#X msg 285 342 0;
-#X msg 334 346 400;
-#X obj 269 399 s \$0-redraw;
-#X obj 269 278 t b b b f;
-#X obj 76 133 t b a a;
-#X obj 76 87 symbol \$0-;
-#X msg 76 110 vasp \$1;
-#X obj 76 60 r \$0-reduce;
-#X connect 0 0 8 1;
-#X connect 2 0 0 0;
-#X connect 4 0 2 0;
-#X connect 5 0 4 1;
-#X connect 5 0 7 1;
-#X connect 5 0 9 0;
-#X connect 6 0 2 1;
-#X connect 7 0 8 0;
-#X connect 8 0 3 0;
-#X connect 9 0 10 1;
-#X connect 10 0 17 0;
-#X connect 14 0 13 0;
-#X connect 15 0 12 0;
-#X connect 17 0 16 0;
-#X connect 17 1 14 0;
-#X connect 17 2 15 0;
-#X connect 17 3 11 0;
-#X connect 18 0 10 0;
-#X connect 18 1 7 0;
-#X connect 18 2 4 0;
-#X connect 19 0 20 0;
-#X connect 20 0 18 0;
-#X connect 21 0 19 0;
-#X restore 391 339 pd reduce;
-#N canvas 0 0 315 215 mute 0;
-#X obj 42 124 vasp.= 0;
-#X obj 42 95 vasp.o;
-#X obj 42 156 vasp.u;
-#X obj 42 74 vasp.f;
-#X obj 118 50 r \$0-f;
-#X obj 89 98 r \$0-o;
-#X obj 42 17 symbol \$0-;
-#X msg 42 38 vasp \$1;
-#X obj 192 114 r \$0-set_0;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 3 0 1 0;
-#X connect 4 0 3 1;
-#X connect 5 0 1 1;
-#X connect 6 0 7 0;
-#X connect 7 0 3 0;
-#X connect 8 0 6 0;
-#X restore 391 316 pd mute;
-#N canvas 0 0 320 310 noise 0;
-#X obj 115 153 vasp.o;
-#X obj 115 214 vasp.u;
-#X obj 115 132 vasp.f;
-#X obj 191 108 r \$0-f;
-#X obj 162 156 r \$0-o;
-#X obj 115 182 vasp.noise;
-#X obj 115 73 symbol \$0-;
-#X msg 115 96 vasp \$1;
-#X obj 115 43 r \$0-noise;
-#X connect 0 0 5 0;
-#X connect 2 0 0 0;
-#X connect 3 0 2 1;
-#X connect 4 0 0 1;
-#X connect 5 0 1 0;
-#X connect 6 0 7 0;
-#X connect 7 0 2 0;
-#X connect 8 0 6 0;
-#X restore 392 401 pd noise;
-#N canvas 420 161 466 480 open 0;
-#X obj 68 61 openpanel;
-#X obj 68 159 soundfiler;
-#X obj 68 214 * 0.0025;
-#X text 131 214 (dasselbe wie / 400 );
-#X obj 124 307 s \$0-sm;
-#X obj 79 89 s \$0-opened;
-#X obj 122 368 s \$0-rb;
-#X obj 74 365 s \$0-lb;
-#X msg 74 343 0;
-#X msg 122 347 400;
-#X obj 42 398 s \$0-redraw;
-#X obj 88 185 s \$0-length;
-#X text 172 184 (not used yet);
-#X obj 68 116 pack s s;
-#X obj 267 83 symbol \$0-;
-#X obj 267 58 loadbang;
-#X obj 322 56 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X msg 68 136 read -resize \$1 \$2;
-#X obj 68 280 t b b b f;
-#X obj 68 37 r \$0-open;
-#X connect 0 0 5 0;
-#X connect 0 0 13 0;
-#X connect 1 0 2 0;
-#X connect 1 0 11 0;
-#X connect 2 0 18 0;
-#X connect 8 0 7 0;
-#X connect 9 0 6 0;
-#X connect 13 0 17 0;
-#X connect 14 0 13 1;
-#X connect 15 0 14 0;
-#X connect 16 0 14 0;
-#X connect 17 0 1 0;
-#X connect 18 0 10 0;
-#X connect 18 1 8 0;
-#X connect 18 2 9 0;
-#X connect 18 3 4 0;
-#X connect 19 0 0 0;
-#X restore 391 253 pd open;
-#N canvas 0 0 460 310 save 0;
-#X obj 130 277 soundfiler;
-#X msg 144 146 set symbol \$1;
-#X obj 189 119 r \$0-opened;
-#X msg 131 178;
-#X msg 80 153 set;
-#X obj 80 122 loadbang;
-#X obj 131 231 pack s s;
-#X obj 174 207 symbol \$0-;
-#X obj 174 185 loadbang;
-#X msg 130 255 write -wave \$1 \$2;
-#X obj 131 78 r \$0-save;
-#X connect 1 0 3 0;
-#X connect 2 0 1 0;
-#X connect 3 0 6 0;
-#X connect 4 0 3 0;
-#X connect 5 0 4 0;
-#X connect 6 0 9 0;
-#X connect 7 0 6 1;
-#X connect 8 0 7 0;
-#X connect 9 0 0 0;
-#X connect 10 0 3 0;
-#X restore 391 274 pd save;
-#N canvas 0 0 377 253 save_as 0;
-#X obj 130 187 soundfiler;
-#X obj 217 112 symbol \$0-;
-#X obj 217 88 loadbang;
-#X obj 130 142 pack s s;
-#X msg 130 165 write -wave \$1 \$2;
-#X obj 130 80 r \$0-save_as;
-#X obj 130 107 savepanel;
-#X connect 1 0 3 1;
-#X connect 2 0 1 0;
-#X connect 3 0 4 0;
-#X connect 4 0 0 0;
-#X connect 5 0 6 0;
-#X connect 6 0 3 0;
-#X restore 391 295 pd save_as;
-#N canvas 253 35 637 598 cut 0;
-#X obj 242 170 r \$0-o;
-#X obj 502 118 r \$0-rbs;
-#X obj 198 193 vasp.f;
-#X obj 445 117 r \$0-sm;
-#X msg 432 150 400;
-#X obj 432 177 * 1;
-#X obj 432 200 - 0;
-#X obj 400 225 vasp.f;
-#X obj 400 254 vasp.o;
-#X obj 198 271 vasp.!;
-#X obj 400 283 vasp.!;
-#X obj 229 241 +;
-#X text 466 200 frames ab rb;
-#X text 281 173 frames 0-lb;
-#X text 256 244 gesamtframes;
-#X obj 62 332 vasp.=;
-#X obj 123 96 t a a a b;
-#X obj 62 438 vasp.=;
-#X obj 62 414 vasp.o;
-#X obj 62 461 vasp.u;
-#X obj 461 442 s \$0-sm;
-#X obj 477 504 s \$0-rb;
-#X obj 428 504 s \$0-lb;
-#X msg 428 482 0;
-#X msg 477 483 400;
-#X obj 412 539 s \$0-redraw;
-#X obj 412 418 t b b b f;
-#X obj 425 374 * 0.0025;
-#X obj 412 396 0;
-#X obj 400 307 t b a;
-#X obj 151 383 r \$0-o;
-#X text 193 384 frames 0-lb;
-#X obj 198 332 t b a;
-#X msg 62 484 bang;
-#X obj 62 309 vasp.s;
-#X obj 62 381 vasp.f;
-#X obj 123 49 symbol \$0-;
-#X msg 123 72 vasp \$1;
-#X obj 123 27 r \$0-cut;
-#X obj 62 261 symbol \$0-;
-#X msg 62 284 vasp \$1;
-#X obj 174 143 symbol \$0-;
-#X msg 174 166 vasp \$1;
-#X connect 0 0 2 1;
-#X connect 0 0 11 1;
-#X connect 1 0 6 1;
-#X connect 1 0 8 1;
-#X connect 2 0 9 0;
-#X connect 3 0 5 1;
-#X connect 4 0 5 0;
-#X connect 5 0 6 0;
-#X connect 6 0 7 1;
-#X connect 6 0 11 0;
-#X connect 6 0 35 1;
-#X connect 7 0 8 0;
-#X connect 8 0 10 0;
-#X connect 9 0 32 0;
-#X connect 10 0 29 0;
-#X connect 11 0 27 0;
-#X connect 11 0 9 1;
-#X connect 11 0 34 1;
-#X connect 15 0 35 0;
-#X connect 16 2 7 0;
-#X connect 16 3 4 0;
-#X connect 17 0 19 0;
-#X connect 18 0 17 0;
-#X connect 19 0 33 0;
-#X connect 23 0 22 0;
-#X connect 24 0 21 0;
-#X connect 26 0 25 0;
-#X connect 26 1 23 0;
-#X connect 26 2 24 0;
-#X connect 26 3 20 0;
-#X connect 27 0 28 1;
-#X connect 28 0 26 0;
-#X connect 29 0 41 0;
-#X connect 29 1 17 1;
-#X connect 30 0 18 1;
-#X connect 32 0 39 0;
-#X connect 32 1 15 1;
-#X connect 33 0 28 0;
-#X connect 34 0 15 0;
-#X connect 35 0 18 0;
-#X connect 36 0 37 0;
-#X connect 37 0 16 0;
-#X connect 38 0 36 0;
-#X connect 39 0 40 0;
-#X connect 40 0 34 0;
-#X connect 41 0 42 0;
-#X connect 42 0 2 0;
-#X restore 391 360 pd cut;
-#N canvas 0 0 382 262 fade_in 0;
-#X obj 121 149 vasp.o;
-#X obj 121 199 vasp.u;
-#X obj 260 110 r \$0-f;
-#X obj 168 147 r \$0-o;
-#X obj 121 124 vasp.f;
-#X obj 121 175 vasp.*window lin;
-#X obj 121 70 symbol \$0-;
-#X msg 121 93 vasp \$1;
-#X obj 121 46 r \$0-fade_in;
-#X connect 0 0 5 0;
-#X connect 2 0 4 1;
-#X connect 3 0 0 1;
-#X connect 4 0 0 0;
-#X connect 5 0 1 0;
-#X connect 6 0 7 0;
-#X connect 7 0 4 0;
-#X connect 8 0 6 0;
-#X restore 391 212 pd fade_in;
-#N canvas 0 0 474 324 fade_out 0;
-#X obj 121 143 vasp.o;
-#X obj 121 192 vasp.u;
-#X obj 260 110 r \$0-f;
-#X obj 163 143 r \$0-o;
-#X obj 121 118 vasp.f;
-#X obj 121 169 vasp.*!window lin;
-#X obj 121 75 symbol \$0-;
-#X msg 121 98 vasp \$1;
-#X obj 121 52 r \$0-fade_out;
-#X connect 0 0 5 0;
-#X connect 2 0 4 1;
-#X connect 3 0 0 1;
-#X connect 4 0 0 0;
-#X connect 5 0 1 0;
-#X connect 6 0 7 0;
-#X connect 7 0 4 0;
-#X connect 8 0 6 0;
-#X restore 391 233 pd fade_out;
-#N canvas 150 120 487 446 send_array 0;
-#X obj 120 212 vasp.s;
-#X obj 191 187 r \$0-sm;
-#X obj 191 208 * 400;
-#X obj 120 233 vasp.f;
-#X obj 120 275 vasp.u;
-#X obj 264 81 symbol \$1;
-#X obj 264 57 loadbang;
-#X obj 264 104 makefilename test%s;
-#X obj 264 127 sel test;
-#X obj 81 69 r \$0-toarray;
-#X obj 81 130 sel 0 1;
-#X obj 81 104 0;
-#X msg 264 151 0;
-#X obj 81 362 print send_to_array_not_possible;
-#X msg 81 338 no initial array-argument given;
-#X obj 120 163 symbol \$1;
-#X msg 307 152 1;
-#X msg 120 185 vasp \$1;
-#X obj 120 254 vasp.= \$0-;
-#X connect 0 0 3 0;
-#X connect 1 0 2 0;
-#X connect 2 0 0 1;
-#X connect 2 0 3 1;
-#X connect 3 0 18 0;
-#X connect 5 0 7 0;
-#X connect 6 0 5 0;
-#X connect 7 0 8 0;
-#X connect 8 0 12 0;
-#X connect 8 1 16 0;
-#X connect 9 0 11 0;
-#X connect 10 0 14 0;
-#X connect 10 1 15 0;
-#X connect 11 0 10 0;
-#X connect 12 0 11 1;
-#X connect 14 0 13 0;
-#X connect 15 0 17 0;
-#X connect 16 0 11 1;
-#X connect 17 0 0 0;
-#X connect 18 0 4 0;
-#X restore 392 423 pd send_array;
-#N canvas 159 26 253 308 output 0;
-#X obj 22 181 inlet~;
-#X obj 83 78 inlet;
-#X msg 98 104 \; pd dsp 1;
-#X obj 83 194 line~;
-#X obj 22 212 *~;
-#X obj 22 241 dac~;
-#X obj 83 171 pack 0 50;
-#X connect 0 0 4 0;
-#X connect 1 0 2 0;
-#X connect 1 0 6 0;
-#X connect 3 0 4 1;
-#X connect 4 0 5 0;
-#X connect 4 0 5 1;
-#X connect 6 0 3 0;
-#X restore 87 290 pd output;
-#N canvas 150 120 772 527 reload_array 0;
-#X obj 361 93 symbol \$1;
-#X obj 348 44 loadbang;
-#X obj 361 116 makefilename test%s;
-#X obj 361 139 sel test;
-#X msg 361 163 0;
-#X msg 146 416 no initial array-argument given;
-#X msg 404 164 1;
-#X obj 348 65 t b b;
-#X obj 348 228 0;
-#X obj 197 43 r \$0-reloadarray;
-#X obj 437 286 symbol \$1;
-#X obj 437 333 vasp.s?;
-#X obj 366 301 symbol \$0-;
-#X obj 366 347 vasp.s;
-#X obj 366 368 vasp.f;
-#X msg 422 396 vasp \$1;
-#X obj 366 416 vasp.=;
-#X obj 422 374 symbol \$1;
-#X obj 366 278 t b b b;
-#X obj 366 440 vasp.u;
-#X text 403 241 load default array into editor \, if argument is given...
-;
-#X obj 545 334 * 0.0025;
-#X obj 601 385 s \$0-sm;
-#X obj 599 446 s \$0-rb;
-#X obj 551 443 s \$0-lb;
-#X msg 551 421 0;
-#X msg 599 425 400;
-#X obj 519 476 s \$0-redraw;
-#X obj 545 358 t b b b f;
-#X obj 197 208 0;
-#X obj 197 234 sel 0 1;
-#X obj 348 255 sel 1;
-#X obj 146 440 print reload_array_not_possible;
-#X msg 437 309 vasp \$1;
-#X msg 366 322 vasp \$1;
-#X connect 0 0 2 0;
-#X connect 1 0 7 0;
-#X connect 2 0 3 0;
-#X connect 3 0 4 0;
-#X connect 3 1 6 0;
-#X connect 4 0 8 1;
-#X connect 4 0 29 1;
-#X connect 5 0 32 0;
-#X connect 6 0 8 1;
-#X connect 6 0 29 1;
-#X connect 7 0 8 0;
-#X connect 7 1 0 0;
-#X connect 8 0 31 0;
-#X connect 9 0 29 0;
-#X connect 10 0 33 0;
-#X connect 11 0 13 1;
-#X connect 11 0 14 1;
-#X connect 11 0 21 0;
-#X connect 12 0 34 0;
-#X connect 13 0 14 0;
-#X connect 14 0 16 0;
-#X connect 15 0 16 1;
-#X connect 16 0 19 0;
-#X connect 17 0 15 0;
-#X connect 18 0 12 0;
-#X connect 18 1 10 0;
-#X connect 18 2 17 0;
-#X connect 21 0 28 0;
-#X connect 25 0 24 0;
-#X connect 26 0 23 0;
-#X connect 28 0 27 0;
-#X connect 28 1 25 0;
-#X connect 28 2 26 0;
-#X connect 28 3 22 0;
-#X connect 29 0 30 0;
-#X connect 30 0 5 0;
-#X connect 30 1 18 0;
-#X connect 31 0 18 0;
-#X connect 33 0 11 0;
-#X connect 34 0 13 0;
-#X restore 391 445 pd reload_array;
-#N canvas 0 0 392 272 normalize 0;
-#X obj 121 149 vasp.o;
-#X obj 121 199 vasp.u;
-#X obj 260 110 r \$0-f;
-#X obj 168 147 r \$0-o;
-#X obj 121 124 vasp.f;
-#X obj 121 70 symbol \$0-;
-#X msg 121 93 vasp \$1;
-#X obj 121 176 vasp.opt;
-#X obj 121 46 r \$0-normalize;
-#X connect 0 0 7 0;
-#X connect 2 0 4 1;
-#X connect 3 0 0 1;
-#X connect 4 0 0 0;
-#X connect 5 0 6 0;
-#X connect 6 0 4 0;
-#X connect 7 0 1 0;
-#X connect 8 0 5 0;
-#X restore 391 381 pd normalize;
-#N canvas 99 249 567 524 volume 0;
-#X obj 133 164 dbtopow;
-#X obj 77 137 0;
-#X obj 133 139 + 100;
-#X obj 77 113 t b;
-#X obj 77 84 route 0;
-#X msg 134 221 -50;
-#X obj 357 314 + 950;
-#X obj 412 315 moses -50;
-#X obj 357 415 0;
-#X msg 461 372 -1000;
-#X msg 357 441 set \$1;
-#X obj 357 292 moses -500;
-#X obj 357 341 min 0;
-#X obj 296 268 moses -1000;
-#X msg 296 291 -1000;
-#X msg 412 341 -1000;
-#X obj 247 244 sel -1000;
-#X obj 461 343 sel -50;
-#X obj 239 394 max -50;
-#X msg 239 435 set \$1;
-#X obj 239 415 + 50;
-#X obj 357 464 s \$0-voldisplr;
-#X obj 77 221 outlet;
-#X obj 239 456 s \$0-volr;
-#X obj 133 112 - 50;
-#X obj 77 60 r \$0-vols;
-#X obj 247 200 r \$0-voldispls;
-#X obj 202 151 dbtopow;
-#X obj 202 126 + 100;
-#X connect 0 0 22 0;
-#X connect 1 0 5 0;
-#X connect 1 0 22 0;
-#X connect 2 0 0 0;
-#X connect 3 0 1 0;
-#X connect 4 0 3 0;
-#X connect 4 1 24 0;
-#X connect 5 0 16 0;
-#X connect 6 0 12 0;
-#X connect 7 0 15 0;
-#X connect 7 1 17 0;
-#X connect 8 0 10 0;
-#X connect 8 0 18 0;
-#X connect 9 0 8 0;
-#X connect 10 0 21 0;
-#X connect 11 0 6 0;
-#X connect 11 1 7 0;
-#X connect 12 0 8 0;
-#X connect 13 0 14 0;
-#X connect 13 1 11 0;
-#X connect 14 0 8 0;
-#X connect 15 0 8 0;
-#X connect 16 0 14 0;
-#X connect 16 1 13 0;
-#X connect 17 0 9 0;
-#X connect 17 1 8 0;
-#X connect 18 0 20 0;
-#X connect 19 0 23 0;
-#X connect 20 0 19 0;
-#X connect 24 0 2 0;
-#X connect 24 0 16 0;
-#X connect 25 0 4 0;
-#X connect 26 0 16 0;
-#X connect 28 0 27 0;
-#X restore 136 242 pd volume;
-#N canvas 424 244 323 150 record_window 0;
-#X obj 17 15 cnv 15 280 120 empty empty empty 20 12 0 14 -233017 -66577
-0;
-#X obj 157 33 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
-;
-#X text 181 30 record into RAM;
-#X obj 157 57 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
-;
-#X text 180 55 record to harddisk;
-#X obj 34 51 tgl 18 0 \$0-recbutton2s \$0-recbutton2r empty 0 -6 1728
-8 -262144 -1 -1 0 1;
-#X obj 29 47 cnv 15 28 25 empty empty empty 0 -10 1 10 -233017 -1 0
-;
-#X obj 32 51 cnv 15 20 15 empty \$0-rec2_white empty 20 12 576 14 -262144
--262144 0;
-#X obj 34 53 cnv 15 20 15 empty \$0-rec2_dark empty 20 12 576 14 -128992
--262144 0;
-#X obj 33 52 cnv 15 20 15 empty \$0-rec2_normal empty 20 12 576 14
--233017 -66577 0;
-#X obj 40 56 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 42 56 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 44 56 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 39 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 41 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 43 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 41 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 45 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 45 57 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 43 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 42 61 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 39 59 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 39 60 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 40 61 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 43 59 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 44 61 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 41 58 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 45 59 cnv 1 1 1 empty \$0-recbutton2 empty 20 12 576 14 -143491
--262144 0;
-#X obj 100 34 vu 15 80 \$0-vu1 empty -1 -8 576 8 -66577 -1 1 0;
-#X text 181 97 monitor;
-#X obj 158 99 tgl 15 0 \$0-monis empty empty 0 -6 1152 8 -262144 -1
--1 0 1;
-#X text 29 72 start/;
-#X text 29 83 stop;
-#X restore 391 133 pd record_window;
-#X obj 391 155 inlet~;
-#N canvas 179 201 394 282 range_main 0;
-#X floatatom 166 34 5 0 0 0 - - -;
-#N canvas 207 450 365 322 s-key-handling 0;
-#X floatatom 111 119 5 0 0 0 - - -;
-#N canvas 83 38 600 551 keyinput_s 0;
-#X obj 186 25 keyname;
-#X obj 84 446 spigot;
-#X obj 179 172 0;
-#X obj 179 116 symbol;
-#X msg 179 88 bang;
-#X obj 179 369 sel 1;
-#X msg 179 393 1;
-#X msg 152 393 0;
-#X obj 152 414 s \$0-spig1;
-#X obj 227 415 s \$0-spig1;
-#X msg 227 394 1;
-#X msg 254 394 0;
-#X obj 179 345 change;
-#X obj 84 67 inlet;
-#X obj 84 472 outlet;
-#X obj 179 144 sel s;
-#X text 276 67 if key "s" is down \, then input is let through;
-#X text 332 85 shifts display;
-#X obj 243 473 outlet;
-#X obj 179 223 t b b 0;
-#X obj 201 266 delay 100;
-#X msg 201 245 stop;
-#X obj 179 201 sel 0 1;
-#X obj 179 313 0;
-#X msg 179 289 1;
-#X text 255 242 linux and win have different up/down behaviour...;
-#X text 232 297 only if there is no new input for 100 ms after 0 \,
-0 is sent out;
-#X floatatom 273 365 5 0 0 0 - - -;
-#X obj 360 475 outlet;
-#X obj 442 479 s \$0-res;
-#X connect 0 0 2 1;
-#X connect 0 0 4 0;
-#X connect 0 1 3 1;
-#X connect 1 0 14 0;
-#X connect 2 0 22 0;
-#X connect 3 0 15 0;
-#X connect 4 0 3 0;
-#X connect 5 0 6 0;
-#X connect 5 0 7 0;
-#X connect 5 0 18 0;
-#X connect 5 0 29 0;
-#X connect 5 1 10 0;
-#X connect 5 1 11 0;
-#X connect 6 0 1 1;
-#X connect 6 0 28 0;
-#X connect 7 0 8 0;
-#X connect 10 0 9 0;
-#X connect 11 0 1 1;
-#X connect 11 0 28 0;
-#X connect 12 0 5 0;
-#X connect 12 0 27 0;
-#X connect 13 0 1 0;
-#X connect 15 0 2 0;
-#X connect 19 0 20 0;
-#X connect 19 1 21 0;
-#X connect 19 2 23 1;
-#X connect 20 0 23 0;
-#X connect 21 0 20 0;
-#X connect 22 0 19 0;
-#X connect 22 1 24 0;
-#X connect 23 0 12 0;
-#X connect 24 0 23 0;
-#X restore 97 93 pd keyinput_s;
-#N canvas 271 177 490 458 s_handling 0;
-#X obj 85 27 inlet;
-#X msg 85 272 set \$1;
-#X obj 85 249 0;
-#X obj 85 202 -;
-#X obj 85 225 t b f;
-#X obj 185 302 s \$0-shiftsel;
-#X obj 204 28 inlet;
-#X text 255 82 first position after hit is ref;
-#X obj 173 116 spigot;
-#X msg 204 82 1;
-#X obj 173 145 t f b;
-#X msg 178 82 0;
-#X text 203 12 down;
-#X obj 85 84 t f f;
-#X obj 85 302 s \$0-slider1rcv;
-#X obj 272 127 inlet;
-#X floatatom 272 164 1 0 1 0 - - -;
-#X msg 272 206 \; \$2-slider1rcv steady \$1;
-#X obj 272 184 pack 0 \$0;
-#X text 289 161 0 ist jump;
-#X connect 0 0 13 0;
-#X connect 1 0 14 0;
-#X connect 2 0 1 0;
-#X connect 3 0 4 0;
-#X connect 4 0 2 0;
-#X connect 4 1 5 0;
-#X connect 6 0 9 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 1;
-#X connect 10 0 3 1;
-#X connect 10 0 2 1;
-#X connect 10 1 11 0;
-#X connect 11 0 8 1;
-#X connect 13 0 3 0;
-#X connect 13 1 8 0;
-#X connect 15 0 16 0;
-#X connect 16 0 18 0;
-#X connect 18 0 17 0;
-#X restore 97 155 pd s_handling;
-#X obj 97 66 r \$0-slider1snd;
-#X connect 1 0 0 0;
-#X connect 1 0 2 0;
-#X connect 1 1 2 1;
-#X connect 1 2 2 2;
-#X connect 3 0 1 0;
-#X restore 220 133 pd s-key-handling;
-#X obj 57 33 r \$0-slider1snd;
-#X obj 88 61 r \$0-spig1;
-#X obj 57 109 spigot;
-#X text 104 108 from s-key-handler;
-#X obj 157 61 loadbang;
-#X msg 157 82 1;
-#X obj 220 155 r \$0-shiftsel;
-#N canvas 0 8 984 619 sliderhandling_with_s_key 0;
-#X obj 57 197 pack 0 0;
-#X obj 57 172 0;
-#X obj 70 150 r \$0-focus;
-#X obj 332 312 s \$0-focus;
-#X msg 345 197 1;
-#X msg 409 197 2;
-#X obj 57 130 t b f;
-#X obj 133 369 max 0;
-#X obj 170 368 - 1;
-#X obj 330 348 + 1;
-#X obj 293 394 min 400;
-#X obj 133 391 min 399;
-#X obj 57 219 route 1 2;
-#X obj 332 288 0;
-#X obj 345 264 spigot;
-#X obj 57 479 400;
-#X obj 57 504 - 1;
-#X obj 312 108 moses 201;
-#X obj 57 93 t f b f;
-#X msg 388 264 1;
-#X obj 388 242 loadbang;
-#X obj 429 392 s \$0-allblack;
-#X msg 429 349 stop \, bang;
-#X obj 429 370 delay 200;
-#X msg 376 197 0;
-#X msg 374 63 0.1;
-#X obj 361 86 + 0;
-#X msg 402 63 -0.1;
-#X obj 375 132 t f b b b;
-#X obj 312 132 t f b b b;
-#X obj 277 193 400;
-#X obj 277 215 - 0;
-#X obj 277 236 * 0.5;
-#X obj 277 257 +;
-#X obj 277 169 t b f f;
-#X text 365 28 wenn rechter bewegt wird \, muss mitte leicht nach links
-verschoben werden / links umgekehrt.;
-#X text 206 167 find middle;
-#X obj 184 424 s \$0-lb;
-#X obj 344 414 s \$0-rb;
-#N canvas 109 66 445 354 lb_graphics 0;
-#X msg 233 182 18;
-#X msg 277 178 -1;
-#X obj 233 205 change;
-#X obj 53 230 pack 0 \$0;
-#X obj 233 227 pack 0 \$0;
-#X obj 277 151 r \$0-allblack;
-#X obj 112 197 pack 0 \$0;
-#X obj 266 98 inlet;
-#X obj 219 127 inlet;
-#X obj 77 99 inlet;
-#X msg 53 254 \; \$2-p1 pos \$1 100;
-#X msg 233 250 \; \$2-p1 color \$1 100;
-#X obj 114 173 + 73;
-#X obj 53 206 + 72;
-#X msg 112 221 \; \$2-p1b pos \$1 100;
-#X connect 0 0 2 0;
-#X connect 1 0 2 0;
-#X connect 2 0 4 0;
-#X connect 3 0 10 0;
-#X connect 4 0 11 0;
-#X connect 5 0 1 0;
-#X connect 6 0 14 0;
-#X connect 7 0 1 0;
-#X connect 8 0 0 0;
-#X connect 9 0 12 0;
-#X connect 9 0 13 0;
-#X connect 12 0 6 0;
-#X connect 13 0 3 0;
-#X restore 132 498 pd lb_graphics;
-#N canvas 0 0 522 353 rb_graphics 0;
-#X msg 134 149 18;
-#X msg 106 149 -1;
-#X obj 106 173 change;
-#X obj 213 183 pack 0 \$0;
-#X obj 106 195 pack 0 \$0;
-#X msg 106 218 \; \$2-p2 color \$1 0;
-#X obj 106 123 r \$0-allblack;
-#X obj 285 161 pack 0 \$0;
-#X obj 91 79 inlet;
-#X obj 304 57 inlet;
-#X obj 213 117 inlet;
-#X obj 213 161 + 72;
-#X obj 285 137 + 73;
-#X msg 213 218 \; \$2-p2 pos \$1 100;
-#X msg 285 185 \; \$2-p2b pos \$1 100;
-#X connect 0 0 2 0;
-#X connect 1 0 2 0;
-#X connect 2 0 4 0;
-#X connect 3 0 13 0;
-#X connect 4 0 5 0;
-#X connect 6 0 1 0;
-#X connect 7 0 14 0;
-#X connect 8 0 1 0;
-#X connect 9 0 0 0;
-#X connect 10 0 11 0;
-#X connect 10 0 12 0;
-#X connect 11 0 3 0;
-#X connect 12 0 7 0;
-#X restore 272 505 pd rb_graphics;
-#X obj 57 280 t b b;
-#N canvas 133 97 350 233 selcnv_graphics 0;
-#X obj 40 25 inlet;
-#X floatatom 158 29 5 0 0 0 - - -;
-#X obj 40 83 pack 0 \$0;
-#X text 164 45 rchte border - linke;
-#X msg 40 113 \; \$2-p1b vis_size \$1 100;
-#X connect 0 0 2 0;
-#X connect 1 0 2 0;
-#X connect 2 0 4 0;
-#X restore 57 528 pd selcnv_graphics;
-#X text 370 330 after 200 ms without moving focus reset;
-#X obj 537 79 inlet;
-#X obj 582 136 r \$0-lb;
-#X obj 664 138 r \$0-rb;
-#X obj 584 268 max 0;
-#X text 629 238 wenns links oder rechts ansteht \, darfst nicht mehr
-verrueckt werden;
-#X msg 664 191 400;
-#X obj 664 168 t b f;
-#X obj 752 344 +;
-#X obj 582 174 * -1;
-#X obj 664 214 - 0;
-#X obj 584 244 min 0;
-#X obj 765 323 - 0;
-#X obj 765 300 t b f;
-#X obj 628 293 + 0;
-#X text 790 325 range;
-#X obj 537 185 + 0;
-#X obj 537 210 0;
-#X text 629 266 range in der sich delta lb bewegen darf;
-#X obj 679 424 * 0.5;
-#X obj 666 449 +;
-#X obj 666 471 s \$0-mid;
-#X obj 293 56 r \$0-mid;
-#X obj 184 444 r \$0-lb;
-#X obj 344 434 r \$0-rb;
-#X obj 628 385 s \$0-lb;
-#X obj 752 368 s \$0-rb;
-#X obj 628 359 t f f f;
-#X obj 57 52 inlet;
-#X obj 499 145 r \$0-res;
-#X msg 500 168 0;
-#X obj 133 413 t b f;
-#X obj 293 416 t b f;
-#X text 39 26 normal input;
-#X text 575 78 input if s-key is pressed \, only delta-values are received!
-;
-#X obj 41 404 r \$0-redraw;
-#X obj 293 371 max 1;
-#X obj 123 465 t f f f b;
-#X obj 275 464 t f f f b;
-#X obj 81 244 t b f;
-#X obj 45 244 t b f;
-#X connect 0 0 12 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 1;
-#X connect 4 0 14 0;
-#X connect 5 0 14 0;
-#X connect 6 0 1 0;
-#X connect 6 1 0 1;
-#X connect 7 0 11 0;
-#X connect 8 0 11 1;
-#X connect 9 0 79 1;
-#X connect 10 0 75 0;
-#X connect 11 0 74 0;
-#X connect 12 0 83 0;
-#X connect 12 1 82 0;
-#X connect 13 0 3 0;
-#X connect 14 0 13 1;
-#X connect 15 0 16 0;
-#X connect 16 0 42 0;
-#X connect 17 0 29 0;
-#X connect 17 1 28 0;
-#X connect 18 0 6 0;
-#X connect 18 1 13 0;
-#X connect 18 2 17 0;
-#X connect 19 0 14 1;
-#X connect 20 0 19 0;
-#X connect 22 0 23 0;
-#X connect 23 0 19 0;
-#X connect 23 0 21 0;
-#X connect 24 0 14 1;
-#X connect 25 0 26 1;
-#X connect 26 0 17 1;
-#X connect 27 0 26 1;
-#X connect 28 0 30 0;
-#X connect 28 1 24 0;
-#X connect 28 2 5 0;
-#X connect 28 3 27 0;
-#X connect 29 0 34 0;
-#X connect 29 1 24 0;
-#X connect 29 2 4 0;
-#X connect 29 3 25 0;
-#X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 33 0;
-#X connect 33 0 26 0;
-#X connect 34 0 30 0;
-#X connect 34 1 31 1;
-#X connect 34 2 33 1;
-#X connect 41 0 15 0;
-#X connect 41 1 22 0;
-#X connect 44 0 59 0;
-#X connect 45 0 52 0;
-#X connect 45 0 56 0;
-#X connect 45 0 57 1;
-#X connect 46 0 50 0;
-#X connect 46 0 55 0;
-#X connect 47 0 57 0;
-#X connect 49 0 53 0;
-#X connect 50 0 49 0;
-#X connect 50 1 53 1;
-#X connect 51 0 69 0;
-#X connect 52 0 47 1;
-#X connect 53 0 54 1;
-#X connect 54 0 47 0;
-#X connect 55 0 51 1;
-#X connect 55 0 62 0;
-#X connect 56 0 55 0;
-#X connect 56 1 55 1;
-#X connect 57 0 70 0;
-#X connect 59 0 60 0;
-#X connect 60 0 54 0;
-#X connect 62 0 63 1;
-#X connect 63 0 64 0;
-#X connect 65 0 26 0;
-#X connect 66 0 80 0;
-#X connect 67 0 81 0;
-#X connect 70 0 68 0;
-#X connect 70 1 63 0;
-#X connect 70 2 51 0;
-#X connect 71 0 18 0;
-#X connect 72 0 73 0;
-#X connect 73 0 59 1;
-#X connect 74 0 39 1;
-#X connect 74 1 37 0;
-#X connect 75 0 40 2;
-#X connect 75 1 38 0;
-#X connect 78 0 15 0;
-#X connect 79 0 10 0;
-#X connect 80 0 39 0;
-#X connect 80 1 16 1;
-#X connect 80 2 9 0;
-#X connect 80 3 40 0;
-#X connect 81 0 8 0;
-#X connect 81 1 15 1;
-#X connect 81 2 40 1;
-#X connect 81 3 39 2;
-#X connect 82 0 41 0;
-#X connect 82 1 79 0;
-#X connect 83 0 41 0;
-#X connect 83 1 7 0;
-#X restore 57 182 pd sliderhandling_with_s_key;
-#X connect 2 0 0 0;
-#X connect 2 0 4 0;
-#X connect 3 0 4 1;
-#X connect 4 0 9 0;
-#X connect 6 0 7 0;
-#X connect 7 0 4 1;
-#X connect 8 0 9 1;
-#X restore 88 155 pd range_main;
-#N canvas 219 194 434 292 record 0;
-#N canvas 216 56 684 582 record_RAM 0;
-#N canvas 222 74 668 589 interna 0;
-#X text 64 78 es gibt ein bisserl ein problem mit dem join. nachdem
-ich beim ersten durchlauf nur einen channel haben will \, links aber
-eine vasp message reinschicken muss kann ich nicht den alten vasp links
-reinschicken und den neuen rechts dazujoinen...;
-#X text 64 151 deshalb schicke ich immer das neueste links rein und
-die referenz auf den alten rechts. letztendlich brockt mir das seitenverkehrte
-ordnungszahlen ein. ist aber nicht weiter tragisch. nur umstaendlich
-;
-#X text 65 231 am schluss stueckle ich das ergebnis aus den channels
-zusammen:;
-#X text 63 265 teilstueck 1 hat offset 0*64 und daten im channel n=k-1
-\, wobei k die anzahl der aufgenommenen kanaele ist.;
-#X text 63 295 teilstueck 2: o=1*64 \, n=k-2;
-#X text 63 312 teilstueck k: o=(k-1)*64 \, n=0;
-#X text 65 345 wenn start gedrueckt wird \, wird der erste table geschrieben
-(mit tabwrite~) am ende wird dann mit bang~ getriggert...;
-#X text 67 382 switch~ 0 darf erst gesetzt werden \, nachdem das letzte~
-bang abgearbeitet wurde.;
-#X text 69 428 beim letzten record-stueck werden zwar alle samples
-geschrieben (mit tabwrite~) aber nur mehr ein teil ausgelesen. das
-bestimmt der timer.;
-#X text 74 494 tabsend~ und switch~ laufen nicht parallel...;
-#X restore 521 187 pd interna;
-#X text 374 227 spaeter direkt in \$0-temp schreiben;
-#X obj 84 66 inlet~;
-#X obj 207 208 s \$0-recstop;
-#X obj 207 185 sel 0;
-#X obj 79 459 vasp;
-#X text 199 391 reset;
-#X obj 79 360 \$0;
-#X obj 79 398 vasp.!;
-#X msg 79 377 vasp \$1-rec_temp;
-#X obj 79 429 vasp.join 2;
-#X msg 198 408 vasp;
-#X text 159 431 adds a channel;
-#X obj 79 276 0;
-#X obj 79 302 + 1;
-#X msg 116 277 0;
-#X text 126 262 reset;
-#X obj 79 326 t b f;
-#X obj 229 408 r \$0-reset_rec;
-#X obj 141 277 r \$0-reset_rec;
-#X obj 79 169 bang~;
-#N canvas 171 0 610 665 write_multi_channel_to_ergebnis 0;
-#X obj 412 264 inlet;
-#X obj 270 414 vasp.n 0;
-#X obj 241 222 vasp.s;
-#X obj 241 103 0;
-#X obj 270 390 vasp;
-#X obj 318 359 - 1;
-#X text 193 54 am ende;
-#X obj 208 547 vasp.o;
-#X text 265 103 k (=number of slices);
-#X obj 208 574 vasp.=;
-#X obj 400 389 0;
-#X obj 413 368 + 1;
-#X msg 438 368 0;
-#X text 468 368 reset;
-#X obj 241 289 moses 1;
-#X obj 318 381 t f f;
-#X text 36 300 ganz am schluss;
-#X text 36 314 kopieren und schick resets;
-#X obj 278 313 t b b f b;
-#X obj 438 346 r \$0-reset_rec;
-#X obj 106 373 s \$0-reset_rec;
-#X msg 241 246 bang;
-#X obj 241 267 0;
-#X msg 208 596 bang;
-#X text 271 613 ohne das delay haengt sichs auf...;
-#X obj 254 81 r \$0-number_of_slices;
-#X obj 241 129 t b f f;
-#X obj 208 435 \$0;
-#X obj 208 500 t a b;
-#X obj 241 53 r \$0-recstop;
-#X obj 241 154 \$0;
-#X obj 278 154 * 8192;
-#X obj 400 412 * 8192;
-#X obj 208 478 vasp.f 8192;
-#X obj 81 348 t b b;
-#X obj 208 617 delay;
-#X msg 241 201 vasp \$1-;
-#X msg 209 458 vasp \$1-;
-#X obj 137 479 s \$0-sm;
-#X obj 135 540 s \$0-rb;
-#X obj 83 538 s \$0-lb;
-#X msg 83 516 0;
-#X msg 135 519 400;
-#X obj 53 567 s \$0-redraw;
-#X obj 81 429 * 0.0025;
-#X obj 81 406 0;
-#X obj 278 177 t f f;
-#X obj 96 632 vasp.u;
-#X obj 96 588 \$0;
-#X msg 96 610 vasp \$1-;
-#X obj 81 452 t b b b b f;
-#X connect 0 0 4 1;
-#X connect 1 0 9 1;
-#X connect 2 0 21 0;
-#X connect 3 0 26 0;
-#X connect 4 0 1 0;
-#X connect 5 0 15 0;
-#X connect 7 0 9 0;
-#X connect 9 0 23 0;
-#X connect 10 0 11 0;
-#X connect 10 0 32 0;
-#X connect 11 0 10 1;
-#X connect 12 0 10 1;
-#X connect 14 0 34 0;
-#X connect 14 1 18 0;
-#X connect 15 0 22 1;
-#X connect 15 1 1 1;
-#X connect 18 0 27 0;
-#X connect 18 1 4 0;
-#X connect 18 2 5 0;
-#X connect 18 3 10 0;
-#X connect 19 0 12 0;
-#X connect 21 0 22 0;
-#X connect 22 0 14 0;
-#X connect 23 0 35 0;
-#X connect 25 0 3 1;
-#X connect 26 0 30 0;
-#X connect 26 1 22 1;
-#X connect 26 2 31 0;
-#X connect 27 0 37 0;
-#X connect 28 0 7 0;
-#X connect 29 0 3 0;
-#X connect 30 0 36 0;
-#X connect 31 0 46 0;
-#X connect 32 0 7 1;
-#X connect 33 0 28 0;
-#X connect 34 0 45 0;
-#X connect 34 1 20 0;
-#X connect 35 0 22 0;
-#X connect 36 0 2 0;
-#X connect 37 0 33 0;
-#X connect 41 0 40 0;
-#X connect 42 0 39 0;
-#X connect 44 0 50 0;
-#X connect 45 0 44 0;
-#X connect 46 0 45 1;
-#X connect 46 1 2 1;
-#X connect 48 0 49 0;
-#X connect 49 0 47 0;
-#X connect 50 0 43 0;
-#X connect 50 1 48 0;
-#X connect 50 2 41 0;
-#X connect 50 3 42 0;
-#X connect 50 4 38 0;
-#X restore 79 489 pd write_multi_channel_to_ergebnis;
-#X obj 150 340 s \$0-number_of_slices;
-#X obj 79 238 t b b b;
-#X obj 84 93 tabsend~ \$0-rec_temp;
-#X obj 79 208 spigot;
-#X obj 207 158 t f f;
-#X obj 468 317 table \$0-rec_temp 8192;
-#X obj 468 350 block~ 8192;
-#X obj 207 138 r \$0-rec_1_0;
-#X connect 2 0 24 0;
-#X connect 4 0 3 0;
-#X connect 5 0 10 1;
-#X connect 5 0 21 0;
-#X connect 7 0 9 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 0;
-#X connect 10 0 5 0;
-#X connect 11 0 10 1;
-#X connect 13 0 14 0;
-#X connect 14 0 13 1;
-#X connect 14 0 17 0;
-#X connect 15 0 13 1;
-#X connect 17 0 7 0;
-#X connect 17 1 22 0;
-#X connect 18 0 11 0;
-#X connect 19 0 15 0;
-#X connect 20 0 25 0;
-#X connect 23 0 13 0;
-#X connect 25 0 23 0;
-#X connect 26 0 4 0;
-#X connect 26 1 25 1;
-#X connect 29 0 26 0;
-#X restore 46 99 pd record_RAM;
-#X obj 47 62 inlet~;
-#X obj 147 150 - 100;
-#X obj 147 77 env~ 16384;
-#X obj 147 171 s \$0-vu1;
-#X obj 147 116 spigot;
-#X obj 217 76 r \$0-monis;
-#X msg 193 150 -100;
-#X obj 217 97 t b f;
-#X connect 1 0 0 0;
-#X connect 1 0 3 0;
-#X connect 2 0 4 0;
-#X connect 3 0 5 0;
-#X connect 5 0 2 0;
-#X connect 6 0 8 0;
-#X connect 7 0 4 0;
-#X connect 8 0 7 0;
-#X connect 8 1 5 1;
-#X restore 391 177 pd record;
-#X connect 1 0 15 0;
-#X connect 18 0 15 1;
-#X connect 20 0 22 0;
-#X restore 650 290 pd inside;
-#X obj 72 100 cnv 2 2 100 empty \$0-p1 empty 20 12 576 14 -1 -233017
-0;
-#X obj 73 100 cnv 1 400 100 empty \$0-p1b empty 20 12 576 14 -257472
--262144 0;
-#X obj 472 100 cnv 2 2 100 empty \$0-p2 empty 20 12 576 14 -1 -262144
-0;
-#X obj 473 100 cnv 5 5 100 empty \$0-p2b empty 20 12 576 14 -233017
--262144 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array \$0- 400 float 0;
-#X coords 0 1 399 -1 400 100 1;
-#X restore 72 100 graph;
-#X obj 484 136 nbx 8 14 -1e+037 1e+037 0 1 empty \$0-rbs_displ right
-0 -6 577 8 -233017 -1 -1 400 256;
-#X obj 484 107 nbx 8 14 -1e+037 1e+037 0 0 empty \$0-lbs_displ left
-0 -6 577 8 -233017 -1 -1 0 256;
-#X obj 484 166 nbx 8 14 -1e+037 1e+037 0 1 empty \$0-rs_displ length
-0 -6 577 8 -233017 -1 -1 400 256;
-#X obj 37 12 cnv 15 600 40 empty empty wedit 10 22 0 24 -257472 -1
-0;
-#X text 188 29 http://www.parasitaere-kapazitaeten.net;
-#X text 188 13 wave editor (P)2003 marius schebella;
-#X text 51 59 click into the array to set range \, use "s"+ mouse to
-shift selection;
-#X obj 71 210 tgl 18 0 \$0-playbutton \$0-playbuttonr empty 0 -6 1728
-8 -262144 -1 -1 0 1;
-#X obj 99 210 tgl 18 0 \$0-loopbutton \$0-loopbuttonr empty 0 -6 1728
-8 -262144 -1 -1 0 1;
-#X obj 66 207 cnv 15 56 25 empty \$0-test empty 20 12 576 14 -233017
--262144 0;
-#X obj 69 210 cnv 15 20 15 empty \$0-play_white empty 20 12 576 14
--262144 -262144 0;
-#X obj 71 212 cnv 15 20 15 empty \$0-play_dark empty 20 12 576 14 -128992
--262144 0;
-#X obj 70 211 cnv 15 20 15 empty \$0-play_normal empty 20 12 576 14
--233017 -66577 0;
-#X obj 96 210 cnv 15 20 15 empty \$0-loop_white empty 20 12 576 14
--262144 -262144 0;
-#X obj 98 212 cnv 15 20 15 empty \$0-loop_dark empty 20 12 576 14 -128992
--262144 0;
-#X obj 97 211 cnv 15 20 15 empty \$0-loop_normal empty 20 12 576 14
--233017 -66577 0;
-#X obj 77 222 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 77 220 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 77 218 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 77 216 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 77 214 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 78 215 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 78 221 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 79 216 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 79 218 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 79 220 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 80 217 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 80 219 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 81 218 cnv 1 1 1 empty \$0-playbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 106 219 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 106 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 106 215 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 106 213 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 107 214 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 107 218 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 107 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 108 215 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 108 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 110 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 112 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 104 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 102 216 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 101 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 101 219 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 101 221 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 102 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 104 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 106 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 108 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 110 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 113 217 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 113 219 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 113 221 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 112 222 cnv 1 1 1 empty \$0-loopbutton1 empty 20 12 576 14 -24198
--262144 0;
-#X obj 484 196 bng 15 250 50 0 \$0-open \$0-nixr open 18 6 1729 8 -241291
--1 -1;
-#X obj 484 215 bng 15 250 50 0 \$0-save 0-nixr save 18 6 1217 8 -260818
--1 -1;
-#X obj 484 234 bng 15 250 50 0 \$0-save_as \$0-nixr save_as 18 6 1729
-8 -258699 -1 -1;
-#X obj 250 218 bng 15 250 50 0 \$0-reduce \$0-nixr reduce_to_sel 0
--6 1729 8 -62784 -1 -1;
-#X obj 361 246 bng 15 250 50 0 \$0-set_0 \$0-nixr set_zero 18 6 1729
-8 -24198 -1 -1;
-#X obj 361 264 bng 15 250 50 0 \$0-noise \$0-nixr noise 18 6 1729 8
--24198 -1 -1;
-#X obj 213 218 bng 15 250 50 0 \$0-cut \$0-nixr cut 0 -6 1729 8 -62784
--1 -1;
-#X obj 361 210 bng 15 250 50 0 \$0-fade_in \$0-nixr fade_in 18 6 1729
-8 -24198 -1 -1;
-#X obj 361 228 bng 15 250 50 0 \$0-fade_out \$0-nixr fade_out 18 6
-1729 8 -24198 -1 -1;
-#X obj 484 254 bng 15 250 50 0 \$0-toarray \$0-nixr send_to_array 18
-6 1729 8 -44926 -1 -1;
-#X obj 484 273 bng 15 250 50 0 \$0-reloadarray \$0-nixr reload_from_array
-18 6 1729 8 -44926 -1 -1;
-#X text 535 212 (wave-format);
-#X obj 71 257 nbx 5 14 -1000 0 0 1 \$0-voldispls \$0-voldisplr empty
-0 -6 1729 8 -262144 -1 -1 -1000 256;
-#X obj 74 238 hsl 101 15 0 50 0 0 \$0-vols \$0-volr volume 6 7 1729
-8 -262144 -1 -1 0 1;
-#X obj 213 254 bng 15 250 50 0 \$0-normalize \$0-nixr normalize 0 -6
-1729 8 -62784 -1 -1;
-#N canvas 0 0 551 358 help 0;
-#X text 67 47 help:;
-#X text 69 69 this is a very basic wave editor \, kind of prototype...
-;
-#X text 68 92 many operations are not available at the moment (copy
-and paste \, zooming \, scrolling \, cursor). they should follow some
-time...;
-#X text 64 141 the editor needs the libraries vasp (http://www.parasitaere-kapazitaeten.net/vasp)
-and zexy (http://iem.kug.ac.at/~zmoelnig/pd/).;
-#X text 67 197 send to array and reload from array can only be done
-\, if you start wedit with a variable \, like "wedit array1" \, this
-array is then loaded by default. but needs to be updated \, if the
-array is changed outside the editor. by clicking "send to array" the
-edited sample is sent to the (default) array outside.;
-#X text 279 305 marius.schebella@chello.at;
-#X restore 649 240 pd help;
-#X text 116 257 -50dB to 0dB;
-#X obj 125 210 tgl 18 0 \$0-recbuttons \$0-recbuttonr empty 0 -6 1728
-8 -262144 -1 -1 0 1;
-#X obj 120 206 cnv 15 28 25 empty empty empty 20 12 0 14 -233017 -262144
-0;
-#X obj 123 210 cnv 15 20 15 empty \$0-rec_white empty 20 12 576 14
--262144 -262144 0;
-#X obj 125 212 cnv 15 20 15 empty \$0-rec_dark empty 20 12 576 14 -128992
--262144 0;
-#X obj 124 211 cnv 15 20 15 empty \$0-rec_normal empty 20 12 576 14
--233017 -66577 0;
-#X obj 131 215 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 133 215 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 135 215 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 130 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 132 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 134 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 132 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 136 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 136 216 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 134 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 133 220 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 130 218 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 130 219 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 131 220 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 134 218 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 135 220 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 132 217 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 136 218 cnv 1 1 1 empty \$0-recbutton1 empty 20 12 576 14 -143491
--262144 0;
-#X obj 650 267 inlet~;
-#X connect 102 0 2 0;
-#X coords 0 0 1 1 200 140 0;
diff --git a/externals/grill/vasp/pd-help/vasp_abs.pd b/externals/grill/vasp/pd-help/vasp_abs.pd deleted file mode 100644 index 493bf9fd..00000000 --- a/externals/grill/vasp/pd-help/vasp_abs.pd +++ /dev/null @@ -1,48 +0,0 @@ -#N canvas 99 112 853 471 10;
-#X msg 521 263 vasp bufabs;
-#X text 71 63 get absolute values of a vasp;
-#X text 71 79 see also vasp.*.help for an example using vasp.abs to
-generate an envelope from a vasp;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.abs 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufabs 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 465 124 graph;
-#N canvas 0 0 394 270 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufabs;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 737 285 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 521 284 pd clear_buffer;
-#X text 189 209 get the absolute values;
-#X obj 77 209 prepend set;
-#X obj 77 285 vasp.update;
-#X text 178 134 generate a sinewave;
-#X msg 77 135 vasp bufabs;
-#X obj 77 154 vasp.osc 22050;
-#X obj 77 247 vasp.abs;
-#X obj 170 210 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X obj 77 173 vasp.update;
-#X text 58 209 *;
-#X text 71 414 * prepend-object from iemlib2 (http://pd.iem.at/iemlib)
-;
-#X obj 77 383 VASP-HELP;
-#X connect 0 0 6 0;
-#X connect 8 0 13 0;
-#X connect 11 0 12 0;
-#X connect 12 0 15 0;
-#X connect 13 0 9 0;
-#X connect 14 0 13 0;
-#X connect 15 0 8 0;
diff --git a/externals/grill/vasp/pd-help/vasp_add.pd b/externals/grill/vasp/pd-help/vasp_add.pd deleted file mode 100644 index 56781928..00000000 --- a/externals/grill/vasp/pd-help/vasp_add.pd +++ /dev/null @@ -1,54 +0,0 @@ -#N canvas 8 252 972 385 10;
-#N canvas 40 55 255 173 clear_buffer 0;
-#X obj 59 79 vasp.update;
-#X obj 59 56 vasp.= 0;
-#X obj 59 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 755 285 pd clear_buffer;
-#X text 452 193 shift all values - 0.5;
-#X text 372 63 optional argument/right inlet: right operand;
-#X text 372 46 subtracts a value or a vasp from a vasp;
-#X obj 376 213 vasp.update;
-#X obj 376 190 vasp.- 0.5;
-#X obj 376 145 vasp.osc 44100;
-#X obj 376 167 vasp.* 0.5;
-#X text 45 63 optional argument/right inlet: right operand;
-#X text 45 46 adds a value or a vasp to a vasp;
-#X obj 45 20 cnv 15 15 15 empty empty vasp.+ 0 10 1 14 -262144 -1 0
-;
-#X obj 374 18 cnv 15 15 15 empty empty vasp.- 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph167 0;
-#X array bufadd 88200 float 0;
-#X coords 0 1 88199 -1 300 120 1;
-#X restore 624 100 graph;
-#X text 124 192 shift all values + 0.5;
-#X text 127 169 half the amplitude;
-#X obj 49 213 vasp.update;
-#X obj 49 190 vasp.+ 0.5;
-#X obj 49 145 vasp.osc 44100;
-#X obj 49 167 vasp.* 0.5;
-#X text 157 147 generate a 1Hz sine wave;
-#X msg 49 113 vasp bufadd;
-#X msg 376 113 vasp bufadd;
-#X msg 755 264 vasp bufadd;
-#N canvas 0 0 396 272 init 0;
-#X obj 36 19 loadbang;
-#X msg 36 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 36 45 symbol bufadd;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 879 285 pd init;
-#X obj 49 345 VASP-HELP;
-#X connect 5 0 4 0;
-#X connect 6 0 7 0;
-#X connect 7 0 5 0;
-#X connect 16 0 15 0;
-#X connect 17 0 18 0;
-#X connect 18 0 16 0;
-#X connect 20 0 17 0;
-#X connect 21 0 6 0;
-#X connect 22 0 0 0;
diff --git a/externals/grill/vasp/pd-help/vasp_ageq.pd b/externals/grill/vasp/pd-help/vasp_ageq.pd deleted file mode 100644 index 04df10f5..00000000 --- a/externals/grill/vasp/pd-help/vasp_ageq.pd +++ /dev/null @@ -1,50 +0,0 @@ -#N canvas 44 207 839 468 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.a>= 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufageq 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 408 84 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufageq \, symbol bufageq1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 662 388 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufageq1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 408 213 graph;
-#X text 60 94 argument/right inlet: value;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 460 390 pd clear_buffers;
-#X obj 57 418 VASP-HELP;
-#X obj 58 366 vasp.update;
-#X floatatom 125 308 5 0 0;
-#X text 164 236 copy to new buffer;
-#X text 60 80 abs(sample) >= abs(value);
-#X msg 61 150 vasp bufageq;
-#X msg 58 236 vasp bufageq1;
-#X obj 58 262 vasp.= bufageq;
-#X obj 58 335 vasp.>= -0.4;
-#X msg 460 364 vasp bufageq bufageq1;
-#X connect 5 0 6 0;
-#X connect 10 0 16 1;
-#X connect 13 0 5 0;
-#X connect 14 0 15 0;
-#X connect 15 0 16 0;
-#X connect 16 0 9 0;
-#X connect 17 0 7 0;
diff --git a/externals/grill/vasp/pd-help/vasp_agtr.pd b/externals/grill/vasp/pd-help/vasp_agtr.pd deleted file mode 100644 index c7ff71e6..00000000 --- a/externals/grill/vasp/pd-help/vasp_agtr.pd +++ /dev/null @@ -1,52 +0,0 @@ -#N canvas 44 207 841 470 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.a> 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufagtr 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 439 87 graph;
-#N canvas 0 0 398 274 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufagtr \, symbol bufagtr1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 693 391 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufagtr1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 439 216 graph;
-#X text 60 94 argument/right inlet: value;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 491 393 pd clear_buffers;
-#X text 338 218 1/true;
-#X text 337 258 0/false;
-#X obj 57 418 VASP-HELP;
-#X obj 58 366 vasp.update;
-#X floatatom 119 309 5 0 0;
-#X text 164 230 copy to new buffer;
-#X msg 491 367 vasp bufagtr bufagtr1;
-#X text 60 80 abs(sample) > abs(value);
-#X msg 61 150 vasp bufagtr;
-#X msg 58 236 vasp bufagtr1;
-#X obj 58 262 vasp.= bufagtr;
-#X obj 58 335 vasp.> -0.4;
-#X connect 5 0 6 0;
-#X connect 12 0 19 1;
-#X connect 14 0 7 0;
-#X connect 16 0 5 0;
-#X connect 17 0 18 0;
-#X connect 18 0 19 0;
-#X connect 19 0 11 0;
diff --git a/externals/grill/vasp/pd-help/vasp_aleq.pd b/externals/grill/vasp/pd-help/vasp_aleq.pd deleted file mode 100644 index 30a88cf6..00000000 --- a/externals/grill/vasp/pd-help/vasp_aleq.pd +++ /dev/null @@ -1,52 +0,0 @@ -#N canvas 56 200 881 464 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.a<= 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufaleq 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 489 91 graph;
-#N canvas 0 0 402 278 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufaleq \, symbol bufaleq1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 743 395 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufaleq1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 489 220 graph;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 541 397 pd clear_buffers;
-#X text 389 220 1/true;
-#X text 388 260 0/false;
-#X text 60 94 argument/right inlet: value;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#X obj 58 366 vasp.update;
-#X floatatom 125 308 5 0 0;
-#X text 164 230 copy to new buffer;
-#X obj 57 418 VASP-HELP;
-#X msg 541 371 vasp bufaleq bufaleq1;
-#X msg 61 150 vasp bufaleq;
-#X msg 58 236 vasp bufaleq1;
-#X obj 58 262 vasp.= bufaleq;
-#X obj 58 335 vasp.<= -0.4;
-#X text 60 80 abs(sample) <= abs(value);
-#X connect 8 0 9 0;
-#X connect 11 0 18 1;
-#X connect 14 0 4 0;
-#X connect 15 0 8 0;
-#X connect 16 0 17 0;
-#X connect 17 0 18 0;
-#X connect 18 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_alwr.pd b/externals/grill/vasp/pd-help/vasp_alwr.pd deleted file mode 100644 index 2eca3860..00000000 --- a/externals/grill/vasp/pd-help/vasp_alwr.pd +++ /dev/null @@ -1,52 +0,0 @@ -#N canvas 44 207 843 472 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.a< 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufalwr 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 480 90 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufalwr \, symbol bufalwr1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 734 394 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufalwr1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 480 219 graph;
-#X text 60 94 argument/right inlet: value;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#X text 164 234 copy to new buffer;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 532 396 pd clear_buffers;
-#X text 378 219 1/true;
-#X text 377 259 0/false;
-#X obj 58 366 vasp.update;
-#X floatatom 125 313 5 0 0;
-#X obj 59 418 VASP-HELP;
-#X msg 532 370 vasp bufalwr bufalwr1;
-#X msg 58 236 vasp bufalwr1;
-#X msg 61 150 vasp bufalwr;
-#X obj 58 262 vasp.= bufalwr;
-#X obj 58 335 vasp.a< -0.4;
-#X text 61 80 abs(sample) < abs(value);
-#X connect 5 0 6 0;
-#X connect 12 0 18 1;
-#X connect 14 0 8 0;
-#X connect 15 0 17 0;
-#X connect 16 0 5 0;
-#X connect 17 0 18 0;
-#X connect 18 0 11 0;
diff --git a/externals/grill/vasp/pd-help/vasp_cadd.pd b/externals/grill/vasp/pd-help/vasp_cadd.pd deleted file mode 100644 index ec1492eb..00000000 --- a/externals/grill/vasp/pd-help/vasp_cadd.pd +++ /dev/null @@ -1,21 +0,0 @@ -#N canvas 266 193 597 452 10;
-#X text 49 142 c \, d ... right operand;
-#X text 49 127 a \, b ... left operand;
-#X text 49 112 e \, f ... target buffers;
-#X text 49 202 differences in lengths are adjusted to smaller vector
-of each pair;
-#X text 49 80 e+if=(a+ib)+(c+id);
-#X text 49 174 vasp.c+ needs 2 vectors per operand which are treated
-as pairs;
-#X text 49 65 complex addition;
-#X obj 55 34 cnv 15 15 15 empty empty vasp.c+ 0 10 1 14 -262144 -1
-0;
-#X obj 263 107 vasp.c+;
-#X text 46 287 related objects:;
-#X obj 182 330 vasp.c!-;
-#X obj 265 330 vasp.c!/;
-#X obj 182 288 vasp.c=;
-#X obj 265 309 vasp.c/;
-#X obj 265 288 vasp.c*;
-#X obj 182 309 vasp.c-;
-#X obj 50 384 VASP-HELP;
diff --git a/externals/grill/vasp/pd-help/vasp_cconj.pd b/externals/grill/vasp/pd-help/vasp_cconj.pd deleted file mode 100644 index ba402500..00000000 --- a/externals/grill/vasp/pd-help/vasp_cconj.pd +++ /dev/null @@ -1,33 +0,0 @@ -#N canvas 122 81 821 476 10;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.cconj 0 10 1 14 -262144
--1 0;
-#X obj 51 208 vasp.update;
-#X obj 53 367 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufconre 21 float 1;
-#A 0 0.619999 0.639999 0.4 0.18 0.3 0.32 0.0599999 -0.28 -0.26 -0.14
-0.22 0.46 0.26 -0.24 -0.719999 -0.619999 -0.26 -0.02 -0.26 -0.48 -0.5
-;
-#X coords 0 1 20 -1 300 100 1;
-#X restore 410 100 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 45 symbol bufconre \, symbol bufconim;
-#X msg 33 73 \; \$1 xticks 0 1 5 \; \$1 xlabel 1.1 0 5 10 15 20 \;
-\$1 yticks 0 0.25 2 \; \$1 ylabel 21.3 -1 -0.5 0 0.5 1;
-#X connect 0 0 1 0;
-#X connect 1 0 2 0;
-#X restore 670 381 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufconim 21 float 1;
-#A 0 0.900005 0.820005 0.720004 0.640004 0.580003 0.460003 0.360002
-0.240002 0.120001 0.0600005 -0.0600002 -0.180001 -0.300002 -0.300002
--0.400002 -0.480003 -0.500003 -0.500003 -0.560003 -0.420002 -0.380002
-;
-#X coords 0 1 20 -1 300 100 1;
-#X restore 411 232 graph;
-#X text 44 59 conjugates the imaginary part of a complex vasp;
-#X obj 51 177 vasp.cconj;
-#X msg 51 142 vasp bufconre bufconim;
-#X connect 7 0 1 0;
-#X connect 8 0 7 0;
diff --git a/externals/grill/vasp/pd-help/vasp_ccopy.pd b/externals/grill/vasp/pd-help/vasp_ccopy.pd deleted file mode 100644 index 5e2d51da..00000000 --- a/externals/grill/vasp/pd-help/vasp_ccopy.pd +++ /dev/null @@ -1,83 +0,0 @@ -#N canvas 21 60 973 580 10;
-#X obj 62 33 cnv 15 15 15 empty empty vasp.c-> 0 10 1 14 -262144 -1
-0;
-#X text 55 81 optional argument/right inlet: value/vasp;
-#N canvas 0 0 262 199 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X restore 308 479 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcopy1 100 float 1;
-#A 0 0.143758 0.0686079 -0.38831 -0.0776481 0.294635 0.674558 0.607506
--0.170675 -0.0864513 -0.41061 -0.195257 -0.0921464 -0.0565912 -0.0555828
-0.0530162 0.0249378 -0.0623897 -0.0156552 0.0755211 0.0167451 0.141562
-0.0405158 -0.023263 0.0180184 -0.0637342 -0.0822978 -0.00542918 -0.000371593
-0.0383471 0.0352856 0.00255783 -0.0732533 0.00192948 -0.00246741 -0.00759756
-0.038446 -0.030182 -0.0408431 -0.0153346 -0.0652415 -0.0363779 0.0186147
-0.0138818 0.0333752 0.0466349 0.0131742 -0.0321698 0.0154971 0.00843997
-0.0131756 0.0645522 0.00604813 -0.0115883 0.00454732 -0.0538017 -0.0109963
-0.0257179 0.0423155 0.0291044 0.0311714 -0.0175559 -0.0558005 0.0108977
--0.0305093 -0.00780438 0.0367772 -0.0188594 -0.00453038 -0.0172815
--0.0762415 -0.00338057 0.0343781 0.0289549 0.00518148 0.0427147 -0.0310832
--0.0454392 0.0401651 -0.0132068 0.0646664 0.120187 -0.00961662 0.0462419
--0.0174716 -0.0689202 -0.0208856 0.0423041 0.024882 0.00339087 -0.0797522
--0.230074 -0.440424 -0.0808137 -0.16581 0.848087 -0.0205055 -0.296507
-0.0507298 0.357646 -0.480663;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 572 53 graph;
-#N canvas 0 0 394 270 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 87 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufcopy1 \, symbol bufcopy2 \, symbol bufcopy3
-\, symbol bufcopy4;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 308 518 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcopy2 100 float 1;
-#A 0 0.0280782 -0.0422518 0.554172 -0.1767 1 0.156081 -0.876136 -0.11387
--0.208158 -0.115016 0.0598257 -0.00410798 -0.0287769 0.247451 -0.0203781
--0.0739293 0.0539849 0.0833412 0.0777782 0.109606 0.0072245 -0.146124
--0.0299617 -0.123235 -0.0657105 0.00113347 -0.00988766 -0.00689244
-0.0115624 -0.0669525 -0.0608685 -0.0229969 0.00134453 -0.0204591 0.0424171
--0.0235819 -0.0606822 -0.0179317 -0.0448778 -0.00991407 0.042282 0.0112347
-0.00659574 -0.0135941 -0.0447328 -0.0525184 -0.00989902 0.00836445
--0.00132186 0.0146546 -0.000898497 -0.0431941 -0.00978027 -0.0237825
--0.0115866 0.0196117 0.0161645 0.000628861 -0.0328125 -0.0393695 -0.0745345
--0.0206123 0.0146289 -0.0234719 0.0331914 -0.00930453 -0.0477893 0.0219494
--0.0180073 0.0137906 0.0326551 0.0580143 -0.0392246 -0.0196385 -0.0287846
--0.0691948 0.00847168 0.0580848 -0.00780806 0.111565 -0.0162468 -0.142128
--0.0371815 -0.0349165 -0.0117682 -0.022951 -0.012041 -0.245803 -0.0872
--0.246933 -0.3275 0.130284 0.138918 -0.150566 0.816856 0.0117589 0.391891
-0.00536379 0.00963765 0.49746;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 572 167 graph;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcopy3 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 573 319 graph;
-#X text 111 357 abbreviation;
-#X obj 211 251 vasp.update;
-#X text 53 224 original;
-#X text 55 99 left outlet: original \, right outlet copy;
-#X text 183 226 copy;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcopy4 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 573 435 graph;
-#X msg 54 169 vasp bufcopy1 bufcopy2;
-#X obj 54 204 vasp.copy bufcopy3 bufcopy4;
-#X msg 308 454 vasp bufcopy3 bufcopy4;
-#X obj 53 356 vasp.c->;
-#X text 55 62 copy a complex vasp to another;
-#X text 50 405 related object;
-#X obj 162 404 vasp.copy;
-#X obj 249 404 vasp.=;
-#X obj 50 500 VASP-HELP;
-#X connect 13 0 14 0;
-#X connect 14 1 8 0;
-#X connect 15 0 2 0;
diff --git a/externals/grill/vasp/pd-help/vasp_cdiv.pd b/externals/grill/vasp/pd-help/vasp_cdiv.pd deleted file mode 100644 index bb1a5073..00000000 --- a/externals/grill/vasp/pd-help/vasp_cdiv.pd +++ /dev/null @@ -1,16 +0,0 @@ -#N canvas 235 228 623 356 10;
-#X text 52 141 c \, d ... right operand;
-#X text 52 126 a \, b ... left operand;
-#X text 52 111 e \, f ... target buffers;
-#X text 51 199 differences in lengths are adjusted to smaller vector
-of each pair;
-#X text 52 81 e+if=(a+ib)/(c+id);
-#X text 52 168 vasp.c/ needs 2 vectors per operand which are treated
-as pairs;
-#X text 52 65 complex division;
-#X obj 55 34 cnv 15 15 15 empty empty vasp.c/ 0 10 1 14 -262144 -1
-0;
-#X obj 277 86 vasp.c/;
-#X obj 173 280 vasp.c!/;
-#X obj 54 317 VASP-HELP;
-#X text 51 281 related object:;
diff --git a/externals/grill/vasp/pd-help/vasp_cdivr.pd b/externals/grill/vasp/pd-help/vasp_cdivr.pd deleted file mode 100644 index 5aa1c1a2..00000000 --- a/externals/grill/vasp/pd-help/vasp_cdivr.pd +++ /dev/null @@ -1,18 +0,0 @@ -#N canvas 231 208 570 384 10; -#X text 52 141 c \, d ... right operand; -#X text 52 126 a \, b ... left operand; -#X text 52 111 e \, f ... target buffers; -#X text 51 199 differences in lengths are adjusted to smaller vector -of each pair; -#X text 52 81 e+if=(a+ib)/(c+id); -#X text 52 168 vasp.c/ needs 2 vectors per operand which are treated -as pairs; -#X obj 55 34 cnv 15 15 15 empty empty vasp.c!/ 0 10 1 14 -262144 -1 -0; -#X text 52 65 reverse complex division; -#X obj 283 79 vasp.c!/; -#X obj 186 308 vasp.c/; -#X obj 186 287 vasp.c*; -#X obj 53 346 VASP-HELP; -#X text 92 348 - vasp overview; -#X text 51 285 related objects:; diff --git a/externals/grill/vasp/pd-help/vasp_cfft.pd b/externals/grill/vasp/pd-help/vasp_cfft.pd deleted file mode 100644 index e6f46809..00000000 --- a/externals/grill/vasp/pd-help/vasp_cfft.pd +++ /dev/null @@ -1,98 +0,0 @@ -#N canvas 48 55 915 635 10; -#N canvas 92 108 405 306 inside 0; -#X obj 66 154 soundfiler; -#X obj 203 210 s \$0-sample-length; -#X obj 66 208 s \$0-draw_display; -#X msg 259 135 resize \$1; -#X obj 259 88 loadbang; -#X obj 67 53 loadbang; -#X msg 259 109 88200; -#X obj 259 157 s bufre; -#X obj 269 181 s bufim; -#X obj 67 101 filelisthandler \$0; -#X msg 67 79 4; -#X obj 66 178 t b; -#X msg 67 133 read \$1 bufre; -#X connect 0 0 11 0; -#X connect 3 0 7 0; -#X connect 3 0 8 0; -#X connect 4 0 6 0; -#X connect 5 0 10 0; -#X connect 6 0 3 0; -#X connect 6 0 1 0; -#X connect 9 0 12 0; -#X connect 10 0 9 0; -#X connect 11 0 2 0; -#X connect 12 0 0 0; -#X restore 781 473 pd inside; -#X obj 75 32 cnv 15 15 15 empty empty vasp.cfft 0 10 1 14 -262144 -1 -0; -#X obj 326 113 filelist \$0; -#X text 75 52 complex fourier transformation (giant); -#X text 70 68 cfft needs two buffers; -#X msg 67 113 vasp bufre; -#X obj 67 136 vasp.noise; -#X text 151 112 generate white noise or; -#X obj 67 159 vasp.* 0.5; -#X obj 67 182 vasp.update; -#X obj 67 205 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 61 411 vasp.update; -#X obj 61 434 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 61 388 vasp.c!fft; -#X obj 61 276 vasp.cfft; -#X msg 61 253 vasp bufre bufim; -#X obj 61 299 vasp.update; -#X obj 61 322 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 61 365 vasp bufre bufim; -#X text 758 100 real; -#X text 768 242 imaginary; -#X text 524 387 0 Hz; -#X text 660 387 sr/2; -#X obj 558 117 wavedisplay-select bufre \$0; -#X obj 559 266 wavedisplay-select bufim \$0; -#X text 166 472 <-- click to open; -#X text 789 387 44.1 kHz; -#X text 145 274 convert a signal from the time domain into the frequency -domain. each sample now represents a frequency (range from 0 to 44.1 -kHz).; -#X obj 59 473 filter_example; -#X obj 352 478 dac~; -#N canvas 0 0 413 295 clear_buffers 0; -#X obj 49 73 vasp.= 0; -#X obj 49 49 inlet; -#X obj 49 97 vasp.u; -#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 2 0; -#X connect 1 0 0 0; -#X connect 2 0 3 0; -#X restore 486 472 pd clear_buffers; -#X obj 352 434 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 374 428 play; -#X text 486 428 clear; -#X obj 352 455 tabplay~ bufre; -#X msg 486 449 vasp bufre bufim; -#X text 67 556 related objects:; -#X obj 68 596 VASP-HELP; -#X text 110 595 - vasp overview; -#X obj 379 557 vasp.r!fft; -#X obj 296 557 vasp.rfft; -#X obj 210 557 vasp.c!fft; -#X connect 5 0 6 0; -#X connect 6 0 8 0; -#X connect 8 0 9 0; -#X connect 9 0 10 0; -#X connect 11 0 12 0; -#X connect 13 0 11 0; -#X connect 14 0 16 0; -#X connect 15 0 14 0; -#X connect 16 0 17 0; -#X connect 18 0 13 0; -#X connect 31 0 34 0; -#X connect 34 0 29 0; -#X connect 34 0 29 1; -#X connect 35 0 30 0; diff --git a/externals/grill/vasp/pd-help/vasp_channel.pd b/externals/grill/vasp/pd-help/vasp_channel.pd deleted file mode 100644 index 2734b3f6..00000000 --- a/externals/grill/vasp/pd-help/vasp_channel.pd +++ /dev/null @@ -1,10 +0,0 @@ -#N canvas 87 123 442 407 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.channel 0 10 1 14 -262144
--1 0;
-#X obj 59 163 vasp.channel;
-#X obj 161 209 vasp.channel?;
-#X text 57 69 set channel index of vectors in vasp;
-#X text 54 105 only used for interleaved stereo-files;
-#X text 57 210 related object;
-#X text 52 123 (MaxMSP version of vasp);
-#X obj 61 268 VASP-HELP;
diff --git a/externals/grill/vasp/pd-help/vasp_check.pd b/externals/grill/vasp/pd-help/vasp_check.pd deleted file mode 100644 index ef9311e4..00000000 --- a/externals/grill/vasp/pd-help/vasp_check.pd +++ /dev/null @@ -1,26 +0,0 @@ -#N canvas 219 135 653 496 10;
-#X text 250 113 buffer length = 88200 samples;
-#X text 67 72 checks the dimensions of a vasp and corrects them;
-#X obj 70 32 cnv 15 15 15 empty empty vasp.check 0 10 1 14 -262144
--1 0;
-#X obj 69 114 table bufchk 88200;
-#X text 250 253 corrected vasp with maximum length at offset 44100
-;
-#X obj 69 227 prepend set;
-#X msg 69 159 vasp 88200 bufchk 44100 0;
-#X text 250 158 vasp with impossible dimensions;
-#X msg 69 254 vasp 44100 bufchk 44100 0;
-#X obj 69 186 vasp.check;
-#X obj 65 334 vasp.chk;
-#X text 139 333 abbreviation;
-#X text 64 363 related objects:;
-#X obj 67 393 VASP-HELP;
-#X text 52 226 *;
-#X text 62 432 * prepend-object from iemlib2 (http://pd.iem.at/iemlib)
-;
-#X obj 337 362 vasp.frames?;
-#X obj 187 362 vasp.n?;
-#X obj 245 362 vasp.offset?;
-#X connect 5 0 8 0;
-#X connect 6 0 9 0;
-#X connect 9 0 5 0;
diff --git a/externals/grill/vasp/pd-help/vasp_cifft.pd b/externals/grill/vasp/pd-help/vasp_cifft.pd deleted file mode 100644 index 22f10920..00000000 --- a/externals/grill/vasp/pd-help/vasp_cifft.pd +++ /dev/null @@ -1,89 +0,0 @@ -#N canvas 81 48 890 610 10;
-#N canvas 92 108 396 316 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 192 209 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 241 140 resize \$1;
-#X obj 241 93 loadbang;
-#X obj 67 53 loadbang;
-#X msg 241 114 88200;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 79 4;
-#X obj 241 162 s bufrei;
-#X obj 251 186 s bufimi;
-#X obj 66 178 t b;
-#X msg 67 133 read \$1 bufrei;
-#X connect 0 0 11 0;
-#X connect 3 0 9 0;
-#X connect 3 0 10 0;
-#X connect 4 0 6 0;
-#X connect 5 0 8 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 12 0;
-#X connect 8 0 7 0;
-#X connect 11 0 2 0;
-#X connect 12 0 0 0;
-#X restore 781 472 pd inside;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.c!fft 0 10 1 14 -262144
--1 0;
-#X obj 74 90 filelist \$0;
-#X obj 61 411 vasp.update;
-#X obj 61 434 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 61 388 vasp.c!fft;
-#X obj 61 233 vasp.cfft;
-#X obj 61 254 vasp.update;
-#X obj 61 275 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X text 801 97 real;
-#X text 768 242 imaginary;
-#X text 524 385 0 Hz;
-#X text 660 384 sr/2;
-#X text 171 473 <-- click to open;
-#X text 789 386 44.1 kHz;
-#X obj 352 474 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 486 474 pd clear_buffers;
-#X obj 352 431 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 374 428 play;
-#X text 486 429 clear;
-#X obj 59 473 filter_examplei;
-#X text 71 53 invers complex fourier transformation (giant);
-#X text 69 66 c!fft needs two buffers;
-#X msg 486 451 vasp bufrei bufimi;
-#X obj 352 451 tabplay~ bufrei;
-#X msg 61 212 vasp bufrei bufimi;
-#X text 189 211 transform to frequency domain;
-#X text 152 247 each sample of the buffer now represents a frequency
-(range from 0 to 44.1 kHz).;
-#X text 60 306 to get back to the sourcefile in time domain either
-use 3 more times vasp.cfft or just once vasp.c!fft;
-#X text 195 364 invers cfft to transform back to time domain;
-#X msg 61 365 vasp bufrei bufimi;
-#X obj 525 112 wavedisplay-simple bufrei \$0;
-#X obj 527 263 wavedisplay-simple bufimi \$0;
-#X text 59 538 related objects:;
-#X obj 59 574 VASP-HELP;
-#X obj 371 539 vasp.r!fft;
-#X obj 288 539 vasp.rfft;
-#X obj 202 539 vasp.cfft;
-#X connect 3 0 4 0;
-#X connect 5 0 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 17 0 24 0;
-#X connect 23 0 16 0;
-#X connect 24 0 15 0;
-#X connect 24 0 15 1;
-#X connect 25 0 6 0;
-#X connect 30 0 5 0;
diff --git a/externals/grill/vasp/pd-help/vasp_cmul.pd b/externals/grill/vasp/pd-help/vasp_cmul.pd deleted file mode 100644 index 1847cf69..00000000 --- a/externals/grill/vasp/pd-help/vasp_cmul.pd +++ /dev/null @@ -1,21 +0,0 @@ -#N canvas 262 173 610 420 10;
-#X text 54 148 c \, d ... right operand;
-#X text 54 130 a \, b ... left operand;
-#X text 54 112 e \, f ... target buffers;
-#X text 54 197 differences in lengths are adjusted to smaller vector
-of each pair;
-#X text 54 82 e+if=(a+ib)*(c+id);
-#X text 54 166 vasp.c* needs 2 vectors per operand which are treated
-as pairs;
-#X text 54 64 complex multiplication;
-#X obj 55 29 cnv 15 15 15 empty empty vasp.c* 0 10 1 14 -262144 -1
-0;
-#X obj 286 81 vasp.c*;
-#X text 46 271 related objects:;
-#X obj 182 314 vasp.c!-;
-#X obj 263 293 vasp.c!/;
-#X obj 263 272 vasp.c/;
-#X obj 182 293 vasp.c-;
-#X obj 50 347 VASP-HELP;
-#X obj 182 272 vasp.c+;
-#X obj 263 314 vasp.c=;
diff --git a/externals/grill/vasp/pd-help/vasp_cnoise.pd b/externals/grill/vasp/pd-help/vasp_cnoise.pd deleted file mode 100644 index 7485db5b..00000000 --- a/externals/grill/vasp/pd-help/vasp_cnoise.pd +++ /dev/null @@ -1,53 +0,0 @@ -#N canvas 47 54 881 559 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.cnoise 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcnoise1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 500 96 graph;
-#N canvas 0 0 402 278 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufcnoise1 \, symbol bufcnoise2;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 775 366 pd init;
-#X obj 65 217 vasp.update;
-#X obj 65 194 vasp.* 0.5;
-#N canvas 40 55 247 122 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 504 389 pd clear_buffers;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcnoise2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 501 228 graph;
-#X text 71 63 vasp complex noise generator;
-#X text 71 83 needs 2 buffers;
-#X msg 65 127 vasp bufcnoise1 bufcnoise2;
-#X text 267 140 into two buffers;
-#X obj 65 171 vasp.cnoise;
-#X obj 324 411 dac~;
-#X obj 324 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 346 344 play;
-#X msg 504 366 vasp bufcnoise1 bufcnoise2;
-#X obj 324 366 tabplay~ bufcnoise1;
-#X obj 343 388 tabplay~ bufcnoise2;
-#X obj 64 505 VASP-HELP;
-#X obj 189 472 vasp.noise;
-#X text 64 471 related object:;
-#X text 265 126 generate complex noise;
-#X connect 4 0 3 0;
-#X connect 9 0 11 0;
-#X connect 11 0 4 0;
-#X connect 13 0 16 0;
-#X connect 13 0 17 0;
-#X connect 15 0 5 0;
-#X connect 16 0 12 0;
-#X connect 17 0 12 1;
diff --git a/externals/grill/vasp/pd-help/vasp_cnorm.pd b/externals/grill/vasp/pd-help/vasp_cnorm.pd deleted file mode 100644 index 403165dd..00000000 --- a/externals/grill/vasp/pd-help/vasp_cnorm.pd +++ /dev/null @@ -1,94 +0,0 @@ -#N canvas 36 36 806 582 10; -#X obj 71 32 cnv 15 15 15 empty empty vasp.cnorm 0 10 1 14 -262144 --1 0; -#X obj 72 113 filelist \$0; -#N canvas 40 55 281 170 clear_buffers 0; -#X obj 54 79 vasp.update; -#X obj 54 56 vasp.= 0; -#X obj 54 26 inlet; -#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 3 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X restore 479 494 pd clear_buffers; -#X obj 59 247 vasp.update; -#X obj 59 267 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 337 493 dac~; -#X obj 337 455 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 358 454 play; -#N canvas 92 108 432 397 inside 0; -#X obj 66 169 soundfiler; -#X obj 202 278 s \$0-sample-length; -#X obj 66 223 s \$0-draw_display; -#X msg 240 212 resize \$1; -#X obj 66 47 loadbang; -#X obj 66 113 filelisthandler \$0; -#X msg 66 91 4; -#X obj 240 234 s bufcnorm1; -#X obj 241 255 s bufcnorm2; -#X msg 235 92 88200; -#X obj 66 69 t b b; -#X obj 66 193 t b; -#X msg 66 145 read \$1 bufcnorm1; -#X connect 0 0 11 0; -#X connect 3 0 7 0; -#X connect 3 0 8 0; -#X connect 4 0 10 0; -#X connect 5 0 12 0; -#X connect 6 0 5 0; -#X connect 9 0 3 0; -#X connect 9 0 1 0; -#X connect 10 0 6 0; -#X connect 10 1 9 0; -#X connect 11 0 2 0; -#X connect 12 0 0 0; -#X restore 668 494 pd inside; -#X obj 397 118 wavedisplay-simple bufcnorm1 \$0; -#X obj 398 275 wavedisplay-simple bufcnorm2 \$0; -#X msg 59 207 vasp bufcnorm1 bufcnorm2; -#X text 235 206 cfft; -#X obj 59 227 vasp.cfft; -#X obj 59 343 vasp.update; -#X obj 59 363 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 59 303 vasp bufcnorm1 bufcnorm2; -#X obj 59 323 vasp.cnorm; -#X obj 59 434 vasp.update; -#X obj 59 454 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 59 394 vasp bufcnorm1 bufcnorm2; -#X text 235 393 inverse cfft; -#X obj 59 414 vasp.c!fft; -#X obj 337 473 tabplay~ bufcnorm2; -#X obj 202 493 dac~; -#X obj 202 455 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 223 454 play; -#X obj 202 473 tabplay~ bufcnorm1; -#X text 668 97 real; -#X text 643 253 imaginary; -#X msg 479 474 vasp bufcnorm1 bufcnorm2; -#X text 71 66 needs two buffers (or multiple pairs); -#X text 71 49 sets radius of all complex sample pairs to unity (1) -; -#X obj 58 549 VASP-HELP; -#X text 100 548 - vasp overview; -#X connect 3 0 4 0; -#X connect 6 0 23 0; -#X connect 11 0 13 0; -#X connect 13 0 3 0; -#X connect 14 0 15 0; -#X connect 16 0 17 0; -#X connect 17 0 14 0; -#X connect 18 0 19 0; -#X connect 20 0 22 0; -#X connect 22 0 18 0; -#X connect 23 0 5 0; -#X connect 23 0 5 1; -#X connect 25 0 27 0; -#X connect 27 0 24 0; -#X connect 27 0 24 1; -#X connect 30 0 2 0; diff --git a/externals/grill/vasp/pd-help/vasp_copy.pd b/externals/grill/vasp/pd-help/vasp_copy.pd deleted file mode 100644 index f75ecad3..00000000 --- a/externals/grill/vasp/pd-help/vasp_copy.pd +++ /dev/null @@ -1,70 +0,0 @@ -#N canvas 21 60 971 578 10;
-#X obj 62 33 cnv 15 15 15 empty empty vasp.-> 0 10 1 14 -262144 -1
-0;
-#X text 55 81 optional argument/right inlet: value/vasp;
-#X obj 235 402 vasp.update;
-#N canvas 0 0 262 199 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X restore 380 379 pd clear_buffer;
-#X obj 50 500 VASP-HELP;
-#X text 55 62 copy an array/buffer to a new one;
-#X obj 57 452 vasp.->;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcopy1 100 float 1;
-#A 0 0 0 0 0.0599997 0.0899995 0.119999 0.179999 0.239999 0.259999
-0.279999 0.299998 0.309998 0.319998 0.323998 0.327998 0.331998 0.335998
-0.339998 0.339998 0.339998 0.339998 0.339998 0.309998 0.279999 0.179999
-0.0799996 -0.0599997 -0.0999995 -0.109999 -0.119999 -0.109999 -0.0999995
--0.0899995 -0.0799996 -0.0599997 -0.0399998 -0.0199999 2.30968e-008
-0.0199999 0.0799996 0.139999 0.259999 0.239999 0.119999 1.86265e-008
--0.0299998 -0.0599997 -0.0899995 -0.119999 -0.123333 -0.126666 -0.129999
--0.133333 -0.136666 -0.139999 -0.133333 -0.126666 -0.119999 -0.113333
--0.106666 -0.0999995 -0.0533331 -0.00666663 0.0399998 0.0866662 0.133333
-0.179999 0.239999 0.299998 0.379998 0.279999 0.159999 0.189999 0.219999
-0.299998 0.379998 0.459998 0.539997 0.595997 0.651997 0.707996 0.763996
-0.819996 0.379998 0.239999 0.0999995 0.0949996 0.0899996 0.0849996
-0.0799997 0.139999 0.199999 0.0399999 0.0999995 0 0 0 0 0 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 621 72 graph;
-#N canvas 0 0 392 268 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufcopy1 \, symbol bufcopy2 \, symbol bufcopy3
-;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 711 457 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcopy2 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 621 186 graph;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcopy3 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 621 301 graph;
-#X text 111 453 abbreviation;
-#X msg 54 169 vasp bufcopy1;
-#X obj 157 281 vasp.update;
-#X msg 380 354 vasp bufcopy2 bufcopy3;
-#X text 53 254 original;
-#X obj 235 379 vasp.= bufcopy1;
-#X msg 235 354 vasp bufcopy2;
-#X obj 54 234 vasp.copy bufcopy2;
-#X msg 178 226 vasp bufcopy3;
-#X msg 178 203 vasp bufcopy2;
-#X text 66 351 or the other way round:;
-#X text 164 254 copy;
-#X text 55 99 left outlet: original \, right outlet: copy !!!;
-#X text 377 330 clear buffer 2 and 3;
-#X connect 12 0 18 0;
-#X connect 14 0 3 0;
-#X connect 16 0 2 0;
-#X connect 17 0 16 0;
-#X connect 18 1 13 0;
-#X connect 19 0 18 1;
-#X connect 20 0 18 1;
diff --git a/externals/grill/vasp/pd-help/vasp_cosc.pd b/externals/grill/vasp/pd-help/vasp_cosc.pd deleted file mode 100644 index bbc4941c..00000000 --- a/externals/grill/vasp/pd-help/vasp_cosc.pd +++ /dev/null @@ -1,63 +0,0 @@ -#N canvas 47 54 885 488 10;
-#N canvas 0 0 452 302 Hz_to_period_length 0;
-#X floatatom 125 238 0 0 0;
-#X obj 125 142 t b f;
-#X text 164 238 period length in samples (float);
-#X floatatom 125 80 0 0 0;
-#X obj 125 206 / 1;
-#X text 170 79 frequency in Hz;
-#X obj 53 142 samplerate~;
-#X obj 53 119 loadbang;
-#X floatatom 125 175 5 0 0;
-#X connect 1 0 8 0;
-#X connect 1 1 4 1;
-#X connect 3 0 1 0;
-#X connect 4 0 0 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 4 0;
-#X restore 78 302 pd Hz_to_period_length;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.cosc 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcosc1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 500 96 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufcosc1 \, symbol bufcosc2;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 781 387 pd init;
-#X text 71 83 optional argument/right inlet: frequency in period length
-in samples;
-#X obj 77 241 vasp.update;
-#X obj 77 218 vasp.* 0.5;
-#X msg 503 360 vasp bufcosc1 bufcosc2;
-#N canvas 40 55 247 122 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 503 383 pd clear_buffers;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufcosc2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 501 228 graph;
-#X text 71 63 vasp complex sine wave generator;
-#X text 241 123 generate a complex sinewave;
-#X text 241 135 at 1 Hz into two buffers;
-#X obj 77 194 vasp.cosc 44100;
-#X msg 77 127 vasp bufcosc1 bufcosc2;
-#X floatatom 162 168 7 0 0;
-#X text 239 168 set period length (samples);
-#X obj 79 424 VASP-HELP;
-#X connect 6 0 5 0;
-#X connect 7 0 8 0;
-#X connect 13 0 6 0;
-#X connect 14 0 13 0;
-#X connect 15 0 13 1;
diff --git a/externals/grill/vasp/pd-help/vasp_cpowi.pd b/externals/grill/vasp/pd-help/vasp_cpowi.pd deleted file mode 100644 index 8d5d8047..00000000 --- a/externals/grill/vasp/pd-help/vasp_cpowi.pd +++ /dev/null @@ -1,84 +0,0 @@ -#N canvas 28 51 892 605 10;
-#N canvas 92 108 411 413 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 67 53 loadbang;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 133 read -resize \$1 bufcpowi1;
-#X obj 214 228 s bufcpowi1;
-#X obj 224 252 s bufcpowi2;
-#X msg 67 79 1;
-#X connect 0 0 5 0;
-#X connect 3 0 8 0;
-#X connect 3 0 9 0;
-#X connect 4 0 10 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 0 0;
-#X connect 10 0 6 0;
-#X restore 693 501 pd inside;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.cpowi 0 10 1 14 -262144
--1 0;
-#X obj 77 139 filelist \$0;
-#X obj 59 482 vasp.update;
-#X obj 59 502 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 59 442 vasp.c!fft;
-#X obj 59 264 vasp.cfft;
-#X obj 59 284 vasp.update;
-#X obj 59 304 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 360 498 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 494 498 pd clear_buffers;
-#X obj 360 455 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 382 452 play;
-#X text 494 453 clear;
-#X text 74 61 complex integer power function;
-#X text 74 75 complex sample ^ n;
-#X text 74 101 argument: exponent;
-#X msg 59 244 vasp bufcpowi1 bufcpowi2;
-#X obj 470 111 wavedisplay-simple bufcpowi1 \$0;
-#X obj 471 254 wavedisplay-simple bufcpowi2 \$0;
-#X obj 360 475 tabplay~ bufcpowi1;
-#X msg 494 475 vasp bufcpowi1 bufcpowi2;
-#X obj 59 368 vasp.update;
-#X obj 59 388 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 59 328 vasp bufcpowi1 bufcpowi2;
-#X obj 59 348 vasp.cpowi 2;
-#X msg 59 422 vasp bufcpowi1 bufcpowi2;
-#X obj 59 462 vasp.opt;
-#X text 75 88 needs two vectors (or more complex pairs);
-#X obj 59 552 VASP-HELP;
-#X text 222 242 1 transform to frequency domain;
-#X text 219 310 2 complex int power function;
-#X text 217 404 3 transform back to time domain;
-#X connect 3 0 4 0;
-#X connect 5 0 27 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 11 0 20 0;
-#X connect 17 0 6 0;
-#X connect 20 0 9 0;
-#X connect 20 0 9 1;
-#X connect 21 0 10 0;
-#X connect 22 0 23 0;
-#X connect 24 0 25 0;
-#X connect 25 0 22 0;
-#X connect 26 0 5 0;
-#X connect 27 0 3 0;
diff --git a/externals/grill/vasp/pd-help/vasp_crsub.pd b/externals/grill/vasp/pd-help/vasp_crsub.pd deleted file mode 100644 index 8a70d962..00000000 --- a/externals/grill/vasp/pd-help/vasp_crsub.pd +++ /dev/null @@ -1,22 +0,0 @@ -#N canvas 262 173 566 417 10; -#X text 56 204 differences in lengths are adjusted to smaller vector -of each pair; -#X text 59 142 c \, d ... right operand; -#X text 59 127 a \, b ... left operand; -#X text 59 83 e+if=(c+id)-(a+ib); -#X text 59 112 e \, f ... target buffers; -#X text 59 170 vasp.c- needs 2 vectors per operand which are treated -as pairs; -#X text 59 67 complex inverse substraction; -#X obj 55 34 cnv 15 15 15 empty empty vasp.c!- 0 10 1 14 -262144 -1 -0; -#X obj 286 96 vasp.c!-; -#X text 46 287 related objects:; -#X obj 265 330 vasp.c!/; -#X obj 182 288 vasp.c=; -#X obj 265 309 vasp.c/; -#X obj 265 288 vasp.c*; -#X obj 52 377 VASP-HELP; -#X text 94 377 - vasp overview; -#X obj 182 309 vasp.c+; -#X obj 182 330 vasp.c-; diff --git a/externals/grill/vasp/pd-help/vasp_cset.pd b/externals/grill/vasp/pd-help/vasp_cset.pd deleted file mode 100644 index b317f1d2..00000000 --- a/externals/grill/vasp/pd-help/vasp_cset.pd +++ /dev/null @@ -1,20 +0,0 @@ -#N canvas 232 203 575 403 10;
-#X text 57 188 differences in lengths are adjusted to smaller vector
-of each pair;
-#X text 58 124 c \, d is the target;
-#X text 58 109 a \, b is the source;
-#X text 58 84 (a+ib)=(c+id);
-#X text 58 153 vasp.c= needs 2 vectors per operand which are treated
-as pairs;
-#X text 58 68 complex =;
-#X obj 55 34 cnv 15 15 15 empty empty vasp.c= 0 10 1 14 -262144 -1
-0;
-#X obj 291 90 vasp.c=;
-#X text 58 265 related objects:;
-#X obj 194 308 vasp.c!-;
-#X obj 277 308 vasp.c!/;
-#X obj 277 287 vasp.c/;
-#X obj 277 266 vasp.c*;
-#X obj 194 287 vasp.c-;
-#X obj 57 352 VASP-HELP;
-#X obj 194 266 vasp.c+;
diff --git a/externals/grill/vasp/pd-help/vasp_csqr.pd b/externals/grill/vasp/pd-help/vasp_csqr.pd deleted file mode 100644 index 23554fe5..00000000 --- a/externals/grill/vasp/pd-help/vasp_csqr.pd +++ /dev/null @@ -1,79 +0,0 @@ -#N canvas 28 51 892 642 10;
-#N canvas 92 108 415 417 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 67 53 loadbang;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 79 3;
-#X obj 214 228 s bufcsqr1;
-#X obj 224 252 s bufcsqr2;
-#X msg 67 133 read -resize \$1 bufcsqr1;
-#X connect 0 0 5 0;
-#X connect 3 0 8 0;
-#X connect 3 0 9 0;
-#X connect 4 0 7 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 10 0;
-#X connect 7 0 6 0;
-#X connect 10 0 0 0;
-#X restore 685 477 pd inside;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.csqr 0 10 1 14 -262144 -1
-0;
-#X obj 77 139 filelist \$0;
-#X obj 59 482 vasp.update;
-#X obj 59 502 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 59 442 vasp.c!fft;
-#X obj 59 264 vasp.cfft;
-#X obj 59 284 vasp.update;
-#X obj 59 304 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 352 474 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 486 474 pd clear_buffers;
-#X obj 352 431 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 374 428 play;
-#X text 486 429 clear;
-#X obj 59 368 vasp.update;
-#X obj 59 388 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 59 462 vasp.opt;
-#X text 74 75 complex sample ^ 2;
-#X msg 59 244 vasp bufcsqr1 bufcsqr2;
-#X msg 59 328 vasp bufcsqr1 bufcsqr2;
-#X obj 59 348 vasp.csqr;
-#X msg 59 422 vasp bufcsqr1 bufcsqr2;
-#X obj 352 451 tabplay~ bufcsqr1;
-#X msg 486 451 vasp bufcsqr1 bufcsqr2;
-#X obj 383 123 wavedisplay-simple bufcsqr1 \$0;
-#X obj 383 258 wavedisplay-simple bufcsqr2 \$0;
-#X text 75 88 needs two vectors (or multiple complex pairs);
-#X obj 57 580 VASP-HELP;
-#X connect 3 0 4 0;
-#X connect 5 0 16 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 11 0 22 0;
-#X connect 14 0 15 0;
-#X connect 16 0 3 0;
-#X connect 18 0 6 0;
-#X connect 19 0 20 0;
-#X connect 20 0 14 0;
-#X connect 21 0 5 0;
-#X connect 22 0 9 0;
-#X connect 22 0 9 1;
-#X connect 23 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_csub.pd b/externals/grill/vasp/pd-help/vasp_csub.pd deleted file mode 100644 index 35cd2bd7..00000000 --- a/externals/grill/vasp/pd-help/vasp_csub.pd +++ /dev/null @@ -1,21 +0,0 @@ -#N canvas 262 173 610 462 10;
-#X text 62 147 c \, d ... right operand;
-#X text 62 132 a \, b ... left operand;
-#X text 62 117 e \, f ... target buffers;
-#X text 60 201 differences in lengths are adjusted to smaller vector
-of each pair;
-#X text 62 87 e+if=(a+ib)-(c+id);
-#X text 61 169 vasp.c- needs 2 vectors per operand which are treated
-as pairs;
-#X text 62 71 complex subtraction;
-#X obj 57 23 cnv 15 15 15 empty empty vasp.c- 0 10 1 14 -262144 -1
-0;
-#X obj 297 94 vasp.c-;
-#X text 46 287 related objects:;
-#X obj 182 330 vasp.c!-;
-#X obj 265 330 vasp.c!/;
-#X obj 182 288 vasp.c=;
-#X obj 265 309 vasp.c/;
-#X obj 265 288 vasp.c*;
-#X obj 52 377 VASP-HELP;
-#X obj 182 309 vasp.c+;
diff --git a/externals/grill/vasp/pd-help/vasp_csubr.pd b/externals/grill/vasp/pd-help/vasp_csubr.pd deleted file mode 100644 index ed2e3027..00000000 --- a/externals/grill/vasp/pd-help/vasp_csubr.pd +++ /dev/null @@ -1,21 +0,0 @@ -#N canvas 266 193 568 419 10;
-#X text 56 204 differences in lengths are adjusted to smaller vector
-of each pair;
-#X text 59 142 c \, d ... right operand;
-#X text 59 127 a \, b ... left operand;
-#X text 59 83 e+if=(c+id)-(a+ib);
-#X text 59 112 e \, f ... target buffers;
-#X text 59 170 vasp.c- needs 2 vectors per operand which are treated
-as pairs;
-#X text 59 67 complex inverse substraction;
-#X obj 55 34 cnv 15 15 15 empty empty vasp.c!- 0 10 1 14 -262144 -1
-0;
-#X obj 286 96 vasp.c!-;
-#X text 46 287 related objects:;
-#X obj 265 330 vasp.c!/;
-#X obj 182 288 vasp.c=;
-#X obj 265 309 vasp.c/;
-#X obj 265 288 vasp.c*;
-#X obj 52 377 VASP-HELP;
-#X obj 182 309 vasp.c+;
-#X obj 182 330 vasp.c-;
diff --git a/externals/grill/vasp/pd-help/vasp_dframes.pd b/externals/grill/vasp/pd-help/vasp_dframes.pd deleted file mode 100644 index 327ff98e..00000000 --- a/externals/grill/vasp/pd-help/vasp_dframes.pd +++ /dev/null @@ -1,65 +0,0 @@ -#N canvas 97 138 905 512 10;
-#X obj 62 303 vasp.osc 22050;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.frames+ 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufdfram1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 149 graph;
-#N canvas 0 0 402 278 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufdfram1;
-#X msg 140 45 symbol bufdfram2;
-#X connect 0 0 2 0;
-#X connect 0 0 3 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X restore 714 408 pd init;
-#X obj 62 335 vasp.update;
-#X text 119 397 abbreviation;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufdfram2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 268 graph;
-#X text 56 98 !!!all vectors of a vasp have the same framesize/length!!!
-;
-#X obj 77 252 prepend set;
-#X obj 62 220 vasp.frames+ 30000;
-#X obj 63 396 vasp.f+;
-#X obj 63 452 VASP-HELP;
-#X text 57 69 adds a value to the frames of a vasp;
-#X text 58 83 argument/right inlet: value in frames;
-#X obj 278 432 vasp.osc 22050;
-#X obj 278 455 vasp.update;
-#X obj 278 258 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
-10 -24198 -1 -1 -161 256;
-#X obj 278 277 * 100;
-#X floatatom 313 280 12 0 0;
-#X msg 62 192 vasp 0 bufdfram1;
-#X text 62 164 add 30000 frames to a buffer with length 0;
-#X obj 296 351 vasp.= 0;
-#X obj 278 306 t b b f;
-#X obj 278 408 vasp.frames+ 0;
-#X msg 278 380 vasp 30000 bufdfram2;
-#X msg 296 330 vasp bufdfram2;
-#X text 278 217 add an amount \, to subtract;
-#X text 278 231 try negative values;
-#X msg 77 274;
-#X connect 0 0 4 0;
-#X connect 8 0 28 0;
-#X connect 9 0 8 0;
-#X connect 9 0 0 0;
-#X connect 14 0 15 0;
-#X connect 16 0 17 0;
-#X connect 17 0 18 0;
-#X connect 17 0 22 0;
-#X connect 19 0 9 0;
-#X connect 22 0 24 0;
-#X connect 22 1 25 0;
-#X connect 22 2 23 1;
-#X connect 23 0 14 0;
-#X connect 24 0 23 0;
-#X connect 25 0 21 0;
diff --git a/externals/grill/vasp/pd-help/vasp_dif.pd b/externals/grill/vasp/pd-help/vasp_dif.pd deleted file mode 100644 index 039671ca..00000000 --- a/externals/grill/vasp/pd-help/vasp_dif.pd +++ /dev/null @@ -1,49 +0,0 @@ -#N canvas 96 158 863 464 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.dif 0 10 1 14 -262144 -1
-0;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 469 375 pd clear_buffer;
-#X obj 77 365 vasp.update;
-#X obj 77 243 vasp.update;
-#X obj 77 340 vasp.opt;
-#X obj 77 315 vasp.dif;
-#X text 70 61 vasp differential function;
-#X text 70 77 argument/right inlet: repetition count (default 1);
-#X obj 77 154 vasp.- 0.5;
-#X obj 77 177 vasp.abs;
-#X obj 77 199 vasp.- 0.25;
-#X obj 77 220 vasp.* 4;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufdif 20 float 0;
-#X coords 0 1 19 -1 300 100 1;
-#X restore 441 173 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 5 \; \$1 xlabel 1.1 0 5 10 15 \; \$1
-yticks 0 0.25 2 \; \$1 ylabel 20.5 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufdif;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 690 378 pd init;
-#X msg 469 354 vasp bufdif;
-#X obj 77 130 vasp.phasor 10;
-#X msg 77 103 vasp bufdif;
-#X msg 77 293 vasp bufdif;
-#X text 170 293 find the gradient of the curve;
-#X text 187 101 generate triangular wave;
-#X obj 79 422 VASP-HELP;
-#X connect 4 0 2 0;
-#X connect 5 0 4 0;
-#X connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 3 0;
-#X connect 14 0 1 0;
-#X connect 15 0 8 0;
-#X connect 16 0 15 0;
-#X connect 17 0 5 0;
diff --git a/externals/grill/vasp/pd-help/vasp_div.pd b/externals/grill/vasp/pd-help/vasp_div.pd deleted file mode 100644 index 2b2363e9..00000000 --- a/externals/grill/vasp/pd-help/vasp_div.pd +++ /dev/null @@ -1,42 +0,0 @@ -#N canvas 193 184 764 384 10;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 45 79 vasp.update;
-#X obj 45 56 vasp.= 0;
-#X obj 45 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 522 282 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufdiv 88200 float 0;
-#X coords 0 1 88199 -1 300 120 1;
-#X restore 401 42 graph;
-#N canvas 0 0 398 274 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufdiv;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 655 282 pd init;
-#X obj 51 19 cnv 15 15 15 empty empty vasp./ 0 10 1 14 -262144 -1 0
-;
-#X text 127 122 generate a sine wave at 1Hz;
-#X text 44 82 optional argument/right inlet: divisor;
-#X text 44 67 vasp division;
-#X msg 522 262 vasp bufdiv;
-#X obj 51 271 vasp.update;
-#X obj 51 204 vasp.osc 44100;
-#X obj 51 231 vasp./ 2;
-#X msg 51 175 vasp bufdiv;
-#X obj 51 334 VASP-HELP;
-#X obj 51 144 t b f;
-#X obj 51 123 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0
-10 -24198 -1 -1 2 256;
-#X connect 7 0 0 0;
-#X connect 9 0 10 0;
-#X connect 10 0 8 0;
-#X connect 11 0 9 0;
-#X connect 13 0 11 0;
-#X connect 13 1 10 1;
-#X connect 14 0 13 0;
diff --git a/externals/grill/vasp/pd-help/vasp_divr.pd b/externals/grill/vasp/pd-help/vasp_divr.pd deleted file mode 100644 index ee67e6c4..00000000 --- a/externals/grill/vasp/pd-help/vasp_divr.pd +++ /dev/null @@ -1,37 +0,0 @@ -#N canvas 193 184 768 388 10;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 45 79 vasp.update;
-#X obj 45 56 vasp.= 0;
-#X obj 45 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 403 225 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufrdiv 88200 float 0;
-#X coords 0 1 88199 -1 300 120 1;
-#X restore 401 42 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufrdiv;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 668 245 pd init;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.!/ 0 10 1 14 -262144 -1
-0;
-#X msg 403 205 vasp bufrdiv;
-#X text 44 67 vasp reverse division (value/sample);
-#X text 44 82 optional argument/right inlet: denominator;
-#X obj 49 219 vasp.update;
-#X msg 49 124 vasp bufrdiv;
-#X text 137 124 generate a ramp from 1 to 2;
-#X obj 49 186 vasp.!/ 1;
-#X text 136 185 1/x;
-#X obj 48 298 VASP-HELP;
-#X obj 49 151 vasp.= env 1 0 2 88200;
-#X connect 4 0 0 0;
-#X connect 8 0 13 0;
-#X connect 10 0 7 0;
-#X connect 13 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_doffset.pd b/externals/grill/vasp/pd-help/vasp_doffset.pd deleted file mode 100644 index c1f7b32c..00000000 --- a/externals/grill/vasp/pd-help/vasp_doffset.pd +++ /dev/null @@ -1,28 +0,0 @@ -#N canvas 199 140 620 413 10;
-#X text 55 80 argument/right inlet: value;
-#X obj 41 11 cnv 15 15 15 empty empty vasp.offset+ 0 10 1 14 -262144
--1 0;
-#X text 57 323 abbreviation;
-#X floatatom 149 151 0 0 0;
-#X obj 58 201 prepend set;
-#X obj 58 172 vasp.offset+ 300;
-#X msg 58 128 vasp bufoffsd1;
-#X msg 58 234;
-#X floatatom 336 151 0 0 0;
-#X obj 245 201 prepend set;
-#X obj 245 172 vasp.offset+ 300;
-#X msg 245 128 vasp bufoffsd1 220 bufoffsd2 100;
-#X msg 245 234;
-#X obj 147 324 vasp.o+;
-#X text 55 63 change the offset of a vasp (relatively);
-#X obj 471 286 table bufoffsd1;
-#X obj 471 313 table bufoffsd2;
-#X obj 58 365 VASP-HELP;
-#X connect 3 0 5 1;
-#X connect 4 0 7 0;
-#X connect 5 0 4 0;
-#X connect 6 0 5 0;
-#X connect 8 0 10 1;
-#X connect 9 0 12 0;
-#X connect 10 0 9 0;
-#X connect 11 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_dsize.pd b/externals/grill/vasp/pd-help/vasp_dsize.pd deleted file mode 100644 index b8c47396..00000000 --- a/externals/grill/vasp/pd-help/vasp_dsize.pd +++ /dev/null @@ -1,39 +0,0 @@ -#N canvas 85 111 905 540 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.size+ 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 408 284 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50
-\; \$1 yticks 0 0.25 2;
-#X msg 33 45 symbol bufdsize;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 714 408 pd init;
-#X text 119 392 abbreviation;
-#X text 58 83 argument/right inlet: value in samples;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufdsize 176 float 0;
-#X coords 0 1 175 -1 300 100 1;
-#X restore 453 153 graph;
-#X text 62 433 related objects:;
-#X obj 343 460 vasp.frames;
-#X obj 183 460 vasp.size?;
-#X obj 259 460 vasp.size*;
-#X obj 259 437 vasp.size/;
-#X msg 62 152 vasp bufdsize;
-#X text 56 67 add an amount to the size of a buffer/array;
-#X obj 62 225 vasp.size+ 10;
-#X obj 62 271 vasp.size?;
-#X floatatom 62 304 5 0 0;
-#X obj 63 392 vasp.s+;
-#X obj 183 436 vasp.size;
-#X obj 62 504 VASP-HELP;
-#X obj 135 199 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
-10 -24198 -1 -1 0 256;
-#X obj 62 129 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X connect 10 0 12 0;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 18 0 12 1;
-#X connect 19 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_equ.pd b/externals/grill/vasp/pd-help/vasp_equ.pd deleted file mode 100644 index 36c5ce74..00000000 --- a/externals/grill/vasp/pd-help/vasp_equ.pd +++ /dev/null @@ -1,53 +0,0 @@ -#N canvas 28 91 940 545 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.== 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufequ 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 402 278 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufequ \, symbol bufequ1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 766 421 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufequ1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 248 graph;
-#X text 60 104 argument/right inlet: value;
-#X text 166 293 copy to new buffer;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 564 426 pd clear_buffers;
-#X text 60 80 equal;
-#X msg 564 399 vasp bufequ bufequ1;
-#X text 173 149 generate a function;
-#X msg 61 150 vasp bufequ;
-#X text 406 248 1/true;
-#X text 405 288 0/false;
-#X text 164 359 test if a part of the function is equal to -1;
-#X obj 58 431 VASP-HELP;
-#X obj 60 384 vasp.update;
-#X msg 60 294 vasp bufequ1;
-#X obj 60 326 vasp.= bufequ;
-#X obj 60 357 vasp.== -1;
-#X obj 61 218 vasp.update;
-#X obj 61 178 vasp.= env 0 0 1 22049 0.3 22050 0.3 44099 -1 44100 -1
-66149 1 66150 0 88200;
-#X connect 8 0 6 0;
-#X connect 10 0 20 0;
-#X connect 16 0 17 0;
-#X connect 17 0 18 0;
-#X connect 18 0 15 0;
-#X connect 20 0 19 0;
diff --git a/externals/grill/vasp/pd-help/vasp_exp.pd b/externals/grill/vasp/pd-help/vasp_exp.pd deleted file mode 100644 index 902ebc33..00000000 --- a/externals/grill/vasp/pd-help/vasp_exp.pd +++ /dev/null @@ -1,42 +0,0 @@ -#N canvas 51 74 827 464 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.exp 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 408 284 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufexp;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 608 330 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 463 330 pd clear_buffer;
-#X obj 77 197 vasp.update;
-#X text 71 63 e ^ sample;
-#X text 72 81 exponential function;
-#X obj 77 150 vasp.osc 22050;
-#X obj 77 172 vasp.* 0.5;
-#X msg 77 127 vasp bufexp;
-#X msg 463 307 vasp bufexp;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufexp 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 341 144 graph;
-#X obj 78 372 VASP-HELP;
-#X obj 77 316 vasp.update;
-#X msg 77 246 vasp bufexp;
-#X obj 77 291 vasp.opt;
-#X obj 77 269 vasp.exp;
-#X connect 6 0 7 0;
-#X connect 7 0 3 0;
-#X connect 8 0 6 0;
-#X connect 9 0 2 0;
-#X connect 13 0 15 0;
-#X connect 14 0 12 0;
-#X connect 15 0 14 0;
diff --git a/externals/grill/vasp/pd-help/vasp_fhp.pd b/externals/grill/vasp/pd-help/vasp_fhp.pd deleted file mode 100644 index 4f385e2c..00000000 --- a/externals/grill/vasp/pd-help/vasp_fhp.pd +++ /dev/null @@ -1,88 +0,0 @@ -#N canvas 47 54 895 558 10; -#X obj 71 32 cnv 15 15 15 empty empty vasp.fhp 0 10 1 14 -262144 -1 -0; -#X obj 76 247 vasp.update; -#X obj 76 224 vasp.* 0.5; -#X obj 401 449 dac~; -#X obj 401 405 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 423 404 play; -#N canvas 40 55 281 170 clear_buffer 0; -#X obj 54 79 vasp.update; -#X obj 54 56 vasp.= 0; -#X obj 54 26 inlet; -#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 0 8 --262144 -1 -1; -#X connect 0 0 3 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X restore 533 449 pd clear_buffer; -#X text 180 178 generate white noise; -#X obj 76 201 vasp.noise; -#X obj 76 270 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 0 8 --262144 -1 -1; -#X obj 77 391 vasp.update; -#X obj 77 414 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 0 8 --262144 -1 -1; -#N canvas 92 108 341 266 init 0; -#X obj 110 180 s \$0-sample-length; -#X msg 177 126 resize \$1; -#X obj 177 79 loadbang; -#X msg 177 100 88200; -#X obj 177 148 s buffhp; -#X connect 1 0 4 0; -#X connect 2 0 3 0; -#X connect 3 0 1 0; -#X connect 3 0 0 0; -#X restore 672 447 pd init; -#N canvas 0 22 458 308 Hz_to_period_length 0; -#X floatatom 125 242 0 0 0 0 - - -; -#X obj 125 142 t b f; -#X text 158 223 period length in samples (float); -#X floatatom 125 80 0 0 0 0 - - -; -#X obj 125 206 / 1; -#X text 170 79 frequency in Hz; -#X obj 53 142 samplerate~; -#X obj 53 119 loadbang; -#X floatatom 125 175 5 0 0 0 - - -; -#X connect 1 0 8 0; -#X connect 1 1 4 1; -#X connect 3 0 1 0; -#X connect 4 0 0 0; -#X connect 6 0 8 0; -#X connect 7 0 6 0; -#X connect 8 0 4 0; -#X restore 78 457 pd Hz_to_period_length; -#X text 71 63 vasp high pass filter (FIR); -#X text 70 78 first argument: cutoff frequency in period length; -#X obj 421 188 wavedisplay-simple buffhp \$0; -#X msg 76 179 vasp buffhp; -#X msg 77 330 vasp buffhp; -#X floatatom 201 298 5 0 0 0 - - -; -#X floatatom 260 298 5 0 0 0 - - -; -#X text 195 278 cutoff; -#X obj 201 345 pack; -#X obj 401 426 tabplay~ buffhp; -#X msg 533 426 vasp buffhp; -#X obj 260 319 t b f; -#X obj 77 366 vasp.fhp 220; -#X obj 78 503 VASP-HELP; -#X text 70 92 second argument: repetitions (integer) \, default 1; -#X text 70 119 right inlet: cutoff and repetitions (list); -#X text 261 277 repetitions; -#X connect 1 0 9 0; -#X connect 2 0 1 0; -#X connect 4 0 23 0; -#X connect 8 0 2 0; -#X connect 10 0 11 0; -#X connect 17 0 8 0; -#X connect 18 0 26 0; -#X connect 19 0 22 0; -#X connect 20 0 25 0; -#X connect 22 0 26 1; -#X connect 23 0 3 0; -#X connect 23 0 3 1; -#X connect 24 0 6 0; -#X connect 25 0 22 0; -#X connect 25 1 22 1; -#X connect 26 0 10 0; diff --git a/externals/grill/vasp/pd-help/vasp_fix.pd b/externals/grill/vasp/pd-help/vasp_fix.pd deleted file mode 100644 index 871a1d33..00000000 --- a/externals/grill/vasp/pd-help/vasp_fix.pd +++ /dev/null @@ -1,64 +0,0 @@ -#N canvas 40 76 961 604 10;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 45 79 vasp.update;
-#X obj 45 56 vasp.= 0;
-#X obj 45 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 567 519 pd clear_buffer;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.fix 0 10 1 14 -262144 -1
-0;
-#X obj 52 493 VASP-HELP;
-#X text 43 57 NAN (not a number) - values become 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array buffix1 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 539 58 graph;
-#N canvas 0 0 390 266 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol buffix1 \, symbol buffix2 \, symbol buffix3;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 799 523 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array buffix2 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 539 207 graph;
-#N canvas 0 0 450 300 graph1 0;
-#X array buffix3 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 539 353 graph;
-#X msg 567 490 vasp buffix1 buffix2 buffix3;
-#X obj 142 254 vasp.log;
-#X obj 246 392 vasp.u;
-#X obj 246 365 vasp.fix;
-#X obj 142 393 vasp.u;
-#X obj 142 332 vasp.exp;
-#X text 152 362 no fix;
-#X obj 57 179 vasp.u;
-#X text 212 253 values < 0 become NANs;
-#X text 803 324 fixed;
-#X text 802 18 source;
-#X text 814 179 NANs;
-#X msg 57 121 vasp buffix1;
-#X obj 57 202 vasp.-> buffix2;
-#X obj 142 292 vasp.-> buffix3;
-#X obj 246 334 vasp.exp;
-#X text 142 421 NANs;
-#X text 246 420 fixed;
-#X text 157 121 generate sine wave;
-#X obj 57 157 vasp.osc 21;
-#X text 316 365 NANs become 0;
-#X connect 8 0 0 0;
-#X connect 9 0 22 0;
-#X connect 11 0 10 0;
-#X connect 13 0 12 0;
-#X connect 15 0 21 0;
-#X connect 20 0 27 0;
-#X connect 21 1 9 0;
-#X connect 22 0 13 0;
-#X connect 22 1 23 0;
-#X connect 23 0 11 0;
-#X connect 27 0 15 0;
diff --git a/externals/grill/vasp/pd-help/vasp_flp.pd b/externals/grill/vasp/pd-help/vasp_flp.pd deleted file mode 100644 index 39852da6..00000000 --- a/externals/grill/vasp/pd-help/vasp_flp.pd +++ /dev/null @@ -1,85 +0,0 @@ -#N canvas 47 54 887 550 10; -#X obj 71 32 cnv 15 15 15 empty empty vasp.flp 0 10 1 14 -262144 -1 -0; -#X obj 76 247 vasp.update; -#X obj 76 224 vasp.* 0.5; -#X obj 401 449 dac~; -#X obj 401 405 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 423 404 play; -#N canvas 40 55 281 170 clear_buffer 0; -#X obj 54 79 vasp.update; -#X obj 54 56 vasp.= 0; -#X obj 54 26 inlet; -#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 0 8 --262144 -1 -1; -#X connect 0 0 3 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X restore 533 449 pd clear_buffer; -#X text 180 178 generate white noise; -#X obj 76 201 vasp.noise; -#X obj 76 270 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 0 8 --262144 -1 -1; -#N canvas 92 108 343 268 init 0; -#X obj 110 180 s \$0-sample-length; -#X msg 177 126 resize \$1; -#X obj 177 79 loadbang; -#X msg 177 100 88200; -#X obj 177 148 s bufflp; -#X connect 1 0 4 0; -#X connect 2 0 3 0; -#X connect 3 0 1 0; -#X connect 3 0 0 0; -#X restore 672 447 pd init; -#N canvas 0 22 460 310 Hz_to_period_length 0; -#X floatatom 125 242 0 0 0 0 - - -; -#X obj 125 142 t b f; -#X text 158 223 period length in samples (float); -#X floatatom 125 80 0 0 0 0 - - -; -#X obj 125 206 / 1; -#X text 170 79 frequency in Hz; -#X obj 53 142 samplerate~; -#X obj 53 119 loadbang; -#X floatatom 125 175 5 0 0 0 - - -; -#X connect 1 0 8 0; -#X connect 1 1 4 1; -#X connect 3 0 1 0; -#X connect 4 0 0 0; -#X connect 6 0 8 0; -#X connect 7 0 6 0; -#X connect 8 0 4 0; -#X restore 78 457 pd Hz_to_period_length; -#X text 70 78 first argument: cutoff frequency in period length; -#X msg 76 179 vasp bufflp; -#X obj 428 165 wavedisplay-simple bufflp \$0; -#X msg 533 426 vasp bufflp; -#X obj 401 426 tabplay~ bufflp; -#X obj 78 496 VASP-HELP; -#X obj 77 371 vasp.update; -#X obj 77 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 0 8 --262144 -1 -1; -#X floatatom 201 298 5 0 0 0 - - -; -#X floatatom 260 298 5 0 0 0 - - -; -#X text 195 278 cutoff; -#X obj 201 318 pack; -#X msg 77 297 vasp bufflp; -#X obj 77 347 vasp.flp 220; -#X text 261 277 repetitions; -#X text 71 63 vasp passive low pass filter (FIR); -#X text 70 92 second argument: repetitions (integer) \, default 1; -#X text 70 119 right inlet: cutoff and repetitions (list); -#X connect 1 0 9 0; -#X connect 2 0 1 0; -#X connect 4 0 16 0; -#X connect 8 0 2 0; -#X connect 13 0 8 0; -#X connect 15 0 6 0; -#X connect 16 0 3 0; -#X connect 16 0 3 1; -#X connect 18 0 19 0; -#X connect 20 0 23 0; -#X connect 21 0 23 1; -#X connect 23 0 25 1; -#X connect 24 0 25 0; -#X connect 25 0 18 0; diff --git a/externals/grill/vasp/pd-help/vasp_frames.pd b/externals/grill/vasp/pd-help/vasp_frames.pd deleted file mode 100644 index 6ee8ce96..00000000 --- a/externals/grill/vasp/pd-help/vasp_frames.pd +++ /dev/null @@ -1,60 +0,0 @@ -#N canvas 79 77 899 565 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.frames 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array buffram1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 149 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol buffram1;
-#X msg 140 45 symbol buffram2;
-#X connect 0 0 2 0;
-#X connect 0 0 3 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X restore 714 408 pd init;
-#X text 119 397 abbreviation;
-#N canvas 0 0 450 300 graph1 0;
-#X array buffram2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 268 graph;
-#X obj 62 303 vasp.osc 22050;
-#X obj 62 335 vasp.update;
-#X msg 62 165 vasp buffram1;
-#X obj 62 225 vasp.frames 30000;
-#X obj 90 258 prepend set;
-#X msg 90 280;
-#X obj 233 226 vasp.frames 22050;
-#X obj 233 335 vasp.update;
-#X obj 261 258 prepend set;
-#X msg 233 164 vasp buffram1 buffram2 11050;
-#X floatatom 330 197 5 0 0 0 - - -;
-#X obj 233 303 vasp.osc 11025;
-#X msg 261 280;
-#X obj 62 397 vasp.f;
-#X obj 61 498 VASP-HELP;
-#X text 57 69 set the number of frames of a vasp;
-#X text 58 83 argument/right inlet: value in frames;
-#X text 60 429 related objects:;
-#X obj 61 451 vasp.size;
-#X obj 150 451 vasp.f?;
-#X obj 223 451 vasp.f=;
-#X text 57 100 the number of frames is limited by the size of a buffer/array!
-;
-#X text 57 129 all vectors of a vasp have the same frame count/length!
-;
-#X connect 5 0 6 0;
-#X connect 7 0 8 0;
-#X connect 8 0 9 0;
-#X connect 8 0 5 0;
-#X connect 9 0 10 0;
-#X connect 11 0 13 0;
-#X connect 11 0 16 0;
-#X connect 13 0 17 0;
-#X connect 14 0 11 0;
-#X connect 15 0 11 1;
-#X connect 16 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_gate.pd b/externals/grill/vasp/pd-help/vasp_gate.pd deleted file mode 100644 index 7dfcda6e..00000000 --- a/externals/grill/vasp/pd-help/vasp_gate.pd +++ /dev/null @@ -1,74 +0,0 @@ -#N canvas 36 36 808 584 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.gate 0 10 1 14 -262144 -1
-0;
-#X obj 71 131 filelist \$0;
-#N canvas 92 108 418 383 inside 0;
-#X obj 66 169 soundfiler;
-#X obj 84 253 s \$0-sample-length;
-#X obj 66 223 s \$0-draw_display;
-#X msg 214 221 resize \$1;
-#X obj 66 60 loadbang;
-#X obj 66 193 t b f f;
-#X obj 66 113 filelisthandler \$0;
-#X msg 66 91 1;
-#X obj 214 243 s bufgate1;
-#X obj 225 264 s bufgate2;
-#X msg 66 145 read -resize \$1 bufgate1;
-#X connect 0 0 5 0;
-#X connect 3 0 8 0;
-#X connect 3 0 9 0;
-#X connect 4 0 7 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 10 0;
-#X connect 7 0 6 0;
-#X connect 10 0 0 0;
-#X restore 668 495 pd inside;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 479 495 pd clear_buffers;
-#X obj 60 272 vasp.update;
-#X obj 60 292 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X text 69 52 gate buffer content with a value;
-#X obj 419 261 wavedisplay-simple bufgate2 \$0;
-#X obj 419 112 wavedisplay-simple bufgate1 \$0;
-#X msg 60 232 vasp bufgate2;
-#X obj 60 252 vasp.= bufgate1;
-#X msg 479 475 vasp bufgate1 bufgate2;
-#X text 161 229 copy from bufgate1 to bufgate2;
-#X obj 337 495 dac~;
-#X obj 337 457 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 358 455 play;
-#X obj 337 475 tabplay~ bufgate2;
-#X text 71 66 optional argument/right inlet: value (usually from 0-1
-to gate the soundfile sample for sample (not like a compressor!);
-#X obj 58 497 VASP-HELP;
-#X obj 60 391 vasp.update;
-#X floatatom 133 349 5 0 0;
-#X obj 60 411 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 60 324 vasp bufgate2;
-#X obj 60 371 vasp.gate 0.2;
-#X text 177 348 value;
-#X text 159 321 gate the buffer content;
-#X connect 4 0 5 0;
-#X connect 9 0 10 0;
-#X connect 10 0 4 0;
-#X connect 11 0 3 0;
-#X connect 14 0 16 0;
-#X connect 16 0 13 0;
-#X connect 16 0 13 1;
-#X connect 19 0 21 0;
-#X connect 20 0 23 1;
-#X connect 22 0 23 0;
-#X connect 23 0 19 0;
diff --git a/externals/grill/vasp/pd-help/vasp_gather.pd b/externals/grill/vasp/pd-help/vasp_gather.pd deleted file mode 100644 index 8f5e2969..00000000 --- a/externals/grill/vasp/pd-help/vasp_gather.pd +++ /dev/null @@ -1,64 +0,0 @@ -#N canvas 112 58 831 625 10;
-#X text 403 160 gather as many vasps as you want and put them out (bang)
-;
-#X text 71 74 gather several vasps into one;
-#X text 70 90 argument: vasps to gather before output;
-#X text 71 143 right inlet: stores the different vasps;
-#X text 70 110 left inlet: outputs a vasp immediately \, causes output
-of vasps gathered in right inlet (bang);
-#X text 72 163 use vasp.gather like the int/float object;
-#X text 398 444 !vasps can have more vectors \, but just one length!
-;
-#X text 398 464 gather will always take the length from the shortest
-of all gathered vasps for the new one!;
-#X obj 71 37 cnv 15 15 15 empty empty vasp.gather 0 10 1 14 -262144
--1 0;
-#X msg 486 242 vasp bufgather4;
-#X msg 471 221 vasp bufgather3;
-#X msg 410 178 bang;
-#X msg 456 201 vasp bufgather2;
-#X msg 410 314;
-#X obj 410 291 prepend set;
-#X obj 410 268 vasp.gather;
-#X msg 447 178 vasp bufgather1;
-#X msg 167 450 vasp bufgather4;
-#X msg 233 200 vasp bufgather2;
-#X msg 78 200 bang;
-#X obj 78 291 prepend set;
-#X msg 117 200 vasp bufgather1;
-#X msg 151 429 vasp bufgather3;
-#X msg 78 386 bang;
-#X msg 137 409 vasp bufgather2;
-#X msg 78 520;
-#X obj 78 497 prepend set;
-#X obj 78 474 vasp.gather 2;
-#X msg 125 386 vasp bufgather1;
-#X text 71 366 gather two vasps (opt. argument) an put them out;
-#X obj 77 561 VASP-HELP;
-#N canvas 274 433 336 148 tables 0;
-#X obj 105 39 table bufgather1;
-#X obj 105 61 table bufgather2;
-#X obj 105 84 table bufgather3;
-#X obj 105 106 table bufgather4;
-#X restore 422 552 pd tables;
-#X obj 78 268 vasp.gather;
-#X msg 78 314;
-#X connect 9 0 15 1;
-#X connect 10 0 15 1;
-#X connect 11 0 15 0;
-#X connect 12 0 15 1;
-#X connect 14 0 13 0;
-#X connect 15 0 14 0;
-#X connect 16 0 15 1;
-#X connect 17 0 27 1;
-#X connect 18 0 32 1;
-#X connect 19 0 32 0;
-#X connect 20 0 33 0;
-#X connect 21 0 32 0;
-#X connect 22 0 27 1;
-#X connect 23 0 27 0;
-#X connect 24 0 27 1;
-#X connect 26 0 25 0;
-#X connect 27 0 26 0;
-#X connect 28 0 27 1;
-#X connect 32 0 20 0;
diff --git a/externals/grill/vasp/pd-help/vasp_geq.pd b/externals/grill/vasp/pd-help/vasp_geq.pd deleted file mode 100644 index c0339b41..00000000 --- a/externals/grill/vasp/pd-help/vasp_geq.pd +++ /dev/null @@ -1,50 +0,0 @@ -#N canvas 44 207 837 466 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.>= 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufgeq 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 408 84 graph;
-#N canvas 0 0 398 274 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufgeq \, symbol bufgeq1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 662 388 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufgeq1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 408 213 graph;
-#X text 60 94 argument/right inlet: value;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 460 390 pd clear_buffers;
-#X msg 460 364 vasp bufgeq bufgeq1;
-#X text 60 80 sample >= value;
-#X msg 61 150 vasp bufgeq;
-#X obj 57 418 VASP-HELP;
-#X obj 58 366 vasp.update;
-#X floatatom 119 308 5 0 0;
-#X text 164 236 copy to new buffer;
-#X msg 58 236 vasp bufgeq1;
-#X obj 58 262 vasp.= bufgeq;
-#X obj 58 335 vasp.>= 0.4;
-#X connect 5 0 6 0;
-#X connect 8 0 7 0;
-#X connect 10 0 5 0;
-#X connect 13 0 17 1;
-#X connect 15 0 16 0;
-#X connect 16 0 17 0;
-#X connect 17 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_gtr.pd b/externals/grill/vasp/pd-help/vasp_gtr.pd deleted file mode 100644 index 41b2bf9c..00000000 --- a/externals/grill/vasp/pd-help/vasp_gtr.pd +++ /dev/null @@ -1,52 +0,0 @@ -#N canvas 44 207 839 468 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.> 0 10 1 14 -262144 -1 0
-;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufgtr 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 439 87 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufgtr \, symbol bufgtr1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 693 391 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufgtr1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 439 216 graph;
-#X text 60 94 argument/right inlet: value;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 491 393 pd clear_buffers;
-#X text 60 80 sample > value;
-#X msg 61 150 vasp bufgtr;
-#X msg 491 367 vasp bufgtr bufgtr1;
-#X text 338 218 1/true;
-#X text 337 258 0/false;
-#X obj 57 418 VASP-HELP;
-#X obj 58 366 vasp.update;
-#X floatatom 113 308 5 0 0;
-#X text 164 230 copy to new buffer;
-#X obj 58 335 vasp.> 0.4;
-#X msg 58 236 vasp bufgtr1;
-#X obj 58 262 vasp.= bufgtr;
-#X connect 5 0 6 0;
-#X connect 9 0 5 0;
-#X connect 10 0 7 0;
-#X connect 15 0 17 1;
-#X connect 17 0 14 0;
-#X connect 18 0 19 0;
-#X connect 19 0 17 0;
diff --git a/externals/grill/vasp/pd-help/vasp_imm.pd b/externals/grill/vasp/pd-help/vasp_imm.pd deleted file mode 100644 index b44e4fda..00000000 --- a/externals/grill/vasp/pd-help/vasp_imm.pd +++ /dev/null @@ -1,77 +0,0 @@ -#N canvas 51 36 891 586 10;
-#X obj 61 33 cnv 15 15 15 empty empty vasp.imm 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 261 214 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 656 460 pd clear_buffer;
-#X obj 51 533 VASP-HELP;
-#X obj 159 477 vasp.!;
-#X text 58 476 abbreviation:;
-#X obj 57 216 vasp.imm 88200;
-#X obj 154 218 vasp.imm 88200;
-#X obj 254 218 vasp.imm 88200;
-#X obj 57 241 vasp.noise;
-#X obj 154 268 vasp.max;
-#X obj 57 316 vasp.-> bufnotimm;
-#X obj 154 369 vasp.update;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufnotimm 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 511 69 graph;
-#N canvas 0 0 394 270 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufnotimm;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 760 461 pd init;
-#X obj 57 191 t b b b;
-#X obj 355 447 dac~;
-#X obj 355 399 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X text 377 398 play;
-#X obj 355 422 tabplay~ bufnotimm;
-#X msg 656 435 vasp bufnotimm;
-#X obj 57 290 vasp.min;
-#X obj 154 243 vasp.osc 882;
-#X obj 57 266 vasp.* 0.1;
-#X obj 254 268 vasp.* 0.2;
-#X obj 254 243 vasp.osc 3.4;
-#X text 61 55 create an immediate vasp;
-#X text 360 217 create three immediate vasps;
-#X text 111 164 <-- click me;
-#X text 55 124 argument/right inlet: length in samples;
-#X text 55 86 immediate vasps are temporary buffers that are created
-on demand and deleted after usage in a command chain.;
-#X obj 57 165 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X text 361 239 and compose them;
-#X text 363 318 copy the result to an existing buffer/array;
-#X connect 5 0 8 0;
-#X connect 6 0 21 0;
-#X connect 7 0 24 0;
-#X connect 8 0 22 0;
-#X connect 9 0 20 1;
-#X connect 10 1 11 0;
-#X connect 14 0 5 0;
-#X connect 14 1 6 0;
-#X connect 14 2 7 0;
-#X connect 16 0 18 0;
-#X connect 18 0 15 0;
-#X connect 18 0 15 1;
-#X connect 19 0 1 0;
-#X connect 20 0 10 0;
-#X connect 21 0 9 0;
-#X connect 22 0 20 0;
-#X connect 23 0 9 1;
-#X connect 24 0 23 0;
-#X connect 30 0 14 0;
diff --git a/externals/grill/vasp/pd-help/vasp_int.pd b/externals/grill/vasp/pd-help/vasp_int.pd deleted file mode 100644 index e53ec66a..00000000 --- a/externals/grill/vasp/pd-help/vasp_int.pd +++ /dev/null @@ -1,40 +0,0 @@ -#N canvas 95 158 862 404 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.int 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufint 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 465 124 graph;
-#N canvas 0 0 398 274 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufint;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 737 285 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 521 284 pd clear_buffer;
-#X text 70 61 vasp integral function;
-#X msg 521 263 vasp bufint;
-#X msg 77 131 vasp bufint;
-#X obj 77 178 vasp.update;
-#X text 70 77 argument: repetition count;
-#X obj 76 336 VASP-HELP;
-#X obj 77 289 vasp.update;
-#X msg 77 211 vasp bufint;
-#X obj 77 242 vasp.int;
-#X obj 77 266 vasp.opt;
-#X obj 77 153 vasp.window lin;
-#X connect 5 0 3 0;
-#X connect 6 0 14 0;
-#X connect 11 0 12 0;
-#X connect 12 0 13 0;
-#X connect 13 0 10 0;
-#X connect 14 0 7 0;
diff --git a/externals/grill/vasp/pd-help/vasp_iwindow.pd b/externals/grill/vasp/pd-help/vasp_iwindow.pd deleted file mode 100644 index 10db2b49..00000000 --- a/externals/grill/vasp/pd-help/vasp_iwindow.pd +++ /dev/null @@ -1,61 +0,0 @@ -#N canvas 58 39 870 560 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.!window 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufiwindow 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 408 284 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufiwindow;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 771 320 pd init;
-#N canvas 0 0 194 221 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 569 326 pd clear_buffers;
-#X text 173 148 generate a function;
-#X obj 61 278 vasp.u;
-#X floatatom 194 186 5 0 0;
-#X text 259 185 0..4;
-#X msg 231 215 lin;
-#X msg 231 240 sin;
-#X msg 231 265 hanning;
-#X msg 231 290 hamming;
-#X msg 231 315 blackman;
-#X text 275 214 0;
-#X text 275 236 1;
-#X text 295 260 2;
-#X text 300 289 3;
-#X text 300 316 4;
-#X obj 132 401 vasp.window;
-#X obj 132 426 vasp.*window;
-#X text 60 396 see also:;
-#X obj 322 426 vasp.*xwindow;
-#X obj 225 426 vasp.*!window;
-#X text 60 104 argument/right inlet: name or number of name;
-#X text 60 80 generate window functions;
-#X msg 569 301 vasp bufiwindow;
-#X obj 322 401 vasp.xwindow;
-#X msg 61 149 vasp bufiwindow;
-#X obj 61 226 vasp.!window lin;
-#X obj 60 503 VASP-HELP;
-#X connect 6 0 28 1;
-#X connect 8 0 28 1;
-#X connect 9 0 28 1;
-#X connect 10 0 28 1;
-#X connect 11 0 28 1;
-#X connect 12 0 28 1;
-#X connect 25 0 3 0;
-#X connect 27 0 28 0;
-#X connect 28 0 5 0;
diff --git a/externals/grill/vasp/pd-help/vasp_join.pd b/externals/grill/vasp/pd-help/vasp_join.pd deleted file mode 100644 index 3d48406b..00000000 --- a/externals/grill/vasp/pd-help/vasp_join.pd +++ /dev/null @@ -1,26 +0,0 @@ -#N canvas 239 111 493 440 10;
-#X text 51 62 join several vasps into one;
-#X text 51 78 argument: number of vasps to join;
-#X text 51 95 left inlet triggers the output;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.join 0 10 1 14 -262144 -1
-0;
-#X obj 62 382 VASP-HELP;
-#X msg 230 159 vasp bufjoin1 bufjoin2 bufjoin3;
-#X obj 128 214 prepend set;
-#X obj 61 305 prepend set;
-#X obj 61 191 vasp.split 2;
-#X obj 61 282 vasp.join 2;
-#X msg 61 159 vasp bufjoin1 bufjoin2;
-#X obj 310 337 table bufjoin1;
-#X obj 310 360 table bufjoin2;
-#X obj 310 384 table bufjoin3;
-#X msg 128 238;
-#X msg 61 329;
-#X connect 5 0 8 0;
-#X connect 6 0 14 0;
-#X connect 7 0 15 0;
-#X connect 8 0 9 0;
-#X connect 8 1 9 1;
-#X connect 8 2 6 0;
-#X connect 9 0 7 0;
-#X connect 10 0 8 0;
diff --git a/externals/grill/vasp/pd-help/vasp_leq.pd b/externals/grill/vasp/pd-help/vasp_leq.pd deleted file mode 100644 index 85b55609..00000000 --- a/externals/grill/vasp/pd-help/vasp_leq.pd +++ /dev/null @@ -1,52 +0,0 @@ -#N canvas 56 200 877 460 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.<= 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufleq 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 489 91 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufleq \, symbol bufleq1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 743 395 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufleq1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 489 220 graph;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 541 397 pd clear_buffers;
-#X msg 541 371 vasp bufleq bufleq1;
-#X text 389 220 1/true;
-#X text 388 260 0/false;
-#X text 60 94 argument/right inlet: value;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#X obj 58 366 vasp.update;
-#X floatatom 119 308 5 0 0;
-#X text 164 230 copy to new buffer;
-#X obj 58 335 vasp.<= 0.4;
-#X text 60 80 sample <= value;
-#X msg 61 150 vasp bufleq;
-#X msg 58 236 vasp bufleq1;
-#X obj 58 262 vasp.= bufleq;
-#X obj 57 418 VASP-HELP;
-#X connect 5 0 4 0;
-#X connect 9 0 10 0;
-#X connect 12 0 14 1;
-#X connect 14 0 11 0;
-#X connect 16 0 9 0;
-#X connect 17 0 18 0;
-#X connect 18 0 14 0;
diff --git a/externals/grill/vasp/pd-help/vasp_list.pd b/externals/grill/vasp/pd-help/vasp_list.pd deleted file mode 100644 index 6764e257..00000000 --- a/externals/grill/vasp/pd-help/vasp_list.pd +++ /dev/null @@ -1,28 +0,0 @@ -#N canvas 93 206 852 414 10;
-#X text 60 80 outputs the values of all samples of a vasp as list;
-#X obj 74 32 cnv 15 15 15 empty empty vasp.? 0 10 1 14 -262144 -1 0
-;
-#N canvas 0 0 450 300 graph1 0;
-#X array buflist 20 float 0;
-#X coords 0 1 19 -1 300 100 1;
-#X restore 389 143 graph;
-#N canvas 0 0 392 268 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 45 symbol buflist;
-#X msg 33 73 \; \$1 xticks 0 1 5 \; \$1 xlabel 1.1 0 5 10 15 \; \$1
-yticks 0 0.25 2 \; \$1 ylabel 20.5 -1 -0.5 0 0.5 1;
-#X connect 0 0 1 0;
-#X connect 1 0 2 0;
-#X restore 677 302 pd init;
-#X obj 99 205 vasp.?;
-#X msg 99 130 vasp buflist;
-#X obj 99 173 vasp.update;
-#X obj 99 237 prepend set;
-#X obj 95 373 VASP-HELP;
-#X obj 99 151 vasp.window lin;
-#X msg 99 284;
-#X connect 4 0 7 0;
-#X connect 5 0 9 0;
-#X connect 6 0 4 0;
-#X connect 7 0 10 0;
-#X connect 9 0 6 0;
diff --git a/externals/grill/vasp/pd-help/vasp_log.pd b/externals/grill/vasp/pd-help/vasp_log.pd deleted file mode 100644 index 4e8c839f..00000000 --- a/externals/grill/vasp/pd-help/vasp_log.pd +++ /dev/null @@ -1,50 +0,0 @@ -#N canvas 47 54 892 462 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.log 0 10 1 14 -262144 -1
-0;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 494 337 pd clear_buffer;
-#X text 71 63 ln (sample);
-#X text 72 81 natural logarithm;
-#X text 170 281 calculate the natural logarithm;
-#X msg 494 314 vasp buflog;
-#X text 167 184 draw a line from 1 to a value (def 1001);
-#X text 193 127 value;
-#N canvas 0 0 450 300 graph1 0;
-#X array buflog 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 493 168 graph;
-#N canvas 0 0 390 266 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol buflog;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 756 336 pd init;
-#X text 170 303 and optimize to values between (-1) and 1;
-#X obj 69 329 vasp.update;
-#X obj 69 305 vasp.opt;
-#X obj 69 282 vasp.log;
-#X msg 69 185 vasp buflog;
-#X obj 69 232 vasp.* 1000;
-#X obj 69 258 vasp.+ 1;
-#X obj 133 147 t b f;
-#X obj 70 405 VASP-HELP;
-#X obj 69 207 vasp.window lin;
-#X obj 133 129 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
-10 -24198 -1 -1 1 256;
-#X connect 5 0 1 0;
-#X connect 12 0 11 0;
-#X connect 13 0 12 0;
-#X connect 14 0 19 0;
-#X connect 15 0 16 0;
-#X connect 16 0 13 0;
-#X connect 17 0 14 0;
-#X connect 17 1 15 1;
-#X connect 19 0 15 0;
-#X connect 20 0 17 0;
diff --git a/externals/grill/vasp/pd-help/vasp_lwr.pd b/externals/grill/vasp/pd-help/vasp_lwr.pd deleted file mode 100644 index f2f5f021..00000000 --- a/externals/grill/vasp/pd-help/vasp_lwr.pd +++ /dev/null @@ -1,52 +0,0 @@ -#N canvas 44 207 839 468 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.< 0 10 1 14 -262144 -1 0
-;
-#N canvas 0 0 450 300 graph1 0;
-#X array buflwr 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 480 90 graph;
-#N canvas 0 0 394 270 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol buflwr \, symbol buflwr1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 734 394 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array buflwr1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 480 219 graph;
-#X text 60 80 sample < value;
-#X text 60 94 argument/right inlet: value;
-#X msg 61 150 vasp buflwr;
-#X obj 61 172 vasp.osc 44100;
-#X obj 61 194 vasp.update;
-#X text 164 234 copy to new buffer;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 532 396 pd clear_buffers;
-#X msg 532 370 vasp buflwr buflwr1;
-#X text 378 219 1/true;
-#X text 377 259 0/false;
-#X obj 58 366 vasp.update;
-#X obj 58 262 vasp.= buflwr;
-#X msg 58 236 vasp buflwr1;
-#X floatatom 113 308 5 0 0;
-#X obj 58 335 vasp.< 0.4;
-#X obj 59 418 VASP-HELP;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 11 0 10 0;
-#X connect 15 0 18 0;
-#X connect 16 0 15 0;
-#X connect 17 0 18 1;
-#X connect 18 0 14 0;
diff --git a/externals/grill/vasp/pd-help/vasp_max.pd b/externals/grill/vasp/pd-help/vasp_max.pd deleted file mode 100644 index 92e25c7e..00000000 --- a/externals/grill/vasp/pd-help/vasp_max.pd +++ /dev/null @@ -1,51 +0,0 @@ -#N canvas 53 20 825 522 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.max 0 10 1 14 -262144 -1
-0;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 400 405 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmax 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 400 114 graph;
-#N canvas 0 0 398 274 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 43 symbol bufmax \, symbol bufmax1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 675 411 pd init;
-#X obj 73 144 vasp.osc 44100;
-#X obj 73 167 vasp.update;
-#X text 68 58 take maximum of vasp and argument;
-#X text 70 75 argument/right inlet: value;
-#X msg 73 123 vasp bufmax;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmax1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 400 251 graph;
-#X text 625 70 source;
-#X obj 72 281 vasp.= bufmax;
-#X msg 72 255 vasp bufmax1;
-#X obj 72 334 vasp.update;
-#X msg 400 382 vasp bufmax bufmax1;
-#X text 162 121 generate a sine wave at 1 Hz;
-#X text 178 251 copy to new buffer;
-#X obj 72 309 vasp.max -0.4;
-#X obj 65 435 VASP-HELP;
-#X text 177 327 set all values < -0.4 to -0.4;
-#X connect 4 0 5 0;
-#X connect 8 0 4 0;
-#X connect 11 0 17 0;
-#X connect 12 0 11 0;
-#X connect 14 0 1 0;
-#X connect 17 0 13 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mcosc.pd b/externals/grill/vasp/pd-help/vasp_mcosc.pd deleted file mode 100644 index 46d729f5..00000000 --- a/externals/grill/vasp/pd-help/vasp_mcosc.pd +++ /dev/null @@ -1,68 +0,0 @@ -#N canvas 14 55 990 494 10;
-#N canvas 4 20 456 306 Hz_to_period_length 0;
-#X floatatom 135 238 0 0 0;
-#X obj 135 142 t b f;
-#X text 136 260 period length in samples (float);
-#X floatatom 135 80 0 0 0;
-#X obj 135 206 / 1;
-#X text 180 79 frequency in Hz;
-#X obj 53 142 samplerate~;
-#X obj 53 119 loadbang;
-#X floatatom 135 175 5 0 0;
-#X connect 1 0 8 0;
-#X connect 1 1 4 1;
-#X connect 3 0 1 0;
-#X connect 4 0 0 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 4 0;
-#X restore 65 415 pd Hz_to_period_length;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.*cosc 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmcosc1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 563 101 graph;
-#N canvas 0 0 402 278 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufmcosc1 \, symbol bufmcosc2;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 846 418 pd init;
-#N canvas 40 55 247 122 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 568 414 pd clear_buffers;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmcosc2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 566 259 graph;
-#X text 71 63 multiplies a complex buffer with a complex sine wave
-;
-#X text 71 83 argument/right inlet: frequency in period length in samples
-;
-#X msg 568 391 vasp bufmcosc1 bufmcosc2;
-#X obj 65 179 vasp.update;
-#X msg 65 127 vasp bufmcosc1 bufmcosc2;
-#X text 246 127 generate a ramp from 0 to 1;
-#X text 742 70 *real part of the cosc;
-#X text 713 227 *imaginary part of the cosc;
-#X obj 65 357 vasp.update;
-#X obj 65 334 vasp.* 0.5;
-#X msg 65 267 vasp bufmcosc1 bufmcosc2;
-#X obj 65 311 vasp.*cosc 44100;
-#X obj 64 448 VASP-HELP;
-#X obj 65 154 vasp.window lin;
-#X text 245 265 multiply the ramp with a complex sine wave;
-#X connect 8 0 4 0;
-#X connect 10 0 19 0;
-#X connect 15 0 14 0;
-#X connect 16 0 17 0;
-#X connect 17 0 15 0;
-#X connect 19 0 9 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mframes.pd b/externals/grill/vasp/pd-help/vasp_mframes.pd deleted file mode 100644 index ead17da8..00000000 --- a/externals/grill/vasp/pd-help/vasp_mframes.pd +++ /dev/null @@ -1,63 +0,0 @@ -#N canvas 80 119 908 535 10;
-#X obj 62 323 vasp.osc 22050;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.frames* 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmfram1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 149 graph;
-#N canvas 0 0 404 280 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufmfram1;
-#X msg 140 45 symbol bufmfram2;
-#X connect 0 0 2 0;
-#X connect 0 0 3 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X restore 813 459 pd init;
-#X obj 62 355 vasp.update;
-#X text 117 412 abbreviation;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmfram2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 268 graph;
-#X text 54 103 !!!all vectors of a vasp have the same framesize/length!!!
-;
-#X obj 77 274 prepend set;
-#X obj 233 323 vasp.osc 22050;
-#X obj 233 355 vasp.update;
-#X text 58 83 argument/right inlet: value;
-#X obj 233 239 vasp.frames* 2;
-#X obj 62 187 vasp.-> bufmfram2;
-#X obj 255 271 prepend set;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 528 439 pd clear_buffer;
-#X msg 528 418 vasp bufmfram1 bufmfram2;
-#X msg 62 153 vasp 30000 bufmfram1;
-#X obj 61 411 vasp.f*;
-#X obj 161 453 vasp.frames;
-#X text 53 454 related objects:;
-#X obj 243 453 vasp.frames+;
-#X text 59 66 multiply the number of frames of a vasp by a value;
-#X obj 59 495 VASP-HELP;
-#X msg 77 297;
-#X msg 255 294;
-#X connect 0 0 4 0;
-#X connect 8 0 24 0;
-#X connect 9 0 10 0;
-#X connect 12 0 14 0;
-#X connect 12 0 9 0;
-#X connect 13 0 8 0;
-#X connect 13 0 0 0;
-#X connect 13 1 12 0;
-#X connect 14 0 25 0;
-#X connect 16 0 15 0;
-#X connect 17 0 13 0;
diff --git a/externals/grill/vasp/pd-help/vasp_min.pd b/externals/grill/vasp/pd-help/vasp_min.pd deleted file mode 100644 index f2448cbe..00000000 --- a/externals/grill/vasp/pd-help/vasp_min.pd +++ /dev/null @@ -1,51 +0,0 @@ -#N canvas 57 40 836 521 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.min 0 10 1 14 -262144 -1
-0;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 412 403 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmin 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 412 112 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 43 symbol bufmin \, symbol bufmin1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 687 409 pd init;
-#X obj 73 144 vasp.osc 44100;
-#X obj 73 167 vasp.update;
-#X text 70 75 argument/right inlet: value;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmin1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 412 249 graph;
-#X text 666 74 source;
-#X text 68 58 take minimum of vasp and argument;
-#X msg 73 123 vasp bufmin;
-#X msg 412 380 vasp bufmin bufmin1;
-#X text 162 121 generate a sine wave at 1 Hz;
-#X text 178 251 copy to new buffer;
-#X obj 72 354 vasp.update;
-#X msg 72 255 vasp bufmin1;
-#X obj 72 281 vasp.= bufmin;
-#X obj 72 328 vasp.min 0.4;
-#X obj 66 460 VASP-HELP;
-#X text 177 327 set all values > 0.4 to 0.4;
-#X connect 4 0 5 0;
-#X connect 10 0 4 0;
-#X connect 11 0 1 0;
-#X connect 15 0 16 0;
-#X connect 16 0 17 0;
-#X connect 17 0 14 0;
diff --git a/externals/grill/vasp/pd-help/vasp_minmax.pd b/externals/grill/vasp/pd-help/vasp_minmax.pd deleted file mode 100644 index 5e0f8397..00000000 --- a/externals/grill/vasp/pd-help/vasp_minmax.pd +++ /dev/null @@ -1,59 +0,0 @@ -#N canvas 58 24 940 639 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.minmax 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmm1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 546 71 graph;
-#N canvas 0 0 408 284 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 yticks 0 0.25 2 \; \$1
-ylabel 94000 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufmm1 \, symbol bufmm2 \, symbol bufmm3 \, symbol
-bufmm4;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 875 594 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 65 491 pd clear_buffer;
-#X obj 77 178 vasp.update;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmm2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 546 212 graph;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmm3 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 547 356 graph;
-#X text 780 334 min values;
-#X text 786 480 max values;
-#X obj 76 315 vasp.update;
-#X obj 76 294 vasp.minmax;
-#X obj 65 534 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmm4 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 548 499 graph;
-#X text 788 45 source1;
-#X text 797 191 source2;
-#X obj 77 152 vasp.cosc 44100;
-#X msg 77 127 vasp bufmm1 bufmm2;
-#X obj 76 266 vasp.c-> bufmm3 bufmm4;
-#X msg 76 242 vasp bufmm1 bufmm2;
-#X text 228 295 compare the two buffers;
-#X text 227 264 copy and;
-#X msg 65 468 vasp bufmm1 bufmm2 bufmm3 bufmm4;
-#X text 71 63 compare two vasps and assign lower values to the first
-and higher values to the second buffer;
-#X text 210 125 generate a complex sine wave at 1 Hz;
-#X connect 10 0 9 0;
-#X connect 15 0 4 0;
-#X connect 16 0 15 0;
-#X connect 17 1 10 0;
-#X connect 18 0 17 0;
-#X connect 21 0 3 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mirr.pd b/externals/grill/vasp/pd-help/vasp_mirr.pd deleted file mode 100644 index 9096f0b8..00000000 --- a/externals/grill/vasp/pd-help/vasp_mirr.pd +++ /dev/null @@ -1,45 +0,0 @@ -#N canvas 24 75 805 395 10;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.mirr 0 10 1 14 -262144 -1
-0;
-#X text 453 269 clear;
-#N canvas 0 0 413 295 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 453 313 pd clear_buffer;
-#X msg 453 290 vasp bufmirr;
-#X text 75 52 mirrors a vasp (reverse);
-#X obj 69 204 vasp.update;
-#X msg 69 156 vasp bufmirr;
-#X obj 69 181 vasp.mirr;
-#X obj 68 312 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmirr 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 342 75 graph;
-#N canvas 0 0 390 266 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 45 symbol buflist;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X obj 32 227 vasp.u;
-#X msg 32 182 vasp bufmirr;
-#X obj 32 205 vasp.= env 0 0 1 20 -1 100;
-#X obj 32 160 loadbang;
-#X connect 0 0 1 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 0;
-#X connect 5 0 3 0;
-#X connect 6 0 4 0;
-#X restore 578 313 pd init;
-#X obj 69 135 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X connect 3 0 2 0;
-#X connect 6 0 7 0;
-#X connect 7 0 5 0;
-#X connect 11 0 6 0;
diff --git a/externals/grill/vasp/pd-help/vasp_miwindow.pd b/externals/grill/vasp/pd-help/vasp_miwindow.pd deleted file mode 100644 index 3719874c..00000000 --- a/externals/grill/vasp/pd-help/vasp_miwindow.pd +++ /dev/null @@ -1,64 +0,0 @@ -#N canvas 44 117 889 563 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.*!window 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmiwindow 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 408 284 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufmiwindow;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 771 320 pd init;
-#N canvas 0 0 194 221 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 569 327 pd clear_buffers;
-#X obj 63 495 VASP-HELP;
-#X obj 61 302 vasp.u;
-#X floatatom 194 210 5 0 0;
-#X text 259 209 0..4;
-#X msg 231 239 lin;
-#X msg 231 264 sin;
-#X msg 231 289 hanning;
-#X msg 231 314 hamming;
-#X msg 231 339 blackman;
-#X text 275 238 0;
-#X text 275 260 1;
-#X text 295 284 2;
-#X text 300 313 3;
-#X text 300 335 4;
-#X obj 225 401 vasp.!window;
-#X text 60 396 see also:;
-#X obj 322 426 vasp.*xwindow;
-#X text 60 102 argument/right inlet: name or number of name;
-#X text 60 80 generate window functions;
-#X obj 322 401 vasp.xwindow;
-#X obj 134 401 vasp.window;
-#X obj 61 174 vasp.osc 3000;
-#X text 182 156 generate a sine wave;
-#X text 182 178 and multiply it with a window function;
-#X msg 569 302 vasp bufmiwindow;
-#X msg 61 149 vasp bufmiwindow;
-#X obj 61 250 vasp.*!window lin;
-#X obj 134 426 vasp.*window;
-#X connect 6 0 30 1;
-#X connect 8 0 30 1;
-#X connect 9 0 30 1;
-#X connect 10 0 30 1;
-#X connect 11 0 30 1;
-#X connect 12 0 30 1;
-#X connect 25 0 30 0;
-#X connect 28 0 3 0;
-#X connect 29 0 25 0;
-#X connect 30 0 5 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mod.pd b/externals/grill/vasp/pd-help/vasp_mod.pd deleted file mode 100644 index f5551c88..00000000 --- a/externals/grill/vasp/pd-help/vasp_mod.pd +++ /dev/null @@ -1,48 +0,0 @@ -#N canvas 35 127 922 431 10;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 613 298 pd clear_buffer;
-#X text 366 125 ramp from 0-1;
-#X obj 286 174 vasp.update;
-#X obj 51 173 vasp.update;
-#X text 132 126 a sine wave at 1Hz or;
-#X obj 51 149 vasp.osc 44100;
-#X text 54 77 optional argument/right inlet: divisor;
-#X text 54 60 modulo function / remainder of a division;
-#X obj 62 31 cnv 15 15 15 empty empty vasp.% 0 10 1 14 -262144 -1 0
-;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmod 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 485 110 graph;
-#N canvas 0 0 394 270 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufmod;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 760 300 pd init;
-#X msg 51 126 vasp bufmod;
-#X msg 613 273 vasp bufmod;
-#X msg 286 127 vasp bufmod;
-#X obj 100 292 vasp.update;
-#X floatatom 161 245 0 0 0;
-#X obj 100 268 vasp.% 0.25;
-#X text 187 260 modulo;
-#X msg 100 219 vasp bufmod;
-#X obj 53 388 VASP-HELP;
-#X obj 286 148 vasp.window lin;
-#X connect 5 0 3 0;
-#X connect 11 0 5 0;
-#X connect 12 0 0 0;
-#X connect 13 0 20 0;
-#X connect 15 0 16 1;
-#X connect 16 0 14 0;
-#X connect 18 0 16 0;
-#X connect 20 0 2 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mosc.pd b/externals/grill/vasp/pd-help/vasp_mosc.pd deleted file mode 100644 index 416d86dd..00000000 --- a/externals/grill/vasp/pd-help/vasp_mosc.pd +++ /dev/null @@ -1,80 +0,0 @@ -#N canvas 47 54 883 486 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.*osc 0 10 1 14 -262144 -1
-0;
-#X obj 77 195 vasp.update;
-#X obj 77 172 vasp.* 0.5;
-#X obj 402 397 dac~;
-#X obj 402 353 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 424 352 play;
-#X text 71 63 multiplies a sine wave with a buffer content;
-#X text 70 78 argument/right inlet: frequency in period length in samples
-;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 534 397 pd clear_buffer;
-#X msg 534 374 vasp bufmosc;
-#X msg 77 127 vasp bufmosc;
-#X text 181 126 generate white noise;
-#X obj 77 149 vasp.noise;
-#X obj 77 218 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 427 174 wavedisplay-simple bufmosc \$0;
-#X obj 402 374 tabplay~ bufmosc;
-#N canvas 92 108 339 264 init 0;
-#X obj 110 180 s \$0-sample-length;
-#X msg 177 126 resize \$1;
-#X obj 177 79 loadbang;
-#X msg 177 100 88200;
-#X obj 177 148 s bufmosc;
-#X connect 1 0 4 0;
-#X connect 2 0 3 0;
-#X connect 3 0 1 0;
-#X connect 3 0 0 0;
-#X restore 673 395 pd init;
-#N canvas 4 20 454 304 Hz_to_period_length 0;
-#X floatatom 136 242 0 0 0;
-#X obj 136 142 t b f;
-#X text 169 223 period length in samples (float);
-#X floatatom 136 80 0 0 0;
-#X obj 136 206 / 1;
-#X text 181 79 frequency in Hz;
-#X obj 53 142 samplerate~;
-#X obj 53 119 loadbang;
-#X floatatom 136 175 5 0 0;
-#X connect 1 0 8 0;
-#X connect 1 1 4 1;
-#X connect 3 0 1 0;
-#X connect 4 0 0 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 4 0;
-#X restore 79 405 pd Hz_to_period_length;
-#X text 188 379 ringmod-example;
-#X obj 79 380 ringmod_example;
-#X text 188 263 with 2Hz;
-#X text 186 245 generate an amplitude modulation;
-#X msg 78 245 vasp bufmosc;
-#X obj 78 268 vasp.*osc 22050;
-#X obj 78 292 vasp.update;
-#X obj 78 315 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 60 460 VASP-HELP;
-#X connect 1 0 13 0;
-#X connect 2 0 1 0;
-#X connect 4 0 15 0;
-#X connect 9 0 8 0;
-#X connect 10 0 12 0;
-#X connect 12 0 2 0;
-#X connect 15 0 3 0;
-#X connect 15 0 3 1;
-#X connect 22 0 23 0;
-#X connect 23 0 24 0;
-#X connect 24 0 25 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mphasor.pd b/externals/grill/vasp/pd-help/vasp_mphasor.pd deleted file mode 100644 index 5ad39ce7..00000000 --- a/externals/grill/vasp/pd-help/vasp_mphasor.pd +++ /dev/null @@ -1,78 +0,0 @@ -#N canvas 47 54 883 486 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.*phasor 0 10 1 14 -262144
--1 0;
-#X obj 77 195 vasp.update;
-#X obj 77 172 vasp.* 0.5;
-#X obj 394 397 dac~;
-#X obj 394 353 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 416 352 play;
-#X text 70 78 argument/right inlet: frequency in period length in samples
-;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 534 397 pd clear_buffer;
-#X text 188 126 generate white noise;
-#X obj 77 149 vasp.noise;
-#X obj 77 218 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#N canvas 92 108 341 266 init 0;
-#X obj 110 180 s \$0-sample-length;
-#X msg 177 126 resize \$1;
-#X obj 177 79 loadbang;
-#X msg 177 100 88200;
-#X obj 177 148 s bufmphasor;
-#X connect 1 0 4 0;
-#X connect 2 0 3 0;
-#X connect 3 0 1 0;
-#X connect 3 0 0 0;
-#X restore 673 395 pd init;
-#N canvas 4 20 454 304 Hz_to_period_length 0;
-#X floatatom 135 242 0 0 0;
-#X obj 135 142 t b f;
-#X text 168 223 period length in samples (float);
-#X floatatom 135 80 0 0 0;
-#X obj 135 206 / 1;
-#X text 180 79 frequency in Hz;
-#X obj 53 142 samplerate~;
-#X obj 53 119 loadbang;
-#X floatatom 135 175 5 0 0;
-#X connect 1 0 8 0;
-#X connect 1 1 4 1;
-#X connect 3 0 1 0;
-#X connect 4 0 0 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 4 0;
-#X restore 80 396 pd Hz_to_period_length;
-#X text 72 63 multiplies a saw tooth ramp with a buffer content;
-#X msg 77 127 vasp bufmphasor;
-#X obj 464 158 wavedisplay-simple bufmphasor \$0;
-#X msg 534 374 vasp bufmphasor;
-#X obj 394 374 tabplay~ bufmphasor;
-#X text 207 243 generate an amplitude modulation;
-#X text 208 258 with 2Hz;
-#X obj 78 292 vasp.update;
-#X obj 78 315 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 78 268 vasp.*phasor 22050;
-#X msg 78 245 vasp bufmphasor;
-#X obj 79 449 VASP-HELP;
-#X connect 1 0 10 0;
-#X connect 2 0 1 0;
-#X connect 4 0 17 0;
-#X connect 9 0 2 0;
-#X connect 14 0 9 0;
-#X connect 16 0 7 0;
-#X connect 17 0 3 0;
-#X connect 17 0 3 1;
-#X connect 20 0 21 0;
-#X connect 22 0 20 0;
-#X connect 23 0 22 0;
diff --git a/externals/grill/vasp/pd-help/vasp_msize.pd b/externals/grill/vasp/pd-help/vasp_msize.pd deleted file mode 100644 index 6053bf6f..00000000 --- a/externals/grill/vasp/pd-help/vasp_msize.pd +++ /dev/null @@ -1,38 +0,0 @@ -#N canvas 85 111 836 513 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.size/ 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmsize 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 453 152 graph;
-#X obj 252 439 vasp.frames;
-#X text 62 415 related objects:;
-#X floatatom 120 319 5 0 0;
-#X obj 252 417 vasp.size;
-#X obj 253 373 vasp.s/;
-#X obj 62 217 vasp.size* 2;
-#X obj 177 217 vasp.size/ 2;
-#X obj 193 31 cnv 15 15 15 empty empty vasp.size* 0 10 1 14 -262144
--1 0;
-#X text 57 69 divide and multiplicate the size of a buffer/array;
-#X text 59 371 abbreviations:;
-#X obj 175 372 vasp.s*;
-#X obj 120 289 vasp.size?;
-#X obj 176 439 vasp.size?;
-#N canvas 0 0 412 288 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50
-\; \$1 yticks 0 0.25 2;
-#X msg 33 45 symbol bufmsize;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 714 408 pd init;
-#X obj 176 416 vasp.s+;
-#X msg 62 152 vasp bufmsize;
-#X msg 177 152 vasp bufmsize;
-#X obj 58 481 VASP-HELP;
-#X connect 7 0 13 0;
-#X connect 8 0 13 0;
-#X connect 13 0 4 0;
-#X connect 17 0 7 0;
-#X connect 18 0 8 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mul.pd b/externals/grill/vasp/pd-help/vasp_mul.pd deleted file mode 100644 index de6420b4..00000000 --- a/externals/grill/vasp/pd-help/vasp_mul.pd +++ /dev/null @@ -1,135 +0,0 @@ -#N canvas 162 101 824 443 10;
-#N canvas 40 55 247 122 clear_buffers 0;
-#X obj 45 79 vasp.update;
-#X obj 45 56 vasp.= 0;
-#X obj 45 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 362 340 pd clear_buffers;
-#X text 60 57 optional argument/right inlet: multiplier;
-#X text 62 41 multiplies a vasp;
-#X obj 62 19 cnv 15 15 15 empty empty vasp.* 0 10 1 14 -262144 -1 0
-;
-#N canvas 0 0 450 300 graph168 0;
-#X array bufmul 88200 float 0;
-#X coords 0 1 88199 -1 300 120 1;
-#X restore 390 67 graph;
-#N canvas 0 0 394 270 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufmul;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 662 331 pd init;
-#X msg 362 319 vasp bufmul;
-#X text 182 315 <- click to open;
-#N canvas 32 40 910 552 envelope_example 0;
-#X text 167 179 generate noise;
-#X text 148 346 normalize the vasp;
-#X obj 59 344 vasp.opt;
-#X obj 59 321 vasp.flp 2205;
-#X obj 59 297 vasp.abs;
-#X obj 60 204 vasp.noise;
-#X text 74 32 use vasp.* to multiply an envelope to noise;
-#X msg 60 183 vasp bufmul1;
-#X text 796 105 bufmul1;
-#X obj 438 485 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 662 492 pd clear_buffers;
-#X obj 438 435 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 463 431 play;
-#X obj 536 122 wavedisplay-simple bufmul1 \$0;
-#X obj 536 274 wavedisplay-simple bufmul2 \$0;
-#X text 797 256 bufmul2;
-#X obj 80 79 filelist \$0;
-#N canvas 92 108 393 368 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 214 159 loadbang;
-#X obj 67 53 loadbang;
-#X msg 214 180 88200;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X obj 224 252 s bufmul2;
-#X obj 214 228 s bufmul1;
-#X msg 67 133 read -resize \$1 bufmul2;
-#X msg 67 79 2;
-#X connect 0 0 7 0;
-#X connect 3 0 9 0;
-#X connect 3 0 10 0;
-#X connect 4 0 6 0;
-#X connect 5 0 12 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 2 0;
-#X connect 7 1 1 0;
-#X connect 7 2 3 0;
-#X connect 8 0 11 0;
-#X connect 11 0 0 0;
-#X connect 12 0 8 0;
-#X restore 780 493 pd inside;
-#X obj 438 458 tabplay~ bufmul1;
-#X msg 662 466 vasp bufmul1 bufmul2;
-#X text 221 79 into buffer bufmul2;
-#X obj 60 225 vasp.update;
-#X obj 60 247 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 59 275 vasp bufmul2;
-#X obj 59 367 vasp.update;
-#X obj 59 389 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X text 147 296 get absolute values;
-#X text 153 422 multiply noise with the envelope;
-#X obj 60 470 vasp.update;
-#X obj 60 492 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 60 422 vasp bufmul1;
-#X obj 60 444 vasp.* bufmul2;
-#X text 157 329 get the envelope (2Hz);
-#X text 156 316 filter the values with a lowpass to;
-#X connect 2 0 24 0;
-#X connect 3 0 2 0;
-#X connect 4 0 3 0;
-#X connect 5 0 21 0;
-#X connect 7 0 5 0;
-#X connect 11 0 18 0;
-#X connect 18 0 9 0;
-#X connect 18 0 9 1;
-#X connect 19 0 10 0;
-#X connect 21 0 22 0;
-#X connect 23 0 4 0;
-#X connect 24 0 25 0;
-#X connect 28 0 29 0;
-#X connect 30 0 31 0;
-#X connect 31 0 28 0;
-#X restore 45 315 pd envelope_example;
-#X obj 45 255 vasp.update;
-#X msg 45 173 vasp bufmul;
-#X obj 45 375 VASP-HELP;
-#X obj 45 119 nbx 5 14 -1 1 0 1 empty empty empty 0 -6 0 10 -24198
--1 -1 0.5 256;
-#X obj 45 140 t b f;
-#X obj 45 200 vasp.osc 4410;
-#X text 138 132 and change gain;
-#X text 136 118 generate sine wave;
-#X obj 45 229 vasp.* 0.5;
-#X connect 6 0 0 0;
-#X connect 10 0 14 0;
-#X connect 12 0 13 0;
-#X connect 13 0 10 0;
-#X connect 13 1 17 1;
-#X connect 14 0 17 0;
-#X connect 17 0 9 0;
diff --git a/externals/grill/vasp/pd-help/vasp_multi.pd b/externals/grill/vasp/pd-help/vasp_multi.pd deleted file mode 100644 index 337d562b..00000000 --- a/externals/grill/vasp/pd-help/vasp_multi.pd +++ /dev/null @@ -1,20 +0,0 @@ -#N canvas 266 151 546 412 10;
-#X text 51 63 outputs a vasp multiple times;
-#X obj 43 28 cnv 15 15 15 empty empty vasp.multi 0 10 1 14 -262144
--1 0;
-#X obj 56 111 table bufm 88200;
-#X obj 223 232 prepend set;
-#X text 51 80 argument: number of outlets (default 2);
-#X text 109 312 abbreviation;
-#X obj 56 232 prepend set;
-#X msg 56 156 vasp 22050 bufm 44100 0;
-#X obj 56 190 vasp.multi 2;
-#X obj 58 311 vasp.m;
-#X obj 58 366 VASP-HELP;
-#X msg 56 257;
-#X msg 223 257;
-#X connect 3 0 12 0;
-#X connect 6 0 11 0;
-#X connect 7 0 8 0;
-#X connect 8 0 6 0;
-#X connect 8 1 3 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mwindow.pd b/externals/grill/vasp/pd-help/vasp_mwindow.pd deleted file mode 100644 index e14dbb28..00000000 --- a/externals/grill/vasp/pd-help/vasp_mwindow.pd +++ /dev/null @@ -1,64 +0,0 @@ -#N canvas 44 117 889 563 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.*window 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmwindow 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 406 282 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufmwindow;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 771 320 pd init;
-#N canvas 0 0 194 221 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 569 325 pd clear_buffers;
-#X obj 63 495 VASP-HELP;
-#X obj 61 302 vasp.u;
-#X floatatom 194 210 5 0 0;
-#X text 259 209 0..4;
-#X msg 231 239 lin;
-#X msg 231 264 sin;
-#X msg 231 289 hanning;
-#X msg 231 314 hamming;
-#X msg 231 339 blackman;
-#X text 275 238 0;
-#X text 275 260 1;
-#X text 295 284 2;
-#X text 300 313 3;
-#X text 300 340 4;
-#X obj 225 401 vasp.!window;
-#X text 60 396 see also:;
-#X obj 322 426 vasp.*xwindow;
-#X obj 225 426 vasp.*!window;
-#X text 60 104 argument/right inlet: name or number of name;
-#X text 60 80 generate window functions;
-#X obj 322 401 vasp.xwindow;
-#X msg 61 149 vasp bufmwindow;
-#X obj 61 250 vasp.*window lin;
-#X obj 134 401 vasp.window;
-#X msg 569 301 vasp bufmwindow;
-#X obj 61 178 vasp.osc 3000;
-#X text 182 156 generate a sine wave;
-#X text 183 173 and multiply it with a window function;
-#X connect 6 0 26 1;
-#X connect 8 0 26 1;
-#X connect 9 0 26 1;
-#X connect 10 0 26 1;
-#X connect 11 0 26 1;
-#X connect 12 0 26 1;
-#X connect 25 0 29 0;
-#X connect 26 0 5 0;
-#X connect 28 0 3 0;
-#X connect 29 0 26 0;
diff --git a/externals/grill/vasp/pd-help/vasp_mxwindow.pd b/externals/grill/vasp/pd-help/vasp_mxwindow.pd deleted file mode 100644 index 615af950..00000000 --- a/externals/grill/vasp/pd-help/vasp_mxwindow.pd +++ /dev/null @@ -1,64 +0,0 @@ -#N canvas 68 99 889 563 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.*xwindow 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufmxwindow 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 410 286 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufmxwindow;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 771 320 pd init;
-#N canvas 0 0 194 221 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 569 327 pd clear_buffers;
-#X obj 63 495 VASP-HELP;
-#X obj 61 302 vasp.u;
-#X floatatom 194 210 5 0 0;
-#X text 259 209 0..4;
-#X msg 231 239 lin;
-#X msg 231 264 sin;
-#X msg 231 289 hanning;
-#X msg 231 314 hamming;
-#X msg 231 339 blackman;
-#X text 275 238 0;
-#X text 275 260 1;
-#X text 295 284 2;
-#X text 300 313 3;
-#X text 300 335 4;
-#X obj 225 401 vasp.!window;
-#X text 60 396 see also:;
-#X text 60 102 argument/right inlet: name or number of name;
-#X text 60 80 generate window functions;
-#X obj 322 401 vasp.xwindow;
-#X obj 134 401 vasp.window;
-#X obj 61 174 vasp.osc 3000;
-#X text 182 156 generate a sine wave;
-#X text 182 178 and multiply it with a window function;
-#X obj 134 426 vasp.*window;
-#X msg 569 302 vasp bufmxwindow;
-#X obj 225 426 vasp.*!window;
-#X msg 61 149 vasp bufmxwindow;
-#X obj 61 250 vasp.*xwindow lin;
-#X connect 6 0 31 1;
-#X connect 8 0 31 1;
-#X connect 9 0 31 1;
-#X connect 10 0 31 1;
-#X connect 11 0 31 1;
-#X connect 12 0 31 1;
-#X connect 24 0 31 0;
-#X connect 28 0 3 0;
-#X connect 30 0 24 0;
-#X connect 31 0 5 0;
diff --git a/externals/grill/vasp/pd-help/vasp_neq.pd b/externals/grill/vasp/pd-help/vasp_neq.pd deleted file mode 100644 index 15f3c905..00000000 --- a/externals/grill/vasp/pd-help/vasp_neq.pd +++ /dev/null @@ -1,52 +0,0 @@ -#N canvas 28 91 938 543 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.!= 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufneq1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 404 280 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufneq1 \, symbol bufneq2;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 766 421 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufneq2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 248 graph;
-#X text 59 98 argument/right inlet: value;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 564 426 pd clear_buffers;
-#X text 417 248 1/true;
-#X text 416 288 0/false;
-#X text 60 80 not equal;
-#X msg 564 399 vasp bufneq1 bufneq2;
-#X text 166 358 test if a part of the function is not equal to -1;
-#X obj 62 383 vasp.update;
-#X obj 62 356 vasp.!= -1;
-#X obj 62 325 vasp.= bufneq1;
-#X msg 62 298 vasp bufneq2;
-#X obj 53 444 VASP-HELP;
-#X text 173 149 generate a function;
-#X msg 61 150 vasp bufequ;
-#X obj 61 218 vasp.update;
-#X obj 61 178 vasp.= env 0 0 1 22049 0.3 22050 0.3 44099 -1 44100 -1
-66149 1 66150 0 88200;
-#X connect 9 0 5 0;
-#X connect 12 0 11 0;
-#X connect 13 0 12 0;
-#X connect 14 0 13 0;
-#X connect 17 0 19 0;
-#X connect 19 0 18 0;
diff --git a/externals/grill/vasp/pd-help/vasp_noise.pd b/externals/grill/vasp/pd-help/vasp_noise.pd deleted file mode 100644 index 59e2e38b..00000000 --- a/externals/grill/vasp/pd-help/vasp_noise.pd +++ /dev/null @@ -1,43 +0,0 @@ -#N canvas 56 83 867 431 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.noise 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufnoise 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 412 131 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufnoise;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 692 310 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 547 310 pd clear_buffer;
-#X obj 415 311 dac~;
-#X obj 415 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 437 266 play;
-#X text 71 63 vasp noise generator;
-#X obj 415 288 tabplay~ bufnoise;
-#X msg 547 287 vasp bufnoise;
-#X obj 77 217 vasp.update;
-#X obj 77 194 vasp.* 0.5;
-#X msg 77 126 vasp bufnoise;
-#X text 175 125 generate white noise;
-#X obj 77 171 vasp.noise;
-#X obj 65 369 VASP-HELP;
-#X connect 5 0 8 0;
-#X connect 8 0 4 0;
-#X connect 8 0 4 1;
-#X connect 9 0 3 0;
-#X connect 11 0 10 0;
-#X connect 12 0 14 0;
-#X connect 14 0 11 0;
diff --git a/externals/grill/vasp/pd-help/vasp_nonzero.pd b/externals/grill/vasp/pd-help/vasp_nonzero.pd deleted file mode 100644 index 137f7abd..00000000 --- a/externals/grill/vasp/pd-help/vasp_nonzero.pd +++ /dev/null @@ -1,160 +0,0 @@ -#N canvas 96 126 848 577 10;
-#X obj 62 32 cnv 15 15 15 empty empty vasp.?? 0 10 1 14 -262144 -1
-0;
-#X text 64 66 outputs all samples of a vasp that are unequal zero;
-#X text 64 95 right outlet: sample value;
-#X text 65 83 left outlet: sample index;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 512 453 pd clear_buffers;
-#X msg 512 427 vasp bufnonzero bufnonzero1;
-#N canvas 92 108 504 435 inside 0;
-#X obj 87 206 soundfiler;
-#X obj 305 257 s \$0-sample-length;
-#X obj 87 260 s \$0-draw_display;
-#X msg 235 258 resize \$1;
-#X obj 235 280 s bufnonzero1;
-#X obj 245 304 s bufnonzero;
-#X msg 235 232 44100;
-#N canvas 0 0 691 318 menuhandler 0;
-#X obj 69 270 outlet;
-#X msg 111 216 color \$1 \$2;
-#X obj 183 270 outlet;
-#X msg 225 216 color \$1 \$2;
-#X obj 297 270 outlet;
-#X msg 339 216 color \$1 \$2;
-#X obj 411 79 r \$0-plastic;
-#X obj 411 270 outlet;
-#X obj 453 241 s \$0-plastic-color;
-#X msg 453 216 color \$1 \$2;
-#X obj 69 79 r \$0-bass;
-#X obj 183 79 r \$0-beat;
-#X obj 297 79 r \$0-fly;
-#X obj 111 241 s \$0-bass-color;
-#X obj 225 241 s \$0-beat-color;
-#X obj 339 241 s \$0-fly-color;
-#X obj 69 108 t b b b;
-#X obj 183 108 t b b b;
-#X obj 297 108 t b b b;
-#X obj 411 108 t b b b;
-#X msg 111 133 6 12;
-#X msg 79 133 1 10;
-#X msg 191 133 1 10;
-#X msg 225 133 6 12;
-#X msg 306 133 1 10;
-#X msg 339 133 6 12;
-#X msg 419 132 1 10;
-#X msg 453 133 6 12;
-#X connect 1 0 13 0;
-#X connect 3 0 14 0;
-#X connect 5 0 15 0;
-#X connect 6 0 19 0;
-#X connect 9 0 8 0;
-#X connect 10 0 16 0;
-#X connect 11 0 17 0;
-#X connect 12 0 18 0;
-#X connect 16 0 0 0;
-#X connect 16 1 21 0;
-#X connect 16 2 20 0;
-#X connect 17 0 2 0;
-#X connect 17 1 22 0;
-#X connect 17 2 23 0;
-#X connect 18 0 4 0;
-#X connect 18 1 24 0;
-#X connect 18 2 25 0;
-#X connect 19 0 7 0;
-#X connect 19 1 26 0;
-#X connect 19 2 27 0;
-#X connect 20 0 1 0;
-#X connect 21 0 3 0;
-#X connect 21 0 5 0;
-#X connect 21 0 9 0;
-#X connect 22 0 1 0;
-#X connect 22 0 5 0;
-#X connect 22 0 9 0;
-#X connect 23 0 3 0;
-#X connect 24 0 1 0;
-#X connect 24 0 3 0;
-#X connect 24 0 9 0;
-#X connect 25 0 5 0;
-#X connect 26 0 5 0;
-#X connect 26 0 3 0;
-#X connect 26 0 1 0;
-#X connect 27 0 9 0;
-#X restore 77 43 pd menuhandler;
-#X obj 235 211 loadbang;
-#X obj 41 107 loadbang;
-#X msg 87 230 bang;
-#X msg 77 79 read bass.aif bufnonzero;
-#X msg 103 107 read beat.aif bufnonzero;
-#X msg 129 133 read fly.aif bufnonzero;
-#X msg 156 160 read plastic.aif bufnonzero;
-#X connect 0 0 10 0;
-#X connect 3 0 4 0;
-#X connect 3 0 5 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 11 0;
-#X connect 7 1 12 0;
-#X connect 7 2 13 0;
-#X connect 7 3 14 0;
-#X connect 8 0 6 0;
-#X connect 9 0 12 0;
-#X connect 10 0 2 0;
-#X connect 11 0 0 0;
-#X connect 12 0 0 0;
-#X connect 13 0 0 0;
-#X connect 14 0 0 0;
-#X restore 708 457 pd inside;
-#X obj 462 101 wavedisplay-simple bufnonzero \$0;
-#X obj 463 243 wavedisplay-simple bufnonzero1 \$0;
-#X obj 81 151 hdl 15 1 0 6 \$0-beat empty empty 0 -6 1152 8 -262144
--1 -1 0;
-#X obj 81 151 cnv 15 90 15 empty \$0-beat-color beat.aif 5 8 576 8
--225271 -33289 0;
-#X obj 81 169 hdl 15 1 0 6 \$0-fly empty empty 0 -6 1152 8 -262144
--1 -1 0;
-#X obj 81 169 cnv 15 90 15 empty \$0-fly-color fly.aif 5 8 576 8 -166441
--233017 0;
-#X obj 81 133 hdl 15 1 0 6 \$0-bass empty empty 0 -6 1152 8 -262144
--1 -1 0;
-#X obj 81 133 cnv 15 90 15 empty \$0-bass-color bass.aif 5 8 576 8
--166441 -233017 0;
-#X obj 81 187 hdl 15 1 0 6 \$0-plastic empty empty 0 -6 1152 8 -262144
--1 -1 0;
-#X obj 81 187 cnv 15 90 15 empty \$0-plastic-color plastic.aif 5 8
-576 8 -166441 -233017 0;
-#X text 723 83 source;
-#X text 728 224 peaks;
-#X obj 62 258 vasp.= bufnonzero;
-#X msg 62 229 vasp bufnonzero1;
-#X obj 62 309 vasp.update;
-#X obj 115 330 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 62 285 vasp.peaks 0.0004;
-#X text 140 388 sample index;
-#X text 177 455 sample values;
-#X obj 62 346 vasp.??;
-#X text 183 228 copy to new buffer \, find peaks;
-#X obj 62 389 prepend set;
-#X obj 99 455 prepend set;
-#X msg 62 415;
-#X msg 99 481;
-#X obj 34 521 VASP-HELP;
-#X connect 5 0 4 0;
-#X connect 19 0 23 0;
-#X connect 20 0 19 0;
-#X connect 21 0 22 0;
-#X connect 21 0 26 0;
-#X connect 23 0 21 0;
-#X connect 26 0 28 0;
-#X connect 26 1 29 0;
-#X connect 28 0 30 0;
-#X connect 29 0 31 0;
diff --git a/externals/grill/vasp/pd-help/vasp_offset.pd b/externals/grill/vasp/pd-help/vasp_offset.pd deleted file mode 100644 index 214d0284..00000000 --- a/externals/grill/vasp/pd-help/vasp_offset.pd +++ /dev/null @@ -1,30 +0,0 @@ -#N canvas 192 165 707 400 10;
-#X text 55 83 argument/right inlet: value;
-#X text 55 69 set the offset of a vasp (into a buffer);
-#X text 55 98 ---! vasp.offs sets all vectors to the same offset !---
-;
-#X obj 41 11 cnv 15 15 15 empty empty vasp.offset 0 10 1 14 -262144
--1 0;
-#X text 57 323 abbreviation;
-#X floatatom 143 175 0 0 0;
-#X obj 58 221 prepend set;
-#X msg 58 148 vasp bufoffs1;
-#X obj 58 196 vasp.offset 300;
-#X floatatom 330 175 0 0 0;
-#X obj 245 221 prepend set;
-#X msg 245 148 vasp bufoffs1 220 bufoffs2 100;
-#X obj 245 196 vasp.offset 300;
-#X obj 157 322 vasp.o;
-#X obj 55 370 VASP-HELP;
-#X obj 521 273 table bufoffs1;
-#X obj 522 300 table bufoffs2;
-#X msg 58 254;
-#X msg 245 254;
-#X connect 5 0 8 1;
-#X connect 6 0 17 0;
-#X connect 7 0 8 0;
-#X connect 8 0 6 0;
-#X connect 9 0 12 1;
-#X connect 10 0 18 0;
-#X connect 11 0 12 0;
-#X connect 12 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_offsetd.pd b/externals/grill/vasp/pd-help/vasp_offsetd.pd deleted file mode 100644 index 037a01b6..00000000 --- a/externals/grill/vasp/pd-help/vasp_offsetd.pd +++ /dev/null @@ -1,28 +0,0 @@ -#N canvas 191 100 545 439 10;
-#X text 55 80 argument/right inlet: value;
-#X text 55 63 change the offset to a vasp (relatively);
-#X obj 41 11 cnv 15 15 15 empty empty vasp.offset+ 0 10 1 14 -262144
--1 0;
-#X text 57 323 abbreviation;
-#X floatatom 149 151 0 0 0;
-#X msg 58 234 vasp -1 bufoffsd1 300 0;
-#X obj 58 201 prepend set;
-#X obj 58 177 vasp.offset+ 300;
-#X msg 58 128 vasp bufoffsd1;
-#X floatatom 336 151 0 0 0;
-#X msg 245 234 vasp -1 bufoffs+1 520 0 bufoffsd2 400 0;
-#X obj 245 201 prepend set;
-#X obj 245 174 vasp.offset+ 300;
-#X obj 138 324 vasp.o+;
-#X msg 245 128 vasp bufoffsd1 220 bufoffsd2 100;
-#X obj 359 284 table bufoffsd1 88200;
-#X obj 359 305 table bufoffsd2 88200;
-#X obj 57 386 VASP-HELP;
-#X connect 4 0 7 1;
-#X connect 6 0 5 0;
-#X connect 7 0 6 0;
-#X connect 8 0 7 0;
-#X connect 9 0 12 1;
-#X connect 11 0 10 0;
-#X connect 12 0 11 0;
-#X connect 14 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_offsetq.pd b/externals/grill/vasp/pd-help/vasp_offsetq.pd deleted file mode 100644 index e2a35dde..00000000 --- a/externals/grill/vasp/pd-help/vasp_offsetq.pd +++ /dev/null @@ -1,25 +0,0 @@ -#N canvas 243 134 633 339 10;
-#X obj 56 30 cnv 15 15 15 empty empty vasp.offset? 0 10 1 14 -262144
--1 0;
-#X text 42 59 get a single vectored vasp's offset;
-#X obj 45 131 cnv 15 74 17 empty empty empty 20 12 0 14 -258699 -66577
-0;
-#X obj 226 132 cnv 15 74 17 empty empty empty 20 12 0 14 -258699 -66577
-0;
-#X floatatom 226 163 0 0 0;
-#X floatatom 45 162 0 0 0;
-#X obj 226 132 vasp.offset?;
-#X obj 45 131 vasp.offset?;
-#X msg 226 107 vasp buffoffsetq 220 buffoffsetq 300;
-#X msg 45 106 vasp 200 buffoffsetq 300;
-#X text 228 89 more than 1 vector. watch pd window!;
-#X text 52 278 abbreviation;
-#X obj 148 275 vasp.o;
-#X obj 148 275 cnv 15 44 17 empty empty empty 20 12 0 14 -258699 -66577
-0;
-#X obj 148 275 vasp.o?;
-#X obj 278 221 table buffoffsetq 88200;
-#X connect 6 0 4 0;
-#X connect 7 0 5 0;
-#X connect 8 0 6 0;
-#X connect 9 0 7 0;
diff --git a/externals/grill/vasp/pd-help/vasp_opt.pd b/externals/grill/vasp/pd-help/vasp_opt.pd deleted file mode 100644 index 97fd05b7..00000000 --- a/externals/grill/vasp/pd-help/vasp_opt.pd +++ /dev/null @@ -1,71 +0,0 @@ -#N canvas 36 36 786 555 10; -#X obj 71 32 cnv 15 15 15 empty empty vasp.opt 0 10 1 14 -262144 -1 -0; -#X obj 72 113 filelist \$0; -#X obj 340 453 dac~; -#X obj 340 415 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 361 413 play; -#N canvas 92 108 338 379 inside 0; -#X obj 66 169 soundfiler; -#X obj 91 253 s \$0-sample-length; -#X obj 66 223 s \$0-draw_display; -#X obj 66 47 loadbang; -#X obj 66 113 filelisthandler \$0; -#X msg 66 145 read -resize \$1 bufopt; -#X msg 66 91 3; -#X obj 66 193 t b f; -#X connect 0 0 7 0; -#X connect 3 0 6 0; -#X connect 4 0 5 0; -#X connect 5 0 0 0; -#X connect 6 0 4 0; -#X connect 7 0 2 0; -#X connect 7 1 1 0; -#X restore 607 456 pd inside; -#X obj 59 440 vasp.update; -#X obj 59 460 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X text 69 59 optimise a vasp (normalize); -#X text 70 73 right outlet: the previous maximum set to 1; -#X obj 342 136 wavedisplay-simple bufopt \$0; -#X obj 340 433 tabplay~ bufopt; -#X msg 482 433 vasp bufopt; -#N canvas 40 55 281 170 clear_buffer 0; -#X obj 54 79 vasp.update; -#X obj 54 56 vasp.= 0; -#X obj 54 26 inlet; -#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 3 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X restore 482 453 pd clear_buffer; -#X msg 59 338 vasp bufopt; -#X obj 59 361 vasp.amax?; -#X text 58 317 or use vasp.amax? to optimise buffer content; -#X floatatom 114 399 12 0 0; -#X obj 59 419 vasp./; -#X text 123 381 current absolute maximum; -#X obj 59 269 vasp.update; -#X obj 59 289 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 59 204 vasp bufopt; -#X obj 59 227 vasp.opt; -#X floatatom 102 250 8 0 0; -#X obj 60 514 VASP-HELP; -#X text 102 514 - vasp overview; -#X connect 3 0 11 0; -#X connect 6 0 7 0; -#X connect 11 0 2 0; -#X connect 11 0 2 1; -#X connect 12 0 13 0; -#X connect 14 0 15 0; -#X connect 15 0 18 0; -#X connect 15 1 17 0; -#X connect 17 0 18 1; -#X connect 18 0 6 0; -#X connect 20 0 21 0; -#X connect 22 0 23 0; -#X connect 23 0 20 0; -#X connect 23 1 24 0; diff --git a/externals/grill/vasp/pd-help/vasp_osc.pd b/externals/grill/vasp/pd-help/vasp_osc.pd deleted file mode 100644 index 0c34f5ae..00000000 --- a/externals/grill/vasp/pd-help/vasp_osc.pd +++ /dev/null @@ -1,63 +0,0 @@ -#N canvas 47 54 873 437 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.osc 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufosc 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 412 131 graph;
-#N canvas 0 0 400 276 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufosc;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 692 310 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 547 310 pd clear_buffer;
-#X text 71 83 optional argument/right inlet: frequency in period length
-in samples;
-#X obj 415 311 dac~;
-#X obj 415 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 437 266 play;
-#X text 71 63 vasp sine wave generator;
-#X text 175 125 generate a sine wave at 1 kHz;
-#X obj 415 288 tabplay~ bufosc;
-#X msg 547 287 vasp bufosc;
-#N canvas 4 20 454 304 Hz_to_period_length 0;
-#X floatatom 139 242 0 0 0;
-#X obj 139 142 t b f;
-#X text 172 223 period length in samples (float);
-#X floatatom 139 80 0 0 0;
-#X obj 139 206 / 1;
-#X text 184 79 frequency in Hz;
-#X obj 53 142 samplerate~;
-#X obj 53 119 loadbang;
-#X floatatom 139 175 5 0 0;
-#X connect 1 0 8 0;
-#X connect 1 1 4 1;
-#X connect 3 0 1 0;
-#X connect 4 0 0 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 4 0;
-#X restore 81 311 pd Hz_to_period_length;
-#X obj 77 217 vasp.update;
-#X obj 77 194 vasp.* 0.5;
-#X msg 77 127 vasp bufosc;
-#X obj 77 171 vasp.osc 44.1;
-#X obj 66 380 VASP-HELP;
-#X connect 6 0 10 0;
-#X connect 10 0 5 0;
-#X connect 10 0 5 1;
-#X connect 11 0 3 0;
-#X connect 14 0 13 0;
-#X connect 15 0 16 0;
-#X connect 16 0 14 0;
diff --git a/externals/grill/vasp/pd-help/vasp_part.pd b/externals/grill/vasp/pd-help/vasp_part.pd deleted file mode 100644 index 45a49b5e..00000000 --- a/externals/grill/vasp/pd-help/vasp_part.pd +++ /dev/null @@ -1,34 +0,0 @@ -#N canvas 218 99 717 545 10;
-#X text 69 160 right outlet: a vasp with remaining length (if there
-is one) of the input vasp;
-#X text 69 144 left outlet: the new vasps one after the other;
-#X obj 71 47 cnv 15 15 15 empty empty vasp.part 0 10 1 14 -262144 -1
-0;
-#X obj 199 275 print rest;
-#X obj 78 274 print;
-#X obj 78 242 vasp.part 100 100 100;
-#X text 189 206 vasp.part generates 3 new vasps and a rest vasp;
-#X msg 78 207 vasp bufpart1;
-#X obj 125 430 print rest;
-#X obj 76 430 print;
-#X msg 284 360 100 200 300 500 100 200;
-#X obj 76 392 vasp.part;
-#X text 272 323 the input vasp defines the maximum lengths of the vasps
-at the output;
-#X msg 76 328 vasp 1100 bufpart1 bufpart2;
-#X text 202 430 so there are just 4 vasps and no rest.... watch pd
-window;
-#X obj 66 498 VASP-HELP;
-#X text 67 101 left inlet: a vasp to define the buffername and the
-maximum length;
-#X obj 441 477 table bufpart1 2000;
-#X obj 441 499 table bufpart2 2000;
-#X text 67 84 generates vasps with certain lengths;
-#X text 67 131 argument/ right inlet: vasps lengths (list);
-#X connect 5 0 4 0;
-#X connect 5 1 3 0;
-#X connect 7 0 5 0;
-#X connect 10 0 11 1;
-#X connect 11 0 9 0;
-#X connect 11 1 8 0;
-#X connect 13 0 11 0;
diff --git a/externals/grill/vasp/pd-help/vasp_peaks.pd b/externals/grill/vasp/pd-help/vasp_peaks.pd deleted file mode 100644 index 7cfc0fd0..00000000 --- a/externals/grill/vasp/pd-help/vasp_peaks.pd +++ /dev/null @@ -1,89 +0,0 @@ -#N canvas 152 40 822 598 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.peaks 0 10 1 14 -262144
--1 0;
-#X obj 71 131 filelist \$0;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 479 495 pd clear_buffers;
-#X obj 60 292 vasp.update;
-#X obj 58 433 vasp.update;
-#X obj 58 453 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 60 312 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 337 495 dac~;
-#X obj 337 457 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 358 455 play;
-#X text 70 66 argument/right inlet: density value 0-1;
-#X text 172 231 copy to new buffer \, find valleys;
-#X floatatom 151 307 12 0 0;
-#X obj 151 328 * 88200;
-#X floatatom 151 350 5 0 0;
-#X obj 58 412 vasp.opt;
-#X text 679 99 source;
-#X text 69 52 find the local maxima of a buffer content;
-#X text 69 81 outlet: current density value;
-#X msg 60 227 vasp bufpeaks2;
-#X obj 337 475 tabplay~ bufpeaks1;
-#X msg 479 475 vasp bufpeaks1 bufpeaks2;
-#X obj 399 117 wavedisplay-simple bufpeaks1 \$0;
-#X obj 399 271 wavedisplay-simple bufpeaks2 \$0;
-#N canvas 92 108 428 393 inside 0;
-#X obj 66 169 soundfiler;
-#X obj 84 253 s \$0-sample-length;
-#X obj 66 223 s \$0-draw_display;
-#X msg 214 221 resize \$1;
-#X obj 66 47 loadbang;
-#X obj 66 193 t b f f;
-#X obj 66 113 filelisthandler \$0;
-#X msg 66 91 2;
-#X obj 66 69 t b b;
-#X msg 99 91 88200;
-#X obj 214 243 s bufpeaks1;
-#X obj 225 264 s bufpeaks2;
-#X msg 66 145 read \$1 bufpeaks1;
-#X connect 0 0 5 0;
-#X connect 3 0 10 0;
-#X connect 3 0 11 0;
-#X connect 4 0 8 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 12 0;
-#X connect 7 0 6 0;
-#X connect 8 0 7 0;
-#X connect 8 1 9 0;
-#X connect 9 0 5 0;
-#X connect 12 0 0 0;
-#X restore 668 495 pd inside;
-#X msg 58 389 vasp bufpeaks2;
-#X text 673 252 peaks;
-#X text 191 348 peak count;
-#X text 230 306 actual peak density;
-#X text 166 273 target peak density as argument;
-#X text 171 390 optimize the buffer content;
-#X obj 60 251 vasp.= bufpeaks1;
-#X obj 60 272 vasp.peaks 0.001;
-#X obj 49 531 VASP-HELP;
-#X connect 3 0 6 0;
-#X connect 4 0 5 0;
-#X connect 8 0 20 0;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 15 0 4 0;
-#X connect 19 0 31 0;
-#X connect 20 0 7 0;
-#X connect 20 0 7 1;
-#X connect 21 0 2 0;
-#X connect 25 0 15 0;
-#X connect 31 0 32 0;
-#X connect 32 0 3 0;
-#X connect 32 1 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_phasor.pd b/externals/grill/vasp/pd-help/vasp_phasor.pd deleted file mode 100644 index 38695a08..00000000 --- a/externals/grill/vasp/pd-help/vasp_phasor.pd +++ /dev/null @@ -1,67 +0,0 @@ -#N canvas 47 54 871 435 10;
-#N canvas 4 20 454 304 Hz_to_period_length 1;
-#X floatatom 138 238 0 0 0;
-#X obj 138 142 t b f;
-#X text 138 259 period length in samples (float);
-#X floatatom 138 80 0 0 0;
-#X obj 138 206 / 1;
-#X text 183 79 frequency in Hz;
-#X obj 53 142 samplerate~;
-#X obj 53 119 loadbang;
-#X floatatom 138 175 5 0 0;
-#X connect 1 0 8 0;
-#X connect 1 1 4 1;
-#X connect 3 0 1 0;
-#X connect 4 0 0 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 4 0;
-#X restore 78 302 pd Hz_to_period_length;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.phasor 0 10 1 14 -262144
--1 0;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 547 310 pd clear_buffer;
-#X text 71 83 optional argument/right inlet: frequency in period length
-in samples;
-#X obj 415 311 dac~;
-#X obj 415 267 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 437 266 play;
-#X text 71 63 vasp saw tooth ramp generator;
-#X obj 415 288 tabplay~ bufphasor;
-#X msg 547 287 vasp bufphasor;
-#X obj 414 124 wavedisplay-simple bufphasor \$0;
-#N canvas 92 108 276 288 inside 0;
-#X obj 63 149 s \$0-sample-length;
-#X msg 103 103 resize \$1;
-#X obj 103 56 loadbang;
-#X msg 103 77 88200;
-#X obj 103 124 s bufphasor;
-#X connect 1 0 4 0;
-#X connect 2 0 3 0;
-#X connect 3 0 1 0;
-#X connect 3 0 0 0;
-#X restore 680 311 pd inside;
-#X obj 77 217 vasp.update;
-#X obj 77 194 vasp.* 0.5;
-#X msg 77 127 vasp bufphasor;
-#X text 188 124 generate saw tooth at 20 Hz;
-#X floatatom 168 151 5 0 0;
-#X obj 77 239 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 77 171 vasp.phasor 2205;
-#X obj 77 371 VASP-HELP;
-#X connect 5 0 8 0;
-#X connect 8 0 4 0;
-#X connect 8 0 4 1;
-#X connect 9 0 2 0;
-#X connect 12 0 17 0;
-#X connect 13 0 12 0;
-#X connect 14 0 18 0;
-#X connect 16 0 18 1;
-#X connect 18 0 13 0;
diff --git a/externals/grill/vasp/pd-help/vasp_polar.pd b/externals/grill/vasp/pd-help/vasp_polar.pd deleted file mode 100644 index e5314f9f..00000000 --- a/externals/grill/vasp/pd-help/vasp_polar.pd +++ /dev/null @@ -1,90 +0,0 @@ -#N canvas 28 7 948 670 10;
-#N canvas 92 108 559 430 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 214 159 loadbang;
-#X obj 67 53 loadbang;
-#X msg 214 180 88200;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 79 4;
-#X obj 214 228 s bufpol1;
-#X obj 224 252 s bufpol2;
-#X msg 67 133 read \$1 bufpol1;
-#X obj 236 278 s bufpola;
-#X obj 246 302 s bufpolp;
-#X obj 226 123 s \$0-bounds;
-#X msg 226 101 ylabel 315 -3.14 0 3.14 \, bounds 0 3.5 300 -3.5;
-#X connect 0 0 7 0;
-#X connect 3 0 10 0;
-#X connect 3 0 11 0;
-#X connect 3 0 13 0;
-#X connect 3 0 14 0;
-#X connect 4 0 6 0;
-#X connect 5 0 9 0;
-#X connect 5 0 16 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 2 0;
-#X connect 7 1 1 0;
-#X connect 7 2 3 0;
-#X connect 8 0 12 0;
-#X connect 9 0 8 0;
-#X connect 12 0 0 0;
-#X connect 16 0 15 0;
-#X restore 360 610 pd inside;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.polar 0 10 1 14 -262144
--1 0;
-#X obj 72 91 filelist \$0;
-#X obj 59 223 vasp.cfft;
-#X obj 59 244 vasp.update;
-#X obj 59 267 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X text 551 318 0 Hz;
-#X text 687 317 sr/2;
-#X text 206 474 <-- click to open;
-#X text 816 319 44.1 kHz;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 254 610 pd clear_buffers;
-#X text 254 565 clear;
-#X msg 59 200 vasp bufpol1 bufpol2;
-#X obj 546 51 wavedisplay-simple bufpol1 \$0;
-#X obj 546 194 wavedisplay-simple bufpol2 \$0;
-#X text 71 53 cartesian to polar coordinate conversion;
-#X text 202 201 transform into real and imaginary part;
-#X text 229 313 real/imaginary -> amplitude/phase;
-#X obj 59 473 phase-random_example;
-#X obj 59 380 vasp.update;
-#X obj 59 403 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 59 314 vasp bufpol1 bufpol2;
-#X obj 59 357 vasp.polar;
-#X obj 56 622 VASP-HELP;
-#X obj 546 365 wavedisplay-simple bufpola \$0;
-#X obj 546 518 wavedisplay-simple bufpolp \$0;
-#X obj 59 335 vasp.c-> bufpola bufpolp;
-#X msg 254 587 vasp bufpol1 bufpol2 bufpola bufpolp;
-#X obj 546 497 r \$0-bounds;
-#X text 788 31 real part;
-#X text 759 173 imaginary part;
-#X text 791 345 amplitude;
-#X text 812 497 phase;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 12 0 3 0;
-#X connect 19 0 20 0;
-#X connect 21 0 26 0;
-#X connect 22 0 19 0;
-#X connect 26 1 22 0;
-#X connect 27 0 10 0;
-#X connect 28 0 25 0;
diff --git a/externals/grill/vasp/pd-help/vasp_pow.pd b/externals/grill/vasp/pd-help/vasp_pow.pd deleted file mode 100644 index 1ee54241..00000000 --- a/externals/grill/vasp/pd-help/vasp_pow.pd +++ /dev/null @@ -1,44 +0,0 @@ -#N canvas 47 54 867 462 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.pow 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 410 286 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufpow;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 608 330 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 463 330 pd clear_buffer;
-#X obj 77 197 vasp.update;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufpow 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 341 144 graph;
-#X text 72 81 vasp power function;
-#X text 71 93 argument/right inlet: exponent;
-#X msg 77 127 vasp bufpow;
-#X msg 463 308 vasp bufpow;
-#X obj 77 150 vasp.osc 44100;
-#X obj 77 172 vasp.* 0.2;
-#X text 71 63 sample ^ x;
-#X obj 77 329 vasp.update;
-#X msg 77 246 vasp bufpow;
-#X obj 77 303 vasp.pow 0.1;
-#X floatatom 144 279 5 0 0;
-#X text 202 278 exponent;
-#X obj 79 397 VASP-HELP;
-#X connect 7 0 9 0;
-#X connect 8 0 2 0;
-#X connect 9 0 10 0;
-#X connect 10 0 3 0;
-#X connect 13 0 14 0;
-#X connect 14 0 12 0;
-#X connect 15 0 14 1;
diff --git a/externals/grill/vasp/pd-help/vasp_qamax.pd b/externals/grill/vasp/pd-help/vasp_qamax.pd deleted file mode 100644 index 00c47f4b..00000000 --- a/externals/grill/vasp/pd-help/vasp_qamax.pd +++ /dev/null @@ -1,75 +0,0 @@ -#N canvas 57 40 901 555 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.amax? 0 10 1 14 -262144
--1 0;
-#X obj 492 462 dac~;
-#X obj 492 418 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 514 417 play;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 624 462 pd clear_buffer;
-#X obj 74 116 filelist \$0;
-#N canvas 92 108 400 365 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 66 50 loadbang;
-#X obj 66 178 t b f f;
-#X obj 66 98 filelisthandler \$0;
-#X msg 66 76 3;
-#X msg 66 130 read -resize \$1 bufamax;
-#X obj 214 228 s bufamax;
-#X connect 0 0 5 0;
-#X connect 3 0 9 0;
-#X connect 4 0 7 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 0 0;
-#X restore 755 462 pd inside;
-#X text 70 75 right outlet: calculated value;
-#X text 72 58 max-value of the absolute values of a vasp;
-#X obj 492 439 tabplay~ bufamax;
-#X msg 624 439 vasp bufamax;
-#X obj 484 219 wavedisplay-simple bufamax \$0;
-#X msg 72 405 vasp bufamax;
-#X obj 72 451 vasp.update;
-#X obj 72 476 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 72 428 vasp.opt;
-#X text 173 402 or use vasp.opt which does the same;
-#X floatatom 128 272 5 0 0;
-#X msg 73 215 vasp bufamax;
-#X obj 73 238 vasp.amax?;
-#X text 166 216 find the absolute maximum of this soundfile;
-#X msg 73 305 vasp bufamax;
-#X obj 73 328 vasp./;
-#X obj 73 351 vasp.update;
-#X obj 73 376 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X text 171 271 -> current absolute maximum;
-#X obj 63 520 VASP-HELP;
-#X text 169 327 use it to optimize buffer content;
-#X connect 2 0 9 0;
-#X connect 9 0 1 0;
-#X connect 9 0 1 1;
-#X connect 10 0 4 0;
-#X connect 12 0 15 0;
-#X connect 13 0 14 0;
-#X connect 15 0 13 0;
-#X connect 17 0 22 1;
-#X connect 18 0 19 0;
-#X connect 19 1 17 0;
-#X connect 21 0 22 0;
-#X connect 22 0 23 0;
-#X connect 23 0 24 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qamin.pd b/externals/grill/vasp/pd-help/vasp_qamin.pd deleted file mode 100644 index 6635dd85..00000000 --- a/externals/grill/vasp/pd-help/vasp_qamin.pd +++ /dev/null @@ -1,53 +0,0 @@ -#N canvas 57 40 879 499 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.amin? 0 10 1 14 -262144
--1 0;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 616 427 pd clear_buffer;
-#X text 72 58 min-value of the absolute values of a vasp;
-#X text 70 75 right outlet: calculated value;
-#X msg 616 404 vasp bufamin;
-#X msg 50 192 vasp bufamin;
-#X obj 50 215 vasp.amin?;
-#X floatatom 105 249 5 0 0;
-#X text 148 248 -> current absolute minimum;
-#X obj 48 429 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufamin 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 535 123 graph;
-#N canvas 0 0 398 274 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufamin;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 772 429 pd init;
-#X obj 48 311 vasp.abs;
-#X msg 48 290 vasp bufamin;
-#X obj 48 332 vasp.u;
-#X obj 51 128 vasp.noise;
-#X msg 51 106 vasp bufamin;
-#X text 148 106 1 create random values;
-#X obj 51 149 vasp.u;
-#X text 150 193 2 find the absolute minimum of this soundfile;
-#X text 139 291 3 to control the result display the absolute values
-;
-#X text 55 387 related objects;
-#X obj 172 386 vasp.min;
-#X obj 246 386 vasp.min?;
-#X connect 4 0 1 0;
-#X connect 5 0 6 0;
-#X connect 6 1 7 0;
-#X connect 12 0 14 0;
-#X connect 13 0 12 0;
-#X connect 15 0 18 0;
-#X connect 16 0 15 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qchannel.pd b/externals/grill/vasp/pd-help/vasp_qchannel.pd deleted file mode 100644 index 8bb34876..00000000 --- a/externals/grill/vasp/pd-help/vasp_qchannel.pd +++ /dev/null @@ -1,10 +0,0 @@ -#N canvas 35 145 460 376 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.channel? 0 10 1 14 -262144
--1 0;
-#X text 58 212 related object;
-#X text 53 125 (MaxMSP version of vasp);
-#X obj 60 165 vasp.channel?;
-#X text 58 71 get channel index of 0th vector in vasp;
-#X text 55 107 only useful for interleaved stereo-files;
-#X obj 162 211 vasp.channel;
-#X obj 61 280 VASP-HELP;
diff --git a/externals/grill/vasp/pd-help/vasp_qframes.pd b/externals/grill/vasp/pd-help/vasp_qframes.pd deleted file mode 100644 index bfc0535c..00000000 --- a/externals/grill/vasp/pd-help/vasp_qframes.pd +++ /dev/null @@ -1,27 +0,0 @@ -#N canvas 207 210 709 402 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.frames? 0 10 1 14 -262144
--1 0;
-#X text 372 130 get the maximum vasp length of both buffers;
-#X floatatom 372 211 0 0 0;
-#X obj 372 181 vasp.frames?;
-#X floatatom 212 211 0 0 0;
-#X obj 212 181 vasp.frames?;
-#X text 212 130 get the buffer length;
-#X msg 372 155 vasp bufframq bufframq1;
-#X msg 212 155 vasp bufframq;
-#X obj 418 273 table bufframq 88200;
-#X obj 418 296 table bufframq1 44100;
-#X floatatom 45 210 0 0 0;
-#X obj 45 180 vasp.frames?;
-#X msg 45 154 vasp 400 bufframq 300;
-#X text 106 312 abbreviation;
-#X obj 49 312 vasp.f?;
-#X obj 41 357 VASP-HELP;
-#X text 44 64 get a vasp's frame count (length) in frames;
-#X text 45 129 get the vasp's length;
-#X connect 3 0 2 0;
-#X connect 5 0 4 0;
-#X connect 7 0 3 0;
-#X connect 8 0 5 0;
-#X connect 12 0 11 0;
-#X connect 13 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qmax.pd b/externals/grill/vasp/pd-help/vasp_qmax.pd deleted file mode 100644 index 43226edc..00000000 --- a/externals/grill/vasp/pd-help/vasp_qmax.pd +++ /dev/null @@ -1,44 +0,0 @@ -#N canvas 57 40 757 367 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.max? 0 10 1 14 -262144 -1
-0;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 468 280 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufqmax 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 339 115 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 43 symbol bufqmax;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 615 284 pd init;
-#X text 70 75 right outlet: max value;
-#X obj 73 144 vasp.osc 44100;
-#X obj 73 165 vasp.* 0.5;
-#X obj 73 186 vasp.update;
-#X msg 73 123 vasp bufqmax;
-#X text 68 58 get maximum sample value of a vasp;
-#X msg 468 257 vasp bufqmax;
-#X floatatom 124 285 5 0 0;
-#X msg 75 230 vasp bufqmax;
-#X obj 75 251 vasp.max?;
-#X text 167 282 >>>> maximum value;
-#X obj 64 339 VASP-HELP;
-#X connect 5 0 6 0;
-#X connect 6 0 7 0;
-#X connect 8 0 5 0;
-#X connect 10 0 1 0;
-#X connect 12 0 13 0;
-#X connect 13 1 11 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qmin.pd b/externals/grill/vasp/pd-help/vasp_qmin.pd deleted file mode 100644 index f205f105..00000000 --- a/externals/grill/vasp/pd-help/vasp_qmin.pd +++ /dev/null @@ -1,44 +0,0 @@ -#N canvas 57 40 817 436 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.min? 0 10 1 14 -262144 -1
-0;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 468 280 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufqmin 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 339 115 graph;
-#N canvas 0 0 394 270 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufqmin;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 615 284 pd init;
-#X text 68 58 get minimum sample value of a vasp;
-#X text 70 75 right outlet: max value;
-#X msg 468 257 vasp bufqmin;
-#X msg 73 123 vasp bufqmin;
-#X obj 73 144 vasp.osc 44100;
-#X obj 73 165 vasp.* 0.5;
-#X obj 73 186 vasp.update;
-#X floatatom 124 285 5 0 0;
-#X obj 75 251 vasp.min?;
-#X msg 75 230 vasp bufqmin;
-#X text 167 282 >>>> minimum value;
-#X obj 56 344 VASP-HELP;
-#X connect 6 0 1 0;
-#X connect 7 0 8 0;
-#X connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X connect 12 1 11 0;
-#X connect 13 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qoffset.pd b/externals/grill/vasp/pd-help/vasp_qoffset.pd deleted file mode 100644 index 22c6575c..00000000 --- a/externals/grill/vasp/pd-help/vasp_qoffset.pd +++ /dev/null @@ -1,19 +0,0 @@ -#N canvas 307 266 648 378 10;
-#X obj 44 28 cnv 15 15 15 empty empty vasp.offset? 0 10 1 14 -262144
--1 0;
-#X text 42 59 get a single vectored vasp's offset;
-#X text 52 278 abbreviation;
-#X obj 150 278 vasp.o?;
-#X obj 411 295 table buffoffsetq 88200;
-#X floatatom 45 162 0 0 0;
-#X obj 45 131 vasp.offset?;
-#X msg 45 106 vasp 200 buffoffsetq 300;
-#X floatatom 226 163 0 0 0;
-#X obj 226 132 vasp.offset?;
-#X msg 226 107 vasp buffoffsetq 220 buffoffsetq 300;
-#X text 228 88 more than 1 vector. watch pd window!;
-#X obj 45 325 VASP-HELP;
-#X connect 6 0 5 0;
-#X connect 7 0 6 0;
-#X connect 9 0 8 0;
-#X connect 10 0 9 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qrmax.pd b/externals/grill/vasp/pd-help/vasp_qrmax.pd deleted file mode 100644 index 3018e79b..00000000 --- a/externals/grill/vasp/pd-help/vasp_qrmax.pd +++ /dev/null @@ -1,99 +0,0 @@ -#N canvas 36 36 881 653 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.rmax? 0 10 1 14 -262144
--1 0;
-#X obj 289 135 filelist \$0;
-#N canvas 92 108 410 375 inside 0;
-#X obj 63 217 soundfiler;
-#X obj 184 273 s \$0-sample-length;
-#X obj 63 271 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 63 49 loadbang;
-#X obj 63 161 filelisthandler \$0;
-#X msg 63 139 2;
-#X obj 214 228 s bufqrmax1;
-#X obj 225 250 s bufqrmax2;
-#X msg 63 193 read \$1 bufqrmax1;
-#X obj 63 76 t b b;
-#X msg 214 134 88200;
-#X obj 63 241 t b;
-#X connect 0 0 12 0;
-#X connect 3 0 7 0;
-#X connect 3 0 8 0;
-#X connect 4 0 10 0;
-#X connect 5 0 9 0;
-#X connect 6 0 5 0;
-#X connect 9 0 0 0;
-#X connect 10 0 6 0;
-#X connect 10 1 11 0;
-#X connect 11 0 3 0;
-#X connect 11 0 1 0;
-#X connect 12 0 2 0;
-#X restore 719 546 pd inside;
-#X text 70 75 right outlet: calculated value;
-#X text 70 92 needs two vectors;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 520 545 pd clear_buffers;
-#X obj 373 544 dac~;
-#X obj 373 501 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 395 498 play;
-#X text 72 58 maximum value of the radius values of a complex vasp
-;
-#X obj 465 130 wavedisplay-simple bufqrmax1 \$0;
-#X obj 465 267 wavedisplay-simple bufqrmax2 \$0;
-#X msg 520 522 vasp bufqrmax1 bufqrmax2;
-#X obj 51 538 vasp.update;
-#X obj 51 558 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 53 162 vasp.cfft;
-#X obj 53 182 vasp.update;
-#X obj 53 202 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 53 142 vasp bufqrmax1 bufqrmax2;
-#X obj 53 432 vasp.update;
-#X obj 53 452 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 53 392 vasp bufqrmax1 bufqrmax2;
-#X obj 53 412 vasp.c!fft;
-#X text 49 482 or use vasp.ropt which does the same;
-#X msg 51 498 vasp bufqrmax1 bufqrmax2;
-#X obj 51 518 vasp.ropt;
-#X obj 373 521 tabplay~ bufqrmax1;
-#X floatatom 108 309 5 0 0;
-#X obj 53 327 vasp./;
-#X obj 53 347 vasp.update;
-#X obj 53 367 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 53 254 vasp.rmax?;
-#X text 150 308 -> current maximum;
-#X text 136 346 use it to optimise radius;
-#X msg 53 234 vasp bufqrmax1 bufqrmax2;
-#X msg 53 282 vasp bufqrmax1 bufqrmax2;
-#X obj 50 618 VASP-HELP;
-#X connect 7 0 26 0;
-#X connect 12 0 5 0;
-#X connect 13 0 14 0;
-#X connect 15 0 16 0;
-#X connect 16 0 17 0;
-#X connect 18 0 15 0;
-#X connect 19 0 20 0;
-#X connect 21 0 22 0;
-#X connect 22 0 19 0;
-#X connect 24 0 25 0;
-#X connect 25 0 13 0;
-#X connect 26 0 6 0;
-#X connect 26 0 6 1;
-#X connect 27 0 28 1;
-#X connect 28 0 29 0;
-#X connect 29 0 30 0;
-#X connect 31 1 27 0;
-#X connect 34 0 31 0;
-#X connect 35 0 28 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qrmin.pd b/externals/grill/vasp/pd-help/vasp_qrmin.pd deleted file mode 100644 index 6b3a6b96..00000000 --- a/externals/grill/vasp/pd-help/vasp_qrmin.pd +++ /dev/null @@ -1,59 +0,0 @@ -#N canvas 57 40 879 562 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.rmin? 0 10 1 14 -262144
--1 0;
-#X obj 70 140 filelist \$0;
-#N canvas 92 108 402 367 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 66 50 loadbang;
-#X obj 66 178 t b f f;
-#X obj 66 98 filelisthandler \$0;
-#X msg 66 130 read -resize \$1 bufqrmin1;
-#X obj 214 228 s bufqrmin1;
-#X obj 225 250 s bufqrmin2;
-#X msg 66 76 4;
-#X connect 0 0 5 0;
-#X connect 3 0 8 0;
-#X connect 3 0 9 0;
-#X connect 4 0 10 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 0 0;
-#X connect 10 0 6 0;
-#X restore 678 426 pd inside;
-#X text 70 75 right outlet: calculated value;
-#X text 72 58 min-value of the radius values of a complex vasp;
-#X text 70 95 needs two vectors;
-#X obj 434 93 wavedisplay-simple bufqrmin1 \$0;
-#X obj 434 238 wavedisplay-simple bufqrmin2 \$0;
-#X obj 60 280 vasp.cfft;
-#X obj 60 302 vasp.update;
-#X obj 60 325 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 60 258 vasp bufqrmin1 bufqrmin2;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 436 422 pd clear_buffers;
-#X msg 436 399 vasp bufqrmin1 bufqrmin2;
-#X floatatom 110 417 12 0 0;
-#X text 112 435 -> current absolute minimum;
-#X obj 55 383 vasp.rmin?;
-#X msg 55 360 vasp bufqrmin1 bufqrmin2;
-#X obj 41 508 VASP-HELP;
-#X connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X connect 11 0 8 0;
-#X connect 13 0 12 0;
-#X connect 16 1 14 0;
-#X connect 17 0 16 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qsize.pd b/externals/grill/vasp/pd-help/vasp_qsize.pd deleted file mode 100644 index 2ea1b884..00000000 --- a/externals/grill/vasp/pd-help/vasp_qsize.pd +++ /dev/null @@ -1,31 +0,0 @@ -#N canvas 85 111 907 542 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.size? 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 408 284 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50
-\; \$1 yticks 0 0.25 2;
-#X msg 33 45 symbol bufqsize;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 714 408 pd init;
-#X text 119 374 abbreviation;
-#X obj 62 225 vasp.size 100;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufqsize 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 453 153 graph;
-#X floatatom 135 200 5 0 0;
-#X obj 175 417 vasp.frames;
-#X text 62 415 related objects:;
-#X msg 62 152 vasp bufqsize;
-#X obj 62 266 vasp.size?;
-#X floatatom 62 302 5 0 0;
-#X obj 63 374 vasp.s?;
-#X obj 256 417 vasp.size;
-#X obj 62 463 VASP-HELP;
-#X text 57 69 get the size of a referenced buffer/array;
-#X connect 3 0 9 0;
-#X connect 5 0 3 1;
-#X connect 8 0 3 0;
-#X connect 9 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qsum.pd b/externals/grill/vasp/pd-help/vasp_qsum.pd deleted file mode 100644 index 691e07b2..00000000 --- a/externals/grill/vasp/pd-help/vasp_qsum.pd +++ /dev/null @@ -1,50 +0,0 @@ -#N canvas 80 113 823 442 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.sum? 0 10 1 14 -262144 -1
-0;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 468 280 pd clear_buffer;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufqsum 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 339 115 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufqsum;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 615 284 pd init;
-#X obj 73 144 vasp.osc 44100;
-#X obj 73 165 vasp.* 0.5;
-#X obj 73 191 vasp.update;
-#X floatatom 99 309 7 0 0 0 - - -;
-#X obj 76 387 VASP-HELP;
-#X text 68 58 get sum of sample values of a vasp;
-#X text 70 75 right outlet: sum of sample values;
-#X msg 73 123 vasp bufqsum;
-#X msg 468 257 vasp bufqsum;
-#X msg 75 258 vasp bufqsum;
-#X obj 75 278 vasp.sum?;
-#X text 150 309 >>>> sum;
-#X floatatom 281 310 7 0 0 0 - - -;
-#X msg 281 261 vasp bufqsum;
-#X text 330 308 >>>> RMS value;
-#X obj 280 285 vasp.rms;
-#X connect 4 0 5 0;
-#X connect 5 0 6 0;
-#X connect 11 0 4 0;
-#X connect 12 0 1 0;
-#X connect 13 0 14 0;
-#X connect 14 1 7 0;
-#X connect 17 0 19 0;
-#X connect 19 0 16 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qvector.pd b/externals/grill/vasp/pd-help/vasp_qvector.pd deleted file mode 100644 index 67c681da..00000000 --- a/externals/grill/vasp/pd-help/vasp_qvector.pd +++ /dev/null @@ -1,13 +0,0 @@ -#N canvas 257 69 511 284 10;
-#X text 52 66 get the number of vectors of a vasp;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.n? 0 10 1 14 -262144 -1
-0;
-#X obj 57 169 cnv 15 44 17 empty empty empty 20 12 0 14 -258699 -66577
-0;
-#X floatatom 57 218 0 0 0;
-#X obj 57 169 vasp.n?;
-#X msg 57 112 vasp bufqn1;
-#X msg 137 112 vasp bufqn1 bufqn2 bufqn3;
-#X connect 4 0 3 0;
-#X connect 5 0 4 0;
-#X connect 6 0 4 0;
diff --git a/externals/grill/vasp/pd-help/vasp_qvectors.pd b/externals/grill/vasp/pd-help/vasp_qvectors.pd deleted file mode 100644 index d4725441..00000000 --- a/externals/grill/vasp/pd-help/vasp_qvectors.pd +++ /dev/null @@ -1,17 +0,0 @@ -#N canvas 261 89 556 365 10;
-#X text 52 66 get the number of vectors of a vasp;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.n? 0 10 1 14 -262144 -1
-0;
-#X floatatom 57 218 0 0 0;
-#X obj 57 169 vasp.n?;
-#X msg 57 112 vasp bufqn1;
-#X msg 147 113 vasp bufqn1 bufqn2 bufqn3;
-#X obj 54 318 VASP-HELP;
-#X obj 438 86 table bufqn1;
-#X obj 438 107 table bufqn2;
-#X obj 438 128 table bufqn3;
-#X obj 151 277 vasp.n?;
-#X text 53 279 abbreviation:;
-#X connect 3 0 2 0;
-#X connect 4 0 3 0;
-#X connect 5 0 3 0;
diff --git a/externals/grill/vasp/pd-help/vasp_radd.pd b/externals/grill/vasp/pd-help/vasp_radd.pd deleted file mode 100644 index f28aebc8..00000000 --- a/externals/grill/vasp/pd-help/vasp_radd.pd +++ /dev/null @@ -1,84 +0,0 @@ -#N canvas 63 27 894 612 10;
-#N canvas 415 205 410 337 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 222 207 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 259 138 resize \$1;
-#X obj 259 91 loadbang;
-#X obj 67 53 loadbang;
-#X msg 259 112 88200;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 79 4;
-#X msg 67 133 read -resize \$1 bufradd1;
-#X obj 259 160 s bufradd1;
-#X obj 269 183 s bufradd2;
-#X obj 66 178 t b;
-#X connect 0 0 12 0;
-#X connect 3 0 10 0;
-#X connect 3 0 11 0;
-#X connect 4 0 6 0;
-#X connect 5 0 8 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 9 0;
-#X connect 8 0 7 0;
-#X connect 9 0 0 0;
-#X connect 12 0 2 0;
-#X restore 772 512 pd inside;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.r+ 0 10 1 14 -262144 -1
-0;
-#X obj 73 134 filelist \$0;
-#X obj 65 512 vasp.update;
-#X obj 65 535 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 65 489 vasp.c!fft;
-#X obj 65 260 vasp.cfft;
-#X obj 65 281 vasp.update;
-#X obj 65 302 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 343 514 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 477 514 pd clear_buffers;
-#X obj 343 471 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 365 468 play;
-#X text 477 469 clear;
-#X text 71 53 add avalue to a radius;
-#X text 71 65 argument/right inlet: value (offset);
-#X text 72 82 needs two vectors;
-#X obj 522 272 wavedisplay-simple bufradd2 \$0;
-#X obj 521 116 wavedisplay-simple bufradd1 \$0;
-#X msg 65 239 vasp bufradd1 bufradd2;
-#X msg 65 465 vasp bufradd1 bufradd2;
-#X obj 343 491 tabplay~ bufradd1;
-#X msg 477 491 vasp bufradd1 bufradd2;
-#X obj 65 405 vasp.update;
-#X obj 65 426 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 65 325 vasp bufradd1 bufradd2;
-#X obj 65 379 vasp.r+ 0.05;
-#X floatatom 132 352 5 0 0;
-#X text 183 350 value;
-#X obj 59 579 VASP-HELP;
-#X connect 3 0 4 0;
-#X connect 5 0 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 11 0 21 0;
-#X connect 19 0 6 0;
-#X connect 20 0 5 0;
-#X connect 21 0 9 0;
-#X connect 21 0 9 1;
-#X connect 22 0 10 0;
-#X connect 23 0 24 0;
-#X connect 25 0 26 0;
-#X connect 26 0 23 0;
-#X connect 27 0 26 1;
diff --git a/externals/grill/vasp/pd-help/vasp_radio.pd b/externals/grill/vasp/pd-help/vasp_radio.pd deleted file mode 100644 index 0f26c220..00000000 --- a/externals/grill/vasp/pd-help/vasp_radio.pd +++ /dev/null @@ -1,28 +0,0 @@ -#N canvas 128 36 361 454 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.radio 0 10 1 14 -262144
--1 0;
-#X obj 66 406 VASP-HELP;
-#X text 71 63 filters radio messages;
-#X floatatom 208 126 5 0 0;
-#X msg 208 146 vasp buf;
-#X msg 51 126 radio prior 1;
-#X msg 208 172 env 0 1 2;
-#X msg 208 195 5 5;
-#X obj 74 267 vasp.radio;
-#X msg 51 150 radio loglvl 3;
-#X obj 74 298 prepend set;
-#X obj 177 300 prepend set;
-#X text 73 350 radio;
-#X text 177 351 other;
-#X msg 74 323;
-#X msg 177 327;
-#X connect 3 0 8 0;
-#X connect 4 0 8 0;
-#X connect 5 0 8 0;
-#X connect 6 0 8 0;
-#X connect 7 0 8 0;
-#X connect 8 0 10 0;
-#X connect 8 1 11 0;
-#X connect 9 0 8 0;
-#X connect 10 0 14 0;
-#X connect 11 0 15 0;
diff --git a/externals/grill/vasp/pd-help/vasp_rect.pd b/externals/grill/vasp/pd-help/vasp_rect.pd deleted file mode 100644 index 77f74d9f..00000000 --- a/externals/grill/vasp/pd-help/vasp_rect.pd +++ /dev/null @@ -1,87 +0,0 @@ -#N canvas 15 40 916 673 10;
-#N canvas 92 108 375 293 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 184 208 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 221 138 resize \$1;
-#X obj 221 91 loadbang;
-#X obj 67 53 loadbang;
-#X msg 221 112 88200;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 79 4;
-#X obj 221 160 s bufrect1;
-#X obj 231 184 s bufrect2;
-#X msg 67 133 read \$1 bufrect1;
-#X obj 66 178 t b;
-#X connect 0 0 12 0;
-#X connect 3 0 9 0;
-#X connect 3 0 10 0;
-#X connect 4 0 6 0;
-#X connect 5 0 8 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 11 0;
-#X connect 8 0 7 0;
-#X connect 11 0 0 0;
-#X connect 12 0 2 0;
-#X restore 777 531 pd inside;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.rect 0 10 1 14 -262144 -1
-0;
-#X obj 72 91 filelist \$0;
-#X obj 59 327 vasp.update;
-#X obj 59 347 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 59 220 vasp.cfft;
-#X obj 59 240 vasp.update;
-#X obj 59 260 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X text 205 573 <-- click to open;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 567 527 pd clear_buffers;
-#X text 567 482 clear;
-#X obj 59 306 vasp.polar;
-#X text 229 283 real/imaginary -> amplitude/phase;
-#X obj 59 573 phase-random_example;
-#X text 71 53 polar to cartesian coordinate conversion;
-#X obj 512 116 wavedisplay-simple bufrect1 \$0;
-#X obj 514 261 wavedisplay-simple bufrect2 \$0;
-#X text 738 94 real/amplitude;
-#X text 729 240 imaginary/phase;
-#X msg 59 200 vasp bufrect1 bufrect2;
-#X text 230 201 transform with cfft to real/imaginary;
-#X obj 59 418 vasp.update;
-#X obj 59 438 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 59 496 vasp.cfft;
-#X obj 59 516 vasp.update;
-#X obj 59 536 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 59 476 vasp bufrect1 bufrect2;
-#X obj 59 397 vasp.rect;
-#X text 223 374 amplitude/phase -> real/imaginary;
-#X text 231 477 transform with inverse cfft to time domain;
-#X msg 567 504 vasp bufrect1 bufrect2;
-#X msg 59 285 vasp bufrect1 bufrect2;
-#X msg 59 376 vasp bufrect1 bufrect2;
-#X obj 58 622 VASP-HELP;
-#X connect 3 0 4 0;
-#X connect 5 0 6 0;
-#X connect 6 0 7 0;
-#X connect 11 0 3 0;
-#X connect 19 0 5 0;
-#X connect 21 0 22 0;
-#X connect 23 0 24 0;
-#X connect 24 0 25 0;
-#X connect 26 0 23 0;
-#X connect 27 0 21 0;
-#X connect 30 0 9 0;
-#X connect 31 0 11 0;
-#X connect 32 0 27 0;
diff --git a/externals/grill/vasp/pd-help/vasp_rfft.pd b/externals/grill/vasp/pd-help/vasp_rfft.pd deleted file mode 100644 index d7bbb31f..00000000 --- a/externals/grill/vasp/pd-help/vasp_rfft.pd +++ /dev/null @@ -1,74 +0,0 @@ -#N canvas 24 75 893 495 10; -#X obj 75 32 cnv 15 15 15 empty empty vasp.rfft 0 10 1 14 -262144 -1 -0; -#N canvas 92 108 371 312 inside 0; -#X obj 66 154 soundfiler; -#X obj 180 207 s \$0-sample-length; -#X obj 66 208 s \$0-draw_display; -#X msg 234 164 resize \$1; -#X obj 234 117 loadbang; -#X obj 67 53 loadbang; -#X msg 234 138 88200; -#X obj 67 101 filelisthandler \$0; -#X msg 67 79 3; -#X obj 234 186 s bufrfft; -#X msg 67 133 read \$1 bufrfft; -#X obj 66 178 t b; -#X connect 0 0 11 0; -#X connect 3 0 9 0; -#X connect 4 0 6 0; -#X connect 5 0 8 0; -#X connect 6 0 3 0; -#X connect 6 0 1 0; -#X connect 7 0 10 0; -#X connect 8 0 7 0; -#X connect 10 0 0 0; -#X connect 11 0 2 0; -#X restore 761 385 pd inside; -#X obj 329 388 dac~; -#X obj 329 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 351 342 play; -#X text 463 343 clear; -#X obj 69 121 filelist \$0; -#X msg 463 365 vasp bufrfft; -#N canvas 0 0 413 295 clear_buffer 0; -#X obj 49 73 vasp.= 0; -#X obj 49 49 inlet; -#X obj 49 97 vasp.u; -#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 2 0; -#X connect 1 0 0 0; -#X connect 2 0 3 0; -#X restore 463 388 pd clear_buffer; -#X obj 329 365 tabplay~ bufrfft; -#X obj 519 137 wavedisplay-simple bufrfft \$0; -#X text 157 345 inverse real fft; -#X obj 68 371 vasp.update; -#X obj 68 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 68 320 vasp bufrfft; -#X obj 68 345 vasp.r!fft; -#X text 71 60 real fft; -#X text 72 73 in opposite to cfft there is only one real input buffer -; -#X text 73 86 imaginary part of the fft is assumed to be zero; -#X text 157 239 real fft; -#X obj 68 265 vasp.update; -#X obj 68 288 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 68 214 vasp bufrfft; -#X obj 68 239 vasp.rfft; -#X obj 61 456 VASP-HELP; -#X text 103 456 - vasp overview; -#X connect 3 0 9 0; -#X connect 7 0 8 0; -#X connect 9 0 2 0; -#X connect 9 0 2 1; -#X connect 12 0 13 0; -#X connect 14 0 15 0; -#X connect 15 0 12 0; -#X connect 20 0 21 0; -#X connect 22 0 23 0; -#X connect 23 0 20 0; diff --git a/externals/grill/vasp/pd-help/vasp_rframes.pd b/externals/grill/vasp/pd-help/vasp_rframes.pd deleted file mode 100644 index f20ada29..00000000 --- a/externals/grill/vasp/pd-help/vasp_rframes.pd +++ /dev/null @@ -1,63 +0,0 @@ -#N canvas 80 119 908 535 10;
-#X obj 62 323 vasp.osc 22050;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.frames/ 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufrfram1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 149 graph;
-#N canvas 0 0 404 280 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufrfram1;
-#X msg 140 45 symbol bufrfram2;
-#X connect 0 0 2 0;
-#X connect 0 0 3 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X restore 813 459 pd init;
-#X obj 62 355 vasp.update;
-#X text 117 412 abbreviation;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufrfram2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 530 268 graph;
-#X text 54 103 !!!all vectors of a vasp have the same framesize/length!!!
-;
-#X obj 77 274 prepend set;
-#X obj 233 323 vasp.osc 22050;
-#X obj 233 355 vasp.update;
-#X text 58 83 argument/right inlet: value;
-#X obj 62 187 vasp.-> bufrfram2;
-#X msg 77 297 vasp 66150 bufrfram1 0 0;
-#X obj 255 271 prepend set;
-#X msg 255 294 vasp 33075 bufrfram2 0 0;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 528 439 pd clear_buffer;
-#X msg 528 418 vasp bufrfram1 bufrfram2;
-#X obj 161 453 vasp.frames;
-#X text 53 454 related objects:;
-#X obj 243 453 vasp.frames+;
-#X text 59 66 divide the number of frames of a vasp by a value;
-#X msg 62 153 vasp 66150 bufrfram1;
-#X obj 233 239 vasp.frames/ 2;
-#X obj 61 411 vasp.f/;
-#X obj 59 495 VASP-HELP;
-#X connect 0 0 4 0;
-#X connect 8 0 13 0;
-#X connect 9 0 10 0;
-#X connect 12 0 8 0;
-#X connect 12 0 0 0;
-#X connect 12 1 23 0;
-#X connect 14 0 15 0;
-#X connect 17 0 16 0;
-#X connect 22 0 12 0;
-#X connect 23 0 14 0;
-#X connect 23 0 9 0;
diff --git a/externals/grill/vasp/pd-help/vasp_rgate.pd b/externals/grill/vasp/pd-help/vasp_rgate.pd deleted file mode 100644 index cee131b5..00000000 --- a/externals/grill/vasp/pd-help/vasp_rgate.pd +++ /dev/null @@ -1,86 +0,0 @@ -#N canvas 36 36 808 624 10;
-#X obj 72 26 cnv 15 15 15 empty empty vasp.rgate 0 10 1 14 -262144
--1 0;
-#X obj 76 157 filelist \$0;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 481 518 pd clear_buffers;
-#X obj 63 291 vasp.update;
-#X obj 63 311 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 401 162 wavedisplay-simple bufrgate1 \$0;
-#X obj 402 319 wavedisplay-simple bufrgate2 \$0;
-#X msg 63 251 vasp bufrgate1 bufrgate2;
-#X obj 63 271 vasp.cfft;
-#X obj 63 504 vasp.update;
-#X obj 63 524 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 63 464 vasp bufrgate1 bufrgate2;
-#X obj 63 484 vasp.c!fft;
-#X obj 296 518 dac~;
-#X obj 296 480 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 317 483 play;
-#X obj 296 498 tabplay~ bufrgate1;
-#X msg 481 498 vasp bufrgate1 bufrgate2;
-#X text 71 49 gate the radius of a complex buffer content with a value
-;
-#X text 72 96 needs two buffers (real/imaginary);
-#X text 71 66 argument/right inlet: value (usually from 0-1) to gate
-the radius;
-#N canvas 384 183 438 403 inside 0;
-#X obj 66 169 soundfiler;
-#X obj 184 290 s \$0-sample-length;
-#X obj 66 223 s \$0-draw_display;
-#X msg 214 221 resize \$1;
-#X obj 66 47 loadbang;
-#X obj 66 113 filelisthandler \$0;
-#X obj 214 243 s bufrgate1;
-#X obj 225 264 s bufrgate2;
-#X msg 66 91 2;
-#X msg 95 91 88200;
-#X obj 66 68 t b b;
-#X msg 66 145 read \$1 bufrgate1;
-#X obj 66 193 t b;
-#X connect 0 0 12 0;
-#X connect 3 0 6 0;
-#X connect 3 0 7 0;
-#X connect 3 0 1 0;
-#X connect 4 0 10 0;
-#X connect 5 0 11 0;
-#X connect 8 0 5 0;
-#X connect 9 0 3 0;
-#X connect 10 0 8 0;
-#X connect 10 1 9 0;
-#X connect 11 0 0 0;
-#X connect 12 0 2 0;
-#X restore 670 518 pd inside;
-#X obj 63 413 vasp.update;
-#X obj 63 433 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 63 329 vasp bufrgate1 bufrgate2;
-#X obj 63 393 vasp.rgate 0.2;
-#X floatatom 142 367 5 0 0;
-#X text 192 366 value;
-#X obj 56 582 VASP-HELP;
-#X connect 3 0 4 0;
-#X connect 7 0 8 0;
-#X connect 8 0 3 0;
-#X connect 9 0 10 0;
-#X connect 11 0 12 0;
-#X connect 12 0 9 0;
-#X connect 14 0 16 0;
-#X connect 16 0 13 0;
-#X connect 16 0 13 1;
-#X connect 17 0 2 0;
-#X connect 22 0 23 0;
-#X connect 24 0 25 0;
-#X connect 25 0 22 0;
-#X connect 26 0 25 1;
diff --git a/externals/grill/vasp/pd-help/vasp_rifft.pd b/externals/grill/vasp/pd-help/vasp_rifft.pd deleted file mode 100644 index 037981a2..00000000 --- a/externals/grill/vasp/pd-help/vasp_rifft.pd +++ /dev/null @@ -1,75 +0,0 @@ -#N canvas 24 75 823 495 10; -#X obj 75 32 cnv 15 15 15 empty empty vasp.r!fft 0 10 1 14 -262144 --1 0; -#N canvas 92 108 373 314 inside 0; -#X obj 66 154 soundfiler; -#X obj 187 209 s \$0-sample-length; -#X obj 66 208 s \$0-draw_display; -#X msg 235 166 resize \$1; -#X obj 235 119 loadbang; -#X obj 67 53 loadbang; -#X msg 235 140 88200; -#X obj 67 101 filelisthandler \$0; -#X msg 67 79 4; -#X msg 67 133 read \$1 bufrifft; -#X obj 235 188 s bufrifft; -#X obj 66 178 t b; -#X connect 0 0 11 0; -#X connect 3 0 10 0; -#X connect 4 0 6 0; -#X connect 5 0 8 0; -#X connect 6 0 3 0; -#X connect 6 0 1 0; -#X connect 7 0 9 0; -#X connect 8 0 7 0; -#X connect 9 0 0 0; -#X connect 11 0 2 0; -#X restore 627 390 pd inside; -#X obj 329 388 dac~; -#X obj 329 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 351 342 play; -#X text 463 343 clear; -#X obj 69 121 filelist \$0; -#N canvas 0 0 413 295 clear_buffer 0; -#X obj 49 73 vasp.= 0; -#X obj 49 49 inlet; -#X obj 49 97 vasp.u; -#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 2 0; -#X connect 1 0 0 0; -#X connect 2 0 3 0; -#X restore 463 388 pd clear_buffer; -#X text 157 239 real fft; -#X obj 68 265 vasp.update; -#X obj 68 288 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 68 238 vasp.rfft; -#X text 72 73 in opposite to cfft there is only one real input buffer -; -#X text 73 86 imaginary part of the fft is assumed to be zero; -#X text 71 60 inverse real fft; -#X msg 463 365 vasp bufrifft; -#X obj 329 365 tabplay~ bufrifft; -#X msg 68 214 vasp bufrifft; -#X obj 372 144 wavedisplay-simple bufrifft \$0; -#X text 645 127 source; -#X text 157 345 inverse real fft; -#X obj 68 371 vasp.update; -#X obj 68 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 68 345 vasp.r!fft; -#X msg 68 320 vasp bufrifft; -#X obj 61 461 VASP-HELP; -#X text 103 461 - vasp overview; -#X connect 3 0 16 0; -#X connect 9 0 10 0; -#X connect 11 0 9 0; -#X connect 15 0 7 0; -#X connect 16 0 2 0; -#X connect 16 0 2 1; -#X connect 17 0 11 0; -#X connect 21 0 22 0; -#X connect 23 0 21 0; -#X connect 24 0 23 0; diff --git a/externals/grill/vasp/pd-help/vasp_rmax.pd b/externals/grill/vasp/pd-help/vasp_rmax.pd deleted file mode 100644 index 6a05cd58..00000000 --- a/externals/grill/vasp/pd-help/vasp_rmax.pd +++ /dev/null @@ -1,81 +0,0 @@ -#N canvas 36 36 881 625 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.rmax 0 10 1 14 -262144 -1
-0;
-#X obj 71 131 filelist \$0;
-#N canvas 92 108 410 375 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 177 275 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 66 50 loadbang;
-#X obj 66 98 filelisthandler \$0;
-#X msg 66 76 2;
-#X msg 214 146 88200;
-#X msg 66 130 read \$1 bufrmax1;
-#X obj 214 228 s bufrmax1;
-#X obj 225 250 s bufrmax2;
-#X obj 66 178 t b;
-#X connect 0 0 11 0;
-#X connect 3 0 9 0;
-#X connect 3 0 10 0;
-#X connect 4 0 7 0;
-#X connect 4 0 6 0;
-#X connect 5 0 8 0;
-#X connect 6 0 5 0;
-#X connect 7 0 3 0;
-#X connect 7 0 1 0;
-#X connect 8 0 0 0;
-#X connect 11 0 2 0;
-#X restore 700 501 pd inside;
-#X text 70 92 needs two vectors;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 501 500 pd clear_buffers;
-#X obj 354 499 dac~;
-#X obj 354 456 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 376 453 play;
-#X obj 60 252 vasp.cfft;
-#X obj 60 272 vasp.update;
-#X obj 60 484 vasp.update;
-#X obj 60 504 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 60 464 vasp.c!fft;
-#X text 72 58 set radius to a maximum value;
-#X text 70 75 argument/right inlet: value;
-#X msg 60 232 vasp bufrmax1 bufrmax2;
-#X obj 448 136 wavedisplay-simple bufrmax1 \$0;
-#X obj 449 281 wavedisplay-simple bufrmax2 \$0;
-#X msg 60 444 vasp bufrmax1 bufrmax2;
-#X obj 354 476 tabplay~ bufrmax1;
-#X msg 501 477 vasp bufrmax1 bufrmax2;
-#X obj 60 292 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 60 324 vasp bufrmax1 bufrmax2;
-#X obj 60 391 vasp.update;
-#X obj 60 371 vasp.rmax 0.2;
-#X floatatom 133 348 5 0 0;
-#X obj 60 411 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 50 564 VASP-HELP;
-#X connect 6 0 19 0;
-#X connect 8 0 9 0;
-#X connect 9 0 21 0;
-#X connect 10 0 11 0;
-#X connect 12 0 10 0;
-#X connect 15 0 8 0;
-#X connect 18 0 12 0;
-#X connect 19 0 5 0;
-#X connect 19 0 5 1;
-#X connect 20 0 4 0;
-#X connect 22 0 24 0;
-#X connect 23 0 26 0;
-#X connect 24 0 23 0;
-#X connect 25 0 24 1;
diff --git a/externals/grill/vasp/pd-help/vasp_rmin.pd b/externals/grill/vasp/pd-help/vasp_rmin.pd deleted file mode 100644 index 6eb7fc75..00000000 --- a/externals/grill/vasp/pd-help/vasp_rmin.pd +++ /dev/null @@ -1,84 +0,0 @@ -#N canvas 36 36 802 593 10; -#X obj 71 32 cnv 15 15 15 empty empty vasp.rmin 0 10 1 14 -262144 -1 -0; -#X obj 71 131 filelist \$0; -#N canvas 92 108 416 329 inside 0; -#X obj 66 169 soundfiler; -#X obj 179 223 s \$0-sample-length; -#X obj 66 223 s \$0-draw_display; -#X msg 214 153 resize \$1; -#X obj 66 38 loadbang; -#X obj 66 113 filelisthandler \$0; -#X msg 66 91 2; -#X msg 214 95 88200; -#X obj 214 175 s bufrmin1; -#X obj 225 196 s bufrmin2; -#X msg 66 145 read \$1 bufrmin1; -#X obj 66 63 t b b; -#X obj 66 193 t b; -#X connect 0 0 12 0; -#X connect 3 0 8 0; -#X connect 3 0 9 0; -#X connect 4 0 11 0; -#X connect 5 0 10 0; -#X connect 6 0 5 0; -#X connect 7 0 3 0; -#X connect 7 0 1 0; -#X connect 10 0 0 0; -#X connect 11 0 6 0; -#X connect 11 1 7 0; -#X connect 12 0 2 0; -#X restore 640 502 pd inside; -#X text 71 83 needs two vectors; -#N canvas 40 55 281 170 clear_buffers 0; -#X obj 54 79 vasp.update; -#X obj 54 56 vasp.= 0; -#X obj 54 26 inlet; -#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 3 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X restore 480 500 pd clear_buffers; -#X obj 334 499 dac~; -#X obj 334 461 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 355 459 play; -#X obj 60 252 vasp.cfft; -#X obj 60 272 vasp.update; -#X obj 60 484 vasp.update; -#X obj 60 504 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 60 464 vasp.c!fft; -#X text 71 66 argument/right inlet: value; -#X obj 60 292 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X text 71 49 set radius to a minimum value; -#X msg 60 232 vasp bufrmin1 bufrmin2; -#X msg 60 444 vasp bufrmin1 bufrmin2; -#X obj 374 257 wavedisplay-simple bufrmin2 \$0; -#X obj 334 479 tabplay~ bufrmin1; -#X msg 480 480 vasp bufrmin1 bufrmin2; -#X obj 374 119 wavedisplay-simple bufrmin1 \$0; -#X obj 60 391 vasp.update; -#X floatatom 139 352 5 0 0; -#X obj 60 411 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 60 324 vasp bufrmin1 bufrmin2; -#X obj 60 371 vasp.rmin 0.05; -#X obj 55 559 VASP-HELP; -#X text 97 559 - vasp overview; -#X connect 6 0 19 0; -#X connect 8 0 9 0; -#X connect 9 0 14 0; -#X connect 10 0 11 0; -#X connect 12 0 10 0; -#X connect 16 0 8 0; -#X connect 17 0 12 0; -#X connect 19 0 5 0; -#X connect 19 0 5 1; -#X connect 20 0 4 0; -#X connect 22 0 24 0; -#X connect 23 0 26 1; -#X connect 25 0 26 0; -#X connect 26 0 22 0; diff --git a/externals/grill/vasp/pd-help/vasp_ropt.pd b/externals/grill/vasp/pd-help/vasp_ropt.pd deleted file mode 100644 index c1975b8e..00000000 --- a/externals/grill/vasp/pd-help/vasp_ropt.pd +++ /dev/null @@ -1,86 +0,0 @@ -#N canvas 36 36 806 598 10; -#X obj 72 26 cnv 15 15 15 empty empty vasp.ropt 0 10 1 14 -262144 -1 -0; -#X obj 76 131 filelist \$0; -#N canvas 40 55 281 170 clear_buffers 0; -#X obj 54 79 vasp.update; -#X obj 54 56 vasp.= 0; -#X obj 54 26 inlet; -#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 3 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X restore 507 536 pd clear_buffers; -#X obj 63 291 vasp.update; -#X obj 63 311 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 442 164 wavedisplay-simple bufropt1 \$0; -#X obj 443 321 wavedisplay-simple bufropt2 \$0; -#X msg 63 251 vasp bufropt1 bufropt2; -#X obj 63 271 vasp.cfft; -#X obj 63 504 vasp.update; -#X obj 63 524 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 63 464 vasp bufropt1 bufropt2; -#X obj 63 484 vasp.c!fft; -#X obj 344 538 dac~; -#X obj 344 500 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 365 503 play; -#X obj 344 518 tabplay~ bufropt1; -#X msg 507 516 vasp bufropt1 bufropt2; -#N canvas 92 108 436 386 inside 0; -#X obj 66 169 soundfiler; -#X obj 84 253 s \$0-sample-length; -#X obj 66 223 s \$0-draw_display; -#X msg 214 221 resize \$1; -#X obj 66 47 loadbang; -#X obj 66 193 t b f f; -#X obj 66 113 filelisthandler \$0; -#X obj 214 243 s bufropt1; -#X obj 225 264 s bufropt2; -#X msg 95 91 88200; -#X obj 66 68 t b b; -#X msg 66 145 read \$1 bufropt1; -#X msg 66 91 3; -#X connect 0 0 5 0; -#X connect 3 0 7 0; -#X connect 3 0 8 0; -#X connect 4 0 10 0; -#X connect 5 0 2 0; -#X connect 5 1 1 0; -#X connect 5 2 3 0; -#X connect 6 0 11 0; -#X connect 9 0 5 0; -#X connect 10 0 12 0; -#X connect 10 1 9 0; -#X connect 11 0 0 0; -#X connect 12 0 6 0; -#X restore 696 536 pd inside; -#X text 71 49 optimise the radius of a complex buffer content; -#X text 71 66 right outlet: the previous maximum; -#X text 72 84 needs two vectors; -#X text 227 345 optimise; -#X text 224 251 transform to frequency domain; -#X text 224 462 transform to time domain; -#X obj 63 393 vasp.update; -#X obj 63 413 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X msg 63 346 vasp bufropt1 bufropt2; -#X obj 63 373 vasp.ropt 0.2; -#X obj 51 569 VASP-HELP; -#X text 93 569 - vasp overview; -#X connect 3 0 4 0; -#X connect 7 0 8 0; -#X connect 8 0 3 0; -#X connect 9 0 10 0; -#X connect 11 0 12 0; -#X connect 12 0 9 0; -#X connect 14 0 16 0; -#X connect 16 0 13 0; -#X connect 16 0 13 1; -#X connect 17 0 2 0; -#X connect 25 0 26 0; -#X connect 27 0 28 0; -#X connect 28 0 25 0; diff --git a/externals/grill/vasp/pd-help/vasp_rot.pd b/externals/grill/vasp/pd-help/vasp_rot.pd deleted file mode 100644 index b7aaec0f..00000000 --- a/externals/grill/vasp/pd-help/vasp_rot.pd +++ /dev/null @@ -1,48 +0,0 @@ -#N canvas 24 75 850 525 10;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.rot 0 10 1 14 -262144 -1
-0;
-#X text 463 343 clear;
-#N canvas 0 0 413 295 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 463 388 pd clear_buffer;
-#X text 72 73 optional argument/right inlet: value;
-#X text 71 60 rotate buffer content;
-#X msg 463 365 vasp bufrot;
-#X obj 68 333 vasp.update;
-#X floatatom 123 280 0 0 0;
-#X msg 68 246 vasp bufrot;
-#X obj 59 467 VASP-HELP;
-#X obj 72 192 vasp.u;
-#X obj 72 170 vasp.= env 0 0 1 20 -1 100;
-#X obj 180 427 vasp.shift;
-#X obj 260 427 vasp.xrot;
-#X text 55 426 related objects:;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufrot 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 443 130 graph;
-#N canvas 0 0 398 274 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufrot;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 698 395 pd init;
-#X msg 72 145 vasp bufrot;
-#X obj 68 305 vasp.rot 7;
-#X text 193 139 1 create envelope;
-#X text 193 245 2 rotate buffer content;
-#X connect 5 0 2 0;
-#X connect 7 0 18 1;
-#X connect 8 0 18 0;
-#X connect 11 0 10 0;
-#X connect 17 0 11 0;
-#X connect 18 0 6 0;
diff --git a/externals/grill/vasp/pd-help/vasp_rpeaks.pd b/externals/grill/vasp/pd-help/vasp_rpeaks.pd deleted file mode 100644 index 5891e6d1..00000000 --- a/externals/grill/vasp/pd-help/vasp_rpeaks.pd +++ /dev/null @@ -1,94 +0,0 @@ -#N canvas 36 36 814 590 10;
-#X obj 72 26 cnv 15 15 15 empty empty vasp.rpeaks 0 10 1 14 -262144
--1 0;
-#X obj 76 131 filelist \$0;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 500 505 pd clear_buffers;
-#X obj 65 264 vasp.update;
-#X obj 65 284 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 411 132 wavedisplay-simple bufrpeaks1 \$0;
-#X obj 412 289 wavedisplay-simple bufrpeaks2 \$0;
-#X msg 65 224 vasp bufrpeaks1 bufrpeaks2;
-#X obj 65 244 vasp.cfft;
-#X obj 65 510 vasp.update;
-#X obj 65 530 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 65 426 vasp bufrpeaks1 bufrpeaks2;
-#X obj 65 446 vasp.c!fft;
-#X obj 337 507 dac~;
-#X obj 337 469 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 358 472 play;
-#X obj 337 487 tabplay~ bufrpeaks1;
-#X msg 500 485 vasp bufrpeaks1 bufrpeaks2;
-#N canvas 92 108 442 392 inside 0;
-#X obj 66 169 soundfiler;
-#X obj 135 260 s \$0-sample-length;
-#X obj 66 223 s \$0-draw_display;
-#X msg 247 217 resize \$1;
-#X obj 66 47 loadbang;
-#X obj 66 113 filelisthandler \$0;
-#X obj 247 239 s bufrpeaks1;
-#X obj 258 260 s bufrpeaks2;
-#X msg 247 183 88200;
-#X obj 66 68 t b b;
-#X msg 66 145 read \$1 bufrpeaks1;
-#X obj 66 193 t b;
-#X msg 66 91 2;
-#X connect 0 0 11 0;
-#X connect 3 0 6 0;
-#X connect 3 0 7 0;
-#X connect 4 0 9 0;
-#X connect 5 0 10 0;
-#X connect 8 0 1 0;
-#X connect 8 0 3 0;
-#X connect 9 0 12 0;
-#X connect 9 1 8 0;
-#X connect 10 0 0 0;
-#X connect 11 0 2 0;
-#X connect 12 0 5 0;
-#X restore 689 505 pd inside;
-#X text 71 65 argument/right inlet: density (0-1);
-#X text 72 97 needs two vectors (real and imaginary);
-#X obj 65 467 vasp.opt;
-#X obj 65 489 vasp.* 0.5;
-#X text 71 49 find radius peaks of a complex vasp;
-#X text 71 81 right outlet: current peaks density;
-#X obj 65 374 vasp.update;
-#X obj 65 394 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 65 308 vasp bufrpeaks1 bufrpeaks2;
-#X floatatom 156 331 5 0 0;
-#X floatatom 156 398 12 0 0;
-#X obj 65 354 vasp.rpeaks 0.05;
-#X text 206 329 density;
-#X obj 156 376 * 88200;
-#X text 242 396 current peaks;
-#X obj 46 559 VASP-HELP;
-#X connect 3 0 4 0;
-#X connect 7 0 8 0;
-#X connect 8 0 3 0;
-#X connect 9 0 10 0;
-#X connect 11 0 12 0;
-#X connect 12 0 21 0;
-#X connect 14 0 16 0;
-#X connect 16 0 13 0;
-#X connect 16 0 13 1;
-#X connect 17 0 2 0;
-#X connect 21 0 22 0;
-#X connect 22 0 9 0;
-#X connect 25 0 26 0;
-#X connect 27 0 30 0;
-#X connect 28 0 30 1;
-#X connect 30 0 25 0;
-#X connect 30 1 32 0;
-#X connect 32 0 29 0;
diff --git a/externals/grill/vasp/pd-help/vasp_rpow.pd b/externals/grill/vasp/pd-help/vasp_rpow.pd deleted file mode 100644 index cbfb4bc6..00000000 --- a/externals/grill/vasp/pd-help/vasp_rpow.pd +++ /dev/null @@ -1,83 +0,0 @@ -#N canvas 28 51 932 647 10;
-#N canvas 92 108 417 419 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 67 53 loadbang;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 79 1;
-#X msg 67 133 read -resize \$1 bufrpow1;
-#X obj 214 228 s bufrpow1;
-#X obj 224 252 s bufrpow2;
-#X connect 0 0 5 0;
-#X connect 3 0 9 0;
-#X connect 3 0 10 0;
-#X connect 4 0 7 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 0 0;
-#X restore 685 477 pd inside;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.rpow 0 10 1 14 -262144 -1
-0;
-#X obj 77 139 filelist \$0;
-#X obj 59 508 vasp.update;
-#X obj 59 528 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 59 487 vasp.c!fft;
-#X obj 59 264 vasp.cfft;
-#X obj 59 284 vasp.update;
-#X obj 59 304 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 352 474 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 486 474 pd clear_buffers;
-#X obj 352 431 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 374 428 play;
-#X text 486 429 clear;
-#X text 73 60 radius ^ x;
-#X text 73 75 power function for the radius values of a complex vasp
-;
-#X text 73 92 argument/right inlet: exponent;
-#X text 73 107 needs two vectors;
-#X msg 59 244 vasp bufrpow1 bufrpow2;
-#X msg 59 467 vasp bufrpow1 bufrpow2;
-#X obj 364 130 wavedisplay-simple bufrpow1 \$0;
-#X obj 365 276 wavedisplay-simple bufrpow2 \$0;
-#X obj 352 451 tabplay~ bufrpow1;
-#X msg 486 451 vasp bufrpow1 bufrpow2;
-#X obj 59 413 vasp.update;
-#X obj 59 433 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 59 339 vasp bufrpow1 bufrpow2;
-#X obj 59 393 vasp.rpow 2;
-#X floatatom 120 366 5 0 0 0 - - -;
-#X text 170 363 exponent;
-#X obj 51 591 VASP-HELP;
-#X connect 3 0 4 0;
-#X connect 5 0 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 11 0 22 0;
-#X connect 18 0 6 0;
-#X connect 19 0 5 0;
-#X connect 22 0 9 0;
-#X connect 22 0 9 1;
-#X connect 23 0 10 0;
-#X connect 24 0 25 0;
-#X connect 26 0 27 0;
-#X connect 27 0 24 0;
-#X connect 28 0 27 1;
diff --git a/externals/grill/vasp/pd-help/vasp_rsize.pd b/externals/grill/vasp/pd-help/vasp_rsize.pd deleted file mode 100644 index ad7d8da3..00000000 --- a/externals/grill/vasp/pd-help/vasp_rsize.pd +++ /dev/null @@ -1,37 +0,0 @@ -#N canvas 85 111 909 544 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.size/ 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 410 286 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50
-\; \$1 yticks 0 0.25 2;
-#X msg 33 45 symbol bufrsize;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 714 408 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufrsize 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 453 152 graph;
-#X obj 175 416 vasp.frames;
-#X text 62 415 related objects:;
-#X floatatom 120 319 5 0 0;
-#X obj 256 416 vasp.size;
-#X obj 256 374 vasp.s/;
-#X msg 62 152 vasp bufrsize;
-#X msg 177 152 vasp bufrsize;
-#X obj 62 217 vasp.size* 2;
-#X obj 177 217 vasp.size/ 2;
-#X obj 193 31 cnv 15 15 15 empty empty vasp.size* 0 10 1 14 -262144
--1 0;
-#X text 57 69 divide and multiplicate the size of a buffer/array;
-#X text 59 371 abbreviations:;
-#X obj 175 375 vasp.s*;
-#X obj 120 289 vasp.size?;
-#X obj 331 416 vasp.size?;
-#X obj 62 463 VASP-HELP;
-#X connect 8 0 10 0;
-#X connect 9 0 11 0;
-#X connect 10 0 16 0;
-#X connect 11 0 16 0;
-#X connect 16 0 5 0;
diff --git a/externals/grill/vasp/pd-help/vasp_rvalleys.pd b/externals/grill/vasp/pd-help/vasp_rvalleys.pd deleted file mode 100644 index 20170c20..00000000 --- a/externals/grill/vasp/pd-help/vasp_rvalleys.pd +++ /dev/null @@ -1,91 +0,0 @@ -#N canvas 36 36 837 642 10;
-#X obj 72 26 cnv 15 15 15 empty empty vasp.rval 0 10 1 14 -262144 -1
-0;
-#X obj 76 131 filelist \$0;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 500 505 pd clear_buffers;
-#X obj 65 263 vasp.update;
-#X obj 65 283 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 411 132 wavedisplay-simple bufrval1 \$0;
-#X obj 412 289 wavedisplay-simple bufrval2 \$0;
-#X msg 65 223 vasp bufrval1 bufrval2;
-#X obj 65 243 vasp.cfft;
-#X obj 65 510 vasp.update;
-#X obj 65 530 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 65 426 vasp bufrval1 bufrval2;
-#X obj 65 446 vasp.c!fft;
-#X obj 337 507 dac~;
-#X obj 337 469 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 358 472 play;
-#X obj 337 487 tabplay~ bufrval1;
-#X msg 500 485 vasp bufrval1 bufrval2;
-#N canvas 92 108 440 390 inside 0;
-#X obj 66 169 soundfiler;
-#X obj 135 260 s \$0-sample-length;
-#X obj 66 223 s \$0-draw_display;
-#X msg 247 217 resize \$1;
-#X obj 66 47 loadbang;
-#X obj 66 113 filelisthandler \$0;
-#X obj 247 239 s bufrval1;
-#X obj 258 260 s bufrval2;
-#X msg 247 183 88200;
-#X obj 66 68 t b b;
-#X msg 66 145 read \$1 bufrval1;
-#X msg 66 91 3;
-#X obj 66 193 t b;
-#X connect 0 0 12 0;
-#X connect 3 0 6 0;
-#X connect 3 0 7 0;
-#X connect 4 0 9 0;
-#X connect 5 0 10 0;
-#X connect 8 0 1 0;
-#X connect 8 0 3 0;
-#X connect 9 0 11 0;
-#X connect 9 1 8 0;
-#X connect 10 0 0 0;
-#X connect 11 0 5 0;
-#X connect 12 0 2 0;
-#X restore 689 505 pd inside;
-#X text 71 49 find radius valleys of a complex vasp;
-#X text 71 65 argument/right inlet: density (0-1);
-#X text 72 97 needs two vectors (real and imaginary);
-#X obj 65 467 vasp.opt;
-#X obj 65 489 vasp.* 0.5;
-#X text 71 81 right outlet: the current density;
-#X obj 65 382 vasp.update;
-#X obj 65 402 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 65 308 vasp bufrval1 bufrval2;
-#X floatatom 168 342 5 0 0;
-#X floatatom 168 383 12 0 0;
-#X text 257 382 current density;
-#X obj 65 362 vasp.rvalleys 0.05;
-#X obj 54 595 VASP-HELP;
-#X connect 3 0 4 0;
-#X connect 7 0 8 0;
-#X connect 8 0 3 0;
-#X connect 9 0 10 0;
-#X connect 11 0 12 0;
-#X connect 12 0 22 0;
-#X connect 14 0 16 0;
-#X connect 16 0 13 0;
-#X connect 16 0 13 1;
-#X connect 17 0 2 0;
-#X connect 22 0 23 0;
-#X connect 23 0 9 0;
-#X connect 25 0 26 0;
-#X connect 27 0 31 0;
-#X connect 28 0 31 1;
-#X connect 31 0 25 0;
-#X connect 31 1 29 0;
diff --git a/externals/grill/vasp/pd-help/vasp_set.pd b/externals/grill/vasp/pd-help/vasp_set.pd deleted file mode 100644 index cda19360..00000000 --- a/externals/grill/vasp/pd-help/vasp_set.pd +++ /dev/null @@ -1,93 +0,0 @@ -#N canvas 21 60 891 586 10;
-#X obj 61 33 cnv 15 15 15 empty empty vasp.= 0 10 1 14 -262144 -1 0
-;
-#X text 56 66 set a vasp to a value;
-#X text 55 81 optional argument/right inlet: value/vasp;
-#X msg 56 166 vasp bufset;
-#X obj 56 188 vasp.noise;
-#X obj 56 211 vasp.* 0.5;
-#X text 142 164 generate noise;
-#X obj 56 232 vasp.update;
-#X obj 56 254 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 56 385 vasp.= 0;
-#X obj 112 342 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X obj 56 406 vasp.update;
-#X obj 56 426 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X text 446 103 select a region by drawing inside the wavedisplay:
-mouse+spacebar (select) or mouse+"s" (shift).;
-#N canvas 109 162 310 376 tovaspdata 0;
-#X obj 107 305 outlet;
-#X obj 107 92 unpack;
-#X obj 107 232 runden;
-#X obj 107 210 - 0;
-#X text 191 251 offset;
-#X obj 107 156 t b f;
-#X obj 107 185 0;
-#X text 111 250 length;
-#X obj 188 233 runden;
-#X obj 107 274 pack;
-#X obj 107 72 change2;
-#X obj 107 115 t f f;
-#X obj 107 47 inlet;
-#X connect 1 0 11 0;
-#X connect 1 1 6 1;
-#X connect 2 0 9 0;
-#X connect 3 0 2 0;
-#X connect 5 0 6 0;
-#X connect 5 1 3 1;
-#X connect 6 0 3 0;
-#X connect 8 0 9 1;
-#X connect 9 0 0 0;
-#X connect 10 0 1 0;
-#X connect 11 0 5 0;
-#X connect 11 1 8 0;
-#X connect 12 0 10 0;
-#X restore 447 302 pd tovaspdata;
-#X msg 447 330 set vasp \$1 bufset \$2;
-#X obj 447 145 wavedisplay-select bufset \$0;
-#X msg 56 315 vasp bufset;
-#X text 134 314 set all samples to zero;
-#X text 136 339 set selected samples to zero;
-#N canvas 0 0 261 214 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 559 465 pd clear_buffer;
-#X msg 559 439 vasp bufset;
-#X text 177 472 <-- click to open more examples;
-#X text 57 138 use vasp.= to clear a buffer;
-#X obj 53 473 vaspset_examples;
-#X obj 51 533 VASP-HELP;
-#N canvas 280 291 370 218 inside 0;
-#X obj 138 155 s \$0-sample-length;
-#X msg 163 110 resize \$1;
-#X obj 138 43 loadbang;
-#X msg 138 64 88200;
-#X obj 163 132 s bufset;
-#X obj 138 89 t f f;
-#X connect 1 0 4 0;
-#X connect 2 0 3 0;
-#X connect 3 0 5 0;
-#X connect 5 0 0 0;
-#X connect 5 1 1 0;
-#X restore 709 420 pd inside;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 5 0 7 0;
-#X connect 7 0 8 0;
-#X connect 9 0 11 0;
-#X connect 10 0 9 0;
-#X connect 11 0 12 0;
-#X connect 14 0 15 0;
-#X connect 15 0 9 0;
-#X connect 16 0 14 0;
-#X connect 17 0 9 0;
-#X connect 21 0 20 0;
diff --git a/externals/grill/vasp/pd-help/vasp_sframes.pd b/externals/grill/vasp/pd-help/vasp_sframes.pd deleted file mode 100644 index 6e7ee2d1..00000000 --- a/externals/grill/vasp/pd-help/vasp_sframes.pd +++ /dev/null @@ -1,191 +0,0 @@ -#N canvas 39 37 931 626 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.frames= 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsfram1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 544 107 graph;
-#N canvas 0 0 392 216 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufsfram1;
-#X msg 140 45 symbol bufsfram2;
-#X connect 0 0 2 0;
-#X connect 0 0 3 0;
-#X connect 2 0 1 0;
-#X connect 3 0 1 0;
-#X restore 798 533 pd init;
-#X obj 57 402 vasp.update;
-#X text 113 443 abbreviation;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsfram2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 545 227 graph;
-#X text 56 87 argument/right inlet: value in samples;
-#X obj 57 442 vasp.f+;
-#X obj 55 559 VASP-HELP;
-#X obj 57 378 vasp.noise;
-#X obj 58 200 vasp.update;
-#X msg 58 153 vasp bufsfram1;
-#X msg 57 261 vasp bufsfram1;
-#X obj 57 284 vasp.frames= 0.7;
-#X obj 58 176 vasp.= env -1 0 1 44100 -1 88200;
-#X floatatom 148 305 12 0 0 0 - - -;
-#X text 57 104 right outlet: frames relatively to the starting point
-of the search;
-#X text 147 319 since the search runs from the end to the left \, this
-value is negative;
-#X obj 57 356 vasp.-> bufsfram2;
-#X obj 57 502 vasp.o=;
-#X obj 190 148 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X text 222 148 1 generate a ramp;
-#X obj 190 260 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X text 218 274 the value 0.7 appears in the ramp;
-#X obj 540 400 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198
-0;
-#X msg 562 499 vasp bufsfram2;
-#N canvas 249 259 328 183 clear 0;
-#X obj 74 54 inlet;
-#X obj 74 77 vasp.= 0;
-#X obj 74 100 vasp.u;
-#X obj 168 53 r \$0-clear;
-#X msg 168 76 vasp bufsfram2;
-#X obj 168 99 vasp.= 0;
-#X connect 0 0 1 0;
-#X connect 1 0 2 0;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X restore 562 525 pd clear;
-#X text 537 376 3 more features!;
-#X text 56 56 search for a value (starting at the end) and set the
-length of the vasp according to it;
-#X text 55 482 related objects:;
-#X obj 139 502 vasp.f;
-#X obj 204 502 vasp.s;
-#N canvas 77 60 522 606 dir_and_slope 0;
-#X text 46 56 forward;
-#X text 48 154 backward;
-#X text 31 22 search direction;
-#X text 58 369 both;
-#X text 28 401 negative;
-#X text 58 337 positive;
-#X text 28 314 target slope;
-#X text 46 99 both (nearest);
-#X obj 185 228 vasp.noise;
-#X obj 185 249 vasp.u;
-#X msg 110 156 dir -1;
-#X msg 111 121 dir 0;
-#X msg 110 59 dir 1;
-#X obj 185 90 t a b;
-#X obj 210 111 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
--1 -1;
-#X text 228 111 (clear);
-#X floatatom 224 177 12 0 0 0 - - -;
-#X msg 126 336 slope 1;
-#X msg 110 367 slope 0;
-#X msg 97 399 slope -1;
-#X obj 239 355 t a b;
-#X obj 264 376 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
--1 -1;
-#X text 282 376 (clear);
-#X floatatom 283 426 12 0 0 0 - - -;
-#X text 29 290 find values with positive and/or negative slope;
-#X obj 185 197 vasp.-> bufsfram2;
-#X obj 239 481 vasp.noise;
-#X obj 239 502 vasp.u;
-#X obj 239 450 vasp.-> bufsfram2;
-#X obj 239 400 vasp.f= 0.2;
-#X obj 185 153 vasp.f= 0;
-#X msg 185 71 vasp 44101 bufsfram1;
-#X msg 239 336 vasp 0 bufsfram1;
-#X text 40 438 query;
-#X msg 109 436 getslope;
-#X obj 369 424 prepend set;
-#X msg 368 445;
-#X obj 317 175 prepend set;
-#X msg 316 196;
-#X text 50 191 query;
-#X msg 109 191 getdir;
-#X connect 8 0 9 0;
-#X connect 10 0 30 0;
-#X connect 11 0 30 0;
-#X connect 12 0 30 0;
-#X connect 13 0 30 0;
-#X connect 13 1 14 0;
-#X connect 17 0 29 0;
-#X connect 18 0 29 0;
-#X connect 19 0 29 0;
-#X connect 20 0 29 0;
-#X connect 20 1 21 0;
-#X connect 25 1 8 0;
-#X connect 26 0 27 0;
-#X connect 28 1 26 0;
-#X connect 29 0 28 0;
-#X connect 29 1 23 0;
-#X connect 29 2 35 0;
-#X connect 30 0 25 0;
-#X connect 30 1 16 0;
-#X connect 30 2 37 0;
-#X connect 31 0 13 0;
-#X connect 32 0 20 0;
-#X connect 34 0 29 0;
-#X connect 35 0 36 0;
-#X connect 37 0 38 0;
-#X connect 40 0 30 0;
-#X restore 588 403 pd dir_and_slope;
-#X text 218 259 2 generate noise up to the position where;
-#N canvas 80 75 458 321 incl 0;
-#X obj 168 260 vasp.noise;
-#X obj 168 281 vasp.u;
-#X obj 168 214 vasp.o?;
-#X obj 170 135 t a b;
-#X obj 195 161 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
--1 -1;
-#X text 213 161 (clear);
-#X floatatom 261 211 5 0 0 0 - - -;
-#X text 24 17 include current sample;
-#X obj 170 109 vasp.u;
-#X msg 68 93 incl 0;
-#X msg 68 143 incl 1;
-#X text 21 73 don't include (default);
-#X text 20 126 do include;
-#X text 21 188 query;
-#X msg 68 189 getincl;
-#X obj 300 210 prepend set;
-#X msg 170 61 vasp bufsfram1;
-#X msg 168 239 vasp bufsfram2 \$1;
-#X obj 170 86 vasp.= env 0.5 40000 -0.5 60000;
-#X msg 301 231;
-#X obj 170 185 vasp.frames= -0.5;
-#X connect 0 0 1 0;
-#X connect 2 0 17 0;
-#X connect 3 0 20 0;
-#X connect 3 1 4 0;
-#X connect 8 0 3 0;
-#X connect 9 0 20 0;
-#X connect 10 0 20 0;
-#X connect 14 0 20 0;
-#X connect 15 0 19 0;
-#X connect 16 0 18 0;
-#X connect 17 0 0 0;
-#X connect 18 0 8 0;
-#X connect 20 0 2 0;
-#X connect 20 1 6 0;
-#X connect 20 2 15 0;
-#X restore 588 428 pd incl;
-#X obj 540 430 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198
-0;
-#X connect 9 0 3 0;
-#X connect 11 0 14 0;
-#X connect 12 0 13 0;
-#X connect 13 0 18 0;
-#X connect 13 1 15 0;
-#X connect 14 0 10 0;
-#X connect 18 1 9 0;
-#X connect 20 0 11 0;
-#X connect 22 0 12 0;
-#X connect 25 0 26 0;
diff --git a/externals/grill/vasp/pd-help/vasp_shift.pd b/externals/grill/vasp/pd-help/vasp_shift.pd deleted file mode 100644 index 46b2e408..00000000 --- a/externals/grill/vasp/pd-help/vasp_shift.pd +++ /dev/null @@ -1,57 +0,0 @@ -#N canvas 24 75 875 494 10;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.shift 0 10 1 14 -262144
--1 0;
-#X text 520 322 clear;
-#N canvas 0 0 413 295 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 520 367 pd clear_buffer;
-#X text 71 60 shifts buffer content to a sample index;
-#X text 72 73 optional argument/right inlet: value;
-#X msg 520 344 vasp bufshift;
-#X obj 70 354 vasp.update;
-#X msg 70 228 vasp bufshift;
-#X floatatom 143 259 0 0 0 0 - - -;
-#X obj 59 430 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufshift 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 436 125 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufshift;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 673 368 pd init;
-#X obj 70 327 vasp.shift 10;
-#X obj 70 178 vasp.u;
-#X msg 70 133 vasp bufshift;
-#X text 187 132 1 draw envelope;
-#X text 184 230 2 shift content;
-#X obj 262 397 vasp.xrot;
-#X text 57 396 related objects:;
-#X obj 182 397 vasp.xshift;
-#X msg 199 260 fill 0;
-#X msg 199 280 fill 1;
-#X msg 199 300 fill 2;
-#X text 245 260 no filling;
-#X text 244 300 fill with edge-value;
-#X text 245 280 zero filling (default);
-#X obj 70 156 vasp.= env 0.5 0 1 20 -1 100;
-#X connect 5 0 2 0;
-#X connect 7 0 12 0;
-#X connect 8 0 12 1;
-#X connect 12 0 6 0;
-#X connect 14 0 26 0;
-#X connect 20 0 12 0;
-#X connect 21 0 12 0;
-#X connect 22 0 12 0;
-#X connect 26 0 13 0;
diff --git a/externals/grill/vasp/pd-help/vasp_sign.pd b/externals/grill/vasp/pd-help/vasp_sign.pd deleted file mode 100644 index 83062d7e..00000000 --- a/externals/grill/vasp/pd-help/vasp_sign.pd +++ /dev/null @@ -1,42 +0,0 @@ -#N canvas 95 158 858 400 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.sign 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsign 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 465 124 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufsign;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 737 285 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 521 284 pd clear_buffer;
-#X text 178 134 generate a sinewave;
-#X obj 77 178 vasp.u;
-#X text 70 77 samples == 0 stay 0;
-#X text 70 95 samples < 0 become -1;
-#X text 70 61 samples > 0 become 1;
-#X msg 77 135 vasp bufsign;
-#X obj 77 156 vasp.osc 44100;
-#X msg 521 263 vasp bufsign;
-#X obj 77 322 vasp.update;
-#X obj 77 291 vasp.sign;
-#X msg 77 260 vasp bufsign;
-#X text 79 237 use sign to generate a square wave out of a sine wave
-;
-#X obj 46 370 VASP-HELP;
-#X connect 9 0 10 0;
-#X connect 10 0 5 0;
-#X connect 11 0 3 0;
-#X connect 13 0 12 0;
-#X connect 14 0 13 0;
diff --git a/externals/grill/vasp/pd-help/vasp_size.pd b/externals/grill/vasp/pd-help/vasp_size.pd deleted file mode 100644 index 11fbf1c8..00000000 --- a/externals/grill/vasp/pd-help/vasp_size.pd +++ /dev/null @@ -1,43 +0,0 @@ -#N canvas 85 111 842 540 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp.size 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 406 282 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 45 symbol bufsize;
-#X msg 33 73 \; \$1 xticks 0 2 5 \; \$1 xlabel 1.1 0 10 20 30 40 50
-\; \$1 yticks 0 0.25 2;
-#X connect 0 0 1 0;
-#X connect 1 0 2 0;
-#X restore 714 408 pd init;
-#X text 119 392 abbreviation;
-#X obj 62 335 vasp.update;
-#X obj 90 258 prepend set;
-#X msg 62 196 vasp bufsize;
-#X obj 62 225 vasp.size 100;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsize 133 float 0;
-#X coords 0 1 132 -1 300 100 1;
-#X restore 453 153 graph;
-#X text 57 69 change the size of a buffer/array;
-#X obj 62 303 vasp.osc 16;
-#X obj 63 392 vasp.s;
-#X text 62 433 related objects:;
-#X obj 343 460 vasp.frames;
-#X obj 183 460 vasp.size?;
-#X obj 183 436 vasp.s+;
-#X obj 259 460 vasp.size*;
-#X obj 259 437 vasp.size/;
-#X obj 62 504 VASP-HELP;
-#X obj 62 157 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
-10 -24198 -1 -1 133 256;
-#X obj 62 175 t b f;
-#X msg 90 280;
-#X text 58 83 argument/right inlet: value in frames;
-#X connect 4 0 20 0;
-#X connect 5 0 6 0;
-#X connect 6 0 4 0;
-#X connect 6 0 9 0;
-#X connect 9 0 3 0;
-#X connect 18 0 19 0;
-#X connect 19 0 5 0;
-#X connect 19 1 6 1;
diff --git a/externals/grill/vasp/pd-help/vasp_soffset.pd b/externals/grill/vasp/pd-help/vasp_soffset.pd deleted file mode 100644 index 6b77de7c..00000000 --- a/externals/grill/vasp/pd-help/vasp_soffset.pd +++ /dev/null @@ -1,211 +0,0 @@ -#N canvas 23 9 968 641 10;
-#X text 54 77 argument/right inlet: value;
-#X obj 58 27 cnv 15 15 15 empty empty vasp.offset= 0 10 1 14 -262144
--1 0;
-#X text 68 587 abbreviation;
-#X obj 75 272 prepend set;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsoffs1 1000 float 0;
-#X coords 0 1 999 -1 300 100 1;
-#X restore 551 88 graph;
-#N canvas 466 356 391 255 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 45 symbol bufsoffs1;
-#X msg 151 45 symbol bufsoffs2;
-#X msg 33 71 \; \$1 xticks 0 100 10 \; \$1 xlabel 1.1 0 200 300 500
-700 800 1000 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 1100 -1 -0.5 0 0.5
-1;
-#X connect 0 0 1 0;
-#X connect 0 0 2 0;
-#X connect 1 0 3 0;
-#X connect 2 0 3 0;
-#X restore 802 556 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsoffs2 1000 float 0;
-#X coords 0 1 999 -1 300 100 1;
-#X restore 551 207 graph;
-#X obj 64 177 vasp.u;
-#X msg 63 130 vasp bufsoffs1;
-#X msg 64 221 vasp bufsoffs1;
-#X msg 75 293 vasp 701 bufsoffs1 299 0;
-#X obj 64 367 vasp.noise;
-#X obj 64 388 vasp.u;
-#X obj 159 591 vasp.o=;
-#X obj 259 592 VASP-HELP;
-#X text 54 95 right outlet: relative offset position in frames;
-#X text 201 128 1 generate a ramp;
-#X text 199 220 2 generate noise \, and start at the point \,;
-#X obj 64 325 vasp.o?;
-#X msg 64 346 vasp bufsoffs2 \$1;
-#X text 54 59 search for a value set it as offset;
-#X floatatom 161 271 5 0 0 0 - - -;
-#X obj 170 130 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X obj 170 221 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#N canvas 0 0 261 214 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 633 556 pd clear_buffer;
-#X msg 633 535 vasp bufsoffs2;
-#X text 653 515 clear second buffer;
-#X obj 633 516 bng 15 250 50 0 empty \$0-clear empty 0 -6 576 8 -262144
--1 -1;
-#X obj 147 445 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X obj 64 151 vasp.= env -1 0 1 500 -1 1000;
-#X obj 102 496 t a b;
-#X obj 127 517 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
--1 -1;
-#X text 145 517 (clear);
-#X obj 612 391 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198
-0;
-#X text 214 232 where the ramp is at 0.2;
-#X obj 64 242 vasp.offset= 0.2;
-#X text 174 444 3 start searching at frame 501;
-#X msg 102 475 vasp bufsoffs1 501;
-#X text 133 419 the search always starts at the offset point;
-#N canvas 80 75 454 317 incl 0;
-#X obj 168 260 vasp.noise;
-#X obj 168 281 vasp.u;
-#X msg 168 239 vasp bufsoffs2 \$1;
-#X obj 168 214 vasp.o?;
-#X obj 170 135 t a b;
-#X obj 195 161 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
--1 -1;
-#X text 213 161 (clear);
-#X floatatom 261 211 5 0 0 0 - - -;
-#X text 24 17 include current sample;
-#X msg 170 61 vasp bufsoffs1;
-#X obj 170 185 vasp.offset= 0.5;
-#X obj 170 109 vasp.u;
-#X obj 170 86 vasp.= env 0.5 500 -0.5 700;
-#X msg 68 93 incl 0;
-#X msg 68 143 incl 1;
-#X text 21 73 don't include (default);
-#X text 20 126 do include;
-#X text 21 188 query;
-#X msg 68 189 getincl;
-#X obj 300 210 prepend set;
-#X msg 301 231;
-#X connect 0 0 1 0;
-#X connect 2 0 0 0;
-#X connect 3 0 2 0;
-#X connect 4 0 10 0;
-#X connect 4 1 5 0;
-#X connect 9 0 12 0;
-#X connect 10 0 3 0;
-#X connect 10 1 7 0;
-#X connect 10 2 19 0;
-#X connect 11 0 4 0;
-#X connect 12 0 11 0;
-#X connect 13 0 10 0;
-#X connect 14 0 10 0;
-#X connect 18 0 10 0;
-#X connect 19 0 20 0;
-#X restore 660 421 pd incl;
-#X obj 612 423 cnv 15 15 15 empty empty --> 0 10 0 14 -262144 -24198
-0;
-#N canvas 77 60 447 584 dir_and_slope 0;
-#X text 46 56 forward;
-#X text 48 154 backward;
-#X text 31 22 search direction;
-#X text 56 371 both;
-#X text 26 403 negative;
-#X text 56 339 positive;
-#X text 26 316 target slope;
-#X text 46 99 both (nearest);
-#X obj 183 210 vasp.noise;
-#X obj 183 231 vasp.u;
-#X msg 183 189 vasp bufsoffs2 \$1;
-#X msg 110 156 dir -1;
-#X msg 111 121 dir 0;
-#X msg 110 59 dir 1;
-#X obj 183 164 vasp.o?;
-#X obj 185 90 t a b;
-#X obj 210 111 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
--1 -1;
-#X text 228 111 (clear);
-#X obj 185 135 vasp.offset= 0.1;
-#X msg 185 71 vasp bufsoffs1 500;
-#X floatatom 276 161 5 0 0 0 - - -;
-#X msg 124 338 slope 1;
-#X msg 108 369 slope 0;
-#X msg 95 401 slope -1;
-#X obj 237 486 vasp.noise;
-#X obj 237 507 vasp.u;
-#X msg 237 465 vasp bufsoffs2 \$1;
-#X obj 237 440 vasp.o?;
-#X obj 237 357 t a b;
-#X obj 262 378 bng 15 250 50 0 \$0-clear empty empty 0 -6 1152 8 -262144
--1 -1;
-#X text 280 378 (clear);
-#X obj 237 402 vasp.offset= 0.1;
-#X floatatom 308 430 5 0 0 0 - - -;
-#X text 27 292 find values with positive and/or negative slope;
-#X msg 237 338 vasp bufsoffs1;
-#X text 47 197 query;
-#X msg 104 197 getdir;
-#X text 50 434 query;
-#X msg 109 437 getslope;
-#X obj 315 158 prepend set;
-#X msg 314 180;
-#X obj 315 158 prepend set;
-#X msg 314 180;
-#X obj 354 431 prepend set;
-#X msg 355 452;
-#X connect 8 0 9 0;
-#X connect 10 0 8 0;
-#X connect 11 0 18 0;
-#X connect 12 0 18 0;
-#X connect 13 0 18 0;
-#X connect 14 0 10 0;
-#X connect 15 0 18 0;
-#X connect 15 1 16 0;
-#X connect 18 0 14 0;
-#X connect 18 1 20 0;
-#X connect 18 2 39 0;
-#X connect 19 0 15 0;
-#X connect 21 0 31 0;
-#X connect 22 0 31 0;
-#X connect 23 0 31 0;
-#X connect 24 0 25 0;
-#X connect 26 0 24 0;
-#X connect 27 0 26 0;
-#X connect 28 0 31 0;
-#X connect 28 1 29 0;
-#X connect 31 0 27 0;
-#X connect 31 1 32 0;
-#X connect 31 2 43 0;
-#X connect 34 0 28 0;
-#X connect 36 0 18 0;
-#X connect 38 0 31 0;
-#X connect 39 0 40 0;
-#X connect 41 0 42 0;
-#X connect 43 0 44 0;
-#X restore 660 394 pd dir_and_slope;
-#X text 614 375 3 more features!;
-#X connect 3 0 10 0;
-#X connect 8 0 29 0;
-#X connect 9 0 35 0;
-#X connect 11 0 12 0;
-#X connect 18 0 19 0;
-#X connect 19 0 11 0;
-#X connect 22 0 8 0;
-#X connect 23 0 9 0;
-#X connect 25 0 24 0;
-#X connect 27 0 25 0;
-#X connect 28 0 37 0;
-#X connect 29 0 7 0;
-#X connect 30 0 35 0;
-#X connect 30 1 31 0;
-#X connect 35 0 18 0;
-#X connect 35 0 3 0;
-#X connect 35 1 21 0;
-#X connect 37 0 30 0;
diff --git a/externals/grill/vasp/pd-help/vasp_spit.pd b/externals/grill/vasp/pd-help/vasp_spit.pd deleted file mode 100644 index be3d60a1..00000000 --- a/externals/grill/vasp/pd-help/vasp_spit.pd +++ /dev/null @@ -1,46 +0,0 @@ -#N canvas 190 73 663 567 10;
-#X text 62 76 spit out vectors of a vasp (one vector after the other)
-;
-#X text 62 92 argument: number of outlets (if more than 1 \, outputs
-from right to left);
-#X obj 57 19 cnv 15 15 15 empty empty vasp.spit 0 10 1 14 -262144 -1
-0;
-#X text 211 304 spits out one vector after the other from right to
-left;
-#X obj 119 335 print b;
-#X obj 63 335 print a;
-#X obj 63 305 vasp.spit 3;
-#X msg 63 271 vasp bufspit1 bufspit2;
-#X obj 178 335 print c;
-#X obj 234 335 print ready;
-#X obj 118 220 print b;
-#X obj 63 220 print a;
-#X text 63 118 most right outlet: bang when ready;
-#X msg 63 160 vasp bufspit1 bufspit2 bufspit3;
-#X obj 63 188 vasp.spit;
-#X text 144 189 spits out one vector after the other out of 1 outlet
-;
-#X msg 237 271 vasp bufspit1 bufspit2 bufspit3;
-#X text 171 428 if more vectors than outlets \, see what it does!;
-#X obj 118 459 print b;
-#X obj 63 459 print a;
-#X msg 63 399 vasp bufspit1 bufspit2 bufspit3;
-#X obj 63 429 vasp.spit 2;
-#X obj 174 459 print ready;
-#X obj 50 519 VASP-HELP;
-#X obj 487 483 table bufspit1;
-#X obj 487 504 table bufspit2;
-#X obj 487 525 table bufspit3;
-#X connect 6 0 5 0;
-#X connect 6 1 4 0;
-#X connect 6 2 8 0;
-#X connect 6 3 9 0;
-#X connect 7 0 6 0;
-#X connect 13 0 14 0;
-#X connect 14 0 11 0;
-#X connect 14 1 10 0;
-#X connect 16 0 6 0;
-#X connect 20 0 21 0;
-#X connect 21 0 19 0;
-#X connect 21 1 18 0;
-#X connect 21 2 22 0;
diff --git a/externals/grill/vasp/pd-help/vasp_split.pd b/externals/grill/vasp/pd-help/vasp_split.pd deleted file mode 100644 index 44f3f70b..00000000 --- a/externals/grill/vasp/pd-help/vasp_split.pd +++ /dev/null @@ -1,27 +0,0 @@ -#N canvas 221 195 631 478 10;
-#X text 56 100 most right outlet: rest (if there is one) of vectors
-in a new vasp \, otherwise: bang;
-#X text 56 70 split a vasp into its vectors;
-#X text 56 85 argument: number of vectors to split;
-#X obj 57 38 cnv 15 15 15 empty empty vasp.split 0 10 1 14 -262144
--1 0;
-#X obj 130 215 prepend set;
-#X obj 63 310 prepend set;
-#X obj 63 278 vasp.join 2;
-#X msg 241 153 vasp bufsplit1 bufsplit2 bufsplit3;
-#X obj 63 187 vasp.split 2;
-#X msg 63 153 vasp bufsplit1 bufsplit2;
-#X obj 53 410 VASP-HELP;
-#X obj 340 367 table bufsplit1;
-#X obj 340 391 table bufsplit2;
-#X obj 340 413 table bufsplit3;
-#X msg 63 339;
-#X msg 130 239;
-#X connect 4 0 15 0;
-#X connect 5 0 14 0;
-#X connect 6 0 5 0;
-#X connect 7 0 8 0;
-#X connect 8 0 6 0;
-#X connect 8 1 6 1;
-#X connect 8 2 4 0;
-#X connect 9 0 8 0;
diff --git a/externals/grill/vasp/pd-help/vasp_sqr.pd b/externals/grill/vasp/pd-help/vasp_sqr.pd deleted file mode 100644 index 74f84aed..00000000 --- a/externals/grill/vasp/pd-help/vasp_sqr.pd +++ /dev/null @@ -1,38 +0,0 @@ -#N canvas 47 54 800 409 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.sqr 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 412 288 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufsqr;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 622 327 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 362 325 pd clear_buffer;
-#X obj 77 173 vasp.update;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsqr 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 363 170 graph;
-#X obj 77 150 vasp.osc 44100;
-#X text 71 63 sample ^ 2;
-#X msg 77 127 vasp bufsqr;
-#X text 184 124 generate a 1 Hz sinewave;
-#X msg 362 303 vasp bufsqr;
-#X obj 77 297 vasp.update;
-#X obj 77 271 vasp.sqr;
-#X msg 77 246 vasp bufsqr;
-#X obj 45 375 VASP-HELP;
-#X connect 5 0 3 0;
-#X connect 7 0 5 0;
-#X connect 9 0 2 0;
-#X connect 11 0 10 0;
-#X connect 12 0 11 0;
diff --git a/externals/grill/vasp/pd-help/vasp_sqrt.pd b/externals/grill/vasp/pd-help/vasp_sqrt.pd deleted file mode 100644 index 3f940f25..00000000 --- a/externals/grill/vasp/pd-help/vasp_sqrt.pd +++ /dev/null @@ -1,38 +0,0 @@ -#N canvas 47 54 800 409 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.sqrt 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 414 290 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufsqrt;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 622 327 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 362 325 pd clear_buffer;
-#X obj 77 173 vasp.update;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsqrt 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 363 170 graph;
-#X obj 77 150 vasp.osc 44100;
-#X text 184 124 generate a 1 Hz sinewave;
-#X text 71 63 vasp square root;
-#X msg 77 127 vasp bufsqrt;
-#X msg 362 303 vasp bufsqrt;
-#X obj 77 297 vasp.update;
-#X msg 77 246 vasp bufsqrt;
-#X obj 77 271 vasp.sqrt;
-#X obj 65 354 VASP-HELP;
-#X connect 5 0 3 0;
-#X connect 8 0 5 0;
-#X connect 9 0 2 0;
-#X connect 11 0 12 0;
-#X connect 12 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_ssqr.pd b/externals/grill/vasp/pd-help/vasp_ssqr.pd deleted file mode 100644 index 71630451..00000000 --- a/externals/grill/vasp/pd-help/vasp_ssqr.pd +++ /dev/null @@ -1,96 +0,0 @@ -#N canvas 47 54 816 469 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.ssqr 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 416 292 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufssqr;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 622 327 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 362 325 pd clear_buffer;
-#X obj 77 173 vasp.update;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufssqr 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 363 170 graph;
-#X obj 77 150 vasp.osc 44100;
-#X text 184 124 generate a 1 Hz sinewave;
-#X msg 77 127 vasp bufssqr;
-#X msg 362 303 vasp bufssqr;
-#X text 71 63 signed sample ^ 2;
-#N canvas 4 20 834 463 listen_to_ssqr 0;
-#X obj 71 32 cnv 15 15 15 empty empty listen_to_ssqr 0 10 1 14 -262144
--1 0;
-#X obj 391 309 dac~;
-#X obj 391 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 413 264 play;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 523 309 pd clear_buffer;
-#X obj 79 99 filelist \$0;
-#N canvas 92 108 394 359 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 66 50 loadbang;
-#X obj 66 178 t b f f;
-#X obj 66 98 filelisthandler \$0;
-#X msg 66 76 4;
-#X msg 66 130 read -resize \$1 bufssqr1;
-#X obj 214 228 s bufssqr1;
-#X connect 0 0 5 0;
-#X connect 3 0 9 0;
-#X connect 4 0 7 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 0 0;
-#X restore 682 310 pd inside;
-#X obj 373 112 wavedisplay-simple bufssqr1 \$0;
-#X obj 391 286 tabplay~ bufssqr1;
-#X msg 523 286 vasp bufssqr1;
-#X obj 73 283 vasp.update;
-#X obj 73 306 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 73 238 vasp.ssqr;
-#X obj 73 259 vasp.opt;
-#X msg 73 215 vasp bufssqr1;
-#X connect 2 0 8 0;
-#X connect 8 0 1 0;
-#X connect 8 0 1 1;
-#X connect 9 0 4 0;
-#X connect 10 0 11 0;
-#X connect 12 0 13 0;
-#X connect 13 0 10 0;
-#X connect 14 0 12 0;
-#X restore 75 352 pd listen_to_ssqr;
-#X text 199 352 <-- click to open;
-#X obj 77 297 vasp.update;
-#X msg 77 247 vasp bufssqr;
-#X obj 77 271 vasp.ssqr;
-#X obj 66 422 VASP-HELP;
-#X connect 5 0 3 0;
-#X connect 7 0 5 0;
-#X connect 8 0 2 0;
-#X connect 13 0 14 0;
-#X connect 14 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_ssqrt.pd b/externals/grill/vasp/pd-help/vasp_ssqrt.pd deleted file mode 100644 index c94cfd12..00000000 --- a/externals/grill/vasp/pd-help/vasp_ssqrt.pd +++ /dev/null @@ -1,96 +0,0 @@ -#N canvas 47 54 818 471 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.ssqrt 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 418 294 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufssqrt;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 622 327 pd init;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 362 325 pd clear_buffer;
-#X obj 77 173 vasp.update;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufssqrt 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 363 170 graph;
-#X obj 77 150 vasp.osc 44100;
-#X text 184 124 generate a 1 Hz sinewave;
-#X text 208 352 <-- click to open;
-#X text 71 63 signed square root;
-#X msg 77 127 vasp bufssqrt;
-#N canvas 4 20 840 469 listen_to_ssqrt 0;
-#X obj 71 32 cnv 15 15 15 empty empty listen_to_ssqrt 0 10 1 14 -262144
--1 0;
-#X obj 391 309 dac~;
-#X obj 391 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 413 264 play;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 523 309 pd clear_buffer;
-#X obj 79 99 filelist \$0;
-#N canvas 96 128 398 363 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 66 50 loadbang;
-#X obj 66 178 t b f f;
-#X obj 66 98 filelisthandler \$0;
-#X msg 66 76 4;
-#X msg 66 130 read -resize \$1 bufssqrt1;
-#X obj 214 228 s bufssqrt1;
-#X connect 0 0 5 0;
-#X connect 3 0 9 0;
-#X connect 4 0 7 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 0 0;
-#X restore 682 310 pd inside;
-#X obj 391 286 tabplay~ bufssqrt1;
-#X msg 523 286 vasp bufssqrt1;
-#X obj 361 111 wavedisplay-simple bufssqrt1 \$0;
-#X obj 73 283 vasp.update;
-#X obj 73 306 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 73 259 vasp.opt;
-#X msg 73 215 vasp bufssqrt1;
-#X obj 73 238 vasp.ssqrt;
-#X connect 2 0 7 0;
-#X connect 7 0 1 0;
-#X connect 7 0 1 1;
-#X connect 8 0 4 0;
-#X connect 10 0 11 0;
-#X connect 12 0 10 0;
-#X connect 13 0 14 0;
-#X connect 14 0 12 0;
-#X restore 75 352 pd listen_to_ssqrt;
-#X msg 362 303 vasp bufssqrt;
-#X obj 77 297 vasp.update;
-#X msg 77 246 vasp bufssqrt;
-#X obj 77 271 vasp.ssqrt;
-#X obj 73 413 VASP-HELP;
-#X connect 5 0 3 0;
-#X connect 9 0 5 0;
-#X connect 11 0 2 0;
-#X connect 13 0 14 0;
-#X connect 14 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_sub.pd b/externals/grill/vasp/pd-help/vasp_sub.pd deleted file mode 100644 index 2d074d31..00000000 --- a/externals/grill/vasp/pd-help/vasp_sub.pd +++ /dev/null @@ -1,54 +0,0 @@ -#N canvas 28 239 963 381 10;
-#N canvas 44 75 276 122 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 738 292 pd clear_buffer;
-#X text 376 62 optional argument/right inlet: right operand;
-#X text 376 45 subtracts a value or a vasp from a vasp;
-#X text 62 62 optional argument/right inlet: right operand;
-#X text 62 45 adds a value or a vasp to a vasp;
-#X obj 62 19 cnv 15 15 15 empty empty vasp.+ 0 10 1 14 -262144 -1 0
-;
-#X obj 378 20 cnv 15 15 15 empty empty vasp.- 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 450 300 graph167 0;
-#X array bufsub 88200 float 0;
-#X coords 0 1 88199 -1 300 120 1;
-#X restore 629 93 graph;
-#X text 139 190 shift all values + 0.5;
-#X text 141 167 half the amplitude;
-#X obj 65 212 vasp.update;
-#X obj 65 189 vasp.+ 0.5;
-#X obj 65 144 vasp.osc 44100;
-#X obj 65 166 vasp.* 0.5;
-#X text 169 145 generate a 1Hz sine wave;
-#X msg 65 112 vasp bufsub;
-#X msg 738 271 vasp bufsub;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufsub;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 881 291 pd init;
-#X text 455 189 shift all values - 0.5;
-#X obj 380 212 vasp.update;
-#X obj 380 189 vasp.- 0.5;
-#X obj 380 144 vasp.osc 44100;
-#X obj 380 166 vasp.* 0.5;
-#X msg 380 112 vasp bufsub;
-#X obj 61 313 VASP-HELP;
-#X connect 11 0 10 0;
-#X connect 12 0 13 0;
-#X connect 13 0 11 0;
-#X connect 15 0 12 0;
-#X connect 16 0 0 0;
-#X connect 20 0 19 0;
-#X connect 21 0 22 0;
-#X connect 22 0 20 0;
-#X connect 23 0 21 0;
diff --git a/externals/grill/vasp/pd-help/vasp_subr.pd b/externals/grill/vasp/pd-help/vasp_subr.pd deleted file mode 100644 index 42a6c5c1..00000000 --- a/externals/grill/vasp/pd-help/vasp_subr.pd +++ /dev/null @@ -1,48 +0,0 @@ -#N canvas 193 184 770 390 10;
-#N canvas 40 55 247 122 clear_buffer 0;
-#X obj 45 79 vasp.update;
-#X obj 45 56 vasp.= 0;
-#X obj 45 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 514 282 pd clear_buffer;
-#X text 49 91 optional argument/right inlet: right operand;
-#X text 49 76 subtracts a value or a vasp from a vasp;
-#X text 49 60 reverse subtraction;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufsubr 88200 float 0;
-#X coords 0 1 88199 -1 300 120 1;
-#X restore 370 102 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufsubr;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 647 283 pd init;
-#X msg 514 262 vasp bufsubr;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.!- 0 10 1 14 -262144 -1
-0;
-#X obj 52 236 vasp.update;
-#X msg 52 136 vasp bufsubr;
-#X obj 50 321 VASP-HELP;
-#X obj 52 168 vasp.osc 4410;
-#X obj 182 135 nbx 5 14 -50 50 0 1 empty empty empty 0 -6 0 10 -24198
--1 -1 0 256;
-#X obj 182 154 * 0.01;
-#X obj 182 193 t b f;
-#X obj 52 213 vasp.!-;
-#X floatatom 182 175 5 0 0;
-#X obj 52 191 vasp.* 0.5;
-#X connect 6 0 0 0;
-#X connect 9 0 11 0;
-#X connect 11 0 17 0;
-#X connect 12 0 13 0;
-#X connect 13 0 16 0;
-#X connect 14 0 9 0;
-#X connect 14 1 15 1;
-#X connect 15 0 8 0;
-#X connect 16 0 14 0;
-#X connect 17 0 15 0;
diff --git a/externals/grill/vasp/pd-help/vasp_sync.pd b/externals/grill/vasp/pd-help/vasp_sync.pd deleted file mode 100644 index 1da5d849..00000000 --- a/externals/grill/vasp/pd-help/vasp_sync.pd +++ /dev/null @@ -1,81 +0,0 @@ -#N canvas 95 103 854 570 10;
-#N canvas 92 108 403 405 inside 0;
-#X obj 87 206 soundfiler;
-#X obj 105 290 s \$0-sample-length;
-#X obj 87 260 s \$0-draw_display;
-#X msg 235 258 resize \$1;
-#X obj 235 211 loadbang;
-#X obj 235 280 s bufsync1;
-#X obj 245 304 s bufsync2;
-#X msg 235 232 88200;
-#X msg 87 184 read -resize \$1 bufsync1;
-#X obj 87 230 t b f f;
-#X obj 87 112 loadbang;
-#X obj 87 160 filelisthandler \$0;
-#X msg 87 138 3;
-#X connect 0 0 9 0;
-#X connect 3 0 5 0;
-#X connect 3 0 6 0;
-#X connect 4 0 7 0;
-#X connect 7 0 3 0;
-#X connect 7 0 1 0;
-#X connect 8 0 0 0;
-#X connect 9 0 2 0;
-#X connect 9 1 1 0;
-#X connect 9 2 3 0;
-#X connect 10 0 12 0;
-#X connect 11 0 8 0;
-#X connect 12 0 11 0;
-#X restore 711 485 pd inside;
-#X obj 463 297 wavedisplay-simple bufsync2 \$0;
-#X obj 463 155 wavedisplay-simple bufsync1 \$0;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.sync 0 10 1 14 -262144 -1
-0;
-#X text 53 64 syncs two or more vasps;
-#X msg 61 253 vasp bufsync1 bufsync2;
-#X obj 61 284 vasp.cfft;
-#X obj 122 335 vasp.= 0;
-#X obj 334 440 tabplay~ bufsync1;
-#X obj 353 460 tabplay~ bufsync2;
-#X obj 334 484 dac~;
-#X obj 61 409 vasp.update;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 149 483 pd clear_buffers;
-#X obj 61 431 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 122 313 vasp.upper;
-#X obj 61 388 vasp.c!fft;
-#X msg 149 457 vasp bufsync1 bufsync2;
-#X text 709 137 bufsync1;
-#X text 713 281 bufsync2;
-#X obj 61 366 vasp.sync 2;
-#X text 54 79 vasp.sync waits until all inlets have received a vasp
-and then outputs them and resets its status;
-#X text 143 365 outputs vasps after every inlet received one;
-#X obj 60 156 filelist \$0;
-#X obj 334 416 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 356 413 play;
-#X text 55 111 argument: number of vasps to be synced (default 2);
-#X obj 48 525 VASP-HELP;
-#X connect 5 0 6 0;
-#X connect 6 0 14 0;
-#X connect 6 0 19 0;
-#X connect 7 0 19 1;
-#X connect 8 0 10 0;
-#X connect 9 0 10 1;
-#X connect 11 0 13 0;
-#X connect 14 0 7 0;
-#X connect 15 0 11 0;
-#X connect 16 0 12 0;
-#X connect 19 0 15 0;
-#X connect 23 0 9 0;
-#X connect 23 0 8 0;
diff --git a/externals/grill/vasp/pd-help/vasp_tilt.pd b/externals/grill/vasp/pd-help/vasp_tilt.pd deleted file mode 100644 index eb80e3b3..00000000 --- a/externals/grill/vasp/pd-help/vasp_tilt.pd +++ /dev/null @@ -1,100 +0,0 @@ -#N canvas 21 60 945 604 10;
-#X obj 55 36 cnv 15 15 15 empty empty vasp.tilt 0 10 1 14 -262144 -1
-0;
-#N canvas 0 0 261 214 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 672 527 pd clear_buffer;
-#X obj 51 533 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array buftilt1 100 float 1;
-#A 0 0.32 0.32 0.74 0.2 -0.0400002 -0.24 -0.48 -0.0400002 0.2 0.36
-0.0199998 -0.1 -0.18 -0.24 -0.2 -0.0800002 -0.0600002 0.14 -0.0400002
--0.2 0.0399998 0.0399998 0.0399998 0.0599998 0.0799999 0.0899999 0.0999999
-0.14 0.18 0.24 0.28 0.32 0.38 0.42 0.48 0.5 0.5 0.44 0.36 0.2 0.0599998
--0.0600002 -0.2 -0.34 -0.44 -0.44 -0.46 -0.4 -0.34 -0.24 -0.12 -0.1
--0.2 -0.28 -0.36 -0.44 -0.48 -0.48 -0.48 -0.48 -0.46 -0.44 -0.52 -0.52
--0.48 -0.4 0.46 0.46 0.46 0.46 0.46 0.44 0.34 0.2 0.0999999 -1.3411e-007
--0.0800002 -0.12 -0.13 -0.14 -0.16 -0.14 -0.0600002 0.56 0.58 0.6 0.6
-0.52 0.44 0.36 0.26 -0.72 0.22 0.68 0.74 0.76 0.66 0.66 0.76 0.82;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 561 61 graph;
-#N canvas 0 0 433 215 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol buftilt1 \, symbol buftilt2;
-#X obj 295 27 loadbang;
-#X obj 295 71 s \$0-ratio;
-#X msg 295 49 1.5;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X connect 3 0 5 0;
-#X connect 5 0 4 0;
-#X restore 811 524 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array buftilt2 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 564 202 graph;
-#X text 501 55 SOURCE;
-#X obj 394 358 pack;
-#X obj 394 332 t b f;
-#X text 331 285 ratio;
-#X text 197 422 needs one or two args;
-#X text 198 439 ratio \, center;
-#X text 231 284 edge;
-#X text 243 168 none;
-#X text 244 195 linear;
-#X text 231 261 zero (default);
-#X text 243 220 4 point (default);
-#X text 243 141 in place (dirty);
-#X obj 127 447 vasp.u;
-#X obj 127 421 vasp.tilt;
-#X obj 394 309 nbx 5 14 -1000 1000 0 1 empty empty empty 0 -6 0 10
--24198 -1 -1 54 256;
-#X obj 331 309 nbx 5 14 -3 3 0 0 empty \$0-ratio empty 0 -6 576 10
--24198 -1 -1 1.5 256;
-#X text 394 285 center sample;
-#X msg 181 262 fill 0;
-#X msg 181 288 fill 1;
-#X msg 183 142 inter 0;
-#X msg 183 168 inter 1;
-#X msg 183 194 inter 2;
-#X msg 183 220 inter 3;
-#X obj 36 160 bng 15 250 50 0 empty \$0-trigger empty 0 -6 576 8 -262144
--1 -1;
-#X obj 394 399 bng 15 250 50 0 \$0-trigger empty empty 0 -6 1152 8
--262144 -1 -1;
-#X msg 36 179 vasp buftilt1;
-#X obj 36 205 vasp.-> buftilt2;
-#X msg 672 501 vasp buftilt2;
-#X text 55 86 optional argument/right inlet: list of ratio and center
-sample;
-#X obj 160 493 vasp.xtilt;
-#X text 56 492 related object:;
-#X text 55 63 resample buffer data around a center sample;
-#X obj 394 379 t b l;
-#X connect 7 0 38 0;
-#X connect 8 0 7 0;
-#X connect 8 1 7 1;
-#X connect 19 0 18 0;
-#X connect 20 0 8 0;
-#X connect 21 0 7 0;
-#X connect 23 0 19 0;
-#X connect 24 0 19 0;
-#X connect 25 0 19 0;
-#X connect 26 0 19 0;
-#X connect 27 0 19 0;
-#X connect 28 0 19 0;
-#X connect 29 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 1 19 0;
-#X connect 33 0 1 0;
-#X connect 38 0 30 0;
-#X connect 38 1 19 1;
diff --git a/externals/grill/vasp/pd-help/vasp_update.pd b/externals/grill/vasp/pd-help/vasp_update.pd deleted file mode 100644 index ce47a313..00000000 --- a/externals/grill/vasp/pd-help/vasp_update.pd +++ /dev/null @@ -1,36 +0,0 @@ -#N canvas 213 175 703 499 10;
-#X msg 62 292 vasp bufup;
-#X obj 62 313 vasp.= 0;
-#X text 145 226 update the graphics;
-#X text 136 125 generate a sine wave;
-#X obj 62 185 vasp.osc 22050;
-#X obj 58 41 cnv 15 15 15 empty empty vasp.update 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufup 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 347 141 graph;
-#N canvas 0 0 396 272 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufup;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 607 383 pd init;
-#X obj 62 227 vasp.update;
-#X msg 62 125 vasp bufup;
-#X obj 62 374 vasp.u;
-#X msg 62 351 vasp bufup;
-#X obj 57 424 VASP-HELP;
-#X text 58 92 use vasp.update at the end of a chain of vasp operations
-;
-#X text 57 69 updates the graphic display of the array;
-#X text 145 291 set the buffer to zero;
-#X text 147 345 and display the changes;
-#X text 114 374 (abbreviation);
-#X connect 0 0 1 0;
-#X connect 4 0 8 0;
-#X connect 9 0 4 0;
-#X connect 11 0 10 0;
diff --git a/externals/grill/vasp/pd-help/vasp_v.pd b/externals/grill/vasp/pd-help/vasp_v.pd deleted file mode 100644 index 6f5e1452..00000000 --- a/externals/grill/vasp/pd-help/vasp_v.pd +++ /dev/null @@ -1,50 +0,0 @@ -#N canvas 44 85 957 492 10;
-#X obj 58 31 cnv 15 15 15 empty empty vasp 0 10 1 14 -262144 -1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufvasp1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 594 161 graph;
-#N canvas 0 0 396 220 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufvasp1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 818 420 pd init;
-#X obj 57 375 vasp.update;
-#X obj 57 354 vasp.noise;
-#X text 57 66 stores and outputs a vasp;
-#X obj 58 231 vasp.update;
-#X obj 58 205 vasp.= 0.35;
-#X obj 58 174 vasp 50000 bufvasp1 10000;
-#X obj 57 332 vasp;
-#X msg 101 287 set vasp 2000 bufvasp1 66666;
-#X msg 125 310 vasp 2000 bufvasp1 11111;
-#X text 58 83 syntax: vasp [length] [name] [offset] [channel] \, etc.
-;
-#X obj 58 146 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X obj 57 286 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X text 231 169 output vasp referencing a buffer region;
-#X text 231 183 with length of 50000 and starting at frame 10000;
-#X text 231 208 set region to value 0.35;
-#X text 230 232 update graphics;
-#X text 231 149 <-- click to start command chain;
-#X text 292 287 1 use "set" to define region non triggering \, then
-bang;
-#X text 291 307 2 right inlet: alternatively to set message;
-#X text 230 362 bang triggers output of predefined vasp;
-#X text 56 101 (see syntax description of vasp message in VASP-HELP)
-;
-#X obj 59 429 VASP-HELP;
-#X connect 4 0 3 0;
-#X connect 7 0 6 0;
-#X connect 8 0 7 0;
-#X connect 9 0 4 0;
-#X connect 10 0 9 0;
-#X connect 11 0 9 1;
-#X connect 13 0 8 0;
-#X connect 14 0 9 0;
diff --git a/externals/grill/vasp/pd-help/vasp_valleys.pd b/externals/grill/vasp/pd-help/vasp_valleys.pd deleted file mode 100644 index f2a11fab..00000000 --- a/externals/grill/vasp/pd-help/vasp_valleys.pd +++ /dev/null @@ -1,86 +0,0 @@ -#N canvas 36 36 847 582 10;
-#X obj 71 32 cnv 15 15 15 empty empty vasp.valleys 0 10 1 14 -262144
--1 0;
-#X obj 71 131 filelist \$0;
-#N canvas 92 108 424 389 inside 0;
-#X obj 66 169 soundfiler;
-#X obj 84 253 s \$0-sample-length;
-#X obj 66 223 s \$0-draw_display;
-#X msg 214 221 resize \$1;
-#X obj 66 47 loadbang;
-#X obj 66 193 t b f f;
-#X obj 66 113 filelisthandler \$0;
-#X msg 66 91 2;
-#X obj 66 69 t b b;
-#X msg 99 91 88200;
-#X msg 66 145 read \$1 bufvalleys1;
-#X obj 214 243 s bufvalleys1;
-#X obj 225 264 s bufvalleys2;
-#X connect 0 0 5 0;
-#X connect 3 0 11 0;
-#X connect 3 0 12 0;
-#X connect 4 0 8 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 10 0;
-#X connect 7 0 6 0;
-#X connect 8 0 7 0;
-#X connect 8 1 9 0;
-#X connect 9 0 5 0;
-#X connect 10 0 0 0;
-#X restore 668 495 pd inside;
-#N canvas 40 55 281 170 clear_buffers 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 485 495 pd clear_buffers;
-#X obj 60 292 vasp.update;
-#X obj 58 433 vasp.update;
-#X obj 58 453 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 60 312 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 337 495 dac~;
-#X obj 337 457 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 358 455 play;
-#X text 69 52 find the local minima of a buffer content;
-#X text 70 66 argument/right inlet: density value 0-1;
-#X obj 446 118 wavedisplay-simple bufvalleys1 \$0;
-#X obj 60 252 vasp.= bufvalleys1;
-#X text 183 231 copy to new buffer \, find valleys;
-#X msg 60 232 vasp bufvalleys2;
-#X floatatom 163 312 12 0 0;
-#X obj 60 272 vasp.valleys 0.001;
-#X obj 163 333 * 88200;
-#X obj 337 475 tabplay~ bufvalleys1;
-#X floatatom 163 355 5 0 0;
-#X obj 447 272 wavedisplay-simple bufvalleys2 \$0;
-#X obj 58 412 vasp.opt;
-#X msg 58 391 vasp bufvalleys2;
-#X msg 485 475 vasp bufvalleys1 bufvalleys2;
-#X text 718 100 source;
-#X text 712 253 valleys;
-#X text 69 81 outlet: current density value;
-#X text 185 389 optimize the buffer content;
-#X obj 44 530 VASP-HELP;
-#X connect 4 0 7 0;
-#X connect 5 0 6 0;
-#X connect 9 0 20 0;
-#X connect 14 0 18 0;
-#X connect 16 0 14 0;
-#X connect 17 0 19 0;
-#X connect 18 0 4 0;
-#X connect 18 1 17 0;
-#X connect 19 0 21 0;
-#X connect 20 0 8 0;
-#X connect 20 0 8 1;
-#X connect 23 0 5 0;
-#X connect 24 0 23 0;
-#X connect 25 0 3 0;
diff --git a/externals/grill/vasp/pd-help/vasp_vector.pd b/externals/grill/vasp/pd-help/vasp_vector.pd deleted file mode 100644 index 9a669067..00000000 --- a/externals/grill/vasp/pd-help/vasp_vector.pd +++ /dev/null @@ -1,31 +0,0 @@ -#N canvas 300 150 599 451 10;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.n 0 10 1 14 -262144 -1 0
-;
-#X text 53 55 get a vector of a vasp;
-#X text 53 79 argument/right inlet: index of vector;
-#X obj 58 193 prepend set;
-#X obj 175 166 vasp.n 1;
-#X obj 175 193 prepend set;
-#X obj 54 356 VASP-HELP;
-#X text 445 161 index starts at 0;
-#X obj 315 313 table bufn1;
-#X obj 315 335 table bufn2;
-#X obj 315 357 table bufn3;
-#X msg 58 121 vasp bufn1 bufn2 bufn3;
-#X obj 58 166 vasp.n 0;
-#X obj 300 193 prepend set;
-#X msg 300 219;
-#X msg 175 219;
-#X msg 58 220;
-#X obj 300 166 vasp.n 2;
-#X obj 154 308 vasp.n;
-#X text 58 310 abbreviation:;
-#X connect 3 0 16 0;
-#X connect 4 0 5 0;
-#X connect 5 0 15 0;
-#X connect 11 0 4 0;
-#X connect 11 0 12 0;
-#X connect 11 0 17 0;
-#X connect 12 0 3 0;
-#X connect 13 0 14 0;
-#X connect 17 0 13 0;
diff --git a/externals/grill/vasp/pd-help/vasp_vectors.pd b/externals/grill/vasp/pd-help/vasp_vectors.pd deleted file mode 100644 index e93cbbb0..00000000 --- a/externals/grill/vasp/pd-help/vasp_vectors.pd +++ /dev/null @@ -1,13 +0,0 @@ -#N canvas 257 69 509 282 10;
-#X text 52 66 get the number of vectors of a vasp;
-#X obj 51 19 cnv 15 15 15 empty empty vasp.n? 0 10 1 14 -262144 -1
-0;
-#X obj 57 169 cnv 15 44 17 empty empty empty 20 12 0 14 -258699 -66577
-0;
-#X floatatom 57 218 0 0 0;
-#X msg 57 112 vasp bufn?1;
-#X msg 137 112 vasp bufn?1 bufn?2 bufn?3;
-#X obj 57 169 vasp.n?;
-#X connect 4 0 6 0;
-#X connect 5 0 6 0;
-#X connect 6 0 3 0;
diff --git a/externals/grill/vasp/pd-help/vasp_window.pd b/externals/grill/vasp/pd-help/vasp_window.pd deleted file mode 100644 index eefd92cf..00000000 --- a/externals/grill/vasp/pd-help/vasp_window.pd +++ /dev/null @@ -1,62 +0,0 @@ -#N canvas 44 117 891 565 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.window 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufwindow 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 404 280 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufwindow;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 771 320 pd init;
-#N canvas 0 0 194 221 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 569 325 pd clear_buffers;
-#X text 173 149 generate a function;
-#X obj 63 495 VASP-HELP;
-#X msg 569 301 vasp bufwindow;
-#X msg 61 149 vasp bufwindow;
-#X obj 61 278 vasp.u;
-#X floatatom 194 186 5 0 0;
-#X text 259 185 0..4;
-#X msg 231 215 lin;
-#X msg 231 240 sin;
-#X msg 231 265 hanning;
-#X msg 231 290 hamming;
-#X msg 231 315 blackman;
-#X text 275 214 0;
-#X text 275 236 1;
-#X text 295 260 2;
-#X text 300 289 3;
-#X text 300 316 4;
-#X obj 132 426 vasp.*window;
-#X obj 225 401 vasp.!window;
-#X text 60 396 see also:;
-#X obj 322 426 vasp.*xwindow;
-#X obj 225 426 vasp.*!window;
-#X obj 61 226 vasp.window lin;
-#X text 60 80 generate window functions;
-#X obj 322 401 vasp.xwindow;
-#X text 60 104 argument/right inlet: name or number of name (def linear)
-;
-#X connect 6 0 3 0;
-#X connect 7 0 26 0;
-#X connect 9 0 26 1;
-#X connect 11 0 26 1;
-#X connect 12 0 26 1;
-#X connect 13 0 26 1;
-#X connect 14 0 26 1;
-#X connect 15 0 26 1;
-#X connect 26 0 8 0;
diff --git a/externals/grill/vasp/pd-help/vasp_xmirr.pd b/externals/grill/vasp/pd-help/vasp_xmirr.pd deleted file mode 100644 index 863ecfaa..00000000 --- a/externals/grill/vasp/pd-help/vasp_xmirr.pd +++ /dev/null @@ -1,86 +0,0 @@ -#N canvas 48 7 827 616 10;
-#N canvas 92 108 411 413 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 67 53 loadbang;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 133 read -resize \$1 bufxmirr1;
-#X obj 214 228 s bufxmirr1;
-#X obj 224 252 s bufxmirr2;
-#X msg 67 79 4;
-#X connect 0 0 5 0;
-#X connect 3 0 8 0;
-#X connect 3 0 9 0;
-#X connect 4 0 10 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 0 0;
-#X connect 10 0 6 0;
-#X restore 643 547 pd inside;
-#X obj 79 100 filelist \$0;
-#X obj 69 234 vasp.cfft;
-#X obj 327 546 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 461 546 pd clear_buffers;
-#X obj 327 503 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 349 500 play;
-#X text 461 501 clear;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.xmirr 0 10 1 14 -262144
--1 0;
-#X text 75 52 mirrors a vasp symmetrical;
-#X obj 472 303 wavedisplay-simple bufxmirr2 \$0;
-#X obj 472 150 wavedisplay-simple bufxmirr1 \$0;
-#X msg 69 213 vasp bufxmirr1 bufxmirr2;
-#X obj 69 298 vasp.update;
-#X obj 69 319 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 69 277 vasp.= 0;
-#X obj 69 256 vasp.upper;
-#X msg 461 523 vasp bufxmirr1 bufxmirr2;
-#X obj 69 484 vasp.update;
-#X obj 69 507 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 69 440 vasp bufxmirr1 bufxmirr2;
-#X obj 69 461 vasp.cfft;
-#X obj 327 523 tabplay~ bufxmirr1;
-#X obj 69 393 vasp.update;
-#X obj 69 414 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 69 351 vasp bufxmirr1 bufxmirr2;
-#X obj 69 372 vasp.xmirr;
-#X obj 57 574 VASP-HELP;
-#X text 332 88 revert the frequency spectrum;
-#X text 332 103 of the example sound;
-#X text 249 226 and clear upper part;
-#X text 247 351 2 revert spectrum;
-#X text 245 440 3 inverse fourier transform;
-#X text 248 209 1 fourier transform;
-#X connect 2 0 16 0;
-#X connect 5 0 22 0;
-#X connect 12 0 2 0;
-#X connect 13 0 14 0;
-#X connect 15 0 13 0;
-#X connect 16 0 15 0;
-#X connect 17 0 4 0;
-#X connect 18 0 19 0;
-#X connect 20 0 21 0;
-#X connect 21 0 18 0;
-#X connect 22 0 3 0;
-#X connect 22 0 3 1;
-#X connect 23 0 24 0;
-#X connect 25 0 26 0;
-#X connect 26 0 23 0;
diff --git a/externals/grill/vasp/pd-help/vasp_xrot.pd b/externals/grill/vasp/pd-help/vasp_xrot.pd deleted file mode 100644 index 95b0ed02..00000000 --- a/externals/grill/vasp/pd-help/vasp_xrot.pd +++ /dev/null @@ -1,48 +0,0 @@ -#N canvas 24 75 779 480 10;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.xrot 0 10 1 14 -262144 -1
-0;
-#X text 445 307 clear;
-#N canvas 0 0 413 295 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 445 352 pd clear_buffer;
-#X text 72 73 optional argument/right inlet: value;
-#X text 71 60 rotate buffer content;
-#X msg 445 329 vasp bufxrot;
-#X obj 68 333 vasp.update;
-#X floatatom 129 281 0 0 0;
-#X msg 68 257 vasp bufxrot;
-#X obj 56 436 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufxrot 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 436 125 graph;
-#N canvas 488 326 314 207 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufxrot;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 683 355 pd init;
-#X obj 69 195 vasp.u;
-#X obj 69 172 vasp.= env 1 0 -1 10 0 50 -1 90 1 99;
-#X msg 69 150 vasp bufxrot;
-#X text 197 148 1 create envelope;
-#X obj 68 305 vasp.xrot 6;
-#X text 197 251 2 rotate symmetrically;
-#X text 54 387 related objects:;
-#X obj 179 388 vasp.xshift;
-#X obj 259 388 vasp.rot;
-#X connect 5 0 2 0;
-#X connect 7 0 16 1;
-#X connect 8 0 16 0;
-#X connect 13 0 12 0;
-#X connect 14 0 13 0;
-#X connect 16 0 6 0;
diff --git a/externals/grill/vasp/pd-help/vasp_xshift.pd b/externals/grill/vasp/pd-help/vasp_xshift.pd deleted file mode 100644 index 121e43d2..00000000 --- a/externals/grill/vasp/pd-help/vasp_xshift.pd +++ /dev/null @@ -1,57 +0,0 @@ -#N canvas 24 75 858 509 10;
-#X obj 75 32 cnv 15 15 15 empty empty vasp.xshift 0 10 1 14 -262144
--1 0;
-#X text 463 343 clear;
-#N canvas 0 0 413 295 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 463 388 pd clear_buffer;
-#X text 72 73 optional argument/right inlet: value;
-#X msg 463 365 vasp bufxshift;
-#X text 71 60 shifts buffer content symmetrically;
-#X obj 68 333 vasp.update;
-#X floatatom 141 279 0 0 0;
-#X msg 68 236 vasp bufxshift;
-#X obj 59 429 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufxshift 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 436 125 graph;
-#N canvas 488 326 312 205 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X msg 33 45 symbol bufxshift;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 683 355 pd init;
-#X obj 68 305 vasp.xshift 9;
-#X obj 69 195 vasp.u;
-#X msg 69 150 vasp bufxshift;
-#X obj 69 172 vasp.= env 1 0 -1 10 0 50 -1 90 1 99;
-#X text 197 148 1 create envelope;
-#X text 196 230 2 shift symmetrically;
-#X obj 262 403 vasp.xrot;
-#X text 57 402 related objects:;
-#X obj 182 403 vasp.xshift;
-#X msg 225 278 fill 0;
-#X msg 225 298 fill 1;
-#X msg 225 318 fill 2;
-#X text 271 278 no filling;
-#X text 270 318 fill with edge-value;
-#X text 271 298 zero filling (default);
-#X connect 4 0 2 0;
-#X connect 7 0 12 1;
-#X connect 8 0 12 0;
-#X connect 12 0 6 0;
-#X connect 14 0 15 0;
-#X connect 15 0 13 0;
-#X connect 21 0 12 0;
-#X connect 22 0 12 0;
-#X connect 23 0 12 0;
diff --git a/externals/grill/vasp/pd-help/vasp_xtilt.pd b/externals/grill/vasp/pd-help/vasp_xtilt.pd deleted file mode 100644 index c42c69e1..00000000 --- a/externals/grill/vasp/pd-help/vasp_xtilt.pd +++ /dev/null @@ -1,107 +0,0 @@ -#N canvas 21 60 881 576 10;
-#X obj 55 36 cnv 15 15 15 empty empty vasp.xtilt 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 261 214 clear_buffer 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 575 494 pd clear_buffer;
-#X text 177 472 <-- click to open more examples;
-#X obj 51 533 VASP-HELP;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufxtilt1 100 float 1;
-#A 0 1 -0.113512 0.171341 0.733251 -0.444804 0.13461 0.0181519 0.0751111
--0.291489 -0.0661841 0.0808672 0.10525 -0.0372648 0.00712331 0.0321534
-0.00104712 -0.0797996 -0.0100332 0.038871 -0.00962814 -0.00245443 -0.0208043
-0.0418052 -0.0442626 -0.010092 -0.000713352 0.0310329 -0.0158379 -0.0325648
-0.0180381 -0.0174225 -0.0255639 -0.0137052 0.0219752 -0.00454053 -0.0387019
--0.00129492 -0.00332361 -6.52102e-005 -0.0333087 0.00495665 0.00179575
--0.0311061 -0.0221767 -0.00117427 0.000104884 -0.033587 -0.00918416
-0.00931789 -0.0172503 -0.0146257 0.0200174 0.00741167 -9.19656e-005
--0.0248526 0.0180017 0.0184785 -0.000738001 0.00187258 0.0148586 0.0289194
--0.0124819 0.000630443 0.0266685 0.0156491 0.0058523 0.0141721 0.0336186
--0.00179237 -0.00582341 0.0232202 0.0428296 0.0249123 -0.00400539 0.0269429
-0.0367591 0.000278026 0.0241991 0.039058 0.0259654 -0.015077 0.0321762
-0.0799587 -0.035893 0.038519 0.024746 0.189796 -0.054207 -0.0128485
--0.0301806 0.0762237 0.106943 0.0307454 0.226911 -0.221356 0.172835
-0.0519878 0.4068 -0.293863 -0.035514;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 481 75 graph;
-#N canvas 0 0 435 217 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 1 10 \; \$1 xlabel 1.1 0 20 40 60 80 100
-\; \$1 yticks 0 0.25 2 \; \$1 ylabel 105 -1 -0.5 0 0.5 1;
-#X obj 295 27 loadbang;
-#X obj 295 71 s \$0-ratio;
-#X msg 33 45 symbol bufxtilt1 \, symbol bufxtilt2;
-#X msg 295 49 1.5;
-#X connect 0 0 4 0;
-#X connect 2 0 5 0;
-#X connect 4 0 1 0;
-#X connect 5 0 3 0;
-#X restore 712 492 pd init;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufxtilt2 100 float 0;
-#X coords 0 1 99 -1 300 100 1;
-#X restore 483 205 graph;
-#X text 420 58 SOURCE;
-#X obj 344 357 pack;
-#X obj 344 331 t b f;
-#X text 281 284 ratio;
-#X text 201 404 needs one or two args;
-#X text 201 427 ratio \, center;
-#X text 236 264 edge;
-#X text 243 144 none;
-#X text 243 173 linear;
-#X text 236 241 zero (default);
-#X text 242 199 4 point (default);
-#X text 243 121 in place (dirty);
-#X obj 128 435 vasp.u;
-#X obj 344 308 nbx 5 14 -1000 1000 0 0 empty empty empty 0 -6 0 10
--24198 -1 -1 0 256;
-#X obj 281 308 nbx 5 14 -3 3 0 0 empty \$0-ratio empty 0 -6 576 10
--24198 -1 -1 1.5 256;
-#X text 344 284 center sample;
-#X msg 181 242 fill 0;
-#X msg 181 268 fill 1;
-#X msg 183 122 inter 0;
-#X msg 183 148 inter 1;
-#X msg 183 174 inter 2;
-#X msg 183 200 inter 3;
-#X obj 36 135 bng 15 250 50 0 empty \$0-trigger empty 0 -6 576 8 -262144
--1 -1;
-#X obj 344 401 bng 15 250 50 0 \$0-trigger empty empty 0 -6 1152 8
--262144 -1 -1;
-#X text 55 82 optional argument/right inlet: list of ratio and center
-sample;
-#X obj 53 473 xtilt_example;
-#X text 575 444 clear;
-#X msg 575 468 vasp bufxtilt2;
-#X text 55 59 resample buffer data symmetrically;
-#X msg 36 159 vasp bufxtilt1;
-#X obj 36 185 vasp.-> bufxtilt2;
-#X obj 128 409 vasp.xtilt;
-#X obj 344 379 t b l;
-#X connect 8 0 39 0;
-#X connect 9 0 8 0;
-#X connect 9 1 8 1;
-#X connect 20 0 9 0;
-#X connect 21 0 8 0;
-#X connect 23 0 38 0;
-#X connect 24 0 38 0;
-#X connect 25 0 38 0;
-#X connect 26 0 38 0;
-#X connect 27 0 38 0;
-#X connect 28 0 38 0;
-#X connect 29 0 36 0;
-#X connect 34 0 1 0;
-#X connect 36 0 37 0;
-#X connect 37 1 38 0;
-#X connect 38 0 19 0;
-#X connect 39 0 30 0;
-#X connect 39 1 38 1;
diff --git a/externals/grill/vasp/pd-help/vasp_xwindow.pd b/externals/grill/vasp/pd-help/vasp_xwindow.pd deleted file mode 100644 index 7d6e4179..00000000 --- a/externals/grill/vasp/pd-help/vasp_xwindow.pd +++ /dev/null @@ -1,61 +0,0 @@ -#N canvas 58 39 897 607 10;
-#X obj 62 41 cnv 15 15 15 empty empty vasp.xwindow 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array bufxwindow 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 512 119 graph;
-#N canvas 0 0 406 282 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol bufxwindow;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 771 320 pd init;
-#N canvas 0 0 194 221 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 569 326 pd clear_buffers;
-#X text 173 148 generate a function;
-#X obj 60 503 VASP-HELP;
-#X msg 61 149 vasp bufxwindow;
-#X msg 569 301 vasp bufxwindow;
-#X obj 61 278 vasp.u;
-#X floatatom 194 186 5 0 0;
-#X text 259 185 0..4;
-#X msg 231 215 lin;
-#X msg 231 240 sin;
-#X msg 231 265 hanning;
-#X msg 231 290 hamming;
-#X msg 231 315 blackman;
-#X text 275 214 0;
-#X text 275 236 1;
-#X text 295 260 2;
-#X text 300 289 3;
-#X text 300 316 4;
-#X obj 61 226 vasp.xwindow lin;
-#X obj 132 401 vasp.window;
-#X obj 132 426 vasp.*window;
-#X obj 225 401 vasp.!window;
-#X text 60 396 see also:;
-#X obj 322 426 vasp.*xwindow;
-#X obj 225 426 vasp.*!window;
-#X text 60 104 argument/right inlet: name or number of name;
-#X text 60 80 generate window functions;
-#X connect 6 0 21 0;
-#X connect 7 0 3 0;
-#X connect 9 0 21 1;
-#X connect 11 0 21 1;
-#X connect 12 0 21 1;
-#X connect 13 0 21 1;
-#X connect 14 0 21 1;
-#X connect 15 0 21 1;
-#X connect 21 0 8 0;
diff --git a/externals/grill/vasp/pd-test/granular1.pd b/externals/grill/vasp/pd-test/granular1.pd deleted file mode 100644 index 2ef369f9..00000000 --- a/externals/grill/vasp/pd-test/granular1.pd +++ /dev/null @@ -1,341 +0,0 @@ -#N canvas 62 0 630 495 10;
-#N canvas 0 0 450 300 graph34 0;
-#X array insert 128 float 1;
-#A 0 1 0.995185 0.980785 0.95694 0.92388 0.881921 0.83147 0.77301 0.707107
-0.634393 0.55557 0.471397 0.382683 0.290285 0.19509 0.0980171 -3.82859e-016
--0.0980171 -0.19509 -0.290285 -0.382683 -0.471397 -0.55557 -0.634393
--0.707107 -0.77301 -0.83147 -0.881921 -0.92388 -0.95694 -0.980785 -0.995185
--1 -0.995185 -0.980785 -0.95694 -0.92388 -0.881921 -0.83147 -0.77301
--0.707107 -0.634393 -0.55557 -0.471397 -0.382683 -0.290285 -0.19509
--0.0980171 7.04487e-016 0.0980171 0.19509 0.290285 0.382683 0.471397
-0.55557 0.634393 0.707107 0.77301 0.83147 0.881921 0.92388 0.95694
-0.980785 0.995185 1 0.995185 0.980785 0.95694 0.92388 0.881921 0.83147
-0.77301 0.707107 0.634393 0.55557 0.471397 0.382683 0.290285 0.19509
-0.0980171 1.00761e-014 -0.0980171 -0.19509 -0.290285 -0.382683 -0.471397
--0.55557 -0.634393 -0.707107 -0.77301 -0.83147 -0.881921 -0.92388 -0.95694
--0.980785 -0.995185 -1 -0.995185 -0.980785 -0.95694 -0.92388 -0.881921
--0.83147 -0.77301 -0.707107 -0.634393 -0.55557 -0.471397 -0.382683
--0.290285 -0.19509 -0.0980171 -1.99685e-014 0.0980171 0.19509 0.290285
-0.382683 0.471397 0.55557 0.634393 0.707107 0.77301 0.83147 0.881921
-0.92388 0.95694 0.980785 0.995185;
-#X coords 0 1 127 -1 200 140 1;
-#X restore 78 68 graph;
-#N canvas 112 314 505 434 player 0;
-#X obj 117 137 tabplay~ schnipparray;
-#X obj 171 245 tabplay~ schnipparray;
-#X obj 250 350 tabplay~ schnipparray;
-#X obj 117 161 throw~ toex;
-#X obj 171 264 throw~ toex;
-#X obj 250 374 throw~ toex;
-#X obj 88 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
-;
-#X obj 88 73 spigot;
-#X obj 85 283 s \$0-part;
-#X obj 143 200 t b b;
-#X obj 222 306 t b b;
-#X obj 88 22 inlet;
-#X msg 114 115 0 128;
-#X msg 171 225 128 128;
-#X msg 251 330 256 128;
-#X obj 89 93 t b b;
-#X msg 222 328 1;
-#X msg 143 225 3;
-#X msg 85 117 2;
-#X connect 0 0 3 0;
-#X connect 0 1 9 0;
-#X connect 1 0 4 0;
-#X connect 1 1 10 0;
-#X connect 2 0 5 0;
-#X connect 2 1 7 0;
-#X connect 6 0 7 1;
-#X connect 6 0 7 0;
-#X connect 7 0 15 0;
-#X connect 9 0 17 0;
-#X connect 9 1 13 0;
-#X connect 10 0 16 0;
-#X connect 10 1 14 0;
-#X connect 11 0 6 0;
-#X connect 12 0 0 0;
-#X connect 13 0 1 0;
-#X connect 14 0 2 0;
-#X connect 15 0 18 0;
-#X connect 15 1 12 0;
-#X connect 16 0 8 0;
-#X connect 17 0 8 0;
-#X connect 18 0 8 0;
-#X restore 204 294 pd player;
-#X obj 204 339 catch~ toex;
-#X obj 204 403 dac~;
-#X floatatom 76 311 0 0 0 0 - - -;
-#X obj 76 271 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0
-10 -24198 -1 -1 11 256;
-#X text 76 253 density;
-#X obj 76 333 s \$0-density;
-#X obj 204 275 tgl 15 0 empty empty start/stop 0 -6 0 8 -24198 -1 -1
-1 1;
-#X obj 76 290 * 0.001;
-#X floatatom 241 429 0 0 0 0 - - -;
-#X obj 241 407 env~ 32768;
-#N canvas 0 0 392 261 inside 0;
-#X obj 41 63 table positions;
-#N canvas 0 0 478 328 create_schippler 0;
-#X msg 155 114 vasp insert;
-#X obj 155 162 vasp.u;
-#X obj 155 138 vasp.osc 6.4;
-#X msg 66 114 vasp insert;
-#X obj 66 162 vasp.u;
-#X obj 66 138 vasp.osc 64;
-#X msg 251 115 vasp insert;
-#X obj 251 163 vasp.u;
-#X obj 251 139 vasp.osc 2;
-#X text 56 71 create various samples to insert;
-#X msg 63 216 vasp insert;
-#X obj 63 261 vasp.u;
-#X obj 63 239 vasp.window;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X connect 3 0 5 0;
-#X connect 5 0 4 0;
-#X connect 6 0 8 0;
-#X connect 8 0 7 0;
-#X connect 10 0 12 0;
-#X connect 12 0 11 0;
-#X restore 43 113 pd create_schippler;
-#N canvas 0 0 660 348 inserter 0;
-#X obj 48 84 sel 1 2 3;
-#N canvas 2 7 415 675 first_part 0;
-#X obj 48 483 tabread positions;
-#X obj 48 172 vasp.noise;
-#X obj 48 238 vasp.??;
-#X obj 48 192 vasp.abs;
-#X obj 48 215 vasp.< 0.1;
-#X obj 48 262 route list;
-#X text 58 501 insert a soundfile at certain offset-position;
-#X obj 48 547 vasp.+ vasp insert;
-#X obj 48 120 t b b;
-#X obj 126 146 vasp.= 0;
-#X obj 48 70 inlet;
-#X obj 103 192 r \$0-density;
-#X msg 162 326 \; positions resize \$1;
-#X obj 80 362 tabset positions;
-#X obj 48 387 0;
-#X obj 48 411 until;
-#X obj 90 436 + 1;
-#X obj 48 436 0;
-#X msg 72 386 0;
-#X obj 97 310 length;
-#X obj 48 460 t f f;
-#X obj 97 331 t f f;
-#X obj 48 288 t b b l l;
-#X obj 48 149 vasp.! 128;
-#X msg 48 522 vasp 128 schnipparray \$1;
-#X msg 126 125 vasp 128 schnipparray 128;
-#X connect 0 0 24 0;
-#X connect 1 0 3 0;
-#X connect 2 0 5 0;
-#X connect 3 0 4 0;
-#X connect 4 0 2 0;
-#X connect 5 0 22 0;
-#X connect 8 0 23 0;
-#X connect 8 1 25 0;
-#X connect 10 0 8 0;
-#X connect 11 0 4 1;
-#X connect 14 0 15 0;
-#X connect 15 0 17 0;
-#X connect 16 0 17 1;
-#X connect 17 0 20 0;
-#X connect 18 0 17 1;
-#X connect 19 0 21 0;
-#X connect 20 0 0 0;
-#X connect 20 1 16 0;
-#X connect 21 0 14 1;
-#X connect 21 1 12 0;
-#X connect 22 0 14 0;
-#X connect 22 1 18 0;
-#X connect 22 2 13 0;
-#X connect 22 3 19 0;
-#X connect 23 0 1 0;
-#X connect 24 0 7 0;
-#X connect 25 0 9 0;
-#X restore 48 183 pd first_part;
-#N canvas 162 22 383 663 second_part 0;
-#X obj 48 483 tabread positions;
-#X obj 48 172 vasp.noise;
-#X obj 48 238 vasp.??;
-#X obj 48 192 vasp.abs;
-#X obj 48 215 vasp.< 0.1;
-#X obj 48 262 route list;
-#X text 58 501 insert a soundfile at certain offset-position;
-#X text 124 552 fuer drei teilbereiche;
-#X obj 48 586 vasp.+ vasp insert;
-#X obj 48 120 t b b;
-#X obj 126 146 vasp.= 0;
-#X obj 48 70 inlet;
-#X obj 103 192 r \$0-density;
-#X msg 162 323 \; positions resize \$1;
-#X obj 80 359 tabset positions;
-#X obj 48 384 0;
-#X obj 48 408 until;
-#X obj 90 433 + 1;
-#X obj 48 433 0;
-#X msg 72 383 0;
-#X obj 97 307 length;
-#X obj 48 457 t f f;
-#X obj 97 328 t f f;
-#X obj 48 285 t b b l l;
-#X obj 48 148 vasp.! 128;
-#X msg 48 525 vasp 128 schnipparray \$1;
-#X obj 48 551 vasp.o+ 128;
-#X msg 126 124 vasp 128 schnipparray 256;
-#X connect 0 0 25 0;
-#X connect 1 0 3 0;
-#X connect 2 0 5 0;
-#X connect 3 0 4 0;
-#X connect 4 0 2 0;
-#X connect 5 0 23 0;
-#X connect 9 0 24 0;
-#X connect 9 1 27 0;
-#X connect 11 0 9 0;
-#X connect 12 0 4 1;
-#X connect 15 0 16 0;
-#X connect 16 0 18 0;
-#X connect 17 0 18 1;
-#X connect 18 0 21 0;
-#X connect 19 0 18 1;
-#X connect 20 0 22 0;
-#X connect 21 0 0 0;
-#X connect 21 1 17 0;
-#X connect 22 0 15 1;
-#X connect 22 1 13 0;
-#X connect 23 0 15 0;
-#X connect 23 1 19 0;
-#X connect 23 2 14 0;
-#X connect 23 3 20 0;
-#X connect 24 0 1 0;
-#X connect 25 0 26 0;
-#X connect 26 0 8 0;
-#X connect 27 0 10 0;
-#X restore 191 181 pd second_part;
-#N canvas 427 3 562 703 third_part 0;
-#X msg 155 289 \; positions resize \$1;
-#X obj 73 325 tabset positions;
-#X obj 41 350 0;
-#X obj 41 374 until;
-#X obj 83 399 + 1;
-#X obj 41 399 0;
-#X obj 41 445 tabread positions;
-#X msg 65 349 0;
-#X obj 41 134 vasp.noise;
-#X obj 41 200 vasp.??;
-#X obj 41 154 vasp.abs;
-#X obj 41 177 vasp.< 0.1;
-#X obj 90 273 length;
-#X obj 41 423 t f f;
-#X obj 41 224 route list;
-#X obj 310 641 vasp.+ vasp insert;
-#X obj 41 82 t b b;
-#X obj 119 108 vasp.= 0;
-#X obj 41 52 inlet;
-#X obj 96 154 r \$0-density;
-#X text 177 107 (clears second part);
-#X text 327 499 sample-length;
-#X obj 292 520 - 0;
-#X text 329 519 minus offset;
-#X text 292 215 this part has to write "around the corner";
-#X obj 48 636 vasp.+ vasp insert;
-#X msg 48 586 vasp \$1 schnipparray;
-#X text 446 641 insert at end;
-#X text 49 663 insert at beginning;
-#X obj 90 294 t f f;
-#X obj 41 251 t b b l l;
-#X msg 310 565 vasp \$1 schnipparray;
-#X obj 310 613 vasp.o;
-#X obj 186 609 vasp.o;
-#X msg 413 614 vasp \$1 insert;
-#X msg 186 586 vasp \$1 insert;
-#X obj 48 550 t f f;
-#X obj 48 527 - 0;
-#X obj 276 471 t b b f f;
-#X text 73 528 already at the end;
-#X obj 292 541 t f f f f;
-#X obj 41 111 vasp.! 128;
-#X obj 292 497 128;
-#X obj 48 505 128;
-#X obj 341 590 + 256;
-#X msg 119 86 vasp 128 schnipparray;
-#X connect 2 0 3 0;
-#X connect 3 0 5 0;
-#X connect 4 0 5 1;
-#X connect 5 0 13 0;
-#X connect 6 0 38 0;
-#X connect 7 0 5 1;
-#X connect 8 0 10 0;
-#X connect 9 0 14 0;
-#X connect 10 0 11 0;
-#X connect 11 0 9 0;
-#X connect 12 0 29 0;
-#X connect 13 0 6 0;
-#X connect 13 1 4 0;
-#X connect 14 0 30 0;
-#X connect 16 0 41 0;
-#X connect 16 1 45 0;
-#X connect 18 0 16 0;
-#X connect 19 0 11 1;
-#X connect 22 0 40 0;
-#X connect 26 0 25 0;
-#X connect 29 0 2 1;
-#X connect 29 1 0 0;
-#X connect 30 0 2 0;
-#X connect 30 1 7 0;
-#X connect 30 2 1 0;
-#X connect 30 3 12 0;
-#X connect 31 0 32 0;
-#X connect 32 0 15 0;
-#X connect 33 0 25 1;
-#X connect 34 0 15 1;
-#X connect 35 0 33 0;
-#X connect 36 0 26 0;
-#X connect 36 1 35 0;
-#X connect 37 0 36 0;
-#X connect 38 0 43 0;
-#X connect 38 1 42 0;
-#X connect 38 2 22 1;
-#X connect 38 3 44 0;
-#X connect 40 0 37 1;
-#X connect 40 1 33 1;
-#X connect 40 2 31 0;
-#X connect 40 3 34 0;
-#X connect 41 0 8 0;
-#X connect 42 0 22 0;
-#X connect 43 0 37 0;
-#X connect 44 0 32 1;
-#X connect 45 0 17 0;
-#X restore 336 183 pd third_part;
-#X obj 48 55 r \$0-part;
-#X text 50 33 after a sample-part is played \, next step is calculated
-;
-#X text 296 84 1) generate noise \; 2) get triggering-values \; 3)
-...save in positions-array \; 4) read samplevalues of positions \;
-5) at every trigger insert the "insert"array;
-#X connect 0 0 1 0;
-#X connect 0 1 2 0;
-#X connect 0 2 3 0;
-#X connect 4 0 0 0;
-#X restore 42 88 pd inserter;
-#X obj 40 37 table schnipparray 384;
-#X restore 516 119 pd inside;
-#X obj 322 271 vsl 15 100 0 1 0 1 empty empty volume 0 -8 0 8 -24198
--1 -1 600 1;
-#X obj 204 374 *~ 0.2;
-#X text 387 445 needs the zexy library and vasp;
-#X text 319 80 this array is inserted at triggering points;
-#X connect 2 0 14 0;
-#X connect 4 0 7 0;
-#X connect 5 0 9 0;
-#X connect 8 0 1 0;
-#X connect 9 0 4 0;
-#X connect 11 0 10 0;
-#X connect 13 0 14 1;
-#X connect 14 0 3 0;
-#X connect 14 0 3 1;
-#X connect 14 0 11 0;
diff --git a/externals/grill/vasp/pd-test/granular2.pd b/externals/grill/vasp/pd-test/granular2.pd deleted file mode 100644 index cfea7d6c..00000000 --- a/externals/grill/vasp/pd-test/granular2.pd +++ /dev/null @@ -1,366 +0,0 @@ -#N canvas 30 24 708 560 10;
-#N canvas 0 0 450 300 graph34 0;
-#X array insert 128 float 0;
-#X coords 0 1 127 -1 200 140 1;
-#X restore 96 73 graph;
-#N canvas 339 256 523 452 player 0;
-#X obj 228 372 tabplay~ schnipparray;
-#X obj 228 396 throw~ toex;
-#X obj 208 45 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
-;
-#X obj 208 76 spigot;
-#X obj 104 330 s \$0-part;
-#X obj 208 21 inlet;
-#X obj 264 251 t b b;
-#X obj 283 327 r \$0-partlen;
-#X obj 253 299 r \$0-partlen;
-#X obj 228 319 * 128;
-#X obj 228 350 pack 0 128;
-#X obj 253 147 + 1;
-#X obj 208 147 t f f;
-#X obj 143 251 t b b;
-#X obj 203 250 t b b;
-#X obj 240 192 t b b;
-#X obj 208 125 1;
-#X msg 265 212 1;
-#X obj 208 170 sel 1 2 3;
-#X msg 143 271 2;
-#X msg 168 271 0;
-#X msg 203 271 3;
-#X msg 228 271 1;
-#X msg 264 271 1;
-#X msg 289 271 2;
-#X connect 0 0 1 0;
-#X connect 0 1 3 0;
-#X connect 2 0 3 1;
-#X connect 2 0 3 0;
-#X connect 3 0 16 0;
-#X connect 5 0 2 0;
-#X connect 6 0 23 0;
-#X connect 6 1 24 0;
-#X connect 7 0 10 1;
-#X connect 8 0 9 1;
-#X connect 9 0 10 0;
-#X connect 10 0 0 0;
-#X connect 11 0 16 1;
-#X connect 12 0 18 0;
-#X connect 12 1 11 0;
-#X connect 13 0 19 0;
-#X connect 13 1 20 0;
-#X connect 14 0 21 0;
-#X connect 14 1 22 0;
-#X connect 15 0 6 0;
-#X connect 15 1 17 0;
-#X connect 16 0 12 0;
-#X connect 17 0 16 1;
-#X connect 18 0 13 0;
-#X connect 18 1 14 0;
-#X connect 18 2 15 0;
-#X connect 19 0 4 0;
-#X connect 20 0 9 0;
-#X connect 21 0 4 0;
-#X connect 22 0 9 0;
-#X connect 23 0 4 0;
-#X connect 24 0 9 0;
-#X restore 204 294 pd player;
-#X obj 204 339 catch~ toex;
-#X obj 204 403 dac~;
-#X floatatom 51 318 0 0 0 0 - - -;
-#X obj 51 278 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0
-10 -24198 -1 -1 80.13 256;
-#X text 51 260 density;
-#X obj 51 340 s \$0-density;
-#X obj 204 275 tgl 15 0 empty empty start/stop 0 -6 0 8 -24198 -1 -1
-1 1;
-#X floatatom 241 430 0 0 0 0 - - -;
-#X obj 241 407 env~ 32768;
-#N canvas 202 187 293 232 inside 0;
-#X obj 88 151 table positions;
-#N canvas 136 160 532 356 inserter 0;
-#X obj 48 55 r \$0-part;
-#X text 50 33 after a sample-part is played \, next step is calculated
-;
-#X obj 169 145 sel 1 2 3;
-#X msg 317 235 1;
-#X text 411 234 clear;
-#X msg 346 235 2;
-#X msg 376 235 0;
-#X obj 317 259 s \$0-clear;
-#X obj 169 260 s \$0-partfw;
-#X msg 169 233 0;
-#X msg 205 233 1;
-#X msg 238 233 2;
-#X text 244 260 (offset);
-#X obj 246 176 t b b;
-#X obj 48 78 t b f;
-#N canvas 267 0 670 675 three_steps 0;
-#X msg 139 235 \; positions resize \$1;
-#X obj 78 269 tabset positions;
-#X obj 46 291 0;
-#X obj 46 311 until;
-#X obj 88 336 + 1;
-#X obj 46 336 0;
-#X obj 46 377 tabread positions;
-#X msg 70 291 0;
-#X obj 46 100 vasp.noise;
-#X obj 46 165 vasp.??;
-#X obj 46 122 vasp.abs;
-#X obj 46 145 vasp.< 0.1;
-#X obj 95 227 length;
-#X obj 46 357 t f f;
-#X obj 345 609 vasp.+ vasp insert;
-#X obj 46 58 t b b;
-#X obj 46 37 inlet;
-#X obj 101 122 r \$0-density;
-#X text 348 452 sample-length;
-#X obj 313 473 - 0;
-#X text 350 472 minus offset;
-#X obj 46 620 vasp.+ vasp insert;
-#X msg 46 527 vasp \$1 schnipparray;
-#X text 164 621 insert at beginning;
-#X obj 95 248 t f f;
-#X obj 46 205 t b b l l;
-#X msg 345 517 vasp \$1 schnipparray;
-#X obj 345 587 vasp.o;
-#X obj 149 599 vasp.o;
-#X msg 448 588 vasp \$1 insert;
-#X msg 149 576 vasp \$1 insert;
-#X obj 46 502 t f f;
-#X obj 46 479 - 0;
-#X obj 46 400 t b b f f;
-#X text 73 478 already at the end;
-#X obj 313 494 t f f f f;
-#X obj 46 79 vasp.! 128;
-#X obj 313 450 128;
-#X obj 46 457 128;
-#X obj 399 195 r \$0-partlen;
-#X text 405 261 clear;
-#X obj 374 173 r \$0-clear;
-#X obj 329 173 vasp.f;
-#X msg 329 128 vasp schnipparray;
-#X obj 329 261 vasp.= 0;
-#X obj 374 217 * 128;
-#X obj 360 150 r \$0-partlen;
-#X obj 329 239 vasp.o;
-#X obj 101 58 r \$0-partlen;
-#X obj 470 541 r \$0-partlen;
-#X obj 399 564 * 128;
-#X obj 399 541 r \$0-partfw;
-#X obj 376 564 + 0;
-#X obj 326 428 r \$0-partlen;
-#X obj 59 433 r \$0-partlen;
-#X obj 46 595 vasp.o+;
-#X obj 149 550 r \$0-partlen;
-#X obj 83 572 * 128;
-#X obj 83 550 r \$0-clear;
-#X text 481 619 insert at end of this part;
-#X text 163 634 of next part;
-#X obj 46 185 route bang;
-#X connect 2 0 3 0;
-#X connect 3 0 5 0;
-#X connect 4 0 5 1;
-#X connect 5 0 13 0;
-#X connect 6 0 33 0;
-#X connect 7 0 5 1;
-#X connect 8 0 10 0;
-#X connect 9 0 61 0;
-#X connect 10 0 11 0;
-#X connect 11 0 9 0;
-#X connect 12 0 24 0;
-#X connect 13 0 6 0;
-#X connect 13 1 4 0;
-#X connect 15 0 36 0;
-#X connect 15 1 43 0;
-#X connect 16 0 15 0;
-#X connect 17 0 11 1;
-#X connect 19 0 35 0;
-#X connect 22 0 55 0;
-#X connect 24 0 2 1;
-#X connect 24 1 0 0;
-#X connect 25 0 2 0;
-#X connect 25 1 7 0;
-#X connect 25 2 1 0;
-#X connect 25 3 12 0;
-#X connect 26 0 27 0;
-#X connect 27 0 14 0;
-#X connect 28 0 21 1;
-#X connect 29 0 14 1;
-#X connect 30 0 28 0;
-#X connect 31 0 22 0;
-#X connect 31 1 30 0;
-#X connect 32 0 31 0;
-#X connect 33 0 38 0;
-#X connect 33 1 37 0;
-#X connect 33 2 19 1;
-#X connect 33 3 52 0;
-#X connect 35 0 32 1;
-#X connect 35 1 28 1;
-#X connect 35 2 26 0;
-#X connect 35 3 29 0;
-#X connect 36 0 8 0;
-#X connect 37 0 19 0;
-#X connect 38 0 32 0;
-#X connect 39 0 45 1;
-#X connect 41 0 45 0;
-#X connect 42 0 47 0;
-#X connect 43 0 42 0;
-#X connect 45 0 47 1;
-#X connect 46 0 42 1;
-#X connect 47 0 44 0;
-#X connect 48 0 36 1;
-#X connect 49 0 50 1;
-#X connect 50 0 52 1;
-#X connect 51 0 50 0;
-#X connect 52 0 27 1;
-#X connect 53 0 37 1;
-#X connect 54 0 38 1;
-#X connect 55 0 21 0;
-#X connect 56 0 57 1;
-#X connect 57 0 55 1;
-#X connect 58 0 57 0;
-#X connect 61 1 25 0;
-#X restore 48 259 pd three_steps;
-#X obj 209 176 t b b;
-#X obj 169 175 t b b;
-#X text 386 260 (=nextpart);
-#X connect 0 0 14 0;
-#X connect 2 0 17 0;
-#X connect 2 1 16 0;
-#X connect 2 2 13 0;
-#X connect 3 0 7 0;
-#X connect 5 0 7 0;
-#X connect 6 0 7 0;
-#X connect 9 0 8 0;
-#X connect 10 0 8 0;
-#X connect 11 0 8 0;
-#X connect 13 0 11 0;
-#X connect 13 1 6 0;
-#X connect 14 0 15 0;
-#X connect 14 1 2 0;
-#X connect 16 0 10 0;
-#X connect 16 1 5 0;
-#X connect 17 0 9 0;
-#X connect 17 1 3 0;
-#X restore 40 70 pd inserter;
-#X obj 88 129 table schnipparray 384;
-#N canvas 286 262 325 213 init 0;
-#X obj 112 77 s \$0-partlen;
-#X msg 112 100 \; insert resize \$1;
-#X msg 50 137 \; schnipparray resize \$1;
-#X obj 50 43 loadbang;
-#X msg 50 65 128;
-#X obj 50 113 * 3;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 0 0;
-#X connect 4 0 1 0;
-#X connect 5 0 2 0;
-#X restore 41 95 pd init;
-#N canvas 409 43 526 376 create_schnippl 0;
-#X msg 155 114 vasp insert;
-#X obj 155 182 vasp.u;
-#X obj 155 138 vasp.osc 6.4;
-#X msg 66 114 vasp insert;
-#X obj 66 162 vasp.u;
-#X msg 293 113 vasp insert;
-#X obj 293 161 vasp.u;
-#X obj 293 137 vasp.osc 2;
-#X msg 63 216 vasp insert;
-#X obj 63 261 vasp.u;
-#X obj 63 239 vasp.window;
-#X obj 66 138 vasp.osc 128;
-#X obj 155 160 vasp.*!window lin;
-#X msg 273 230 vasp insert;
-#X obj 273 292 vasp.u;
-#X obj 273 251 vasp.osc 2;
-#X obj 273 271 vasp.*xwindow hamming;
-#X obj 355 230 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
-10 -24198 -1 -1 3 256;
-#X text 56 71 create various slices to insert;
-#X msg 405 113 vasp insert;
-#X obj 405 161 vasp.u;
-#X obj 405 137 vasp.= 0;
-#X connect 0 0 2 0;
-#X connect 2 0 12 0;
-#X connect 3 0 11 0;
-#X connect 5 0 7 0;
-#X connect 7 0 6 0;
-#X connect 8 0 10 0;
-#X connect 10 0 9 0;
-#X connect 11 0 4 0;
-#X connect 12 0 1 0;
-#X connect 13 0 15 0;
-#X connect 15 0 16 0;
-#X connect 16 0 14 0;
-#X connect 17 0 15 1;
-#X connect 19 0 21 0;
-#X connect 21 0 20 0;
-#X restore 40 47 pd create_schnippl;
-#X restore 53 489 pd inside;
-#X obj 322 271 vsl 15 100 0 1 0 1 empty empty volume 0 -8 0 8 -24198
--1 -1 4400 1;
-#X obj 204 374 *~ 0.2;
-#X text 332 464 needs the zexy library and vasp;
-#X obj 51 297 * 0.0001;
-#N canvas 0 0 478 359 glaetten 0;
-#X floatatom 225 70 5 0 0 0 - - -;
-#X floatatom 242 130 5 0 0 0 - - -;
-#X obj 225 111 div 64;
-#X obj 225 148 + 1;
-#X obj 225 169 * 64;
-#X floatatom 254 193 0 0 0 0 - - -;
-#X obj 225 90 - 1;
-#X text 40 193 correct to a size dividable by 64;
-#X obj 225 215 * 3;
-#X floatatom 238 240 0 0 0 0 - - -;
-#X text 143 239 size of array;
-#X text 115 68 length of sample;
-#X text 303 194 (part-length);
-#X obj 322 257 s \$0-partlen;
-#X msg 313 285 \; insert resize \$1;
-#X msg 73 287 \; schnipparray resize \$1;
-#X obj 225 38 inlet;
-#X connect 0 0 6 0;
-#X connect 2 0 1 0;
-#X connect 2 0 3 0;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 8 0;
-#X connect 5 0 13 0;
-#X connect 5 0 14 0;
-#X connect 6 0 2 0;
-#X connect 8 0 9 0;
-#X connect 8 0 15 0;
-#X connect 16 0 0 0;
-#X restore 482 362 pd glaetten;
-#X obj 482 320 soundfiler;
-#X obj 482 278 openpanel;
-#X msg 482 299 read -resize \$1 insert;
-#X obj 482 251 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X floatatom 482 342 0 0 0 0 - - -;
-#X text 326 103 this array is inserted at random triggering points
-;
-#X text 506 251 load sample to insert;
-#X text 332 478 be careful with high density \, with large files costs
-a lot of cpu and glitches can appear;
-#X msg 481 211 \; pd-create_schnippl vis 1;
-#X obj 481 189 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
--1;
-#X text 509 188 create samples to insert;
-#X connect 2 0 13 0;
-#X connect 4 0 7 0;
-#X connect 5 0 15 0;
-#X connect 8 0 1 0;
-#X connect 10 0 9 0;
-#X connect 12 0 13 1;
-#X connect 13 0 3 0;
-#X connect 13 0 3 1;
-#X connect 13 0 10 0;
-#X connect 15 0 4 0;
-#X connect 17 0 21 0;
-#X connect 18 0 19 0;
-#X connect 19 0 17 0;
-#X connect 20 0 18 0;
-#X connect 21 0 16 0;
-#X connect 26 0 25 0;
diff --git a/externals/grill/vasp/pd/VASP-HELP.pd b/externals/grill/vasp/pd/VASP-HELP.pd deleted file mode 100644 index 4e6dad90..00000000 --- a/externals/grill/vasp/pd/VASP-HELP.pd +++ /dev/null @@ -1,1157 +0,0 @@ -#N canvas 193 23 626 687 10;
-#X obj 104 47 cnv 15 15 15 empty empty vasp_modular 0 10 1 14 -262144
--1 0;
-#X obj 61 37 cnv 2 2 2 empty 2-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 37 cnv 2 2 2 empty 2-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 37 cnv 2 2 2 empty 2-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 37 cnv 2 2 2 empty 2-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 37 cnv 2 2 2 empty 2-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 37 cnv 2 2 2 empty 2-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 37 cnv 2 2 2 empty 2-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 37 cnv 2 2 2 empty 2-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 37 cnv 2 2 2 empty 2-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 37 cnv 2 2 2 empty 2-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 37 cnv 2 2 2 empty 2-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 37 cnv 2 2 2 empty 2-12-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 85 37 cnv 2 2 2 empty 2-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 37 cnv 2 2 2 empty 2-14-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 89 37 cnv 2 2 2 empty 2-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 39 cnv 2 2 2 empty 3-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 39 cnv 2 2 2 empty 3-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 39 cnv 2 2 2 empty 3-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 39 cnv 2 2 2 empty 3-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 39 cnv 2 2 2 empty 3-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 39 cnv 2 2 2 empty 3-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 39 cnv 2 2 2 empty 3-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 39 cnv 2 2 2 empty 3-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 39 cnv 2 2 2 empty 3-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 39 cnv 2 2 2 empty 3-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 39 cnv 2 2 2 empty 3-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 39 cnv 2 2 2 empty 3-12-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 85 39 cnv 2 2 2 empty 3-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 39 cnv 2 2 2 empty 3-14-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 89 39 cnv 2 2 2 empty 3-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 41 cnv 2 2 2 empty 4-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 41 cnv 2 2 2 empty 4-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 41 cnv 2 2 2 empty 4-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 41 cnv 2 2 2 empty 4-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 41 cnv 2 2 2 empty 4-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 41 cnv 2 2 2 empty 4-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 41 cnv 2 2 2 empty 4-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 41 cnv 2 2 2 empty 4-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 41 cnv 2 2 2 empty 4-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 41 cnv 2 2 2 empty 4-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 41 cnv 2 2 2 empty 4-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 41 cnv 2 2 2 empty 4-12-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 85 41 cnv 2 2 2 empty 4-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 41 cnv 2 2 2 empty 4-14-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 89 41 cnv 2 2 2 empty 4-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 43 cnv 2 2 2 empty 5-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 43 cnv 2 2 2 empty 5-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 43 cnv 2 2 2 empty 5-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 43 cnv 2 2 2 empty 5-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 43 cnv 2 2 2 empty 5-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 43 cnv 2 2 2 empty 5-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 43 cnv 2 2 2 empty 5-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 43 cnv 2 2 2 empty 5-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 43 cnv 2 2 2 empty 5-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 43 cnv 2 2 2 empty 5-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 43 cnv 2 2 2 empty 5-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 43 cnv 2 2 2 empty 5-12-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 85 43 cnv 2 2 2 empty 5-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 43 cnv 2 2 2 empty 5-14-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 89 43 cnv 2 2 2 empty 5-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 45 cnv 2 2 2 empty 6-1-r empty 20 12 64 14 -1 -262144 0;
-#X obj 63 45 cnv 2 2 2 empty 6-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 45 cnv 2 2 2 empty 6-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 45 cnv 2 2 2 empty 6-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 45 cnv 2 2 2 empty 6-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 45 cnv 2 2 2 empty 6-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 45 cnv 2 2 2 empty 6-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 45 cnv 2 2 2 empty 6-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 45 cnv 2 2 2 empty 6-9-r empty 20 12 64 14 -1 -262144 0;
-#X obj 79 45 cnv 2 2 2 empty 6-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 45 cnv 2 2 2 empty 6-11-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 83 45 cnv 2 2 2 empty 6-12-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 85 45 cnv 2 2 2 empty 6-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 45 cnv 2 2 2 empty 6-14-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 89 45 cnv 2 2 2 empty 6-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 47 cnv 2 2 2 empty 7-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 47 cnv 2 2 2 empty 7-2-r empty 20 12 64 14 -1 -262144 0;
-#X obj 65 47 cnv 2 2 2 empty 7-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 47 cnv 2 2 2 empty 7-4-r empty 20 12 64 14 -1 -262144 0;
-#X obj 69 47 cnv 2 2 2 empty 7-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 47 cnv 2 2 2 empty 7-6-r empty 20 12 64 14 -1 -262144 0;
-#X obj 73 47 cnv 2 2 2 empty 7-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 47 cnv 2 2 2 empty 7-8-r empty 20 12 64 14 -1 -262144 0;
-#X obj 77 47 cnv 2 2 2 empty 7-9-r empty 20 12 64 14 -1 -262144 0;
-#X obj 79 47 cnv 2 2 2 empty 7-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 47 cnv 2 2 2 empty 7-11-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 83 47 cnv 2 2 2 empty 7-12-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 85 47 cnv 2 2 2 empty 7-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 47 cnv 2 2 2 empty 7-14-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 89 47 cnv 2 2 2 empty 7-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 49 cnv 2 2 2 empty 8-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 49 cnv 2 2 2 empty 8-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 49 cnv 2 2 2 empty 8-3-r empty 20 12 64 14 -1 -262144 0;
-#X obj 67 49 cnv 2 2 2 empty 8-4-r empty 20 12 64 14 -1 -262144 0;
-#X obj 69 49 cnv 2 2 2 empty 8-5-r empty 20 12 64 14 -1 -262144 0;
-#X obj 71 49 cnv 2 2 2 empty 8-6-r empty 20 12 64 14 -1 -262144 0;
-#X obj 73 49 cnv 2 2 2 empty 8-7-r empty 20 12 64 14 -1 -262144 0;
-#X obj 75 49 cnv 2 2 2 empty 8-8-r empty 20 12 64 14 -1 -262144 0;
-#X obj 77 49 cnv 2 2 2 empty 8-9-r empty 20 12 64 14 -1 -262144 0;
-#X obj 79 49 cnv 2 2 2 empty 8-10-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 81 49 cnv 2 2 2 empty 8-11-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 83 49 cnv 2 2 2 empty 8-12-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 85 49 cnv 2 2 2 empty 8-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 49 cnv 2 2 2 empty 8-14-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 89 49 cnv 2 2 2 empty 8-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 51 cnv 2 2 2 empty 9-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 51 cnv 2 2 2 empty 9-2-r empty 20 12 64 14 -1 -262144 0;
-#X obj 65 51 cnv 2 2 2 empty 9-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 51 cnv 2 2 2 empty 9-4-r empty 20 12 64 14 -1 -262144 0;
-#X obj 69 51 cnv 2 2 2 empty 9-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 51 cnv 2 2 2 empty 9-6-r empty 20 12 64 14 -1 -262144 0;
-#X obj 73 51 cnv 2 2 2 empty 9-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 51 cnv 2 2 2 empty 9-8-r empty 20 12 64 14 -1 -262144 0;
-#X obj 77 51 cnv 2 2 2 empty 9-9-r empty 20 12 64 14 -1 -262144 0;
-#X obj 79 51 cnv 2 2 2 empty 9-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 51 cnv 2 2 2 empty 9-11-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 83 51 cnv 2 2 2 empty 9-12-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 85 51 cnv 2 2 2 empty 9-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 51 cnv 2 2 2 empty 9-14-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 89 51 cnv 2 2 2 empty 9-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 53 cnv 2 2 2 empty 10-1-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 63 53 cnv 2 2 2 empty 10-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 53 cnv 2 2 2 empty 10-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 53 cnv 2 2 2 empty 10-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 53 cnv 2 2 2 empty 10-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 53 cnv 2 2 2 empty 10-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 53 cnv 2 2 2 empty 10-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 53 cnv 2 2 2 empty 10-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 53 cnv 2 2 2 empty 10-9-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 79 53 cnv 2 2 2 empty 10-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 53 cnv 2 2 2 empty 10-11-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 83 53 cnv 2 2 2 empty 10-12-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 85 53 cnv 2 2 2 empty 10-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 53 cnv 2 2 2 empty 10-14-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 89 53 cnv 2 2 2 empty 10-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 55 cnv 2 2 2 empty 11-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 55 cnv 2 2 2 empty 11-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 55 cnv 2 2 2 empty 11-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 55 cnv 2 2 2 empty 11-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 55 cnv 2 2 2 empty 11-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 55 cnv 2 2 2 empty 11-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 55 cnv 2 2 2 empty 11-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 55 cnv 2 2 2 empty 11-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 55 cnv 2 2 2 empty 11-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 55 cnv 2 2 2 empty 11-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 55 cnv 2 2 2 empty 11-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 55 cnv 2 2 2 empty 11-12-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 85 55 cnv 2 2 2 empty 11-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 55 cnv 2 2 2 empty 11-14-r empty 20 12 64 14 -1 -262144 0
-;
-#X obj 89 55 cnv 2 2 2 empty 11-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 57 cnv 2 2 2 empty 12-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 57 cnv 2 2 2 empty 12-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 57 cnv 2 2 2 empty 12-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 57 cnv 2 2 2 empty 12-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 57 cnv 2 2 2 empty 12-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 57 cnv 2 2 2 empty 12-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 57 cnv 2 2 2 empty 12-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 57 cnv 2 2 2 empty 12-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 57 cnv 2 2 2 empty 12-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 57 cnv 2 2 2 empty 12-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 57 cnv 2 2 2 empty 12-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 57 cnv 2 2 2 empty 12-12-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 85 57 cnv 2 2 2 empty 12-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 57 cnv 2 2 2 empty 12-14-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 89 57 cnv 2 2 2 empty 12-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 59 cnv 2 2 2 empty 13-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 59 cnv 2 2 2 empty 13-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 59 cnv 2 2 2 empty 13-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 59 cnv 2 2 2 empty 13-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 59 cnv 2 2 2 empty 13-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 59 cnv 2 2 2 empty 13-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 59 cnv 2 2 2 empty 13-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 59 cnv 2 2 2 empty 13-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 59 cnv 2 2 2 empty 13-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 59 cnv 2 2 2 empty 13-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 59 cnv 2 2 2 empty 13-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 59 cnv 2 2 2 empty 13-12-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 85 59 cnv 2 2 2 empty 13-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 59 cnv 2 2 2 empty 13-14-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 89 59 cnv 2 2 2 empty 13-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 61 61 cnv 2 2 2 empty 14-1-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 63 61 cnv 2 2 2 empty 14-2-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 65 61 cnv 2 2 2 empty 14-3-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 67 61 cnv 2 2 2 empty 14-4-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 69 61 cnv 2 2 2 empty 14-5-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 71 61 cnv 2 2 2 empty 14-6-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 73 61 cnv 2 2 2 empty 14-7-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 75 61 cnv 2 2 2 empty 14-8-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 77 61 cnv 2 2 2 empty 14-9-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 79 61 cnv 2 2 2 empty 14-10-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 81 61 cnv 2 2 2 empty 14-11-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 83 61 cnv 2 2 2 empty 14-12-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 85 61 cnv 2 2 2 empty 14-13-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 87 61 cnv 2 2 2 empty 14-14-r empty 20 12 64 14 -225271 -262144
-0;
-#X obj 89 61 cnv 2 2 2 empty 14-15-r empty 20 12 64 14 -225271 -262144
-0;
-#X text 54 90 vasp modular - vector assembling signal processor ©2002-2007
-thomas grill;
-#X text 54 123 vasp is a library of objects for max/msp and pd \, containing
-functions to generate and modify vectors as well as buffer content
-in a non-realtime context.;
-#X text 54 169 vasp objects are using a specialized message syntax
-for all objects to refer to a buffer or a part of it.;
-#X text 55 248 some reference patches need the prepend object of the
-IEMlib;
-#X text 55 565 inspired by guenther rabl's fftbox and NMS4. find guenther
-rabl at www.canto-crudo.com;
-#X text 54 602 vasp help patches for MaxMSP by florian bogner and oliver
-grimm - ©2002 patcherboys;
-#X text 55 639 revised & extended version for PD by marius schebella
-- www.parasitaere-kapazitaeten.net/vasp;
-#X text 54 202 the help patches should give you an idea of what is
-possible. feel free to combine different patches to more complex ones.
-;
-#X text 76 291 (very) quick overview;
-#N canvas 131 125 831 564 quickstart 0;
-#X text 86 223 How to use:;
-#X obj 292 270 bng 15 250 50 0 1displays 1displayr empty 0 -6 192 8
--24198 -1 -1;
-#X text 320 269 1) Have a messagebox with the name of the array.;
-#X obj 292 317 bng 15 250 50 0 2displays 2displayr empty 0 -6 192 8
--24198 -1 -1;
-#X obj 292 400 bng 15 250 50 0 3displays 3displayr empty 0 -6 192 8
--24198 -1 -1;
-#N canvas 323 136 534 533 inside 0;
-#X obj 144 38 r 1displays;
-#X obj 176 281 delay 500;
-#X obj 144 156 r 2displays;
-#X obj 144 80 change;
-#X msg 144 59 1;
-#X obj 144 198 change;
-#X msg 144 177 1;
-#X msg 144 101 bang;
-#X msg 144 221 bang;
-#X obj 64 327 change;
-#X msg 64 306 1;
-#X obj 64 284 r 3displays;
-#X obj 64 349 t b b b;
-#X obj 315 37 table buffer1;
-#X text 314 55 (dummy-table);
-#X msg 144 122 \; pd-quickstart msg 130 270 vasp buffer1;
-#X msg 144 244 \; pd-quickstart obj 130 320 vasp.shift 100;
-#X msg 108 374 \; pd-quickstart msg 130 370 vasp buffer1;
-#X msg 82 411 \; pd-quickstart obj 130 400 vasp.update;
-#X msg 176 302 \; pd-quickstart connect 13 0 14 0;
-#X msg 64 452 \; pd-quickstart connect 15 0 16 0;
-#X connect 0 0 4 0;
-#X connect 1 0 19 0;
-#X connect 2 0 6 0;
-#X connect 3 0 7 0;
-#X connect 4 0 3 0;
-#X connect 5 0 8 0;
-#X connect 6 0 5 0;
-#X connect 7 0 15 0;
-#X connect 8 0 16 0;
-#X connect 8 0 1 0;
-#X connect 9 0 12 0;
-#X connect 10 0 9 0;
-#X connect 11 0 10 0;
-#X connect 12 0 20 0;
-#X connect 12 1 18 0;
-#X connect 12 2 17 0;
-#X restore 716 65 pd inside;
-#X text 87 54 The vasp modular system does calculation on buffers.
-;
-#X text 322 316 2) Connect it to a vasp-object-box that determines
-the processing algorithm.;
-#X text 323 374 3) At that point \, after clicking the message-box
-\, data processing is executed. To display the new vasp in the graph
-you may want to update the graphic display.;
-#X text 86 89 Vasp works "out of time" \, it does not relay on the
-usual blocksizes of Pd. A vasp algorithm can be assigned to any buffer
-size according to your own definition \, for example the whole sound-data
-of an array.;
-#X text 86 156 There is a general help-patch called "VASP-HELP" \,
-and there is a reference-patch for every vasp object.;
-#X text 233 241 (CLICK GREEN BUTTONS);
-#X text 85 481 Have a look at this help for detailed information about
-the syntax and the available objects and features.;
-#X restore 232 292 pd quickstart;
-#X text 108 324 the vasp message;
-#N canvas 10 33 986 670 syntax 0;
-#X text 76 52 the vasp message:;
-#X obj 75 20 cnv 15 15 15 empty empty vasp_syntax 0 10 1 14 -262144
--1 0;
-#N canvas 0 0 405 218 init 0;
-#X obj 33 19 loadbang;
-#X msg 33 99 \; \$1 xticks 0 4410 5 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 33 45 symbol buf1 \, symbol buf2 \, sysymbol buf1 \, symbol
-buf2 \, symbol buf3 \, symbol buf4 \, symbol buf5 \, symbol buf6 \,
-symbol buf7 \, symbol buf8 \, symbol buf9;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 827 44 pd init;
-#X obj 73 92 cnv 15 800 450 empty empty empty 20 12 0 14 -241339 -66577
-0;
-#X text 469 241 (default 0);
-#X text 515 185 which does the same.;
-#X msg 462 184 vasp -1;
-#X msg 222 270 vasp 44100 buf1 22050 0;
-#X text 110 271 and the channel;
-#X msg 317 241 vasp 44100 buf1 22050;
-#X text 110 243 an optional offset in samples;
-#X msg 365 214 vasp 44100 buf1;
-#X text 110 216 the name of the buffer it refers to;
-#X msg 347 158 vasp 44100;
-#X text 110 161 followed by the length in samples;
-#X msg 266 132 vasp;
-#X text 89 102 - a vasp message is structured by the following parts:
-;
-#X text 110 135 it always starts with;
-#X text 110 450 set all samples of buf1 to 0;
-#X text 110 384 generate a sine wave at 2Hz;
-#X msg 311 451 vasp buf1;
-#X obj 311 497 vasp.update;
-#X obj 311 473 vasp.= 0;
-#X obj 310 412 vasp.update;
-#X obj 310 383 vasp.osc 22050;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf1 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 498 403 graph;
-#X msg 310 323 vasp 44100 buf1 22050 0;
-#X text 110 325 one vectored vasp message:;
-#X obj 73 582 cnv 15 800 480 empty empty empty 20 12 0 14 -241339 -66577
-0;
-#X text 138 890 set all samples of buf1 and buf2 to 0;
-#X msg 275 910 vasp buf2 buf3;
-#X obj 275 956 vasp.update;
-#X obj 275 932 vasp.= 0;
-#X obj 274 846 vasp.update;
-#X obj 274 816 vasp.osc 22050;
-#X text 139 993 a vasp message can contain as many vectors as you like
-\, but all vectors have the same length;
-#X msg 274 714 vasp 44100 buf2 0 0 buf3 22050;
-#X text 110 689 two vectored vasp message:;
-#X text 110 633 all vectors have the same length \, but the vectors
-can differ in the buffers and offsets;
-#X text 89 597 - if a vasp message contains more than one vector:;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf2 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 477 754 graph;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf3 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 478 878 graph;
-#X text 110 184 if missing \, it refers to the whole buffer \, or type
-;
-#X text 139 1028 different vectors of a vasp are processed in parallel
-or as pairs for complex operations respectively.;
-#X obj 860 1077 cnv 15 15 15 empty empty empty 20 12 0 14 -262144 -66577
-0;
-#X text 336 339 (CLICK HERE);
-#X text 377 451 (CLICK HERE);
-#X text 326 736 (CLICK HERE);
-#X text 470 683 referring to buffer buf1 from 0 sec to 1 sec on channel
-0 and buffer buf2 from 0.5 sec to 1.5 sec on channel 0;
-#X text 354 934 (CLICK HERE);
-#X text 393 271 (default 0 \, it is only used in Max/MSP);
-#X text 453 342 referring to buffer buf1 from 0.5sec to 1.5sec on channel
-0;
-#X connect 20 0 22 0;
-#X connect 22 0 21 0;
-#X connect 24 0 23 0;
-#X connect 26 0 24 0;
-#X connect 30 0 32 0;
-#X connect 32 0 31 0;
-#X connect 34 0 33 0;
-#X connect 36 0 34 0;
-#X restore 232 325 pd syntax;
-#X text 88 357 additional messages;
-#N canvas 30 20 964 685 moremessages 0;
-#X obj 59 74 cnv 15 800 330 empty empty empty 20 12 0 14 -241339 -66577
-0;
-#X obj 330 342 vasp.* 0.5;
-#X text 128 192 set all samples of buf1 to 0;
-#X obj 330 374 vasp.update;
-#X obj 330 316 vasp.noise;
-#X msg 330 191 vasp buf4;
-#X obj 330 243 vasp.update;
-#X obj 330 217 vasp.= 0;
-#X obj 330 159 vasp.update;
-#X obj 330 133 vasp.osc 22050;
-#X msg 330 290 vasp buf5;
-#X text 470 92 sets the message \, bang triggers the operation;
-#X text 68 29 additional vasp messages:;
-#X msg 330 92 set vasp 44100 buf4;
-#X text 107 92 - set:;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf4 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 503 145 graph;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf5 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 504 269 graph;
-#X obj 286 108 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 107 115 - bang:;
-#X obj 60 662 cnv 15 800 290 empty empty empty 20 12 0 14 -241339 -66577
-0;
-#X text 108 688 - update:;
-#X msg 233 726 update 1;
-#X msg 297 726 update 0;
-#X msg 361 690 vasp buf7;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf7 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 521 699 graph;
-#X obj 651 903 vasp.update;
-#X obj 392 752 random 10;
-#X obj 392 778 * 0.1;
-#X msg 651 877 vasp buf7;
-#X obj 361 716 t a b;
-#X obj 60 975 cnv 15 800 290 empty empty empty 20 12 0 14 -241339 -66577
-0;
-#X text 134 998 - detach:;
-#X text 233 839 with argument 1 or 0 you can turn automatic display-update
-on or off (default is off).;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf8 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 525 1088 graph;
-#X obj 297 1231 vasp.u;
-#X obj 297 1205 vasp.opt;
-#X obj 297 1178 vasp.rfft;
-#X msg 297 1074 vasp buf8;
-#X msg 225 1095 detach 1;
-#X text 238 998 use multithreading;
-#X msg 162 1095 detach 0;
-#X obj 59 1290 cnv 15 800 300 empty empty empty 20 12 0 14 -241339
--66577 0;
-#X text 127 1321 - radio:;
-#X obj 845 1762 cnv 15 15 15 empty empty empty 20 12 0 14 -262144 -66577
-0;
-#X obj 59 430 cnv 15 800 210 empty empty empty 20 12 0 14 -241339 -66577
-0;
-#X text 129 556 set all samples of buf5/6 to 0;
-#X msg 351 559 vasp buf5 buf6;
-#X obj 351 611 vasp.update;
-#X obj 351 585 vasp.= 0;
-#X msg 351 470 to vasp buf6 \, vasp buf5;
-#X obj 351 522 vasp.update;
-#X text 143 474 sets the target buffer buf6;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf6 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 515 515 graph;
-#X text 113 448 - to:;
-#X msg 192 1537 radio update 1;
-#X msg 187 1386 radio detach 1;
-#X text 149 1536 also:;
-#X obj 297 1497 vasp.u;
-#N canvas 0 0 450 300 graph1 0;
-#X array buf9 88200 float 0;
-#X coords 0 1 88199 -1 300 100 1;
-#X restore 526 1398 graph;
-#X msg 297 1367 vasp buf9;
-#X obj 351 496 vasp.*osc 22100;
-#X text 45 497 and modulate the noise with a 2Hz sine wave;
-#X text 233 875 if automatic update is turned off \, you explicitely
-have to update the display with the object vasp.update;
-#X obj 361 806 vasp.=;
-#X text 237 1019 this very useful switch can put the vasp-calculation
-into the background and (try to) avoid dropouts in the Pd-DSP-processing.
-1 = on \, 0 = off.;
-#X obj 297 1125 vasp.noise;
-#X obj 297 1149 vasp.flp 100;
-#X text 392 1147 low pass filter;
-#X text 383 1125 generate noise;
-#X text 235 1321 radio messages are passed to/through all vasp objects
-of an object chain;
-#X obj 297 1422 vasp.xwindow lin;
-#X obj 297 1466 vasp.sqr;
-#X text 354 1465 square it;
-#X text 355 1439 make linear window;
-#X text 69 45 set \, bang \, to \, update \, detach \, help;
-#X obj 61 1624 cnv 15 800 130 empty empty empty 20 12 0 14 -241339
--66577 0;
-#X text 127 1636 - help:;
-#X msg 240 1676 help;
-#X obj 240 1709 vasp.??;
-#X msg 323 1676 help;
-#X obj 323 1709 vasp.s/;
-#X text 236 1637 print out a short description of the object;
-#X text 376 1177 real fft;
-#X connect 1 0 3 0;
-#X connect 4 0 1 0;
-#X connect 5 0 7 0;
-#X connect 7 0 6 0;
-#X connect 9 0 8 0;
-#X connect 10 0 4 0;
-#X connect 13 0 9 0;
-#X connect 17 0 9 0;
-#X connect 21 0 63 0;
-#X connect 22 0 63 0;
-#X connect 23 0 29 0;
-#X connect 26 0 27 0;
-#X connect 27 0 63 1;
-#X connect 28 0 25 0;
-#X connect 29 0 63 0;
-#X connect 29 1 26 0;
-#X connect 35 0 34 0;
-#X connect 36 0 35 0;
-#X connect 37 0 65 0;
-#X connect 38 0 36 0;
-#X connect 38 0 66 0;
-#X connect 38 0 65 0;
-#X connect 40 0 36 0;
-#X connect 40 0 66 0;
-#X connect 40 0 65 0;
-#X connect 46 0 48 0;
-#X connect 48 0 47 0;
-#X connect 49 0 60 0;
-#X connect 55 0 70 0;
-#X connect 59 0 70 0;
-#X connect 60 0 50 0;
-#X connect 65 0 66 0;
-#X connect 66 0 36 0;
-#X connect 70 0 71 0;
-#X connect 71 0 57 0;
-#X connect 77 0 78 0;
-#X connect 79 0 80 0;
-#X restore 232 356 pd moremessages;
-#X text 107 389 the vasp objects;
-#N canvas 57 40 412 447 objects 0;
-#X obj 59 28 cnv 15 15 15 empty empty vasp_objects 0 10 1 14 -262144
--1 0;
-#N canvas 343 209 509 292 fftobjects 0;
-#X obj 281 103 vasp.r!fft;
-#X obj 281 71 vasp.rfft;
-#X obj 72 160 vasp.polar;
-#X obj 72 103 vasp.c!fft;
-#X obj 72 71 vasp.cfft;
-#X text 145 160 changes between cartesian and polar representation
-;
-#X text 358 103 inverse real fft;
-#X text 145 71 complex fft;
-#X text 145 103 inverse complex fft;
-#X text 358 71 real fft;
-#X text 145 213 changes between polar and cartesian representation
-;
-#X obj 72 212 vasp.rect;
-#X obj 35 22 cnv 15 15 15 empty empty fftobjects 0 10 1 14 -262144
--1 0;
-#X restore 71 206 pd fftobjects;
-#N canvas 386 9 609 639 arithmetic 0;
-#X obj 354 138 vasp.c!-;
-#X text 149 135 reverse subtraction;
-#X obj 76 136 vasp.!-;
-#X text 437 421 integral function;
-#X text 437 444 differential function;
-#X obj 362 448 vasp.dif;
-#X obj 362 422 vasp.int;
-#X obj 361 346 vasp.r+;
-#X text 414 350 radius offset;
-#X obj 354 216 vasp.c!/;
-#X text 150 213 reverse division;
-#X obj 76 214 vasp.!/;
-#X obj 355 250 vasp.c=;
-#X obj 354 190 vasp.c/;
-#X obj 354 164 vasp.c*;
-#X obj 354 112 vasp.c-;
-#X obj 354 86 vasp.c+;
-#X obj 76 578 vasp.sign;
-#X obj 76 552 vasp.%;
-#X obj 76 526 vasp.abs;
-#X obj 76 500 vasp.!=;
-#X obj 76 474 vasp.==;
-#X obj 76 344 vasp.>=;
-#X obj 76 318 vasp.<=;
-#X obj 76 292 vasp.>;
-#X obj 76 266 vasp.<;
-#X obj 76 240 vasp.=;
-#X obj 76 188 vasp./;
-#X obj 76 162 vasp.*;
-#X obj 76 110 vasp.-;
-#X obj 76 84 vasp.+;
-#X text 150 338 vasp >= x;
-#X text 150 315 vasp >= x;
-#X text 150 292 vasp > x;
-#X text 150 269 vasp < x;
-#X text 151 473 equal to;
-#X text 152 161 multiplication;
-#X text 149 187 division;
-#X text 150 106 subtraction;
-#X text 153 499 not equal to;
-#X text 153 551 modulo (remainder of a division);
-#X text 151 525 absolute value of a vasp;
-#X text 150 83 addition;
-#X text 354 62 complex ....;
-#X text 150 239 vasp = x;
-#X text 152 577 values < 0 become -1 | values > 0 become 1;
-#X text 361 322 radius ....;
-#X obj 35 22 cnv 15 15 15 empty empty arithmetic 0 10 1 14 -262144
--1 0;
-#X obj 355 276 vasp.cconj;
-#X obj 76 370 vasp.a<;
-#X obj 76 396 vasp.a>;
-#X obj 76 422 vasp.a<=;
-#X obj 76 448 vasp.a>=;
-#X text 149 369 abs(vasp) < abs(x);
-#X text 149 392 abs(vasp) > abs(x);
-#X text 149 444 abs(vasp) >= abs(x);
-#X text 149 421 abs(vasp) <= abs(x);
-#X obj 362 488 vasp.sum?;
-#X text 433 486 sum of samples;
-#X restore 72 128 pd arithmetic;
-#N canvas 197 195 744 308 generators 0;
-#X obj 389 194 vasp.*cosc;
-#X obj 389 138 vasp.*phasor;
-#X obj 389 110 vasp.*osc;
-#X obj 72 222 vasp.cnoise;
-#X obj 72 194 vasp.cosc;
-#X obj 72 166 vasp.noise;
-#X obj 72 138 vasp.phasor;
-#X obj 72 110 vasp.osc;
-#X text 72 67 generate .....;
-#X text 166 165 vasp noise generator;
-#X text 166 134 vasp saw tooth generator;
-#X text 166 109 vasp sine wave generator;
-#X text 166 226 complex noise;
-#X text 166 190 complex sine wave;
-#X obj 35 22 cnv 15 15 15 empty empty generators 0 10 1 14 -262144
--1 0;
-#X text 366 67 multiply a buffer content with the oscillator functions
-...;
-#X restore 72 179 pd generators;
-#N canvas 510 190 355 349 filters 0;
-#X obj 53 107 vasp.flp;
-#X obj 53 77 vasp.fhp;
-#X text 157 111 low pass;
-#X text 157 80 high pass;
-#X obj 35 22 cnv 15 15 15 empty empty filters 0 10 1 14 -262144 -1
-0;
-#X obj 52 205 vasp.rvalleys;
-#X obj 52 238 vasp.rpeaks;
-#X text 156 205 radius valleys;
-#X text 156 238 radius peaks;
-#X obj 52 173 vasp.peaks;
-#X obj 52 140 vasp.valleys;
-#X text 156 175 local peaks of a vasp;
-#X text 156 142 local minima of a vasp;
-#X restore 71 255 pd filters;
-#N canvas 306 143 560 383 displace 0;
-#X text 158 163 rotate buffer content symmetrically;
-#X obj 80 164 vasp.xrot;
-#X obj 80 232 vasp.xmirr;
-#X obj 80 197 vasp.mirr;
-#X obj 80 132 vasp.rot;
-#X obj 80 97 vasp.xshift;
-#X obj 80 62 vasp.shift;
-#X text 158 231 mirrors a vasp symmetrically;
-#X text 158 196 mirrors a vasp;
-#X text 158 61 shifts the buffer content;
-#X text 158 131 rotate buffer content;
-#X obj 35 22 cnv 15 15 15 empty empty displace 0 10 1 14 -262144 -1
-0;
-#X text 157 96 shifts the buffer content symmetrically;
-#X obj 80 275 vasp.tilt;
-#X obj 80 316 vasp.xtilt;
-#X text 160 274 resamples around a center position;
-#X text 160 310 buffer is divided in two symmetrical halves and each
-one is resampled around a center position;
-#X restore 71 230 pd displace;
-#N canvas 206 180 677 313 transcendent 0;
-#X text 403 97 complex sample^2;
-#X text 403 67 complex integer power function;
-#X text 145 195 square root;
-#X text 145 226 signed sample^2;
-#X obj 329 66 vasp.cpowi;
-#X obj 329 96 vasp.csqr;
-#X obj 73 257 vasp.ssqrt;
-#X obj 73 226 vasp.ssqr;
-#X obj 73 194 vasp.sqrt;
-#X obj 73 164 vasp.sqr;
-#X obj 73 134 vasp.pow;
-#X text 145 257 signed square root;
-#X text 145 135 samps^x;
-#X text 145 165 sample^2;
-#X obj 329 142 vasp.rpow;
-#X text 396 143 radius power function;
-#X obj 73 102 vasp.log;
-#X obj 73 66 vasp.exp;
-#X text 145 102 logarithm;
-#X text 145 66 exponential;
-#X obj 35 22 cnv 15 15 15 empty empty transcendent 0 10 1 14 -262144
--1 0;
-#X restore 72 153 pd transcendent;
-#N canvas 236 197 682 329 minmax_etc. 0;
-#X obj 422 250 vasp.rmin;
-#X obj 422 218 vasp.rmax;
-#X text 511 250 radius minimum;
-#X text 511 219 radius maximum;
-#X obj 76 250 vasp.min;
-#X obj 76 218 vasp.max;
-#X obj 76 187 vasp.max?;
-#X obj 76 156 vasp.min?;
-#X obj 76 125 vasp.amax?;
-#X obj 76 94 vasp.amin?;
-#X obj 422 187 vasp.rmax?;
-#X obj 422 156 vasp.rmin?;
-#X obj 76 62 vasp.minmax;
-#X text 167 250 minimum of vasp and argument;
-#X text 167 219 maximum of vasp and argument;
-#X text 167 156 output min. value of a vasp;
-#X text 167 187 output max. value of a vasp;
-#X text 167 125 output max. absolute value of a vasp;
-#X text 167 94 output min. absolute value of a vasp;
-#X text 511 187 radius max. value;
-#X text 511 156 radius min. value;
-#X text 167 65 splits a vasp into minimum and maximum values;
-#X obj 35 22 cnv 15 15 15 empty empty minmax 0 10 1 14 -262144 -1 0
-;
-#X restore 71 279 pd minmax_etc.;
-#N canvas 229 139 538 399 window-functions 0;
-#X obj 59 28 cnv 15 15 15 empty empty window-functions 0 10 1 14 -262144
--1 0;
-#X obj 77 92 vasp.window;
-#X obj 77 125 vasp.xwindow;
-#X obj 77 159 vasp.!window;
-#X obj 116 255 vasp.*window;
-#X obj 116 289 vasp.*xwindow;
-#X obj 116 318 vasp.*!window;
-#X text 188 122 symmetrical window;
-#X text 188 90 left part of symmetrical window;
-#X text 190 160 right part of symmetrical window;
-#X text 77 212 multiply...;
-#X restore 71 303 pd window-functions;
-#N canvas 188 241 512 403 utilities 0;
-#X obj 77 143 vasp.cnorm;
-#X obj 80 321 vasp.pwrap;
-#X obj 80 265 vasp.opt;
-#X obj 77 64 vasp.gate;
-#X text 158 265 optimize buffer content;
-#X text 157 64 gates vasp under a value (amplitude);
-#X text 158 143 sets complex radius of all samples to unity;
-#X obj 80 292 vasp.ropt;
-#X text 157 294 radius optimize;
-#X obj 77 90 vasp.rgate;
-#X text 158 90 radius gate;
-#X text 158 321 wraps value from 0-2 to -1 to 1;
-#X obj 59 28 cnv 15 15 15 empty empty utilities 0 10 1 14 -262144 -1
-0;
-#X obj 77 115 vasp.fix;
-#X obj 76 173 vasp.radio;
-#X text 73 226 abstractions:;
-#X text 158 115 fix NAN (not a number) values;
-#X text 157 172 filter radio messages;
-#X restore 71 326 pd utilities;
-#N canvas 173 0 652 692 declaration 0;
-#X obj 68 42 cnv 15 15 15 empty empty declaration 0 10 1 14 -262144
--1 0;
-#X text 184 148 get a vector of a vasp;
-#X obj 84 152 vasp.vector;
-#X text 184 179 get the number of vectors of a vasp;
-#X obj 84 180 vasp.vectors?;
-#X text 184 207 set a vasp's offset(s) into the vector buffers;
-#X obj 84 208 vasp.offset;
-#X text 184 235 shift a vasp's offset(s) into the vector buffers;
-#X obj 84 236 vasp.offset+;
-#X text 184 263 get a single vectored vasp's offset(s) into the buffer
-;
-#X obj 84 264 vasp.offset?;
-#X obj 84 292 vasp.offset=;
-#X text 184 319 set a vasps frame count;
-#X obj 84 320 vasp.frames;
-#X text 184 349 raise/lower a vasps frame count;
-#X obj 84 348 vasp.frames+;
-#X text 184 374 get a vasps frame count;
-#X obj 84 376 vasp.frames?;
-#X obj 84 404 vasp.frames*;
-#X obj 84 432 vasp.frames/;
-#X obj 84 460 vasp.frames=;
-#X obj 84 488 vasp.size;
-#X obj 84 516 vasp.size+;
-#X obj 84 544 vasp.size*;
-#X obj 84 600 vasp.size?;
-#X obj 84 572 vasp.size/;
-#X obj 84 628 vasp.channel;
-#X obj 84 656 vasp.channel?;
-#X obj 84 124 vasp;
-#X text 184 123 store and output a vasp;
-#X text 184 405 change a vasps frame count by multiplication;
-#X text 184 430 change a vasps frame count by division;
-#X text 184 486 set the size of an array/buffer;
-#X text 186 517 raise the size of an array/buffer;
-#X text 186 542 change the size of an array/buffer by multiplication
-;
-#X text 185 603 get the size of a vasp;
-#X text 185 578 change the size of an array/buffer by division;
-#X text 186 658 get the channel of a multichannel vasp (MaxMSP only)
-;
-#X text 186 633 define the channel of a multichannel vasp (MAXMSP only)
-;
-#X text 55 84 (get help on right click/help just as usual);
-#X text 184 291 set a vasp's offset by searching for a value;
-#X text 184 461 change a vasp's frame count by searching for a value
-;
-#X restore 72 78 pd declaration;
-#N canvas 238 51 544 560 basics 0;
-#X text 173 122 check vasp dimensions;
-#X obj 73 122 vasp.check;
-#X text 173 162 sync 2 or more vasps;
-#X obj 73 162 vasp.sync;
-#X text 173 142 update the graphics of a patcher (e.g. waveform);
-#X obj 73 142 vasp.update;
-#X text 173 182 output a vasp multiply;
-#X obj 73 182 vasp.multi;
-#X text 173 228 split a vasp into its vectors;
-#X obj 73 228 vasp.split 2;
-#X text 173 248 join several vasps into one;
-#X obj 73 248 vasp.join 2;
-#X text 173 268 spit out vectors of a vasp (one vector after the other)
-;
-#X obj 73 268 vasp.spit;
-#X text 173 288 gather several vasps into one;
-#X obj 73 288 vasp.gather;
-#X text 173 308 output vasps with different lengths and offsets;
-#X obj 73 308 vasp.part;
-#X text 174 412 output the samples of a vasp as list;
-#X obj 74 412 vasp.?;
-#X text 174 431 output all non zero samples of a vasp as list;
-#X obj 74 432 vasp.??;
-#X obj 71 64 cnv 15 15 15 empty empty basics 0 10 1 14 -262144 -1 0
-;
-#X obj 73 328 vasp.->;
-#X text 173 328 copy a vasp into another one;
-#X text 173 348 copy a complex vasp;
-#X obj 73 348 vasp.c->;
-#X obj 75 469 vasp.!;
-#X text 175 469 create a temporary vasp (immediate);
-#X restore 72 103 pd basics;
-#X restore 232 387 pd objects;
-#X text 149 418 envelopes;
-#N canvas 39 33 908 540 envelopes 0;
-#N canvas 40 55 255 173 clear_buffer 0;
-#X obj 59 79 vasp.update;
-#X obj 59 56 vasp.= 0;
-#X obj 59 26 inlet;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 497 300 pd clear_buffer;
-#N canvas 0 0 450 300 graph167 0;
-#X array bufenv1 88200 float 0;
-#X coords 0 1 88199 -1 300 120 1;
-#X restore 513 99 graph;
-#N canvas 431 348 401 213 init 0;
-#X obj 36 19 loadbang;
-#X msg 36 73 \; \$1 xticks 0 4410 10 \; \$1 xlabel 1.1 0 22050 44100
-66150 88200 \; \$1 yticks 0 0.25 2 \; \$1 ylabel 94000 -1 -0.5 0 0.5
-1;
-#X msg 36 45 symbol bufenv1;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 621 293 pd init;
-#X obj 48 469 vasp.u;
-#X text 43 17 create envelopes from data-pairs;
-#X msg 497 272 vasp bufenv1;
-#X msg 46 103 vasp bufenv1;
-#X obj 46 159 vasp.u;
-#X obj 46 319 vasp.=;
-#X obj 46 263 t b a;
-#X msg 46 291 vasp bufenv1;
-#X obj 46 347 vasp.u;
-#X msg 46 222 env 0 0 0.8 1500 1 4000 0.95 10000 0.5 20000 0.15 55000
-0 88200;
-#X msg 48 397 vasp bufenv1;
-#X obj 48 421 vasp.!window lin;
-#X obj 48 447 vasp.* env 0 0 1 22050;
-#X obj 46 131 vasp.= env 1 0 -0.6 70000;
-#X text 231 129 an envelope as a creation argument;
-#X text 45 199 or sent as message;
-#X text 159 394 used as an argument alternatively to a value or vasp
-;
-#X text 46 85 CLICK HERE!;
-#X text 43 36 value - position in samples \, value2 - position2 \,
-...;
-#X connect 5 0 0 0;
-#X connect 6 0 16 0;
-#X connect 8 0 11 0;
-#X connect 9 0 10 0;
-#X connect 9 1 8 1;
-#X connect 10 0 8 0;
-#X connect 12 0 9 0;
-#X connect 13 0 14 0;
-#X connect 14 0 15 0;
-#X connect 15 0 3 0;
-#X connect 16 0 7 0;
-#X restore 232 419 pd envelopes;
-#X text 137 450 vasps units;
-#N canvas 49 240 511 378 units 0;
-#N canvas 442 226 404 340 Hz_to_period_length 0;
-#X text 17 201 current sampling rate;
-#X floatatom 157 241 0 0 0 0 - - -;
-#X obj 157 143 t b f;
-#X text 215 242 period length;
-#X floatatom 157 115 0 0 0 0 - - -;
-#X obj 157 210 / 1;
-#X floatatom 30 180 0 0 0 0 - - -;
-#X text 202 112 frequency in Hz;
-#X obj 30 138 samplerate~;
-#X obj 30 115 loadbang;
-#X obj 39 44 cnv 15 15 15 empty empty Hz_to_period_length 0 10 1 14
--262144 -1 0;
-#X connect 2 0 5 0;
-#X connect 2 1 5 1;
-#X connect 4 0 2 0;
-#X connect 5 0 1 0;
-#X connect 8 0 6 0;
-#X connect 8 0 5 0;
-#X connect 9 0 8 0;
-#X restore 150 310 pd Hz_to_period_length;
-#X text 103 281 sample rate/frequency in Hz = frequency in period length
-(float);
-#X text 60 264 - frequencies are always defined in period lengths;
-#X msg 149 227 vasp 44100 buf1 22050 0;
-#X text 103 187 e.g: vasp message with an offset of 0.5 sec. and a
-length of 1 sec. (sr 44100);
-#X text 60 155 - lengths and offsets are always defined in samples
-(depending on sample rate);
-#X msg 150 113 vasp 44100 buf1 22050 0;
-#X text 60 69 - vasp index counting starts from 0;
-#X text 104 81 e.g: channel 0 in a vasp message means first channel
-in the buffer;
-#X obj 51 27 cnv 15 15 15 empty empty vasp_units 0 10 1 14 -262144
--1 0;
-#X restore 233 451 pd units;
-#X text 112 483 vasp data types;
-#N canvas 218 38 524 621 data_types 0;
-#X text 68 48 vasp \, float \, envelope \, complex number \, double
-;
-#X text 83 84 vasp;
-#X text 83 196 float;
-#X text 96 130 vectors are always processed in parallel;
-#X text 81 280 envelope;
-#X text 95 216 (real) pd-style numbers;
-#X text 100 298 list of pairs setting value and position;
-#X text 79 380 complex numbers;
-#X msg 96 155 vasp buf1 buf2;
-#X floatatom 98 239 5 0 0 0 - - -;
-#X msg 100 323 env 0.5 0 -1 100 34.77 500;
-#X text 100 402 selector "complex" and pair of numbers;
-#X msg 100 427 complex 2.6 5.99;
-#X text 225 428 2.6+5.99i;
-#X text 83 477 double;
-#X msg 105 526 double 1 1e-013;
-#X text 101 501 for double precision of numbers;
-#X text 96 106 a vasp consists of one or more vectors of data;
-#X text 209 520 the two components are added internally;
-#X text 209 532 to represent a double precision number;
-#X restore 233 484 pd data_types;
-#X text 121 515 vasp glossary;
-#N canvas 69 118 655 553 glossary 0;
-#X text 100 84 buffer~ (MaxMSP) / array (Pd);
-#X text 120 100 resident data-field (can be channel-interleaved in
-Max/MSP) in system memory containing a number of frames;
-#X text 100 313 channel;
-#X text 100 379 vector;
-#X text 100 435 vasp;
-#X text 120 397 reference (with an offset and length \, with frames
-as units) to one channel of a buffer~ or array vector;
-#X text 120 452 contains one or more vectors in parallel with one common
-length but in general different offsets/channels per vector;
-#X text 120 330 a buffer~ (in MaxMSP) consists of one or more channels
-\, resulting in 1 \, 2 or 4 data elements per frame \, 0-indexed;
-#X text 121 183 32 bit IEEE floating point value \, typically (but
-not necessarily) normalized to the range -1...1 \;;
-#X text 100 161 data element (representing a sample);
-#X text 120 247 (aka "sample") time unit of sampled data - if multiple
-channels (typically 2 or 4) are sampled \, there are multiple data
-elements per frame;
-#X text 100 227 frame;
-#X obj 82 40 cnv 15 15 15 empty empty glossary 0 10 1 14 -262144 -1
-0;
-#X restore 233 516 pd glossary;
diff --git a/externals/grill/vasp/pd/bass.aif b/externals/grill/vasp/pd/bass.aif Binary files differdeleted file mode 100644 index 97a7851e..00000000 --- a/externals/grill/vasp/pd/bass.aif +++ /dev/null diff --git a/externals/grill/vasp/pd/beat.aif b/externals/grill/vasp/pd/beat.aif Binary files differdeleted file mode 100644 index 0967480d..00000000 --- a/externals/grill/vasp/pd/beat.aif +++ /dev/null diff --git a/externals/grill/vasp/pd/change2.pd b/externals/grill/vasp/pd/change2.pd deleted file mode 100644 index 2b93562d..00000000 --- a/externals/grill/vasp/pd/change2.pd +++ /dev/null @@ -1,25 +0,0 @@ -#N canvas 216 304 478 265 10;
-#X obj 121 46 inlet;
-#X obj 121 71 unpack;
-#X text 207 41 change for pairs;
-#X obj 193 155 t b f;
-#X obj 152 97 t f f;
-#X obj 117 97 t f f;
-#X obj 152 219 outlet;
-#X obj 152 191 pack 0 0;
-#X obj 121 133 sel \$1;
-#X obj 162 133 sel \$2;
-#X text 209 57 args: other default values than 0 0;
-#X text 249 240 used in vasp-help-patches;
-#X connect 0 0 1 0;
-#X connect 1 0 5 0;
-#X connect 1 1 4 0;
-#X connect 3 0 7 0;
-#X connect 3 1 7 1;
-#X connect 4 0 9 1;
-#X connect 4 1 9 0;
-#X connect 5 0 8 1;
-#X connect 5 1 8 0;
-#X connect 7 0 6 0;
-#X connect 8 1 7 0;
-#X connect 9 1 3 0;
diff --git a/externals/grill/vasp/pd/filelist.pd b/externals/grill/vasp/pd/filelist.pd deleted file mode 100644 index 4d6366f6..00000000 --- a/externals/grill/vasp/pd/filelist.pd +++ /dev/null @@ -1,24 +0,0 @@ -#N canvas 100 100 118 78 10; -#X obj 0 0 cnv 14 118 78 empty empty read 0 7 0 8 -262144 -66577 0 -; -#X obj 34 16 hdl 14 0 524928 6 \$1-beat empty empty 0 -6 128 8 -262144 --1 -1 3; -#X obj 34 16 cnv 14 84 14 empty \$1-beat-color beat.aif 5 7 64 8 -166441 --233017 8214; -#X obj 34 32 hdl 14 0 524800 6 \$1-fly empty empty 0 -6 128 8 -262144 --1 -1 3; -#X obj 34 0 hdl 14 0 524928 6 \$1-bass empty empty 0 -6 128 8 -262144 --1 -1 3; -#X obj 34 0 cnv 14 84 14 empty \$1-bass-color bass.aif 5 7 64 8 -166441 --233017 8214; -#X obj 34 48 hdl 14 0 525312 6 \$1-plastic empty empty 0 -6 128 8 -262144 --1 -1 3; -#X obj 34 48 cnv 14 84 14 empty \$1-plastic-color plastic.aif 5 7 64 -8 -166441 -233017 8220; -#X obj 34 64 hdl 14 0 524800 6 \$1-own empty empty 0 -6 128 8 -262144 --1 -1 0; -#X obj 34 64 cnv 14 84 14 empty \$1-own-color own_sample 5 7 64 8 -166441 --233017 8212; -#X obj 34 32 cnv 14 84 14 empty \$1-fly-color fly.aif 5 7 64 8 -166441 --233017 8212; -#X coords 0 0 1 1 118 78 1; diff --git a/externals/grill/vasp/pd/filelisthandler.pd b/externals/grill/vasp/pd/filelisthandler.pd deleted file mode 100644 index 3d7dbd11..00000000 --- a/externals/grill/vasp/pd/filelisthandler.pd +++ /dev/null @@ -1,102 +0,0 @@ -#N canvas 0 0 769 523 10; -#X obj 38 390 outlet; -#X msg 80 267 color \$1 \$2; -#X msg 194 267 color \$1 \$2; -#X msg 308 267 color \$1 \$2; -#X msg 422 267 color \$1 \$2; -#X obj 38 155 t b b b; -#X obj 152 155 t b b b; -#X obj 266 155 t b b b; -#X obj 380 155 t b b b; -#X msg 80 184 6 12; -#X msg 48 184 1 10; -#X msg 160 184 1 10; -#X msg 194 184 6 12; -#X msg 275 184 1 10; -#X msg 308 184 6 12; -#X msg 388 184 1 10; -#X msg 422 184 6 12; -#X msg 38 331 symbol bass.aif; -#X msg 151 331 symbol beat.aif; -#X msg 266 331 symbol fly.aif; -#X msg 381 331 symbol plastic.aif; -#X obj 532 61 inlet; -#X obj 532 81 sel 1 2 3 4; -#X text 517 35 for loadbang; -#X obj 38 130 r \$1-bass; -#X obj 152 130 r \$1-beat; -#X obj 266 130 r \$1-fly; -#X obj 380 130 r \$1-plastic; -#X obj 80 292 s \$1-bass-color; -#X obj 194 292 s \$1-beat-color; -#X obj 308 292 s \$1-fly-color; -#X obj 422 292 s \$1-plastic-color; -#X text 164 397 used in connection with filelist. arg: \$0 of parent -patch.; -#X obj 516 331 openpanel; -#X msg 558 266 color \$1 \$2; -#X obj 516 154 t b b b; -#X msg 524 183 1 10; -#X msg 558 183 6 12; -#X obj 558 291 s \$1-own-color; -#X obj 516 129 r \$1-own; -#X connect 1 0 28 0; -#X connect 2 0 29 0; -#X connect 3 0 30 0; -#X connect 4 0 31 0; -#X connect 5 0 17 0; -#X connect 5 1 10 0; -#X connect 5 2 9 0; -#X connect 6 0 18 0; -#X connect 6 1 11 0; -#X connect 6 2 12 0; -#X connect 7 0 19 0; -#X connect 7 1 13 0; -#X connect 7 2 14 0; -#X connect 8 0 20 0; -#X connect 8 1 15 0; -#X connect 8 2 16 0; -#X connect 9 0 1 0; -#X connect 10 0 2 0; -#X connect 10 0 3 0; -#X connect 10 0 4 0; -#X connect 10 0 34 0; -#X connect 11 0 1 0; -#X connect 11 0 3 0; -#X connect 11 0 4 0; -#X connect 11 0 34 0; -#X connect 12 0 2 0; -#X connect 13 0 1 0; -#X connect 13 0 2 0; -#X connect 13 0 4 0; -#X connect 13 0 34 0; -#X connect 14 0 3 0; -#X connect 15 0 3 0; -#X connect 15 0 2 0; -#X connect 15 0 1 0; -#X connect 15 0 34 0; -#X connect 16 0 4 0; -#X connect 17 0 0 0; -#X connect 18 0 0 0; -#X connect 19 0 0 0; -#X connect 20 0 0 0; -#X connect 21 0 22 0; -#X connect 22 0 5 0; -#X connect 22 1 6 0; -#X connect 22 2 7 0; -#X connect 22 3 8 0; -#X connect 24 0 5 0; -#X connect 25 0 6 0; -#X connect 26 0 7 0; -#X connect 27 0 8 0; -#X connect 33 0 0 0; -#X connect 34 0 38 0; -#X connect 35 0 33 0; -#X connect 35 1 36 0; -#X connect 35 2 37 0; -#X connect 36 0 4 0; -#X connect 36 0 3 0; -#X connect 36 0 2 0; -#X connect 36 0 1 0; -#X connect 37 0 34 0; -#X connect 39 0 35 0; diff --git a/externals/grill/vasp/pd/filter_example.pd b/externals/grill/vasp/pd/filter_example.pd deleted file mode 100644 index 3a3f8438..00000000 --- a/externals/grill/vasp/pd/filter_example.pd +++ /dev/null @@ -1,190 +0,0 @@ -#N canvas 11 0 973 640 10;
-#X obj 75 32 cnv 15 15 15 empty empty filter_example 0 10 1 14 -262144
--1 0;
-#X obj 523 555 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 657 556 pd clear_buffers;
-#X obj 304 113 filelist \$0;
-#X obj 67 133 vasp.noise;
-#X text 151 112 generate white noise or;
-#X obj 67 153 vasp.* 0.5;
-#X obj 67 173 vasp.update;
-#X obj 67 193 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 66 547 vasp.update;
-#X obj 66 567 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 66 527 vasp.c!fft;
-#X obj 67 241 vasp.cfft;
-#X obj 67 301 vasp.update;
-#X obj 67 321 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#N canvas 132 132 405 385 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 214 159 loadbang;
-#X obj 67 53 loadbang;
-#X msg 214 180 88200;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X obj 214 228 s bufre1;
-#X obj 224 252 s bufim1;
-#X msg 67 133 read -resize \$1 bufre1;
-#X msg 67 79 3;
-#X connect 0 0 7 0;
-#X connect 3 0 9 0;
-#X connect 3 0 10 0;
-#X connect 4 0 6 0;
-#X connect 5 0 12 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 2 0;
-#X connect 7 1 1 0;
-#X connect 7 2 3 0;
-#X connect 8 0 11 0;
-#X connect 11 0 0 0;
-#X connect 12 0 8 0;
-#X restore 813 559 pd inside;
-#X text 67 64 clear a region in the frequency domain to get a filter
-;
-#X msg 67 113 vasp bufre1;
-#X msg 67 221 vasp bufre1 bufim1;
-#X obj 67 261 vasp.upper;
-#X obj 67 281 vasp.= 0;
-#X obj 523 532 tabplay~ bufre1;
-#X msg 657 533 vasp bufre1 bufim1;
-#X text 157 283 clear upper (mirrored frequencies);
-#X text 539 374 0 Hz;
-#X text 677 379 sr/2;
-#X text 816 377 44.1 kHz;
-#X text 190 506 invers transform back to the time domain;
-#X obj 66 434 vasp.= 0;
-#X msg 66 414 set vasp \$1 bufre1 \$2 bufim1 \$2;
-#X obj 290 348 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X obj 66 455 vasp.update;
-#X obj 66 475 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X msg 66 507 vasp bufre1 bufim1;
-#X obj 545 110 synchrodisplay bufre1 bufim1 \$0;
-#X text 818 94 real;
-#X text 789 235 imaginary;
-#X obj 545 395 s \$0-data;
-#N canvas 109 162 271 247 tovasp 0;
-#N canvas 0 0 577 409 conversion 0;
-#X obj 123 53 inlet;
-#X obj 123 93 unpack;
-#X obj 160 182 r \$0-sample-length;
-#X obj 123 242 / 1;
-#X obj 154 242 / 1;
-#X obj 123 268 * 44100;
-#X obj 202 207 loadbang;
-#X obj 202 230 samplerate~;
-#X obj 123 299 outlet;
-#X obj 180 269 * 44100;
-#X obj 180 300 outlet;
-#X obj 366 253 runden;
-#X obj 366 231 - 0;
-#X text 450 272 offset;
-#X obj 366 177 t b f;
-#X obj 366 206 0;
-#X obj 366 317 outlet;
-#X obj 123 116 t f f f;
-#X text 370 271 length;
-#X obj 447 254 runden;
-#X text 121 326 lb (Hz);
-#X text 183 325 rb (Hz);
-#X obj 366 295 pack;
-#X obj 123 73 change2;
-#X floatatom 459 223 12 0 0;
-#X floatatom 453 310 5 0 0;
-#X connect 0 0 23 0;
-#X connect 1 0 17 0;
-#X connect 1 1 4 0;
-#X connect 1 1 15 1;
-#X connect 2 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 5 0;
-#X connect 4 0 9 0;
-#X connect 5 0 8 0;
-#X connect 6 0 7 0;
-#X connect 7 0 5 1;
-#X connect 7 0 9 1;
-#X connect 9 0 10 0;
-#X connect 11 0 22 0;
-#X connect 12 0 11 0;
-#X connect 14 0 15 0;
-#X connect 14 1 12 1;
-#X connect 15 0 12 0;
-#X connect 17 0 3 0;
-#X connect 17 1 14 0;
-#X connect 17 2 19 0;
-#X connect 17 2 24 0;
-#X connect 19 0 22 1;
-#X connect 19 0 25 0;
-#X connect 22 0 16 0;
-#X connect 23 0 1 0;
-#X restore 89 64 pd conversion;
-#X obj 89 44 r \$0-data;
-#X obj 162 153 outlet;
-#X obj 89 98 s \$0-freqdisplayl;
-#X obj 125 124 s \$0-freqdisplayr;
-#X connect 0 0 3 0;
-#X connect 0 1 4 0;
-#X connect 0 2 2 0;
-#X connect 1 0 0 0;
-#X restore 66 393 pd tovasp;
-#X text 193 224 transform;
-#N canvas 0 0 140 20 Herznumbers 0;
-#X obj 0 0 cnv 15 140 20 empty empty empty 20 12 0 14 -262144 -66577
-0;
-#X floatatom 0 3 8 0 0;
-#X floatatom 83 3 8 0 0;
-#X obj 28 30 r \$0-freqdisplayl;
-#X obj 28 54 r \$0-freqdisplayr;
-#X connect 3 0 1 0;
-#X connect 4 0 2 0;
-#X coords 0 0 1 1 140 20 1;
-#X restore 642 434 pd Herznumbers;
-#X text 547 436 selection from;
-#X text 701 436 to;
-#X text 66 348 select a region (frequecy band) and;
-#X obj 523 512 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 545 509 play;
-#X text 657 511 clear;
-#X text 785 436 Hz;
-#X text 65 360 draw inside the wavedisplay and press spacebar (select)
-or "s" (shift).;
-#X connect 4 0 6 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 9 0 10 0;
-#X connect 11 0 9 0;
-#X connect 12 0 19 0;
-#X connect 13 0 14 0;
-#X connect 17 0 4 0;
-#X connect 18 0 12 0;
-#X connect 19 0 20 0;
-#X connect 20 0 13 0;
-#X connect 21 0 1 0;
-#X connect 21 0 1 1;
-#X connect 22 0 2 0;
-#X connect 28 0 31 0;
-#X connect 29 0 28 0;
-#X connect 30 0 28 0;
-#X connect 31 0 32 0;
-#X connect 33 0 11 0;
-#X connect 34 0 37 0;
-#X connect 38 0 29 0;
-#X connect 44 0 21 0;
diff --git a/externals/grill/vasp/pd/filter_examplei.pd b/externals/grill/vasp/pd/filter_examplei.pd deleted file mode 100644 index 8ab0fd5b..00000000 --- a/externals/grill/vasp/pd/filter_examplei.pd +++ /dev/null @@ -1,191 +0,0 @@ -#N canvas 11 0 977 644 10;
-#X obj 75 32 cnv 15 15 15 empty empty filter_example! 0 10 1 14 -262144
--1 0;
-#X obj 523 555 dac~;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 657 556 pd clear_buffers;
-#X obj 304 113 filelist \$0;
-#X obj 67 133 vasp.noise;
-#X text 151 112 generate white noise or;
-#X obj 67 153 vasp.* 0.5;
-#X obj 67 173 vasp.update;
-#X obj 67 193 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 66 557 vasp.update;
-#X obj 66 577 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 66 537 vasp.c!fft;
-#X obj 67 241 vasp.cfft;
-#X obj 67 301 vasp.update;
-#X obj 67 321 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#N canvas 132 132 409 389 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 214 159 loadbang;
-#X obj 67 53 loadbang;
-#X msg 214 180 88200;
-#X obj 66 178 t b f f;
-#X obj 67 101 filelisthandler \$0;
-#X msg 67 79 3;
-#X msg 67 133 read -resize \$1 bufrei1;
-#X obj 214 228 s bufrei1;
-#X obj 224 252 s bufimi1;
-#X connect 0 0 7 0;
-#X connect 3 0 11 0;
-#X connect 3 0 12 0;
-#X connect 4 0 6 0;
-#X connect 5 0 9 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 2 0;
-#X connect 7 1 1 0;
-#X connect 7 2 3 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 0;
-#X connect 10 0 0 0;
-#X restore 813 559 pd inside;
-#X obj 67 261 vasp.upper;
-#X obj 67 281 vasp.= 0;
-#X text 157 283 clear upper (mirrored frequencies);
-#X text 536 375 0 Hz;
-#X text 674 379 sr/2;
-#X text 813 377 44.1 kHz;
-#X text 198 515 invers transform back to the time domain;
-#X obj 424 352 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X obj 66 465 vasp.update;
-#X obj 66 485 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 544 395 s \$0-data;
-#N canvas 109 162 271 247 tovasp 0;
-#N canvas 0 0 577 409 conversion 0;
-#X obj 123 53 inlet;
-#X obj 123 93 unpack;
-#X obj 160 182 r \$0-sample-length;
-#X obj 123 242 / 1;
-#X obj 154 242 / 1;
-#X obj 123 268 * 44100;
-#X obj 202 207 loadbang;
-#X obj 202 230 samplerate~;
-#X obj 123 299 outlet;
-#X obj 180 269 * 44100;
-#X obj 180 300 outlet;
-#X obj 366 253 runden;
-#X obj 366 231 - 0;
-#X text 450 272 offset;
-#X obj 366 177 t b f;
-#X obj 366 206 0;
-#X obj 366 317 outlet;
-#X obj 123 116 t f f f;
-#X text 370 271 length;
-#X obj 447 254 runden;
-#X text 121 326 lb (Hz);
-#X text 183 325 rb (Hz);
-#X obj 366 295 pack;
-#X obj 123 73 change2;
-#X floatatom 459 223 12 0 0 0 - - -;
-#X floatatom 453 310 5 0 0 0 - - -;
-#X connect 0 0 23 0;
-#X connect 1 0 17 0;
-#X connect 1 1 4 0;
-#X connect 1 1 15 1;
-#X connect 2 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 5 0;
-#X connect 4 0 9 0;
-#X connect 5 0 8 0;
-#X connect 6 0 7 0;
-#X connect 7 0 5 1;
-#X connect 7 0 9 1;
-#X connect 9 0 10 0;
-#X connect 11 0 22 0;
-#X connect 12 0 11 0;
-#X connect 14 0 15 0;
-#X connect 14 1 12 1;
-#X connect 15 0 12 0;
-#X connect 17 0 3 0;
-#X connect 17 1 14 0;
-#X connect 17 2 19 0;
-#X connect 17 2 24 0;
-#X connect 19 0 22 1;
-#X connect 19 0 25 0;
-#X connect 22 0 16 0;
-#X connect 23 0 1 0;
-#X restore 89 64 pd conversion;
-#X obj 89 44 r \$0-data;
-#X obj 162 153 outlet;
-#X obj 89 98 s \$0-freqdisplayl;
-#X obj 125 124 s \$0-freqdisplayr;
-#X connect 0 0 3 0;
-#X connect 0 1 4 0;
-#X connect 0 2 2 0;
-#X connect 1 0 0 0;
-#X restore 66 403 pd tovasp;
-#N canvas 0 0 140 20 Herznumbers 0;
-#X obj 0 0 cnv 15 140 20 empty empty empty 20 12 0 14 -262144 -66577
-0;
-#X floatatom 0 3 8 0 0 0 - - -;
-#X floatatom 83 3 8 0 0 0 - - -;
-#X obj 28 30 r \$0-freqdisplayl;
-#X obj 28 54 r \$0-freqdisplayr;
-#X connect 3 0 1 0;
-#X connect 4 0 2 0;
-#X coords 0 0 1 1 140 20 1;
-#X restore 642 434 pd Herznumbers;
-#X text 547 436 selection from;
-#X text 701 436 to;
-#X obj 523 512 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 545 509 play;
-#X text 657 511 clear;
-#X text 785 436 Hz;
-#X text 65 370 draw inside the wavedisplay and press spacebar (select)
-or "s" (shift).;
-#X msg 67 221 vasp bufrei1 bufimi1;
-#X msg 66 424 set vasp \$1 bufrei1 \$2 bufimi1 \$2;
-#X msg 66 517 vasp bufrei1 bufimi1;
-#X msg 657 533 vasp bufrei1 bufimi1;
-#X msg 67 113 vasp bufrei1;
-#X text 67 64 change gain of a region in the frequency domain to filter
-a buffer content;
-#X text 205 221 transform to frequency domain;
-#X text 65 355 select a region (frequecy band) \, a gainfactor;
-#X floatatom 348 353 5 0 0 0 - - -;
-#X obj 66 444 vasp.* 1;
-#X text 395 353 and;
-#X obj 544 113 synchrodisplay bufrei1 bufimi1 \$0;
-#X obj 523 532 tabplay~ bufrei1;
-#X connect 4 0 6 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 0;
-#X connect 9 0 10 0;
-#X connect 11 0 9 0;
-#X connect 12 0 16 0;
-#X connect 13 0 14 0;
-#X connect 16 0 17 0;
-#X connect 17 0 13 0;
-#X connect 23 0 45 0;
-#X connect 24 0 25 0;
-#X connect 27 0 37 0;
-#X connect 31 0 48 0;
-#X connect 36 0 12 0;
-#X connect 37 0 45 0;
-#X connect 38 0 11 0;
-#X connect 39 0 2 0;
-#X connect 40 0 4 0;
-#X connect 44 0 45 1;
-#X connect 45 0 24 0;
-#X connect 47 0 26 0;
-#X connect 48 0 1 0;
-#X connect 48 0 1 1;
diff --git a/externals/grill/vasp/pd/fly.aif b/externals/grill/vasp/pd/fly.aif Binary files differdeleted file mode 100644 index 0439b85a..00000000 --- a/externals/grill/vasp/pd/fly.aif +++ /dev/null diff --git a/externals/grill/vasp/pd/phase-random_example.pd b/externals/grill/vasp/pd/phase-random_example.pd deleted file mode 100644 index 740f9ea4..00000000 --- a/externals/grill/vasp/pd/phase-random_example.pd +++ /dev/null @@ -1,86 +0,0 @@ -#N canvas 77 150 893 542 10; -#X obj 75 32 cnv 15 15 15 empty empty phase-random_example 0 10 1 14 --262144 -1 0; -#N canvas 92 108 411 413 inside 0; -#X obj 66 154 soundfiler; -#X obj 84 238 s \$0-sample-length; -#X obj 66 208 s \$0-draw_display; -#X msg 214 206 resize \$1; -#X obj 214 159 loadbang; -#X obj 67 53 loadbang; -#X msg 214 180 88200; -#X obj 66 178 t b f f; -#X obj 67 101 filelisthandler \$0; -#X obj 214 228 s bufpol3; -#X msg 67 133 read -resize \$1 bufpol3; -#X msg 67 79 3; -#X obj 226 254 s bufpol4; -#X connect 0 0 7 0; -#X connect 3 0 9 0; -#X connect 3 0 12 0; -#X connect 4 0 6 0; -#X connect 5 0 11 0; -#X connect 6 0 3 0; -#X connect 6 0 1 0; -#X connect 7 0 2 0; -#X connect 7 1 1 0; -#X connect 7 2 3 0; -#X connect 8 0 10 0; -#X connect 10 0 0 0; -#X connect 11 0 8 0; -#X restore 781 472 pd inside; -#X obj 427 469 dac~; -#N canvas 0 0 413 295 clear_buffers 0; -#X obj 49 73 vasp.= 0; -#X obj 49 49 inlet; -#X obj 49 97 vasp.u; -#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X connect 0 0 2 0; -#X connect 1 0 0 0; -#X connect 2 0 3 0; -#X restore 561 469 pd clear_buffers; -#X obj 427 426 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X text 449 423 play; -#X text 561 424 clear; -#X obj 495 192 wavedisplay-simple bufpol3 \$0; -#X obj 69 95 filelist \$0; -#X obj 427 446 tabplay~ bufpol3; -#X msg 68 188 vasp bufpol3 bufpol4; -#X obj 68 213 vasp.cfft; -#X obj 68 237 vasp.polar; -#X obj 68 261 vasp.split 2; -#X obj 101 284 vasp.noise; -#X obj 101 308 vasp.* 3.14159; -#X obj 68 336 vasp.join 2; -#X obj 68 359 vasp.rect; -#X obj 68 381 vasp.c!fft; -#X obj 68 405 vasp.update; -#X obj 68 428 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152 -8 -262144 -1 -1; -#X obj 720 449 table bufpol4 88200; -#X msg 561 446 vasp bufpol3 bufpol4; -#X text 157 213 complex fourier transformation; -#X text 158 236 cartesian to polar coordinate conversion; -#X text 158 258 split amplitude and phase; -#X text 202 280 random phase; -#X text 205 307 scale from 0 to 2*Pi; -#X text 156 335 polar to cartesian coordinate conversion; -#X obj 69 472 vasp.freeze; -#X text 152 472 is an abstraction that does the same; -#X connect 4 0 9 0; -#X connect 9 0 2 0; -#X connect 9 0 2 1; -#X connect 10 0 11 0; -#X connect 11 0 12 0; -#X connect 12 0 13 0; -#X connect 13 0 16 0; -#X connect 13 1 14 0; -#X connect 14 0 15 0; -#X connect 15 0 16 1; -#X connect 16 0 17 0; -#X connect 17 0 18 0; -#X connect 18 0 19 0; -#X connect 19 0 20 0; -#X connect 22 0 3 0; diff --git a/externals/grill/vasp/pd/plastic.aif b/externals/grill/vasp/pd/plastic.aif Binary files differdeleted file mode 100644 index 06237c02..00000000 --- a/externals/grill/vasp/pd/plastic.aif +++ /dev/null diff --git a/externals/grill/vasp/pd/ringmod_example.pd b/externals/grill/vasp/pd/ringmod_example.pd deleted file mode 100644 index 5ed9c3c0..00000000 --- a/externals/grill/vasp/pd/ringmod_example.pd +++ /dev/null @@ -1,63 +0,0 @@ -#N canvas 34 28 860 444 10;
-#X obj 71 32 cnv 15 15 15 empty empty ringmod_example 0 10 1 14 -262144
--1 0;
-#X obj 73 283 vasp.update;
-#X obj 391 309 dac~;
-#X obj 391 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 413 264 play;
-#N canvas 40 55 281 170 clear_buffer 0;
-#X obj 54 79 vasp.update;
-#X obj 54 56 vasp.= 0;
-#X obj 54 26 inlet;
-#X obj 54 108 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X restore 523 309 pd clear_buffer;
-#X obj 73 306 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 428 95 wavedisplay-simple bufmosc1 \$0;
-#X msg 73 215 vasp bufmosc1;
-#X obj 73 260 vasp.*osc 220;
-#X text 177 214 modulate with 200 Hz;
-#X msg 523 286 vasp bufmosc1;
-#X obj 391 286 tabplay~ bufmosc1;
-#N canvas 92 108 388 353 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 214 159 loadbang;
-#X obj 66 50 loadbang;
-#X msg 214 180 88200;
-#X obj 66 178 t b f f;
-#X obj 66 98 filelisthandler \$0;
-#X msg 66 76 3;
-#X obj 214 228 s bufmosc1;
-#X msg 66 130 read -resize \$1 bufmosc1;
-#X connect 0 0 7 0;
-#X connect 3 0 10 0;
-#X connect 4 0 6 0;
-#X connect 5 0 9 0;
-#X connect 6 0 3 0;
-#X connect 6 0 1 0;
-#X connect 7 0 2 0;
-#X connect 7 1 1 0;
-#X connect 7 2 3 0;
-#X connect 8 0 11 0;
-#X connect 9 0 8 0;
-#X connect 11 0 0 0;
-#X restore 682 310 pd inside;
-#X floatatom 146 239 5 0 0;
-#X text 192 238 value;
-#X obj 79 99 filelist \$0;
-#X connect 1 0 6 0;
-#X connect 3 0 12 0;
-#X connect 8 0 9 0;
-#X connect 9 0 1 0;
-#X connect 11 0 5 0;
-#X connect 12 0 2 0;
-#X connect 12 0 2 1;
-#X connect 14 0 9 1;
diff --git a/externals/grill/vasp/pd/rndup2.pd b/externals/grill/vasp/pd/rndup2.pd deleted file mode 100644 index a29b159a..00000000 --- a/externals/grill/vasp/pd/rndup2.pd +++ /dev/null @@ -1,48 +0,0 @@ -#N canvas 0 0 315 407 12;
-#X obj 34 157 int;
-#N canvas 416 247 452 302 pow2 0;
-#X obj 34 111 pow;
-#X msg 33 84 2;
-#X obj 34 57 t b f;
-#X obj 33 22 inlet;
-#X obj 33 144 outlet;
-#X connect 0 0 4 0;
-#X connect 1 0 0 0;
-#X connect 2 0 1 0;
-#X connect 2 1 0 1;
-#X connect 3 0 2 0;
-#X restore 33 199 pd pow2;
-#N canvas 0 0 227 213 log2 0;
-#X obj 36 23 inlet;
-#X obj 34 63 log;
-#X obj 36 120 /;
-#X obj 101 24 loadbang;
-#X obj 99 86 log;
-#X obj 31 157 outlet;
-#X msg 99 60 2;
-#X connect 0 0 1 0;
-#X connect 1 0 2 0;
-#X connect 2 0 5 0;
-#X connect 3 0 6 0;
-#X connect 4 0 2 1;
-#X connect 6 0 4 0;
-#X restore 34 127 pd log2;
-#X obj 65 254 !=;
-#X obj 35 100 t f f;
-#X obj 33 225 t f f;
-#X obj 33 313 * 1;
-#X obj 63 283 + 1;
-#X obj 33 357 outlet;
-#X obj 35 55 inlet;
-#X text 35 17 round up to the next power of 2;
-#X connect 0 0 1 0;
-#X connect 1 0 5 0;
-#X connect 2 0 0 0;
-#X connect 3 0 7 0;
-#X connect 4 0 2 0;
-#X connect 4 1 3 1;
-#X connect 5 0 6 0;
-#X connect 5 1 3 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 1;
-#X connect 9 0 4 0;
diff --git a/externals/grill/vasp/pd/runden.pd b/externals/grill/vasp/pd/runden.pd deleted file mode 100644 index e73faeb5..00000000 --- a/externals/grill/vasp/pd/runden.pd +++ /dev/null @@ -1,27 +0,0 @@ -#N canvas 25 60 429 365 10; -#X msg 159 115 10; -#X obj 159 92 loadbang; -#X obj 159 137 pow \$1; -#X obj 79 120 * 1; -#X obj 79 90 inlet; -#X obj 120 167 / 1; -#X msg 120 145 1; -#X obj 79 145 + 0.5; -#X obj 79 170 div; -#X obj 79 217 outlet; -#X obj 79 193 * 1; -#X text 41 297 rounds to a certain number of kommadigits; -#X text 32 267 USE: arg for number of kommavalues(?) default = 0; -#X text 41 309 0.123456 --> runden 2 --> 0.12; -#X connect 0 0 2 0; -#X connect 1 0 0 0; -#X connect 2 0 3 1; -#X connect 2 0 5 1; -#X connect 2 0 6 0; -#X connect 3 0 7 0; -#X connect 4 0 3 0; -#X connect 5 0 10 1; -#X connect 6 0 5 0; -#X connect 7 0 8 0; -#X connect 8 0 10 0; -#X connect 10 0 9 0; diff --git a/externals/grill/vasp/pd/synchrodisplay.pd b/externals/grill/vasp/pd/synchrodisplay.pd deleted file mode 100644 index 39a93222..00000000 --- a/externals/grill/vasp/pd/synchrodisplay.pd +++ /dev/null @@ -1,13 +0,0 @@ -#N canvas 134 215 300 250 10; -#X text 440 100 synchronizes two displays.; -#X text 440 110 args: buffername1 buffername2 \$0 of parent patch; -#X obj 0 0 cnv 15 304 250 empty empty empty 20 12 0 14 -262144 -66577 -0; -#X obj -2 0 wavedisplay-select \$1 \$3; -#X obj -2 142 wavedisplay-select \$2 \$3; -#X obj 363 225 outlet; -#X connect 3 0 5 0; -#X connect 3 1 4 0; -#X connect 4 0 5 0; -#X connect 4 1 3 0; -#X coords 0 0 1 1 300 250 1; diff --git a/externals/grill/vasp/pd/vasp.cconj.pd b/externals/grill/vasp/pd/vasp.cconj.pd deleted file mode 100644 index 5f009e0b..00000000 --- a/externals/grill/vasp/pd/vasp.cconj.pd +++ /dev/null @@ -1,18 +0,0 @@ -#N canvas 420 247 367 328 12;
-#X obj 28 43 inlet;
-#X obj 28 276 outlet;
-#X obj 28 124 vasp.spit 2;
-#X obj 111 163 vasp.* -1;
-#X obj 28 214 vasp.gather;
-#X text 28 13 complex conjugate;
-#X text 123 123 split into pairs;
-#X text 125 216 unite vectors;
-#X text 193 163 flip imaginary part;
-#X obj 28 80 vasp;
-#X connect 0 0 9 0;
-#X connect 2 0 3 0;
-#X connect 2 1 4 1;
-#X connect 2 2 4 0;
-#X connect 3 0 4 1;
-#X connect 4 0 1 0;
-#X connect 9 0 2 0;
diff --git a/externals/grill/vasp/pd/vasp.cconv.pd b/externals/grill/vasp/pd/vasp.cconv.pd deleted file mode 100644 index 99587495..00000000 --- a/externals/grill/vasp/pd/vasp.cconv.pd +++ /dev/null @@ -1,53 +0,0 @@ -#N canvas 30 70 418 569 12;
-#X obj 88 475 vasp.c!fft;
-#X obj 229 314 vasp.= 0;
-#X obj 230 290 vasp.im;
-#X obj 197 377 vasp.cfft;
-#X obj 89 449 vasp.c*;
-#X obj 123 311 vasp.= 0;
-#X obj 124 287 vasp.im;
-#X obj 89 377 vasp.cfft;
-#X obj 70 73 inlet;
-#X obj 245 74 inlet;
-#X obj 69 526 outlet;
-#X obj 217 253 vasp;
-#X obj 196 223 t b;
-#X obj 90 412 vasp.sync;
-#X obj 90 350 vasp.sync;
-#X obj 198 350 vasp.sync;
-#X obj 70 132 vasp.radio;
-#X obj 70 104 vasp;
-#X obj 36 175 route radio;
-#X obj 245 105 vasp;
-#X text 36 8 complex convolution;
-#X text 32 28 (currently handles only discrete pairs);
-#X connect 0 0 10 0;
-#X connect 1 0 15 1;
-#X connect 2 0 1 0;
-#X connect 3 0 13 1;
-#X connect 4 0 0 0;
-#X connect 5 0 14 1;
-#X connect 6 0 5 0;
-#X connect 7 0 13 0;
-#X connect 8 0 17 0;
-#X connect 9 0 19 0;
-#X connect 11 0 2 0;
-#X connect 11 0 15 0;
-#X connect 12 0 11 0;
-#X connect 13 0 4 0;
-#X connect 13 1 4 1;
-#X connect 14 0 7 0;
-#X connect 15 0 3 0;
-#X connect 16 0 18 0;
-#X connect 16 0 10 0;
-#X connect 16 1 14 0;
-#X connect 16 1 6 0;
-#X connect 16 1 12 0;
-#X connect 17 0 16 0;
-#X connect 18 0 7 0;
-#X connect 18 0 5 0;
-#X connect 18 0 1 0;
-#X connect 18 0 3 0;
-#X connect 18 0 4 0;
-#X connect 18 0 0 0;
-#X connect 19 0 11 1;
diff --git a/externals/grill/vasp/pd/vasp.clr0.pd b/externals/grill/vasp/pd/vasp.clr0.pd deleted file mode 100644 index 188b3667..00000000 --- a/externals/grill/vasp/pd/vasp.clr0.pd +++ /dev/null @@ -1,12 +0,0 @@ -#N canvas 371 329 454 304 12; -#X obj 47 36 inlet; -#X obj 48 181 outlet; -#X obj 48 149 vasp.sync 2; -#X obj 110 82 vasp.frames 1; -#X obj 110 109 vasp.= 0; -#X text 44 1 clears the sample 0; -#X connect 0 0 2 0; -#X connect 0 0 3 0; -#X connect 2 0 1 0; -#X connect 3 0 4 0; -#X connect 4 0 2 1; diff --git a/externals/grill/vasp/pd/vasp.conv.pd b/externals/grill/vasp/pd/vasp.conv.pd deleted file mode 100644 index 4036fd61..00000000 --- a/externals/grill/vasp/pd/vasp.conv.pd +++ /dev/null @@ -1,37 +0,0 @@ -#N canvas 30 70 416 515 12;
-#X obj 57 76 inlet;
-#X obj 224 76 inlet;
-#X obj 60 416 outlet;
-#X obj 97 259 vasp.rfft;
-#X obj 197 262 vasp.rfft;
-#X obj 90 346 vasp.*;
-#X obj 79 375 vasp.r!fft;
-#X obj 57 142 vasp.radio;
-#X obj 97 304 vasp.sync;
-#X obj 197 219 vasp;
-#X obj 168 172 t b;
-#X obj 223 107 vasp;
-#X obj 57 108 vasp;
-#X obj 25 185 route radio;
-#X text 26 10 real convolution;
-#X text 26 30 (currently handles only discrete vectors);
-#X connect 0 0 12 0;
-#X connect 1 0 11 0;
-#X connect 3 0 8 0;
-#X connect 4 0 8 1;
-#X connect 5 0 6 0;
-#X connect 6 0 2 0;
-#X connect 7 0 2 0;
-#X connect 7 0 13 0;
-#X connect 7 1 3 0;
-#X connect 7 1 10 0;
-#X connect 8 0 5 0;
-#X connect 8 1 5 1;
-#X connect 9 0 4 0;
-#X connect 10 0 9 0;
-#X connect 11 0 9 1;
-#X connect 12 0 7 0;
-#X connect 13 0 3 0;
-#X connect 13 0 4 0;
-#X connect 13 0 5 0;
-#X connect 13 0 6 0;
diff --git a/externals/grill/vasp/pd/vasp.db2pow.pd b/externals/grill/vasp/pd/vasp.db2pow.pd deleted file mode 100644 index 64b3dd1a..00000000 --- a/externals/grill/vasp/pd/vasp.db2pow.pd +++ /dev/null @@ -1,18 +0,0 @@ -#N canvas 0 0 247 304 12;
-#X obj 31 66 inlet;
-#X obj 28 272 outlet;
-#X obj 31 130 vasp.exp;
-#X obj 29 242 vasp.*;
-#X obj 99 179 10;
-#X obj 98 207 log;
-#X obj 153 66 loadbang;
-#X obj 31 100 vasp./ 20;
-#X text 14 5 convert values in a vasp;
-#X text 15 23 from dB to power;
-#X connect 0 0 7 0;
-#X connect 2 0 3 0;
-#X connect 3 0 1 0;
-#X connect 4 0 5 0;
-#X connect 5 0 3 1;
-#X connect 6 0 4 0;
-#X connect 7 0 2 0;
diff --git a/externals/grill/vasp/pd/vasp.defer.pd b/externals/grill/vasp/pd/vasp.defer.pd deleted file mode 100644 index 82933271..00000000 --- a/externals/grill/vasp/pd/vasp.defer.pd +++ /dev/null @@ -1,28 +0,0 @@ -#N canvas 363 240 469 368 12;
-#X obj 29 73 inlet;
-#X obj 30 300 outlet;
-#X text 26 10 defer a vasp message;
-#X text 26 28 (no immediate send);
-#X obj 29 268 vasp;
-#X obj 30 106 t a b;
-#X obj 66 145 f 1;
-#X msg 115 105 1;
-#X obj 98 145 + 1;
-#X obj 65 188 >= \$1;
-#X msg 65 229 defer \$1;
-#X obj 168 190 select 1;
-#X obj 212 73 inlet;
-#X text 218 95 max msgs per tick;
-#X connect 0 0 5 0;
-#X connect 4 0 1 0;
-#X connect 5 0 4 0;
-#X connect 5 1 6 0;
-#X connect 6 0 8 0;
-#X connect 6 0 9 0;
-#X connect 7 0 6 1;
-#X connect 8 0 6 1;
-#X connect 9 0 10 0;
-#X connect 9 0 11 0;
-#X connect 10 0 4 0;
-#X connect 11 0 7 0;
-#X connect 12 0 9 1;
diff --git a/externals/grill/vasp/pd/vasp.even.pd b/externals/grill/vasp/pd/vasp.even.pd deleted file mode 100644 index d93030c4..00000000 --- a/externals/grill/vasp/pd/vasp.even.pd +++ /dev/null @@ -1,12 +0,0 @@ -#N canvas 0 0 247 229 12; -#X obj 40 15 inlet; -#X obj 40 48 vasp.frames?; -#X obj 40 80 % 2; -#X obj 40 110 == 0; -#X obj 40 142 outlet; -#X text 130 106 1 if even; -#X text 131 131 0 if odd; -#X connect 0 0 1 0; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X connect 3 0 4 0; diff --git a/externals/grill/vasp/pd/vasp.freeze.pd b/externals/grill/vasp/pd/vasp.freeze.pd deleted file mode 100644 index 5c7f89e2..00000000 --- a/externals/grill/vasp/pd/vasp.freeze.pd +++ /dev/null @@ -1,22 +0,0 @@ -#N canvas 641 14 270 354 12; -#X obj 27 46 vasp.cfft; -#X obj 108 133 vasp.noise; -#X obj 27 104 vasp.split 2; -#X obj 27 190 vasp.join 2; -#X obj 27 8 inlet; -#X obj 27 286 outlet; -#X obj 27 74 vasp.polar; -#X obj 106 160 vasp.* 3.14159; -#X text 88 7 produce static sound; -#X obj 27 254 vasp.c!fft; -#X obj 27 220 vasp.rect; -#X connect 0 0 6 0; -#X connect 1 0 7 0; -#X connect 2 0 3 0; -#X connect 2 1 1 0; -#X connect 3 0 10 0; -#X connect 4 0 0 0; -#X connect 6 0 2 0; -#X connect 7 0 3 1; -#X connect 9 0 5 0; -#X connect 10 0 9 0; diff --git a/externals/grill/vasp/pd/vasp.hilbert.pd b/externals/grill/vasp/pd/vasp.hilbert.pd deleted file mode 100644 index 875484b4..00000000 --- a/externals/grill/vasp/pd/vasp.hilbert.pd +++ /dev/null @@ -1,28 +0,0 @@ -#N canvas 449 154 295 470 12;
-#X obj 20 35 inlet;
-#X obj 20 335 outlet;
-#X obj 20 150 vasp.cfft;
-#X obj 125 225 vasp.= 0;
-#X text 19 8 Hilbert transformation;
-#X obj 125 197 vasp.upper;
-#X obj 54 63 vasp.im;
-#X obj 54 91 vasp.= 0;
-#X obj 20 120 vasp.sync 2;
-#X obj 20 301 vasp.c!fft;
-#X obj 20 269 vasp.sync 3;
-#X obj 33 197 vasp.lower;
-#X obj 33 225 vasp.* 2;
-#X connect 0 0 6 0;
-#X connect 0 0 8 0;
-#X connect 2 0 10 0;
-#X connect 2 0 5 0;
-#X connect 2 0 11 0;
-#X connect 3 0 10 2;
-#X connect 5 0 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 8 1;
-#X connect 8 0 2 0;
-#X connect 9 0 1 0;
-#X connect 10 0 9 0;
-#X connect 11 0 12 0;
-#X connect 12 0 10 1;
diff --git a/externals/grill/vasp/pd/vasp.im.pd b/externals/grill/vasp/pd/vasp.im.pd deleted file mode 100644 index a0ba9480..00000000 --- a/externals/grill/vasp/pd/vasp.im.pd +++ /dev/null @@ -1,6 +0,0 @@ -#N canvas 409 205 190 154 12; -#X obj 38 17 inlet; -#X obj 39 90 outlet; -#X obj 39 53 vasp.n 1; -#X connect 0 0 2 0; -#X connect 2 0 1 0; diff --git a/externals/grill/vasp/pd/vasp.lower.pd b/externals/grill/vasp/pd/vasp.lower.pd deleted file mode 100644 index 2c12dd09..00000000 --- a/externals/grill/vasp/pd/vasp.lower.pd +++ /dev/null @@ -1,19 +0,0 @@ -#N canvas 42 186 290 378 12; -#X obj 117 129 vasp.frames?; -#X obj 23 224 vasp.frames; -#X obj 23 35 inlet; -#X obj 23 254 outlet; -#X text 24 9 lower half of a vasp; -#X obj 117 162 / 2; -#X obj 117 192 + 0.9; -#X text 164 191 round up; -#X obj 64 101 vasp.radio; -#X obj 22 71 vasp.multi; -#X connect 0 0 5 0; -#X connect 1 0 3 0; -#X connect 2 0 9 0; -#X connect 5 0 6 0; -#X connect 6 0 1 1; -#X connect 8 1 0 0; -#X connect 9 0 1 0; -#X connect 9 1 8 0; diff --git a/externals/grill/vasp/pd/vasp.odd.pd b/externals/grill/vasp/pd/vasp.odd.pd deleted file mode 100644 index fe2327c5..00000000 --- a/externals/grill/vasp/pd/vasp.odd.pd +++ /dev/null @@ -1,10 +0,0 @@ -#N canvas 0 0 198 227 12; -#X obj 40 15 inlet; -#X obj 40 48 vasp.frames?; -#X obj 40 80 % 2; -#X obj 40 142 outlet; -#X obj 39 110 != 0; -#X connect 0 0 1 0; -#X connect 1 0 2 0; -#X connect 2 0 4 0; -#X connect 4 0 3 0; diff --git a/externals/grill/vasp/pd/vasp.opt.pd b/externals/grill/vasp/pd/vasp.opt.pd deleted file mode 100644 index 4f6dc597..00000000 --- a/externals/grill/vasp/pd/vasp.opt.pd +++ /dev/null @@ -1,35 +0,0 @@ -#N canvas 504 38 466 480 12;
-#X obj 27 11 inlet;
-#X obj 90 158 vasp.amax?;
-#X obj 35 206 route 0 1;
-#X obj 107 415 outlet;
-#X obj 256 418 outlet;
-#X obj 27 306 vasp;
-#X obj 47 255 t b;
-#X obj 90 116 vasp.m 2;
-#X obj 105 345 vasp./;
-#X obj 117 253 t b f;
-#X obj 106 301 vasp;
-#X obj 90 78 vasp;
-#X text 131 79 catch messages ("to" not handled);
-#X obj 28 41 vasp.radio;
-#X connect 0 0 13 0;
-#X connect 1 0 2 0;
-#X connect 1 0 4 0;
-#X connect 2 0 6 0;
-#X connect 2 1 6 0;
-#X connect 2 2 9 0;
-#X connect 5 0 3 0;
-#X connect 6 0 5 0;
-#X connect 7 0 1 0;
-#X connect 7 1 5 1;
-#X connect 7 1 10 1;
-#X connect 8 0 3 0;
-#X connect 9 0 10 0;
-#X connect 9 1 8 1;
-#X connect 10 0 8 0;
-#X connect 11 0 7 0;
-#X connect 13 0 10 0;
-#X connect 13 0 5 0;
-#X connect 13 0 1 0;
-#X connect 13 1 11 0;
diff --git a/externals/grill/vasp/pd/vasp.ov.pd b/externals/grill/vasp/pd/vasp.ov.pd deleted file mode 100644 index f70adaa2..00000000 --- a/externals/grill/vasp/pd/vasp.ov.pd +++ /dev/null @@ -1,10 +0,0 @@ -#N canvas 38 67 456 306 12; -#X obj 28 23 inlet; -#X obj 26 80 vasp.update; -#X obj 29 111 outlet; -#X obj 27 51 vasp.opt; -#X obj 98 112 outlet; -#X connect 0 0 3 0; -#X connect 1 0 2 0; -#X connect 3 0 1 0; -#X connect 3 1 4 0; diff --git a/externals/grill/vasp/pd/vasp.parts.pd b/externals/grill/vasp/pd/vasp.parts.pd deleted file mode 100644 index 15cd3442..00000000 --- a/externals/grill/vasp/pd/vasp.parts.pd +++ /dev/null @@ -1,27 +0,0 @@ -#N canvas 0 0 460 384 12;
-#X obj 39 318 outlet;
-#X obj 39 232 vasp.part \$1;
-#X obj 40 67 inlet;
-#X text 42 15 loop over vasp;
-#X obj 225 65 inlet;
-#X text 45 47 vasp;
-#X text 224 47 length;
-#X obj 62 120 vasp.defer;
-#X obj 39 165 vasp.m;
-#X obj 161 204 vasp.f?;
-#X obj 189 236 <= \$1;
-#X obj 159 268 select 1;
-#X obj 159 315 outlet;
-#X text 215 312 bang on finish;
-#X text 61 100 next part;
-#X connect 1 0 0 0;
-#X connect 1 1 7 0;
-#X connect 2 0 8 0;
-#X connect 4 0 1 1;
-#X connect 4 0 10 1;
-#X connect 7 0 8 0;
-#X connect 8 0 9 0;
-#X connect 8 1 1 0;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 12 0;
diff --git a/externals/grill/vasp/pd/vasp.pwrap.pd b/externals/grill/vasp/pd/vasp.pwrap.pd deleted file mode 100644 index 83ea062d..00000000 --- a/externals/grill/vasp/pd/vasp.pwrap.pd +++ /dev/null @@ -1,10 +0,0 @@ -#N canvas 40 55 404 304 12; -#X obj 50 149 vasp.- 3.14159; -#X obj 50 120 vasp.% 6.28319; -#X obj 50 88 vasp.+ 3.14159; -#X obj 50 49 inlet; -#X obj 50 223 outlet; -#X connect 0 0 4 0; -#X connect 1 0 0 0; -#X connect 2 0 1 0; -#X connect 3 0 2 0; diff --git a/externals/grill/vasp/pd/vasp.qmean.pd b/externals/grill/vasp/pd/vasp.qmean.pd deleted file mode 100644 index 2e33a605..00000000 --- a/externals/grill/vasp/pd/vasp.qmean.pd +++ /dev/null @@ -1,20 +0,0 @@ -#N canvas 0 0 456 349 12;
-#X obj 31 52 inlet;
-#X obj 98 295 outlet;
-#X obj 67 165 vasp.sum?;
-#X obj 31 85 vasp.radio;
-#X obj 166 165 vasp.f?;
-#X obj 147 238 /;
-#X obj 97 198 route 0;
-#X obj 67 117 vasp.m;
-#X text 27 8 calculate mean value of the values in a vasp;
-#X connect 0 0 3 0;
-#X connect 2 1 6 0;
-#X connect 3 0 2 0;
-#X connect 3 1 7 0;
-#X connect 4 0 5 1;
-#X connect 5 0 1 0;
-#X connect 6 0 1 0;
-#X connect 6 1 5 0;
-#X connect 7 0 2 0;
-#X connect 7 1 4 0;
diff --git a/externals/grill/vasp/pd/vasp.re.pd b/externals/grill/vasp/pd/vasp.re.pd deleted file mode 100644 index 1e18c922..00000000 --- a/externals/grill/vasp/pd/vasp.re.pd +++ /dev/null @@ -1,6 +0,0 @@ -#N canvas 409 205 190 154 12; -#X obj 38 17 inlet; -#X obj 39 53 vasp.n 0; -#X obj 39 90 outlet; -#X connect 0 0 1 0; -#X connect 1 0 2 0; diff --git a/externals/grill/vasp/pd/vasp.rms.pd b/externals/grill/vasp/pd/vasp.rms.pd deleted file mode 100644 index dc8cfd4a..00000000 --- a/externals/grill/vasp/pd/vasp.rms.pd +++ /dev/null @@ -1,16 +0,0 @@ -#N canvas 270 238 447 421 12; -#X obj 35 118 vasp.!; -#X obj 35 163 vasp.sqr; -#X obj 35 272 sqrt; -#X obj 35 63 inlet; -#X obj 35 330 outlet; -#X text 98 119 make temporary buffer; -#X text 92 332 RMS; -#X obj 35 201 vasp.qmean; -#X text 125 203 mean value; -#X text 32 12 calculate RMS value of a vasp; -#X connect 0 0 1 0; -#X connect 1 0 7 0; -#X connect 2 0 4 0; -#X connect 3 0 0 0; -#X connect 7 0 2 0; diff --git a/externals/grill/vasp/pd/vasp.ropt.pd b/externals/grill/vasp/pd/vasp.ropt.pd deleted file mode 100644 index f02e5cd0..00000000 --- a/externals/grill/vasp/pd/vasp.ropt.pd +++ /dev/null @@ -1,30 +0,0 @@ -#N canvas 50 31 462 451 12; -#X obj 114 14 inlet; -#X obj 114 42 vasp; -#X text 154 41 catch messages ("to" not handled); -#X obj 84 169 route 0 1; -#X obj 85 302 vasp; -#X obj 85 238 t b; -#X obj 108 89 vasp.m 2; -#X obj 165 221 t b f; -#X obj 110 126 vasp.rmax?; -#X obj 151 309 vasp.c/; -#X obj 155 270 vasp; -#X obj 117 390 outlet; -#X obj 277 397 outlet; -#X connect 0 0 1 0; -#X connect 1 0 6 0; -#X connect 3 0 5 0; -#X connect 3 1 5 0; -#X connect 3 2 7 0; -#X connect 4 0 11 0; -#X connect 5 0 4 0; -#X connect 6 0 8 0; -#X connect 6 1 4 1; -#X connect 6 1 10 1; -#X connect 7 0 10 0; -#X connect 7 1 9 1; -#X connect 8 1 3 0; -#X connect 8 1 12 0; -#X connect 9 0 11 0; -#X connect 10 0 9 0; diff --git a/externals/grill/vasp/pd/vasp.spin.pd b/externals/grill/vasp/pd/vasp.spin.pd deleted file mode 100644 index a2c55273..00000000 --- a/externals/grill/vasp/pd/vasp.spin.pd +++ /dev/null @@ -1,22 +0,0 @@ -#N canvas 486 219 326 391 12; -#X obj 71 171 vasp.pwrap; -#X obj 25 285 vasp.rect; -#X obj 25 259 vasp.join 2; -#X obj 71 223 vasp.int; -#X obj 71 197 vasp.* \$1; -#X obj 70 145 vasp.dif; -#X obj 25 81 vasp.polar; -#X obj 25 110 vasp.split 2; -#X text 26 31 multiply phase velocity by argument factor; -#X obj 25 56 inlet; -#X obj 24 316 outlet; -#X connect 0 0 4 0; -#X connect 1 0 10 0; -#X connect 2 0 1 0; -#X connect 3 0 2 1; -#X connect 4 0 3 0; -#X connect 5 0 0 0; -#X connect 6 0 7 0; -#X connect 7 0 2 0; -#X connect 7 1 5 0; -#X connect 9 0 6 0; diff --git a/externals/grill/vasp/pd/vasp.upper.pd b/externals/grill/vasp/pd/vasp.upper.pd deleted file mode 100644 index 415fc267..00000000 --- a/externals/grill/vasp/pd/vasp.upper.pd +++ /dev/null @@ -1,22 +0,0 @@ -#N canvas 488 210 290 362 12; -#X obj 87 158 / 2; -#X obj 22 34 inlet; -#X obj 22 300 outlet; -#X text 18 6 upper half of a vasp; -#X obj 125 191 + 0.9; -#X text 175 191 round up; -#X obj 59 98 vasp.radio; -#X obj 22 66 vasp.multi; -#X obj 88 130 vasp.frames?; -#X obj 22 264 vasp.frames; -#X obj 22 222 vasp.offset+; -#X connect 0 0 4 0; -#X connect 0 0 9 1; -#X connect 1 0 7 0; -#X connect 4 0 10 1; -#X connect 6 1 8 0; -#X connect 7 0 10 0; -#X connect 7 1 6 0; -#X connect 8 0 0 0; -#X connect 9 0 2 0; -#X connect 10 0 9 0; diff --git a/externals/grill/vasp/pd/vaspset_examples.pd b/externals/grill/vasp/pd/vaspset_examples.pd deleted file mode 100644 index 706f5474..00000000 --- a/externals/grill/vasp/pd/vaspset_examples.pd +++ /dev/null @@ -1,109 +0,0 @@ -#N canvas 27 56 975 554 10;
-#X obj 519 287 wavedisplay-simple bufsetb \$0;
-#X obj 519 265 r bufsetb-length;
-#X obj 71 125 filelist \$0;
-#N canvas 92 108 429 349 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 66 52 loadbang;
-#X obj 66 178 t b f f;
-#X obj 66 100 filelisthandler \$0;
-#X msg 66 78 2;
-#X msg 66 132 read -resize \$1 bufseta;
-#X obj 214 237 s bufseta;
-#X obj 279 238 s bufsetb;
-#X connect 0 0 5 0;
-#X connect 3 0 9 0;
-#X connect 3 0 10 0;
-#X connect 4 0 7 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 8 0;
-#X connect 7 0 6 0;
-#X connect 8 0 0 0;
-#X restore 780 485 pd inside;
-#X obj 515 83 wavedisplay-select bufseta \$0;
-#X text 467 82 A;
-#X text 465 286 B;
-#X text 67 46 use vasp.= to copy from buffer a to buffer b;
-#X text 92 218 choose a selection from buffer a;
-#X obj 94 450 vasp.= 0;
-#X obj 94 297 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X obj 94 473 vasp.update;
-#X obj 94 493 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#N canvas 117 414 435 378 to_length_offset 0;
-#X obj 154 309 outlet;
-#X obj 107 92 unpack;
-#X obj 107 232 runden;
-#X obj 107 210 - 0;
-#X text 176 249 offset;
-#X obj 107 156 t b f;
-#X obj 107 185 0;
-#X text 111 250 length;
-#X obj 173 231 runden;
-#X obj 154 278 pack;
-#X obj 107 72 change2;
-#X obj 107 115 t f f;
-#X obj 107 47 inlet;
-#X obj 107 309 outlet;
-#X obj 200 75 unpack;
-#X floatatom 190 112 12 0 0 0 - - -;
-#X floatatom 278 112 12 0 0 0 - - -;
-#X floatatom 194 149 12 0 0 0 - - -;
-#X floatatom 282 149 12 0 0 0 - - -;
-#X connect 1 0 11 0;
-#X connect 1 0 17 0;
-#X connect 1 1 6 1;
-#X connect 1 1 18 0;
-#X connect 2 0 9 0;
-#X connect 2 0 13 0;
-#X connect 3 0 2 0;
-#X connect 5 0 6 0;
-#X connect 5 1 3 1;
-#X connect 6 0 3 0;
-#X connect 8 0 9 1;
-#X connect 9 0 0 0;
-#X connect 10 0 1 0;
-#X connect 11 0 5 0;
-#X connect 11 1 8 0;
-#X connect 12 0 10 0;
-#X connect 12 0 14 0;
-#X connect 14 0 15 0;
-#X connect 14 1 16 0;
-#X restore 324 287 pd to_length_offset;
-#X msg 94 423 vasp \$1 bufsetb;
-#X msg 211 423 vasp \$1 bufseta \$2;
-#X obj 94 322 0;
-#X obj 94 348 t f f;
-#X obj 119 371 s bufsetb-length;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 532 483 pd clear_buffers;
-#X msg 532 457 vasp bufseta \, vasp bufsetb;
-#X text 495 50 space-bar + mouse to select \, "s" + mouse to shift
-selection;
-#X connect 1 0 0 0;
-#X connect 4 0 13 0;
-#X connect 9 0 11 0;
-#X connect 10 0 16 0;
-#X connect 11 0 12 0;
-#X connect 13 0 16 1;
-#X connect 13 1 15 0;
-#X connect 14 0 9 0;
-#X connect 15 0 9 1;
-#X connect 16 0 17 0;
-#X connect 17 0 14 0;
-#X connect 17 1 18 0;
-#X connect 20 0 19 0;
diff --git a/externals/grill/vasp/pd/wavedisplay-select.pd b/externals/grill/vasp/pd/wavedisplay-select.pd deleted file mode 100644 index 5bc85c06..00000000 --- a/externals/grill/vasp/pd/wavedisplay-select.pd +++ /dev/null @@ -1,617 +0,0 @@ -#N canvas 212 260 305 123 10;
-#N canvas 166 101 671 347 inside 0;
-#N canvas 149 25 654 580 positions 0;
-#N canvas 74 268 410 336 setpositions 0;
-#X obj 60 102 inlet;
-#X obj 220 102 inlet;
-#X text 60 270 sets numberbox (left);
-#X text 220 270 (right);
-#X obj 60 180 runden;
-#X obj 220 180 runden;
-#X msg 60 205 set \$1;
-#X msg 220 205 set \$1;
-#X obj 60 138 change;
-#X obj 220 138 change;
-#X obj 60 246 s \$2-nboxlr;
-#X obj 220 246 s \$2-nboxrr;
-#X connect 0 0 8 0;
-#X connect 1 0 9 0;
-#X connect 4 0 6 0;
-#X connect 5 0 7 0;
-#X connect 6 0 10 0;
-#X connect 7 0 11 0;
-#X connect 8 0 4 0;
-#X connect 9 0 5 0;
-#X restore 122 446 pd setpositions;
-#N canvas 100 40 610 460 sendpositions 0;
-#X obj 66 58 inlet;
-#X obj 137 59 inlet;
-#X obj 127 264 / 1;
-#X obj 193 262 / 1;
-#X obj 127 287 runden;
-#X obj 193 287 runden;
-#X obj 127 322 s \$0-selection_l;
-#X obj 193 348 s \$0-selection_r;
-#X text 138 365 to selectioncanvas (drawselection);
-#X obj 229 155 s \$0-spos_lb;
-#X obj 312 154 s \$0-spos_rb;
-#X text 247 172 for playselections;
-#X obj 66 244 -;
-#X obj 66 408 s \$0-selection;
-#X text 197 62 in samples;
-#X text 65 425 length in samples;
-#X obj 431 174 pack 0 0;
-#X obj 431 148 t b f;
-#X obj 137 81 t f f f f;
-#X obj 66 81 t b f f f f;
-#X obj 431 196 s \$0-borderpair;
-#X obj 228 219 / 300;
-#X obj 228 197 r \$2-sample-length;
-#X connect 0 0 19 0;
-#X connect 1 0 18 0;
-#X connect 2 0 4 0;
-#X connect 3 0 5 0;
-#X connect 4 0 6 0;
-#X connect 5 0 7 0;
-#X connect 12 0 13 0;
-#X connect 16 0 20 0;
-#X connect 17 0 16 0;
-#X connect 17 1 16 1;
-#X connect 18 0 12 0;
-#X connect 18 1 3 0;
-#X connect 18 2 10 0;
-#X connect 18 3 17 0;
-#X connect 19 0 12 0;
-#X connect 19 1 12 1;
-#X connect 19 2 2 0;
-#X connect 19 3 9 0;
-#X connect 19 4 16 0;
-#X connect 21 0 3 1;
-#X connect 21 0 2 1;
-#X connect 22 0 21 0;
-#X restore 313 443 pd sendpositions;
-#X text 333 462 to graphics;
-#X obj 122 137 * 1;
-#X obj 197 137 * 1;
-#X obj 371 61 r \$0-shiftsel;
-#X obj 371 136 * 1;
-#X obj 169 247 +;
-#X obj 122 219 0;
-#X obj 170 315 t f f f;
-#X obj 333 222 0;
-#X obj 371 249 +;
-#X obj 354 317 t f f f;
-#X obj 122 61 r \$0-sel_lb;
-#X obj 197 61 r \$0-sel_rb;
-#X obj 145 174 r \$0-nboxls;
-#X obj 347 184 r \$0-nboxrs;
-#X floatatom 162 201 5 0 0 0 - - -;
-#X floatatom 360 211 5 0 0 0 - - -;
-#X text 174 31 (from sliderhandling);
-#X text 310 384 right border of sel;
-#X text 79 340 leftborder of sel;
-#X obj 333 365 t f f;
-#X obj 122 361 t f f;
-#N canvas 336 13 613 533 testborders 0;
-#X obj 90 52 inlet;
-#X obj 190 52 inlet;
-#X obj 111 488 outlet;
-#X obj 202 492 outlet;
-#X obj 177 219 0;
-#X obj 90 163 moses 0;
-#X obj 127 189 t b f;
-#X obj 139 347 0;
-#X msg 57 345 0;
-#X obj 177 270 t b f;
-#X text 259 164 test if lb < 0 and if not if rb > sample-length;
-#X obj 95 298 r \$0-selection;
-#X obj 82 345 0;
-#X obj 314 304 r \$0-selection;
-#X obj 57 200 t b b;
-#X obj 264 399 -;
-#X obj 314 326 t b f;
-#X obj 251 422 0;
-#X obj 226 270 t b b;
-#X obj 264 361 300;
-#X obj 177 244 moses 300;
-#X obj 226 296 300;
-#X obj 226 216 r \$2-sample-length;
-#X obj 264 283 r \$2-sample-length;
-#X connect 0 0 5 0;
-#X connect 1 0 4 1;
-#X connect 4 0 20 0;
-#X connect 5 0 14 0;
-#X connect 5 1 6 0;
-#X connect 6 0 4 0;
-#X connect 6 1 7 1;
-#X connect 7 0 2 0;
-#X connect 8 0 2 0;
-#X connect 9 0 7 0;
-#X connect 9 1 3 0;
-#X connect 11 0 12 1;
-#X connect 12 0 3 0;
-#X connect 13 0 16 0;
-#X connect 14 0 8 0;
-#X connect 14 1 12 0;
-#X connect 15 0 17 1;
-#X connect 16 0 19 0;
-#X connect 16 1 15 1;
-#X connect 17 0 2 0;
-#X connect 18 0 21 0;
-#X connect 18 1 17 0;
-#X connect 19 0 15 0;
-#X connect 20 0 9 0;
-#X connect 20 1 18 0;
-#X connect 21 0 3 0;
-#X connect 22 0 20 1;
-#X connect 22 0 21 1;
-#X connect 23 0 19 0;
-#X restore 233 285 pd testborders;
-#X obj 371 157 t f f;
-#X obj 245 104 / 300;
-#X obj 245 82 r \$2-sample-length;
-#X connect 3 0 8 0;
-#X connect 4 0 10 0;
-#X connect 5 0 6 0;
-#X connect 6 0 25 0;
-#X connect 7 0 24 0;
-#X connect 8 0 7 1;
-#X connect 8 0 23 0;
-#X connect 9 0 23 0;
-#X connect 9 1 8 1;
-#X connect 9 2 7 1;
-#X connect 10 0 11 1;
-#X connect 10 0 22 0;
-#X connect 11 0 24 1;
-#X connect 12 0 22 0;
-#X connect 12 1 10 1;
-#X connect 12 2 11 1;
-#X connect 13 0 3 0;
-#X connect 14 0 4 0;
-#X connect 15 0 17 0;
-#X connect 15 0 8 0;
-#X connect 16 0 18 0;
-#X connect 16 0 10 0;
-#X connect 22 0 0 1;
-#X connect 22 1 1 1;
-#X connect 23 0 0 0;
-#X connect 23 1 1 0;
-#X connect 24 0 9 0;
-#X connect 24 1 12 0;
-#X connect 25 0 7 0;
-#X connect 25 1 11 0;
-#X connect 26 0 6 1;
-#X connect 26 0 4 1;
-#X connect 26 0 3 1;
-#X connect 27 0 26 0;
-#X restore 90 129 pd positions;
-#N canvas 0 0 410 161 wavetable 0;
-#X obj 124 82 table \$1 44100;
-#X restore 91 211 pd wavetable;
-#X text 186 210 contains the sample;
-#N canvas 228 148 447 448 loadsample 0;
-#X obj 39 199 soundfiler;
-#X obj 39 66 openpanel;
-#X text 229 39 load a (new) sample to a table;
-#X text 176 313 draw the large display;
-#X msg 39 174 read -resize \$1 \$2;
-#X obj 82 121 symbol \$1;
-#X obj 39 144 pack s s;
-#X obj 39 89 t s b;
-#X obj 39 40 r \$2-load_new_sample;
-#X obj 64 272 s \$2-sample-length;
-#X obj 39 308 s \$2-draw_display;
-#X obj 39 236 t b f;
-#X connect 0 0 11 0;
-#X connect 1 0 7 0;
-#X connect 4 0 0 0;
-#X connect 5 0 6 1;
-#X connect 6 0 4 0;
-#X connect 7 0 6 0;
-#X connect 7 1 5 0;
-#X connect 8 0 1 0;
-#X connect 11 0 10 0;
-#X connect 11 1 9 0;
-#X restore 91 188 pd loadsample;
-#X text 198 187 load a new sample;
-#N canvas 46 30 522 604 drawdisplay 0;
-#X obj 193 422 vasp.frames 20;
-#X obj 193 449 vasp.offset 0;
-#X msg 83 83 bang;
-#X obj 168 137 0;
-#X obj 168 225 t f f f;
-#X obj 181 114 + 1;
-#X obj 168 252 *;
-#X text 45 80 start;
-#X text 262 215 (reset);
-#X obj 255 500 vasp.max?;
-#X obj 163 497 vasp.min?;
-#X obj 325 275 t f f;
-#X obj 168 281 t b b f;
-#X obj 76 129 until 1;
-#X obj 76 108 300;
-#X obj 256 545 tabwrite \$0+;
-#X obj 163 545 tabwrite \$0-;
-#X msg 193 336 vasp \$1;
-#X obj 193 308 symbol \$1;
-#X obj 83 46 r \$2-draw_display;
-#X obj 325 229 r \$2-sample-length;
-#X obj 325 254 / 300;
-#X obj 256 522 clip -1 1;
-#X obj 163 520 clip -1 1;
-#X obj 168 162 moses 299;
-#X msg 242 217 0;
-#X obj 217 196 t f b;
-#X connect 0 0 1 0;
-#X connect 1 0 9 0;
-#X connect 1 0 10 0;
-#X connect 2 0 14 0;
-#X connect 3 0 5 0;
-#X connect 3 0 24 0;
-#X connect 4 0 6 0;
-#X connect 4 1 15 1;
-#X connect 4 2 16 1;
-#X connect 5 0 3 1;
-#X connect 6 0 12 0;
-#X connect 9 0 22 0;
-#X connect 10 0 23 0;
-#X connect 11 0 6 1;
-#X connect 11 1 0 1;
-#X connect 12 1 18 0;
-#X connect 12 2 1 1;
-#X connect 13 0 3 0;
-#X connect 14 0 13 0;
-#X connect 17 0 0 0;
-#X connect 18 0 17 0;
-#X connect 19 0 2 0;
-#X connect 20 0 21 0;
-#X connect 21 0 11 0;
-#X connect 22 0 15 0;
-#X connect 23 0 16 0;
-#X connect 24 0 4 0;
-#X connect 24 1 26 0;
-#X connect 25 0 1 1;
-#X connect 25 0 3 1;
-#X connect 26 0 4 0;
-#X connect 26 1 25 0;
-#X restore 91 234 pd drawdisplay;
-#X text 200 233 draws the large display;
-#N canvas 123 371 419 311 sliderhandling 0;
-#X floatatom 112 145 5 0 0 0 - - -;
-#X floatatom 220 143 5 0 0 0 - - -;
-#N canvas 83 38 570 521 keyinput_s 0;
-#X obj 186 25 keyname;
-#X obj 84 446 spigot;
-#X obj 179 172 0;
-#X obj 179 116 symbol;
-#X msg 179 88 bang;
-#X obj 179 369 sel 1;
-#X msg 179 393 1;
-#X msg 152 393 0;
-#X obj 152 414 s \$0-spig1;
-#X obj 227 415 s \$0-spig1;
-#X msg 227 394 1;
-#X msg 254 394 0;
-#X obj 179 345 change;
-#X obj 84 67 inlet;
-#X obj 84 472 outlet;
-#X obj 179 144 sel s;
-#X text 276 67 if key "s" is down \, then input is let through;
-#X text 332 85 shifts display;
-#X obj 297 473 outlet;
-#X obj 179 223 t b b 0;
-#X obj 201 266 delay 100;
-#X msg 201 245 stop;
-#X obj 179 201 sel 0 1;
-#X obj 179 313 0;
-#X msg 179 289 1;
-#X text 255 242 linux and win have different up/down behaviour...;
-#X text 232 297 only if there is no new input for 100 ms after 0 \,
-0 is sent out;
-#X connect 0 0 2 1;
-#X connect 0 0 4 0;
-#X connect 0 1 3 1;
-#X connect 1 0 14 0;
-#X connect 2 0 22 0;
-#X connect 3 0 15 0;
-#X connect 4 0 3 0;
-#X connect 5 0 6 0;
-#X connect 5 0 7 0;
-#X connect 5 0 18 0;
-#X connect 5 1 10 0;
-#X connect 5 1 11 0;
-#X connect 6 0 1 1;
-#X connect 7 0 8 0;
-#X connect 10 0 9 0;
-#X connect 11 0 1 1;
-#X connect 12 0 5 0;
-#X connect 13 0 1 0;
-#X connect 15 0 2 0;
-#X connect 19 0 20 0;
-#X connect 19 1 21 0;
-#X connect 19 2 23 1;
-#X connect 20 0 23 0;
-#X connect 21 0 20 0;
-#X connect 22 0 19 0;
-#X connect 22 1 24 0;
-#X connect 23 0 12 0;
-#X connect 24 0 23 0;
-#X restore 206 117 pd keyinput_s;
-#N canvas 49 247 419 328 spacehandling 0;
-#X obj 60 26 inlet;
-#X obj 164 26 inlet;
-#X obj 138 119 0;
-#X obj 60 157 moses 0;
-#X obj 85 205 0;
-#X obj 60 180 t f b;
-#X obj 160 209 0;
-#X obj 135 184 t f b;
-#X text 188 186 checks range direction;
-#X obj 60 236 s \$0-sel_lb;
-#X obj 135 236 s \$0-sel_rb;
-#X text 141 61 first position after hit is ref;
-#X obj 214 133 spigot;
-#X msg 245 99 1;
-#X obj 214 162 t f b;
-#X msg 219 99 0;
-#X text 159 45 down;
-#X obj 60 60 t f b f f;
-#X connect 0 0 17 0;
-#X connect 1 0 13 0;
-#X connect 2 0 3 1;
-#X connect 2 0 4 1;
-#X connect 2 0 6 1;
-#X connect 3 0 5 0;
-#X connect 3 1 7 0;
-#X connect 4 0 10 0;
-#X connect 5 0 9 0;
-#X connect 5 1 4 0;
-#X connect 6 0 9 0;
-#X connect 7 0 10 0;
-#X connect 7 1 6 0;
-#X connect 12 0 14 0;
-#X connect 13 0 12 1;
-#X connect 14 0 2 1;
-#X connect 14 1 15 0;
-#X connect 15 0 12 1;
-#X connect 17 0 3 0;
-#X connect 17 1 2 0;
-#X connect 17 2 12 0;
-#X restore 80 178 pd spacehandling;
-#N canvas 523 338 362 359 s_handling 0;
-#X obj 85 27 inlet;
-#X obj 85 305 s \$0-sliderr;
-#X msg 85 279 set \$1;
-#X obj 85 249 0;
-#X obj 85 202 -;
-#X obj 85 225 t b f;
-#X obj 171 264 s \$0-shiftsel;
-#X floatatom 200 295 5 0 0 0 - - -;
-#X obj 204 28 inlet;
-#X text 146 48 first position after hit is ref;
-#X obj 173 116 spigot;
-#X msg 204 82 1;
-#X obj 173 145 t f b;
-#X msg 178 82 0;
-#X text 203 12 down;
-#X obj 85 84 t f f;
-#X connect 0 0 15 0;
-#X connect 2 0 1 0;
-#X connect 3 0 2 0;
-#X connect 4 0 5 0;
-#X connect 5 0 3 0;
-#X connect 5 1 6 0;
-#X connect 5 1 7 0;
-#X connect 8 0 11 0;
-#X connect 10 0 12 0;
-#X connect 11 0 10 1;
-#X connect 12 0 4 1;
-#X connect 12 0 3 1;
-#X connect 12 1 13 0;
-#X connect 13 0 10 1;
-#X connect 15 0 4 0;
-#X connect 15 1 10 0;
-#X restore 206 179 pd s_handling;
-#X obj 80 33 r \$0-sliders;
-#X floatatom 124 58 5 0 0 0 - - -;
-#N canvas 578 111 639 563 keyinput_space2 0;
-#X obj 82 464 spigot;
-#X floatatom 94 498 5 0 0 0 - - -;
-#X msg 141 414 1;
-#X msg 114 414 0;
-#X obj 114 435 s \$0-spig1;
-#X obj 194 436 s \$0-spig1;
-#X msg 194 415 1;
-#X msg 221 415 0;
-#X obj 150 119 key;
-#X obj 177 119 keyup;
-#X obj 141 168 sel 32;
-#X obj 141 191 0;
-#X obj 141 145 0;
-#X obj 218 144 t b f;
-#X obj 218 119 keyname;
-#X obj 82 86 inlet;
-#X obj 82 528 outlet;
-#X text 84 53 if spacebar is down \, then input is let through;
-#X obj 141 357 change;
-#X obj 141 380 sel 1 0;
-#X obj 171 525 outlet;
-#X text 174 505 down;
-#X obj 223 526 outlet;
-#X text 226 506 up;
-#X obj 141 235 t b b 0;
-#X obj 163 278 delay 100;
-#X msg 163 257 stop;
-#X obj 141 213 sel 0 1;
-#X obj 141 325 0;
-#X msg 141 301 1;
-#X text 217 254 linux and win have different up/down behaviour...;
-#X text 194 309 only if there is no new input for 100 ms after 0 \,
-0 is sent out;
-#X connect 0 0 1 0;
-#X connect 0 0 16 0;
-#X connect 2 0 0 1;
-#X connect 3 0 4 0;
-#X connect 6 0 5 0;
-#X connect 7 0 0 1;
-#X connect 8 0 12 1;
-#X connect 9 0 12 1;
-#X connect 10 0 11 0;
-#X connect 11 0 27 0;
-#X connect 12 0 10 0;
-#X connect 13 0 12 0;
-#X connect 13 1 11 1;
-#X connect 14 0 13 0;
-#X connect 15 0 0 0;
-#X connect 18 0 19 0;
-#X connect 19 0 2 0;
-#X connect 19 0 3 0;
-#X connect 19 0 20 0;
-#X connect 19 1 6 0;
-#X connect 19 1 7 0;
-#X connect 19 1 22 0;
-#X connect 24 0 25 0;
-#X connect 24 1 26 0;
-#X connect 24 2 28 1;
-#X connect 25 0 28 0;
-#X connect 26 0 25 0;
-#X connect 27 0 24 0;
-#X connect 27 1 29 0;
-#X connect 28 0 18 0;
-#X connect 29 0 28 0;
-#X restore 80 117 pd keyinput_space2;
-#X obj 80 79 t f f;
-#X obj 176 33 r \$0-fromothers;
-#X connect 2 0 1 0;
-#X connect 2 0 4 0;
-#X connect 2 1 4 1;
-#X connect 5 0 6 0;
-#X connect 5 0 8 0;
-#X connect 7 0 0 0;
-#X connect 7 0 3 0;
-#X connect 7 1 3 1;
-#X connect 8 0 7 0;
-#X connect 8 1 2 0;
-#X connect 9 0 8 0;
-#X restore 91 94 pd sliderhandling;
-#X text 186 124 receiving inputs \, conversions and settings of slider-
-and graphic-positions;
-#X text 233 96 the slider sets curser and borders...;
-#N canvas 217 166 685 486 drawselection 0;
-#X obj 445 186 t b f;
-#X obj 61 221 t b f;
-#X obj 223 187 -;
-#X obj 223 139 t b f;
-#X obj 61 88 runden 0;
-#X obj 234 86 runden 0;
-#X msg 61 293 \; \$1-selectionr pos \$2 \$3;
-#X obj 61 197 + 0;
-#X obj 61 269 pack \$0 0 0;
-#X msg 445 232 \; \$1-selectionr vis_size \$2 \$3;
-#X obj 61 60 r \$0-selection_l;
-#X obj 234 58 r \$0-selection_r;
-#X obj 124 198 loadbang;
-#X obj 223 209 sel 0;
-#X obj 479 378 pack 0 \$0;
-#X msg 479 402 \; \$2-selectionr color \$1;
-#X msg 479 309 17;
-#X obj 479 354 change;
-#X obj 479 331 0;
-#X text 45 6 shows a light-blue colored canvas;
-#X text 44 21 when a part is selected;
-#X obj 61 142 change;
-#X obj 445 164 change;
-#X obj 445 208 pack \$0 300 120;
-#X obj 223 163 300;
-#X msg 446 309 6;
-#X msg 248 294 \; \$1-selectionr vis_size \$2 \$3;
-#X obj 248 270 pack \$0 0 120;
-#X obj 223 234 t b b;
-#X msg 122 223 0;
-#X msg 89 197 3;
-#X text 477 291 if size=0 then it will be hidden;
-#X connect 0 0 23 0;
-#X connect 0 1 23 1;
-#X connect 1 0 8 0;
-#X connect 1 1 8 1;
-#X connect 2 0 13 0;
-#X connect 3 0 24 0;
-#X connect 3 1 2 1;
-#X connect 4 0 3 0;
-#X connect 4 0 21 0;
-#X connect 5 0 24 0;
-#X connect 7 0 1 0;
-#X connect 8 0 6 0;
-#X connect 10 0 4 0;
-#X connect 11 0 5 0;
-#X connect 12 0 29 0;
-#X connect 12 0 30 0;
-#X connect 13 0 28 0;
-#X connect 13 1 16 0;
-#X connect 13 1 22 0;
-#X connect 14 0 15 0;
-#X connect 16 0 18 0;
-#X connect 17 0 14 0;
-#X connect 18 0 17 0;
-#X connect 21 0 7 0;
-#X connect 22 0 0 0;
-#X connect 23 0 9 0;
-#X connect 24 0 2 0;
-#X connect 25 0 18 0;
-#X connect 27 0 26 0;
-#X connect 28 0 25 0;
-#X connect 28 1 27 0;
-#X connect 29 0 8 2;
-#X connect 30 0 7 1;
-#X restore 91 166 pd drawselection;
-#X text 211 163 draws the light blue selection;
-#N canvas 149 160 490 235 init 0;
-#X obj 33 19 loadbang;
-#X obj 33 86 s \$0-;
-#X msg 33 44 xticks 0 30 5 \, ylabel 315 -1 -0.5 0 0.5 \, yticks 0
-0.25 2;
-#X msg 33 150 44100;
-#X obj 33 128 loadbang;
-#X obj 33 173 s \$2-sample-length;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X connect 3 0 5 0;
-#X connect 4 0 3 0;
-#X restore 92 261 pd init;
-#N canvas 0 0 445 185 synchronize_several_displays 0;
-#X obj 232 68 r \$0-sliders;
-#X obj 126 67 r \$0-synchroin;
-#X obj 232 104 s \$0-synchroout;
-#X obj 126 104 s \$0-fromothers;
-#X connect 0 0 2 0;
-#X connect 1 0 3 0;
-#X restore 92 285 pd synchronize_several_displays;
-#X restore 332 83 pd inside;
-#X obj 399 96 outlet;
-#X obj 3 0 hsl 300 120 0 299 0 0 \$0-sliders \$0-sliderr empty -2 -6
-1728 8 -262144 -1 -1 10500 0;
-#X obj 0 0 cnv 15 305 120 empty empty empty 20 12 0 14 -262144 -66577
-0;
-#X obj 2 0 cnv 15 300 120 empty empty empty 20 12 0 14 -225271 -66577
-0;
-#X obj 3 0 cnv 1 1 120 \$0-selections \$0-selectionr empty 20 12 1728
-14 -225271 -262144 0;
-#N canvas 0 0 450 300 graph1 0;
-#X array \$0- 300 float 0;
-#X array \$0+ 300 float 0;
-#X coords 0 1 299 -1 300 120 1;
-#X restore 2 0 graph;
-#X obj 399 75 r \$0-borderpair;
-#X text 328 10 this display shows the min and max of all samples that
-a pixel represents;
-#X text 328 52 arguments: name of array \, \$0 of the parent patch
-;
-#X text 328 38 select with spacebar and shift with "s";
-#X obj 509 95 outlet;
-#X obj 614 75 inlet;
-#X obj 509 75 r \$0-synchroout;
-#X obj 560 94 s \$0-synchroin;
-#X connect 7 0 1 0;
-#X connect 12 0 14 0;
-#X connect 13 0 11 0;
-#X coords 0 0 1 1 305 120 1;
diff --git a/externals/grill/vasp/pd/wavedisplay-simple.pd b/externals/grill/vasp/pd/wavedisplay-simple.pd deleted file mode 100644 index 02ab9402..00000000 --- a/externals/grill/vasp/pd/wavedisplay-simple.pd +++ /dev/null @@ -1,135 +0,0 @@ -#N canvas 200 200 304 126 10;
-#N canvas 154 41 404 184 inside 0;
-#N canvas 183 206 183 114 wavetable 0;
-#X obj 30 22 table \$1 44100;
-#X restore 62 51 pd wavetable;
-#X text 146 50 contains the sample;
-#N canvas 46 30 532 614 drawdisplay 0;
-#X obj 168 398 vasp.frames 20;
-#X obj 168 429 vasp.offset 0;
-#X msg 83 83 bang;
-#X obj 168 137 0;
-#X obj 168 225 t f f f;
-#X obj 181 114 + 1;
-#X obj 168 252 *;
-#X text 45 80 start;
-#X text 262 215 (reset);
-#X obj 230 461 vasp.max?;
-#X obj 145 461 vasp.min?;
-#X obj 325 275 t f f;
-#X obj 83 128 until 1;
-#X obj 83 107 300;
-#X obj 236 530 tabwrite \$0+;
-#X obj 147 528 tabwrite \$0-;
-#X msg 168 345 vasp \$1;
-#X obj 168 317 symbol \$1;
-#X obj 325 254 / 300;
-#X obj 236 507 clip -1 1;
-#X obj 147 503 clip -1 1;
-#X obj 168 162 moses 299;
-#X msg 242 217 0;
-#X obj 217 196 t f b;
-#X obj 325 229 r \$0-sample-length;
-#X obj 83 46 r \$0-draw_display;
-#X obj 168 281 t b f;
-#X obj 344 449 r \$0-bounds-;
-#X obj 344 475 r \$0-bounds+;
-#X connect 0 0 1 0;
-#X connect 1 0 9 0;
-#X connect 1 0 10 0;
-#X connect 2 0 13 0;
-#X connect 3 0 5 0;
-#X connect 3 0 21 0;
-#X connect 4 0 6 0;
-#X connect 4 1 14 1;
-#X connect 4 2 15 1;
-#X connect 5 0 3 1;
-#X connect 6 0 26 0;
-#X connect 9 0 19 0;
-#X connect 10 0 20 0;
-#X connect 11 0 6 1;
-#X connect 11 1 0 1;
-#X connect 12 0 3 0;
-#X connect 13 0 12 0;
-#X connect 16 0 0 0;
-#X connect 17 0 16 0;
-#X connect 18 0 11 0;
-#X connect 19 0 14 0;
-#X connect 20 0 15 0;
-#X connect 21 0 4 0;
-#X connect 21 1 23 0;
-#X connect 22 0 1 1;
-#X connect 22 0 3 1;
-#X connect 23 0 4 0;
-#X connect 23 1 22 0;
-#X connect 24 0 18 0;
-#X connect 25 0 2 0;
-#X connect 26 0 17 0;
-#X connect 26 1 1 1;
-#X connect 27 0 19 1;
-#X connect 27 0 20 1;
-#X connect 28 0 19 2;
-#X connect 28 0 20 2;
-#X restore 62 74 pd drawdisplay;
-#X text 160 73 draws the display;
-#N canvas 149 160 294 134 init 0;
-#X obj 33 19 loadbang;
-#X obj 33 86 s \$0-;
-#X msg 33 44 xticks 0 30 5 \, ylabel 315 -1 -0.5 0 0.5 \, yticks 0
-0.25 2;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
-#X restore 61 97 pd init;
-#N canvas 0 0 424 148 makelocal 0;
-#X obj 83 72 s \$0-draw_display;
-#X obj 83 46 r \$2-draw_display;
-#X obj 216 45 r \$2-sample-length;
-#X obj 216 71 s \$0-sample-length;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 61 129 pd makelocal;
-#X restore 369 90 pd inside;
-#X text 374 15 this display shows the min and max of all samples that
-a pixel represents;
-#X text 375 46 arguments: name of array \, \$0 of the parent patch
-;
-#X obj 0 0 cnv 15 300 120 empty empty empty 20 12 0 14 -225271 -66577
-0;
-#N canvas 0 0 450 300 graph1 0;
-#X array \$0- 300 float 0;
-#X array \$0+ 300 float 0;
-#X coords 0 1 300 -1 300 120 1;
-#X restore 0 0 graph;
-#X obj 438 70 inlet;
-#X text 480 69 individual length;
-#N canvas 71 382 599 303 individual 0;
-#X obj 319 150 s \$0-sample-length;
-#X obj 73 58 inlet;
-#X msg 369 173 resize \$1;
-#X obj 369 196 s \$1;
-#X obj 127 253 send \$0-;
-#X text 139 73 resize and sample-length;
-#X text 138 58 for individual bounds \, ticks and label \,;
-#X obj 41 182 unpack 0 0 0 0;
-#X obj 40 230 s \$0-bounds-;
-#X obj 40 207 s \$0-bounds+;
-#X msg 127 150 bounds \$1 \$2 \$3 \$4;
-#X obj 127 124 route bounds ylabel yticks;
-#X msg 151 175 ylabel \$1 \$2 \$3 \$4;
-#X msg 166 197 yticks \$1 \$2 \$3 \$4;
-#X connect 1 0 11 0;
-#X connect 2 0 3 0;
-#X connect 7 1 9 0;
-#X connect 7 3 8 0;
-#X connect 10 0 4 0;
-#X connect 11 0 7 0;
-#X connect 11 0 10 0;
-#X connect 11 1 12 0;
-#X connect 11 2 13 0;
-#X connect 11 3 0 0;
-#X connect 11 3 2 0;
-#X connect 12 0 4 0;
-#X connect 13 0 4 0;
-#X restore 438 90 pd individual;
-#X connect 5 0 7 0;
-#X coords 0 0 1 1 300 120 1;
diff --git a/externals/grill/vasp/pd/xtilt_example.pd b/externals/grill/vasp/pd/xtilt_example.pd deleted file mode 100644 index 63acc12b..00000000 --- a/externals/grill/vasp/pd/xtilt_example.pd +++ /dev/null @@ -1,88 +0,0 @@ -#N canvas 27 56 975 554 10;
-#X text 467 82 A;
-#X text 465 286 B;
-#N canvas 0 0 413 295 clear_buffers 0;
-#X obj 49 73 vasp.= 0;
-#X obj 49 49 inlet;
-#X obj 49 97 vasp.u;
-#X obj 49 118 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X connect 0 0 2 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X restore 604 494 pd clear_buffers;
-#X obj 510 85 wavedisplay-simple bufxtilt3 \$0;
-#X obj 512 273 wavedisplay-simple bufxtilt4 \$0;
-#X obj 269 69 filelist \$0;
-#X msg 603 467 vasp bufxtilt4;
-#X obj 403 487 dac~;
-#X obj 403 444 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 425 441 play;
-#N canvas 86 280 431 351 inside 0;
-#X obj 66 154 soundfiler;
-#X obj 84 238 s \$0-sample-length;
-#X obj 66 208 s \$0-draw_display;
-#X msg 214 206 resize \$1;
-#X obj 66 52 loadbang;
-#X obj 66 178 t b f f;
-#X obj 66 100 filelisthandler \$0;
-#X msg 66 132 read -resize \$1 bufxtilt3;
-#X obj 214 237 s bufxtilt3;
-#X obj 224 267 s bufxtilt4;
-#X msg 66 78 3;
-#X connect 0 0 5 0;
-#X connect 3 0 8 0;
-#X connect 3 0 9 0;
-#X connect 4 0 10 0;
-#X connect 5 0 2 0;
-#X connect 5 1 1 0;
-#X connect 5 2 3 0;
-#X connect 6 0 7 0;
-#X connect 7 0 0 0;
-#X connect 10 0 6 0;
-#X restore 780 485 pd inside;
-#X obj 404 464 tabplay~ bufxtilt4;
-#X obj 276 487 dac~;
-#X obj 276 444 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X text 298 441 play;
-#X obj 277 464 tabplay~ bufxtilt3;
-#X msg 76 127 vasp bufxtilt3;
-#X obj 76 149 vasp.-> bufxtilt4;
-#X obj 173 195 vasp.rfft;
-#X floatatom 270 259 5 0 0;
-#X obj 173 432 vasp.u;
-#X obj 173 454 bng 15 250 50 0 \$0-draw_display empty empty 0 -6 1152
-8 -262144 -1 -1;
-#X obj 173 409 vasp.r!fft;
-#X obj 172 222 vasp.upper;
-#X obj 172 245 vasp.mirr;
-#X obj 173 326 vasp.upper;
-#X obj 173 349 vasp.mirr;
-#X msg 151 271 vasp bufxtilt4;
-#X msg 157 381 vasp bufxtilt4;
-#X obj 76 98 bng 20 250 50 0 empty empty start 0 -6 0 8 -258699 -1
--1;
-#X obj 173 299 vasp.xtilt 2.9;
-#X connect 6 0 2 0;
-#X connect 8 0 11 0;
-#X connect 11 0 7 0;
-#X connect 11 0 7 1;
-#X connect 13 0 15 0;
-#X connect 15 0 12 0;
-#X connect 15 0 12 1;
-#X connect 16 0 17 0;
-#X connect 17 1 18 0;
-#X connect 18 0 23 0;
-#X connect 19 0 30 1;
-#X connect 20 0 21 0;
-#X connect 22 0 20 0;
-#X connect 23 0 24 0;
-#X connect 24 0 27 0;
-#X connect 25 0 26 0;
-#X connect 26 0 28 0;
-#X connect 27 0 30 0;
-#X connect 28 0 22 0;
-#X connect 29 0 16 0;
-#X connect 30 0 25 0;
diff --git a/externals/grill/vasp/readme.txt b/externals/grill/vasp/readme.txt deleted file mode 100644 index a8af0785..00000000 --- a/externals/grill/vasp/readme.txt +++ /dev/null @@ -1,110 +0,0 @@ -VASP modular - vector assembling signal processor -Object library for Max/MSP and PD - -Copyright (c) 2002-2006 Thomas Grill (gr@grrrr.org) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -Donations for further development of the package are highly appreciated. -Visit https://www.paypal.com/xclick/business=gr%40grrrr.org&item_name=vasp&no_note=1&tax=0¤cy_code=EUR - ----------------------------------------------------------------------------- - -DOWNLOAD: -========= - -http://grrrr.org/ext/vasp - ----------------------------------------------------------------------------- - -Package files: -- readme.txt: this one -- gpl.txt,license.txt,mixfft.txt: license stuff -- changes.txt,todo.txt: additional info -- pd-help/*: VASP help for PD -- pd/*: VASP abstractions and documentation for PD -- max-help/*: VASP help for Max/MSP (not present) -- maxmsp/*: VASP abstractions for Max/MSP -- source/*: VASP sources - ----------------------------------------------------------------------------- - -GOALS/FEATURES: -=============== - -VASP is a package for PD or MaxMSP consisting of a number of externals extending -these systems with functions for non-realtime array-based audio data processing. -VASP is capable of working in the background, therefore not influencing eventual -dsp signal processing. - ----------------------------------------------------------------------------- - -USAGE: -====== - -IMPORTANT INFORMATION for all PD users: ---------------------------------------- - -For VASP and its documentation to work properly, you have to specify a -PD command line like - -Linux/OSX: pd -path /usr/local/lib/pd/extra/vasp/pd -lib vasp/vasp -Windows: pd -path c:\audio\pd\extra\vasp\pd -lib vasp\vasp - - -The main help file "VASP-HELP.pd" resides in the "pd" sub-folder along with some -handy abstractions. Every help file is accessible from VASP-HELP.PD and vice versa. - - -IMPORTANT INFORMATION for all MaxMSP users: -------------------------------------------- - -It is advisable to put the vasp object library file into the "max-startup" folder. -Hence it will be loaded at Max startup. -If you want alternatively to load the vasp library on demand, -create a "vasp" object somewhere. The library is then loaded. - -If existent, the "max-help" folder should be put into the "max-help" folder of Max/MSP -and be renamed to "vasp". - ----------------------------------------------------------------------------- - ----------------------------------------------------------------------------- - -BUILDING from source --------------------- - -You will need the flext C++ layer for PD and Max/MSP externals to compile this. -See http://grrrr.org/ext/flext -Download, install and compile the package. -Afterwards you can proceed with building this external. - - -pd/Max - Windows - Microsoft Visual C, Borland C++, MinGW: ----------------------------------------------------------- -Start a command shell with your eventual build environment -(e.g. run vcvars32.bat for Microsoft Visual Studio) - -then run - ..\flext\build.bat -(you would have to substitute ..\flext with the respective path to the flext package) - - -pd/Max - OSX/Linux - GCC: -------------------------- -From a shell run -bash ../flext/build.sh -(you would have to substitute ../flext with the respective path to the flext package) - ----------------------------------------------------------------------------- - - -HINTS: -====== - -- Click-free operation: All objects where it makes sense (e.g. transformation of data, vasp.!, etc.) - can be set to "detached mode" by sending a "detach 1" message (which is setting the detach attribute to 1). - The operation will then take place in a detached thread with lower priority. - Thus, longer operations will not disturb the dsp processing of the real-time engine. - - diff --git a/externals/grill/vasp/source/arg.cpp b/externals/grill/vasp/source/arg.cpp deleted file mode 100644 index 696558cf..00000000 --- a/externals/grill/vasp/source/arg.cpp +++ /dev/null @@ -1,277 +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. - -*/ - -#include "main.h" -#include "arg.h" -//#include <math.h> -#include "classes.h" - -Argument::Argument(): tp(tp_none),nxt(NULL) {} -Argument::~Argument() { ClearAll(); } - -Argument &Argument::Parse(I argc,const t_atom *argv) -{ - if(argc == 0) - Clear(); - else // real? - if(argc == 1 && flext::CanbeFloat(argv[0])) - SetR(flext::GetAFloat(argv[0])); - else // complex? - if(argc == 2 && flext::CanbeFloat(argv[0]) && flext::CanbeFloat(argv[1])) - SetCX(flext::GetAFloat(argv[1]),flext::GetAFloat(argv[2])); - else // double? - if(argc >= 2 && flext::GetASymbol(argv[0]) == vasp_base::sym_double && - flext::CanbeFloat(argv[1]) && (argc == 2 || flext::CanbeFloat(argv[2])) - ) - SetR((D)flext::GetAFloat(argv[1])+(D)flext::GetAFloat(argv[2])); - else // envelope? - if(Env::ChkArgs(argc,argv)) { - Env *e = new Env(argc,argv); - if(e && e->Ok()) SetEnv(e); - else { - Clear(); - post("vasp - env argument is invalid"); - delete e; - } - } - else // vasp? - if(Vasp::ChkArgs(argc,argv)) { - Vasp *v = new Vasp(argc,argv); - if(v && v->Ok()) SetVasp(v); - else { - Clear(); - post("vasp - vasp argument is invalid"); - delete v; - } - } - else { - Clear(); - post("vasp - invalid arguments"); - } - return *this; -} - -V Argument::MakeList(flext::AtomList &ret) -{ - switch(tp) { - case tp_none: - ret(); - break; - case tp_list: - ret = *dt.atoms; - break; - case tp_vasp: - dt.v->MakeList(ret); - break; - case tp_env: - dt.env->MakeList(ret); - break; - case tp_vx: { - I d = dt.vx->Dim(); - ret(d+1); - flext::SetSymbol(ret[0],vasp_base::sym_vector); - for(I i = 0; i < d; ++i) - flext::SetFloat(ret[i+1],(*dt.vx)[i]); - break; - } - case tp_cx: - ret(3); - flext::SetSymbol(ret[0],vasp_base::sym_complex); - flext::SetFloat(ret[1],dt.cx->real); - flext::SetFloat(ret[2],dt.cx->imag); - break; - case tp_int: - ret(1); - flext::SetInt(ret[0],dt.i); - break; - case tp_float: - ret(1); - flext::SetFloat(ret[0],dt.f); - break; - case tp_double: { - F f = (F)dt.d; - ret(3); - flext::SetSymbol(ret[0],vasp_base::sym_double); - flext::SetFloat(ret[1],f); - flext::SetFloat(ret[2],dt.d-f); - break; - } - default: - ERRINTERNAL(); - } -} - - -Argument &Argument::Clear() -{ - switch(tp) { - case tp_none: - break; - case tp_list: - if(dt.atoms) { delete dt.atoms; dt.atoms = NULL; } - break; - case tp_vasp: - if(dt.v) { delete dt.v; dt.v = NULL; } - break; - case tp_env: - if(dt.env) { delete dt.env; dt.env = NULL; } - break; - case tp_vx: - if(dt.vx) { delete dt.vx; dt.vx = NULL; } - break; - case tp_cx: - if(dt.cx) { delete dt.cx; dt.cx = NULL; } - break; - case tp_int: - case tp_float: - case tp_double: - break; - default: - ERRINTERNAL(); - } - tp = tp_none; - return *this; -} - -Argument &Argument::ClearAll() -{ - Clear(); - if(nxt) { delete nxt; nxt = NULL; } - return *this; -} - -Argument &Argument::SetVasp(Vasp *v) -{ - if(tp != tp_none) Clear(); - dt.v = v; tp = tp_vasp; - return *this; -} - -Argument &Argument::SetEnv(Env *e) -{ - if(tp != tp_none) Clear(); - dt.env = e; tp = tp_env; - return *this; -} - -Argument &Argument::SetList(I argc,const t_atom *argv) -{ - if(tp != tp_none) Clear(); - dt.atoms = new flext::AtomList(argc,argv); tp = tp_list; - return *this; -} - -Argument &Argument::SetR(F f) -{ - if(tp != tp_none) Clear(); - dt.f = f; tp = tp_float; - return *this; -} - -Argument &Argument::SetR(D f) -{ - if(tp != tp_none) Clear(); - dt.d = f; tp = tp_double; - return *this; -} - -Argument &Argument::SetI(I i) -{ - if(tp != tp_none) Clear(); - dt.i = i; tp = tp_int; - return *this; -} - -Argument &Argument::SetCX(F re,F im) -{ - if(tp != tp_none) Clear(); - dt.cx = new CX(re,im); tp = tp_cx; - return *this; -} - -Argument &Argument::SetVX(VX *vec) -{ - if(tp != tp_none) Clear(); - dt.vx = vec; tp = tp_vx; - return *this; -} - -I Argument::GetAInt() const { return (I)GetADouble(); } - -F Argument::GetAFloat() const { return GetADouble(); } - -D Argument::GetADouble() const -{ - if(IsInt()) return GetInt(); - else if(IsFloat()) return GetFloat(); - else if(IsDouble()) return GetDouble(); - else return 0; -} - -CX Argument::GetAComplex() const -{ - if(IsInt()) return (F)GetInt(); - else if(IsFloat()) return GetFloat(); - else if(IsDouble()) return GetDouble(); - else if(IsComplex()) return GetComplex(); - else return 0; -} - -Vasp Argument::GetAVasp() const -{ - if(IsVasp()) return GetVasp(); - else if(IsList()) return Vasp(dt.atoms->Count(),dt.atoms->Atoms()); - else return Vasp(); -} - -Env Argument::GetAEnv() const -{ - if(IsEnv()) return GetEnv(); - else if(IsList()) return Env(dt.atoms->Count(),dt.atoms->Atoms()); - else return Env(); -} - - -Argument &Argument::Add(Argument *n) -{ - if(nxt) nxt->Add(n); - else nxt = n; - return *n; -} - -Argument &Argument::Next(I i) -{ - if(i <= 0) return *this; - else { - Argument *n = Next(); - if(n) return n->Next(i-1); - else { - error("Argument: index not found!"); - return *this; - } - } -} - -Argument &Argument::AddVasp(Vasp *v) { Argument *a = new Argument; a->SetVasp(v); return Add(a); } - -Argument &Argument::AddEnv(Env *e) { Argument *a = new Argument; a->SetEnv(e); return Add(a); } - -Argument &Argument::AddList(I argc,const t_atom *argv) { Argument *a = new Argument; a->SetList(argc,argv); return Add(a); } - -Argument &Argument::AddI(I i) { Argument *a = new Argument; a->SetI(i); return Add(a); } - -Argument &Argument::AddR(F f) { Argument *a = new Argument; a->SetR(f); return Add(a); } - -Argument &Argument::AddCX(F re,F im) { Argument *a = new Argument; a->SetCX(re,im); return Add(a); } - -Argument &Argument::AddVX(VX *vec) { Argument *a = new Argument; a->SetVX(vec); return Add(a); } - - - diff --git a/externals/grill/vasp/source/arg.h b/externals/grill/vasp/source/arg.h deleted file mode 100644 index cd0f70a1..00000000 --- a/externals/grill/vasp/source/arg.h +++ /dev/null @@ -1,111 +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. - -*/ - -#ifndef __VASP_ARG_H -#define __VASP_ARG_H - -#include "vasp.h" -#include "env.h" - -#define VASP_ARG() Argument() -#define VASP_ARG_I(VAL) Argument().SetR(VAL) -#define VASP_ARG_R(VAL) Argument().SetR(VAL) -#define VASP_ARG_CX(RV,IV) Argument().SetCX(RV,IV) - -class Argument: - public flext -{ -public: - Argument(); - ~Argument(); - - Argument &Parse(I argc,const t_atom *argv); - Argument &Clear(); - Argument &ClearAll(); - - Argument &SetVasp(Vasp *v); - Argument &SetEnv(Env *e); - Argument &SetList(I argc,const t_atom *argv); - Argument &SetI(I i); - Argument &SetR(F f); - Argument &SetR(D d); - Argument &SetR(I i) { return SetR((F)i); } - Argument &SetCX(F re,F im); - Argument &SetVX(VX *vec); - - Argument *Next() { return nxt; } - Argument &Next(I i); - Argument &Add(Argument *a); - - Argument &AddVasp(Vasp *v); - Argument &AddEnv(Env *e); - Argument &AddList(I argc,const t_atom *argv); - Argument &AddI(I i); - Argument &AddR(F f); - Argument &AddR(D d); - Argument &AddR(I i) { return AddR((F)i); } - Argument &AddCX(F re,F im); - Argument &AddVX(VX *vec); - - BL IsNone() const { return tp == tp_none; } - BL IsList() const { return tp == tp_list; } - BL IsVasp() const { return tp == tp_vasp; } - BL CanbeVasp() const { return tp == tp_vasp || (tp == tp_list && Vasp::ChkArgs(dt.atoms->Count(),dt.atoms->Atoms())); } - BL IsEnv() const { return tp == tp_env; } - BL CanbeEnv() const { return tp == tp_env || (tp == tp_env && Env::ChkArgs(dt.atoms->Count(),dt.atoms->Atoms())); } - BL IsInt() const { return tp == tp_int; } - BL CanbeInt() const { return tp == tp_int || tp == tp_float || tp_double; } - BL IsFloat() const { return tp == tp_float; } - BL CanbeFloat() const { return tp == tp_float || tp == tp_double || tp == tp_int; } - BL IsDouble() const { return tp == tp_double; } - BL CanbeDouble() const { return tp == tp_double || tp == tp_float || tp == tp_int; } - BL IsComplex() const { return tp == tp_cx; } - BL CanbeComplex() const { return tp == tp_cx || CanbeFloat(); } - BL IsVector() const { return tp == tp_vx; } - BL CanbeVector() const { return tp == tp_vx || CanbeComplex(); } - - const flext::AtomList &GetList() const { return *dt.atoms; } - const Vasp &GetVasp() const { return *dt.v; } - Vasp GetAVasp() const; - const Env &GetEnv() const { return *dt.env; } - Env GetAEnv() const; - I GetInt() const { return dt.i; } - I GetAInt() const; - F GetFloat() const { return dt.f; } - F GetAFloat() const; - D GetDouble() const { return dt.d; } - D GetADouble() const; - const CX &GetComplex() const { return *dt.cx; } - CX GetAComplex() const; - const VX &GetVector() const { return *dt.vx; } - VX GetAVector() const; - - V MakeList(flext::AtomList &ret); - -protected: - enum { - tp_none,tp_vasp,tp_env,tp_list,tp_int,tp_float,tp_double,tp_cx,tp_vx - } tp; - - union { - Vasp *v; - Env *env; - flext::AtomList *atoms; - F f; - D d; - I i; - CX *cx; - VX *vx; - } dt; - - Argument *nxt; -}; - -#endif diff --git a/externals/grill/vasp/source/buflib.cpp b/externals/grill/vasp/source/buflib.cpp deleted file mode 100644 index a6b3d082..00000000 --- a/externals/grill/vasp/source/buflib.cpp +++ /dev/null @@ -1,343 +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. - -*/ - -#include "main.h" -#include "buflib.h" -#include <stdio.h> - -#define LIBTICK 0.1 // tick time in s -#define LIBTOL 3 // how many ticks till release - -#define REUSE_MAXLOSEREL 0.1 // max. fraction of lost buffer size -#define REUSE_MAXLOSEABS 10000 // max. lost buffer size - - -#ifdef __MWERKS__ -#define STD std -#else -#define STD -#endif - - -class FreeEntry: - public flext -{ -public: - FreeEntry(const t_symbol *s): sym(s),nxt(NULL) {} - - const t_symbol *sym; - FreeEntry *nxt; -}; - -class BufEntry: - public flext -{ -public: - BufEntry(const t_symbol *s,I fr,BL zero = true); - ~BufEntry(); - - V IncRef(); - V DecRef(); - - const t_symbol *sym; - I refcnt,tick; - BufEntry *nxt; - - I alloc,len; - S *data; -}; - - -static BufEntry *libhead = NULL,*libtail = NULL; -static FreeEntry *freehead = NULL,*freetail = NULL; -static I libcnt = 0,libtick = 0; - -#ifdef FLEXT_THREADS -static flext::ThrMutex libmtx,freemtx; -#endif - -static V FreeLibSym(const t_symbol *s); - - - - -BufEntry::BufEntry(const t_symbol *s,I fr,BL zero): - sym(s), - alloc(fr),len(fr), - refcnt(0),nxt(NULL) -{ - data = (S *)NewAligned(len*sizeof(*data)); - if(zero) flext::ZeroMem(data,len*sizeof(*data)); -} - -BufEntry::~BufEntry() -{ - if(sym) FreeLibSym(sym); - if(data) FreeAligned(data); -} - -V BufEntry::IncRef() { ++refcnt; } -V BufEntry::DecRef() { --refcnt; tick = libtick; } - -static BufEntry *FindInLib(const t_symbol *s) -{ - BufEntry *e; - for(e = libhead; e && e->sym != s; e = e->nxt) (void)0; - return e?e:NULL; -} - -#ifdef FLEXT_DEBUG -static V DumpLib() -{ - post("Dump {"); - BufEntry *e; - for(e = libhead; e; e = e->nxt) { - post("\t%s -> refs:%i, alloc:%i, len:%i -> %p",flext::GetString(e->sym),e->refcnt,e->alloc,e->len,e->data); - } - post("}"); -} -#endif - -VBuffer *BufLib::Get(const VSymbol &s,I chn,I len,I offs) -{ - BufEntry *e = FindInLib(s.Symbol()); - if(e) - return new ImmBuf(e,len,offs); - else - return new SysBuf(s,chn,len,offs); -} - -V BufLib::IncRef(const t_symbol *s) -{ - if(s) { - BufEntry *e = FindInLib(s); - if(e) e->IncRef(); - } -} - -V BufLib::DecRef(const t_symbol *s) -{ - if(s) { - BufEntry *e = FindInLib(s); - if(e) e->DecRef(); - } -} - -static V Collect() -{ -#ifdef FLEXT_THREADS - libmtx.Lock(); -#endif - - // collect garbage - BufEntry *e,*p; - for(p = NULL,e = libhead; e; ) { - if(e->refcnt <= 0 && e->tick+LIBTOL < libtick) { - FLEXT_ASSERT(e->refcnt == 0); - - BufEntry *n = e->nxt; - - if(p) p->nxt = n; - else libhead = n; - - if(!n) libtail = p; - else e->nxt = NULL; - - delete e; - - e = n; - } - else - p = e,e = e->nxt; - } - -#ifdef FLEXT_THREADS - libmtx.Unlock(); -#endif -} - - -#ifdef FLEXT_THREADS -static bool libthractive = false; -//static flext::thrid_t libthrid; -static bool libthrexit = false; // currently not used -static flext::ThrCond *libthrcond = NULL; - -static V LibThr(flext::thr_params *) -{ - flext::RelPriority(-2); - - while(!libthrexit) { - libthrcond->TimedWait(1); // don't go below 1 here as TimedWait might not support fractions of seconds!!! - // TODO - should process return value of TimedWait - Collect(); - } -} -#endif - -static flext::Timer *libclk = NULL; - -static V LibTick(V *) -{ -#ifdef FLEXT_THREADS - libthrcond->Signal(); -#else - Collect(); -#endif - - ++libtick; -} - -static const t_symbol *GetLibSym() -{ -#ifdef FLEXT_THREADS - freemtx.Lock(); -#endif - const t_symbol *ret; - - if(freehead) { - // reuse from free-list - FreeEntry *r = freehead; - freehead = r->nxt; - if(!freehead) freetail = NULL; - const t_symbol *s = r->sym; - delete r; - ret = s; - } - else { - // allocate new symbol - char tmp[20]; - if(libcnt > 0xffff) - STD::sprintf(tmp,"vasp!%08x",libcnt); - else // better hash lookup for 4 digits - STD::sprintf(tmp,"vasp!%04x",libcnt); - libcnt++; - ret = gensym(tmp); - } - -#ifdef FLEXT_THREADS - freemtx.Unlock(); -#endif - return ret; -} - -static V FreeLibSym(const t_symbol *sym) -{ -#ifdef FLEXT_DEBUG -// post("free %s",flext::GetString(sym)); -#endif - -#ifdef FLEXT_THREADS - freemtx.Lock(); -#endif - - FreeEntry *f = new FreeEntry(sym); - if(!freehead) freehead = f; - else freetail->nxt = f; - freetail = f; - -#ifdef FLEXT_THREADS - freemtx.Unlock(); -#endif -} - - -BufEntry *BufLib::NewImm(I fr,BL zero) -{ -#ifdef FLEXT_THREADS - if(!libthractive) { - bool ret = flext::LaunchThread(LibThr,NULL); - if(!ret) - error("vasp - Could not launch helper thread"); - else { - libthrcond = new flext::ThrCond; - libthractive = true; - } - } -#endif - if(!libclk) { - libclk = new flext::Timer(true); - libclk->SetCallback(LibTick); - libclk->Periodic(LIBTICK); - } - - const t_symbol *s = GetLibSym(); - BufEntry *entry = new BufEntry(s,fr,zero); - -#ifdef FLEXT_THREADS - libmtx.Lock(); -#endif - - if(libtail) libtail->nxt = entry; - else libhead = entry; - libtail = entry; - -#ifdef FLEXT_DEBUG -// DumpLib(); -#endif - -#ifdef FLEXT_THREADS - libmtx.Unlock(); -#endif - - return entry; -} - -static F reuse_maxloserel = (F)REUSE_MAXLOSEREL; -static I reuse_maxloseabs = REUSE_MAXLOSEABS; - -BufEntry *BufLib::Resize(BufEntry *e,I fr,BL keep,BL zero) -{ - if(e->alloc >= fr && fr >= e->alloc*(1-reuse_maxloserel) && fr >= (e->alloc-reuse_maxloseabs)) { - // reuse buffer - e->len = fr; - } - else { - S *nd = new S[fr]; - if(keep) { - I l = fr; - if(e->len < l) { - l = e->len; - if(zero) flext::ZeroMem(nd+l,(fr-l)*sizeof(*nd)); - } - flext::CopyMem(nd,e->data,l*sizeof(*nd)); - } - - delete[] e->data; - e->data = nd; - e->len = e->alloc = fr; - } - return e; -} - - - -ImmBuf::ImmBuf(I len,BL zero): - VBuffer(0,len), - entry(BufLib::NewImm(len,zero)) -{} - -ImmBuf::ImmBuf(BufEntry *e,I len,I offs): - VBuffer(0,len,offs), - entry(e) -{ - if(Length() > e->alloc) { - Length(e->alloc); - post("vasp - buffer %s: Length (%i) is out of range, corrected to %i",GetString(e->sym),len,e->alloc); - } -} - -VSymbol ImmBuf::Symbol() const { return entry->sym; } - -I ImmBuf::Frames() const { return entry->len; } - -V ImmBuf::Frames(I fr,BL keep,BL zero) { entry = BufLib::Resize(entry,fr,keep,zero); } - -S *ImmBuf::Data() { return entry->data; } diff --git a/externals/grill/vasp/source/buflib.h b/externals/grill/vasp/source/buflib.h deleted file mode 100644 index 545e8103..00000000 --- a/externals/grill/vasp/source/buflib.h +++ /dev/null @@ -1,37 +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 buflib.h - \brief Routines for buffer management -*/ - -#ifndef __VASP_BUFLIB_H -#define __VASP_BUFLIB_H - -#include "classes.h" -#include "vbuffer.h" - -class BufEntry; - -namespace BufLib -{ - VBuffer *Get(const VSymbol &s,I chn = 0,I len = -1,I offs = 0); - - BufEntry *NewImm(I fr,BL zero = true); - - V IncRef(const t_symbol *s); - V DecRef(const t_symbol *s); - - BufEntry *Resize(BufEntry *e,I fr,BL keep = false,BL zero = true); -} - - - -#endif diff --git a/externals/grill/vasp/source/classes.cpp b/externals/grill/vasp/source/classes.cpp deleted file mode 100644 index 195e9e25..00000000 --- a/externals/grill/vasp/source/classes.cpp +++ /dev/null @@ -1,416 +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. - -*/ - -#include "main.h" -#include "classes.h" -//#include <stdarg.h> - - -/////////////////////////////////////////////////////////////////////////// -// vasp_base class -/////////////////////////////////////////////////////////////////////////// - -const t_symbol *vasp_base::sym_radio; -const t_symbol *vasp_base::sym_vasp; -const t_symbol *vasp_base::sym_env; -const t_symbol *vasp_base::sym_double; -const t_symbol *vasp_base::sym_complex; -const t_symbol *vasp_base::sym_vector; - -V vasp_base::Setup(t_classid c) -{ - sym_radio = MakeSymbol("radio"); - sym_vasp = MakeSymbol("vasp"); - sym_env = MakeSymbol("env"); - sym_double = MakeSymbol("double"); - sym_complex = MakeSymbol("complex"); - sym_vector = MakeSymbol("vector"); - - FLEXT_CADDMETHOD_(c,0,"radio",m_radio); - FLEXT_CADDMETHOD_(c,0,"help",m_help); - - FLEXT_CADDATTR_VAR1(c,"defer",deferred); - -// LATER! -/* - FLEXT_CADDATTR_VAR1(c,"argchk",argchk); - FLEXT_CADDATTR_VAR1(c,"loglvl",loglvl); - FLEXT_CADDATTR_VAR1_E(c,"unit",unit); -*/ -} - -vasp_base::vasp_base(): - refresh(false),argchk(false),deferred(false), - unit(xsu_sample),loglvl(0) -{} - -vasp_base::~vasp_base() {} - - -V vasp_base::m_radio(I argc,const t_atom *argv) -{ - if(argc > 0 && IsSymbol(argv[0])) { - // send command to self! - ToSelfAnything(0,GetSymbol(argv[0]),argc-1,argv+1); - - // send command to the next objects in line - ToOutAnything(0,sym_radio,argc,argv); - } - else - post("%s - radio message invalid",thisName()); -} - -/* -V vasp_base::m_unit(xs_unit u) { unit = u; } -V vasp_base::m_argchk(BL chk) { argchk = chk; } -V vasp_base::m_loglvl(I lvl) { loglvl = lvl; } -*/ - -BL vasp_base::ToOutVasp(I oix,Vasp &v) -{ - AtomList *lst = v.MakeList(false); - if(lst) { - if(deferred) - ToQueueAnything(oix,sym_vasp,lst->Count(),lst->Atoms()); - else - ToOutAnything(oix,sym_vasp,lst->Count(),lst->Atoms()); - delete lst; - return true; - } - else return false; -} - -/////////////////////////////////////////////////////////////////////////// -// vasp_op class -/////////////////////////////////////////////////////////////////////////// - -vasp_op::vasp_op(BL op) - :detach(false),prior(-2) -#ifdef FLEXT_THREADS -// ,thrid(0) -#endif -{ - if(op) FLEXT_ADDATTR_VAR("to",m_getto,m_setto); -} - -V vasp_op::Setup(t_classid c) -{ - FLEXT_CADDBANG(c,0,m_dobang); - FLEXT_CADDMETHOD_(c,0,"vasp",m_vasp); - FLEXT_CADDMETHOD_(c,0,"set",m_set); - - FLEXT_CADDATTR_VAR(c,"ref",m_getref,m_setref); - - FLEXT_CADDMETHOD_(c,0,"stop",m_stop); - - FLEXT_CADDATTR_VAR(c,"update",m_getupd,m_setupd); - - FLEXT_CADDATTR_VAR1(c,"detach",detach); - FLEXT_CADDATTR_VAR1(c,"prior",prior); -} - -V vasp_op::m_dobang() -{ -#ifdef FLEXT_THREADS - if(detach) - FLEXT_CALLMETHOD(m_bang); - else -#endif - m_bang(); -} - -I vasp_op::m_set(I argc,const t_atom *argv) -{ - Vasp arg(argc,argv); - - if(argc && !arg.Ok()) { - ref.Clear(); - post("%s - invalid vasp detected and ignored",thisName()); - } - else { - if(arg.Check()) - ref = arg; - else { - ref.Clear(); - post("%s - vasp reference is invalid",thisName()); - } - } - - return 0; -} - -V vasp_op::m_vasp(I argc,const t_atom *argv) -{ - m_set(argc,argv); - m_dobang(); -} - - -V vasp_op::m_to(I argc,const t_atom *argv) -{ - Vasp to(argc,argv); - - if(argc && !to.Ok()) { - // empty vasp - dst.Clear(); - } - else - dst = to; -} - -V vasp_op::m_update(I argc,const t_atom *argv) -{ - if(argc == 0) - ref.Refresh(); - else { - if(CanbeInt(argv[0])) - refresh = GetAInt(argv[0]) != 0; - else - post("%s(update) - argument should be omitted or integer",thisName()); - } -} - -V vasp_op::m_stop() {} - -/////////////////////////////////////////////////////////////////////////// -// vasp_tx class -/////////////////////////////////////////////////////////////////////////// - -vasp_tx::vasp_tx(BL to): vasp_op(to) {} - -V vasp_tx::m_bang() -{ - // Thread has to wait until previous is finished - Lock(); - -#ifdef FLEXT_THREADS - if(!IsSystemThread()) RelPriority(prior); -#endif - - if(ref.Check()) - { - Vasp *ret = x_work(); - if(ret) { - if(!ToOutVasp(0,*ret)) - post("%s - empty list",thisName()); - if(refresh) ret->Refresh(); - delete ret; - } - else { -#ifdef FLEXT_DEBUG - post("%s - no valid return",thisName()); -#endif - } - } - else { - post("%s - no valid vasp to work with",thisName()); - } - -#ifdef FLEXT_THREADS -// thrid = 0; -#endif - - Unlock(); -} - - -/////////////////////////////////////////////////////////////////////////// -// vasp_unop class -/////////////////////////////////////////////////////////////////////////// - -vasp_unop::vasp_unop(BL op,UL outcode): - vasp_tx(op) -{ - AddInAnything(); - AddOutAnything(1); - AddOutlets(outcode); -} - -Vasp *vasp_unop::x_work() { return tx_work(); } - -Vasp *vasp_unop::tx_work() -{ - error("%s - no work method implemented",thisName()); - return NULL; -} - -/////////////////////////////////////////////////////////////////////////// -// vasp_binop class -/////////////////////////////////////////////////////////////////////////// - - -vasp_binop::vasp_binop(I argc,const t_atom *argv,const Argument &def,BL op,UL outcode): - vasp_tx(op) -{ - a_list(argc,argv); - if(arg.IsNone() && !def.IsNone()) arg = def; - - AddInAnything(2); - AddOutAnything(1); - AddOutlets(outcode); -} - -V vasp_binop::Setup(t_classid c) -{ - FLEXT_CADDMETHOD(c,1,a_list); - FLEXT_CADDMETHOD_(c,1,"vasp",a_vasp); - FLEXT_CADDMETHOD_(c,1,"env",a_env); - FLEXT_CADDMETHOD_(c,1,"float",a_float); - FLEXT_CADDMETHOD_(c,1,"double",a_double); - FLEXT_CADDMETHOD_(c,1,"int",a_int); - FLEXT_CADDMETHOD_(c,1,"complex",a_complex); - FLEXT_CADDMETHOD_(c,1,"vector",a_vector); - FLEXT_CADDMETHOD_(c,1,"radio",a_radio); - - FLEXT_CADDATTR_VAR(c,"arg",m_getarg,m_setarg); -} - -V vasp_binop::a_list(I argc,const t_atom *argv) -{ - if(argc) { - arg.Parse(argc,argv); - if(arg.IsNone()) - post("%s - list argument could not be evaluated (ignored)",thisName()); - else if(argchk) { - // check argument feasibility - } - } - else { -// post("%s - Empty list argument (ignored)",thisName()); - } -} - -V vasp_binop::a_vasp(I argc,const t_atom *argv) -{ - Vasp *v = new Vasp(argc,argv); - if(v->Ok()) { - arg.SetVasp(v); - if(argchk) { - // check argument feasibility - } - } - else { - post("%s - invalid vasp argument (ignored)",thisName()); - delete v; - } -} - -V vasp_binop::a_env(I argc,const t_atom *argv) -{ - Env *bp = new Env(argc,argv); - if(bp->Ok()) { - arg.SetEnv(bp); - if(argchk) { - // check argument feasibility - } - } - else { - post("%s - invalid env argument (ignored)",thisName()); - delete bp; - } -} - -V vasp_binop::a_float(F v) { arg.SetR(v); } - -V vasp_binop::a_double(I argc,const t_atom *argv) -{ - if( - (argc == 1 && CanbeFloat(argv[0])) || - (argc == 2 && CanbeFloat(argv[0]) && CanbeFloat(argv[1])) - ) { - arg.SetR((D)GetAFloat(argv[0])+(D)GetAFloat(argv[1])); - if(argchk) { - // check argument feasibility - } - } - else - post("%s - invalid double argument (ignored)",thisName()); -} - -V vasp_binop::a_int(I v) { arg.SetI(v); } - -V vasp_binop::a_complex(I argc,const t_atom *argv) -{ - if( - (argc == 1 && CanbeFloat(argv[0])) || - (argc == 2 && CanbeFloat(argv[0]) && CanbeFloat(argv[1])) - ) { - arg.SetCX(GetAFloat(argv[0]),GetAFloat(argv[1])); - if(argchk) { - // check argument feasibility - } - } - else - post("%s - invalid complex argument (ignored)",thisName()); -} - -V vasp_binop::a_vector(I argc,const t_atom *argv) -{ - error("%s - vector type not implemented",thisName()); -} - - -Vasp *vasp_binop::x_work() { return tx_work(arg); } - -Vasp *vasp_binop::tx_work(const Argument &arg) -{ - error("%s - no work method implemented",thisName()); - return NULL; -} - - -/////////////////////////////////////////////////////////////////////////// -// vasp_anyop class -/////////////////////////////////////////////////////////////////////////// - - -vasp_anyop::vasp_anyop(I argc,const t_atom *argv,const Argument &def,BL op,UL outcode): - vasp_tx(op) -{ - a_list(argc,argv); - if(arg.IsNone() && !def.IsNone()) arg = def; - - AddInAnything(2); - AddOutAnything(1); - AddOutlets(outcode); -} - -V vasp_anyop::Setup(t_classid c) -{ - FLEXT_CADDMETHOD(c,1,a_list); - FLEXT_CADDMETHOD_(c,1,"vasp",a_list); - FLEXT_CADDMETHOD_(c,1,"radio",a_radio); - - FLEXT_CADDATTR_VAR(c,"arg",m_getarg,m_setarg); -} - -V vasp_anyop::a_list(I argc,const t_atom *argv) -{ - if(argc) { - arg.SetList(argc,argv); - if(arg.IsNone()) - post("%s - argument could not be evaluated (ignored)",thisName()); - else if(argchk) { - // check argument feasibility - } - } - else { -// post("%s - Empty list argument (ignored)",thisName()); - } -} - -Vasp *vasp_anyop::x_work() { return tx_work(arg); } - -Vasp *vasp_anyop::tx_work(const Argument &arg) -{ - error("%s - no work method implemented",thisName()); - return NULL; -} - diff --git a/externals/grill/vasp/source/classes.h b/externals/grill/vasp/source/classes.h deleted file mode 100644 index 9096b3f8..00000000 --- a/externals/grill/vasp/source/classes.h +++ /dev/null @@ -1,320 +0,0 @@ -/* - -VASP modular - vector assembling signal processor / objects for Max/MSP and PD - -Copyright (c) 2002-2007 Thomas Grill (gr@grrrr.org) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -*/ - -#ifndef __VASP_CLASSES_H -#define __VASP_CLASSES_H - -#include "vasp.h" -#include "arg.h" - - -class vasp_base: - public flext_base -{ - FLEXT_HEADER_S(vasp_base,flext_base,Setup) - -public: - enum xs_unit { - xsu__ = -1, // don't change - xsu_sample = 0,xsu_buffer,xsu_ms,xsu_s - }; - - static const t_symbol *sym_vasp; - static const t_symbol *sym_env; - static const t_symbol *sym_double; - static const t_symbol *sym_complex; - static const t_symbol *sym_vector; - static const t_symbol *sym_radio; - -protected: - vasp_base(); - virtual ~vasp_base(); - - virtual V m_radio(I argc,const t_atom *argv); // commands for all - - virtual V m_help() = 0; - -/* - V m_argchk(BL chk); // precheck argument on arrival - V m_loglvl(I lvl); // noise level of log messages - V m_unit(xs_unit u); // unit command -*/ - BL refresh; // immediate graphics refresh? - BL argchk; // pre-operation argument feasibility check - BL deferred; // queue outgoing vasp messages - xs_unit unit; // time units - I loglvl; // noise level for log messages - - friend class Vasp; - - BL ToOutVasp(I outlet,Vasp &v); - -private: - static V Setup(t_classid); - - FLEXT_CALLBACK_V(m_radio) - FLEXT_CALLBACK(m_help) - - FLEXT_ATTRVAR_B(argchk) - FLEXT_ATTRVAR_B(deferred) - FLEXT_ATTRVAR_I(loglvl) - FLEXT_ATTRVAR_E(unit,xs_unit) -}; - - -class vasp_op: - public vasp_base -{ - FLEXT_HEADER_S(vasp_op,vasp_base,Setup) - -protected: - vasp_op(BL withto = false); - - virtual V m_dobang(); // bang method - - virtual V m_vasp(I argc,const t_atom *argv); // trigger - virtual I m_set(I argc,const t_atom *argv); // non trigger - virtual V m_to(I argc,const t_atom *argv); // set destination -// V m_detach(BL thr); // detached thread -// virtual V m_prior(I dp); // thread priority +- - virtual V m_stop(); // stop working - - virtual V m_update(I argc = 0,const t_atom *argv = NULL); // graphics update - - V m_setupd(const AtomList &l) { m_update(l.Count(),l.Atoms()); } - V m_getupd(AtomList &l) { l(1); SetBool(l[0],refresh); } - - // destination vasp - Vasp ref,dst; - - V m_setref(const AtomList &l) { m_set(l.Count(),l.Atoms()); } - V m_getref(AtomList &l) { ref.MakeList(l); } - V m_setto(const AtomList &l) { m_to(l.Count(),l.Atoms()); } - V m_getto(AtomList &l) { dst.MakeList(l); } - - FLEXT_CALLBACK_V(m_to) - - FLEXT_CALLBACK(m_dobang) -#ifdef FLEXT_THREADS - FLEXT_THREAD(m_bang) - - ThrMutex runmtx; - V Lock() { runmtx.Lock(); } - V Unlock() { runmtx.Unlock(); } - -// thrid_t thrid; -#else - FLEXT_CALLBACK(m_bang) - - V Lock() {} - V Unlock() {} -#endif - BL detach; // detached operation? - I prior; // thread priority - - FLEXT_CALLBACK_V(m_vasp) - FLEXT_CALLBACK_V(m_set) - - FLEXT_CALLVAR_V(m_getref,m_setref) - FLEXT_CALLVAR_V(m_getto,m_setto) - - FLEXT_CALLBACK(m_stop) - - FLEXT_CALLVAR_V(m_getupd,m_setupd) - FLEXT_ATTRVAR_B(detach) - FLEXT_ATTRVAR_I(prior) - -private: - static V Setup(t_classid); - - virtual V m_bang() = 0; // do! and output current Vasp -}; - - - -class vasp_tx: - public vasp_op -{ - FLEXT_HEADER(vasp_tx,vasp_op) - -protected: - vasp_tx(BL withto = false); - - virtual V m_bang(); // do! and output current Vasp - - virtual Vasp *x_work() = 0; -}; - - - - -#define VASP_SETUP(op) FLEXT_SETUP(vasp_##op); - - - -// base class for unary operations - -class vasp_unop: - public vasp_tx -{ - FLEXT_HEADER(vasp_unop,vasp_tx) - -protected: - vasp_unop(BL withto = false,UL outcode = 0); - - virtual Vasp *x_work(); - virtual Vasp *tx_work(); -}; - - -// base class for binary operations - -class vasp_binop: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_binop,vasp_tx,Setup) - -protected: - vasp_binop(I argc,const t_atom *argv,const Argument &def = Argument(),BL withto = false,UL outcode = 0); - - // assignment functions - virtual V a_list(I argc,const t_atom *argv); - /*virtual*/ V a_vasp(I argc,const t_atom *argv); - /*virtual*/ V a_env(I argc,const t_atom *argv); - /*virtual*/ V a_float(F f); - /*virtual*/ V a_int(I f); - /*virtual*/ V a_double(I argc,const t_atom *argv); - /*virtual*/ V a_complex(I argc,const t_atom *argv); - /*virtual*/ V a_vector(I argc,const t_atom *argv); - - V a_radio(I,const t_atom *) {} - - virtual Vasp *x_work(); - virtual Vasp *tx_work(const Argument &arg); - - Argument arg; - - V m_setarg(const AtomList &l) { a_list(l.Count(),l.Atoms()); } - V m_getarg(AtomList &l) { arg.MakeList(l); } - -private: - static V Setup(t_classid); - - FLEXT_CALLBACK_V(a_list) - FLEXT_CALLBACK_V(a_vasp) - FLEXT_CALLBACK_V(a_env) - FLEXT_CALLBACK_1(a_float,F) - FLEXT_CALLBACK_1(a_int,I) - FLEXT_CALLBACK_V(a_double) - FLEXT_CALLBACK_V(a_complex) - FLEXT_CALLBACK_V(a_vector) - FLEXT_CALLBACK_V(a_radio) - - FLEXT_CALLVAR_V(m_getarg,m_setarg) -}; - - -// base class for non-parsed (list) arguments - -class vasp_anyop: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_anyop,vasp_tx,Setup) - -protected: - vasp_anyop(I argc,const t_atom *argv,const Argument &def = Argument(),BL withto = false,UL outcode = 0); - - // assignment functions - virtual V a_list(I argc,const t_atom *argv); - - V a_radio(I,const t_atom *) {} - - virtual Vasp *x_work(); - virtual Vasp *tx_work(const Argument &arg); - - Argument arg; - - V m_setarg(const AtomList &l) { a_list(l.Count(),l.Atoms()); } - V m_getarg(AtomList &l) { arg.MakeList(l); } - -private: - static V Setup(t_classid); - - FLEXT_CALLBACK_V(a_list) - FLEXT_CALLBACK_V(a_radio) - - FLEXT_CALLVAR_V(m_getarg,m_setarg) -}; - - - -#define VASP_UNARY(name,op,to,help) \ -class vasp_##op: \ - public vasp_unop \ -{ \ - FLEXT_HEADER(vasp_##op,vasp_unop) \ -public: \ - vasp_##op(): vasp_unop(to) {} \ -protected: \ - virtual Vasp *tx_work() \ - { \ - OpParam p(thisName(),0); \ - CVasp cdst(dst),cref(ref); \ - return VaspOp::m_##op(p,cref,&cdst); \ - } \ - virtual V m_help() { post("%s - " help,thisName()); } \ -}; \ - FLEXT_LIB(name ", vasp_" #op,vasp_##op) - - -#define VASP_BINARY(name,op,to,def,help) \ -class vasp_##op: \ - public vasp_binop \ -{ \ - FLEXT_HEADER(vasp_##op,vasp_binop) \ -public: \ - vasp_##op(I argc,const t_atom *argv): vasp_binop(argc,argv,def,to) {} \ -protected: \ - virtual Vasp *tx_work(const Argument &arg) \ - { \ - OpParam p(thisName(),1); \ - CVasp cdst(dst),cref(ref); \ - return VaspOp::m_##op(p,cref,arg,&cdst); \ - } \ - virtual V m_help() { post("%s - " help,thisName()); } \ -}; \ -FLEXT_LIB_V(name ", vasp_" #op,vasp_##op) - - -#define VASP_ANYOP(name,op,args,to,def,help) \ -class vasp_##op: \ - public vasp_anyop \ -{ \ - FLEXT_HEADER(vasp_##op,vasp_anyop) \ -public: \ - vasp_##op(I argc,const t_atom *argv): vasp_anyop(argc,argv,def,to) {} \ -protected: \ - virtual Vasp *tx_work(const Argument &arg) \ - { \ - OpParam p(thisName(),args); \ - CVasp cdst(dst),cref(ref); \ - return VaspOp::m_##op(p,cref,arg,&cdst); \ - } \ - virtual V m_help() { post("%s - " help,thisName()); } \ -}; \ -FLEXT_LIB_V(name ", vasp_" #op,vasp_##op) - -#define VASP_LIB(name,cl) FLEXT_LIB(name ", " #cl,cl); -#define VASP_LIB_V(name,cl) FLEXT_LIB_V(name ", " #cl,cl); - - -#define VASP__SETUP(op) FLEXT_SETUP(vasp_##op); - -#endif diff --git a/externals/grill/vasp/source/env.cpp b/externals/grill/vasp/source/env.cpp deleted file mode 100644 index 2f0fb58b..00000000 --- a/externals/grill/vasp/source/env.cpp +++ /dev/null @@ -1,153 +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. - -*/ - -#include "main.h" -#include "env.h" -#include "classes.h" -#include "util.h" - -Env::Env(I argc,const t_atom *argv) -{ - I ix = 0; - t_symbol *v = ix < argc?flext::GetASymbol(argv[ix]):NULL; - if(v && v == vasp_base::sym_env) ix++; // if it is "env" ignore it - - cnt = (argc-ix)/2; - pos = new R[cnt]; - val = new R[cnt]; - - R prev = -BIG; - BL ok = true; - for(I i = 0; i < cnt; ++i) { - val[i] = flext::GetAFloat(argv[ix++]); - pos[i] = flext::GetAFloat(argv[ix++]); - if(pos[i] < prev) ok = false; - prev = pos[i]; - } - - if(ix < argc) { - post("vasp - env pos/value pairs incomplete, omitted dangling value"); - } - - if(!ok) Clear(); -} - -/* -Env::Env(const Env &s): - cnt(s.cnt),pos(new R[s.cnt]),val(new R[s.cnt]) -{ - for(I i = 0; i < cnt; ++i) pos[i] = s.pos[i],val[i] = s.val[i]; -} -*/ - -Env::~Env() { Clear(); } - - -BL Env::ChkArgs(I argc,const t_atom *argv) -{ - I ix = 0; - - // vasp keyword - t_symbol *v = ix < argc?flext::GetASymbol(argv[ix]):NULL; - if(v && v == vasp_base::sym_env) ix++; // if it is "env" ignore it - - while(argc > ix) { - // check for value - if(flext::CanbeFloat(argv[ix])) ix++; - else - return false; - - // check for position - if(argc > ix) - if(flext::CanbeFloat(argv[ix])) ix++; - else - return false; - } - - return true; -} - -V Env::MakeList(flext::AtomList &ret) const -{ - ret(cnt*2+1); - flext::SetSymbol(ret[0],vasp_base::sym_env); - for(I i = 0; i < cnt; ++i) { - flext::SetFloat(ret[i*2+1],val[i]); - flext::SetFloat(ret[i*2+2],pos[i]); - } -} - -V Env::Clear() -{ - cnt = 0; - if(pos) delete[] pos; pos = NULL; - if(val) delete[] val; val = NULL; -} - - -Env::Iter::Iter(const Env &bpl): bp(bpl),ppt(-BIG),npt(BIG),pvl(0),k(0) {} - -V Env::Iter::Init(R p) -{ - I cnt = bp.Count(); - FLEXT_ASSERT(cnt > 0); - - if(p < bp.Pos(0)) { - // position is before the head - ix = -1; - ppt = -BIG; pvl = bp.Val(0); - } - else if(p > bp.Pos(cnt-1)) { - // position is after the tail - ix = cnt-1; - ppt = bp.Pos(ix); pvl = bp.Val(ix); - } - else { - // somewhere in the list - for(ix = 0; ix < cnt; ++ix) - if(p >= bp.Pos(ix)) break; - ppt = bp.Pos(ix); pvl = bp.Val(ix); - - FLEXT_ASSERT(ix < cnt); - } - - if(ix >= cnt) { - npt = BIG; nvl = pvl; - k = 0; - } - else { - npt = bp.Pos(ix+1); nvl = bp.Val(ix+1); - k = (nvl-pvl)/(npt-ppt); - } -} - -// \todo iteration first, then calculation of k -V Env::Iter::UpdateFwd(R p) -{ - do { - ppt = npt,pvl = nvl; - if(++ix >= bp.Count()-1) npt = BIG,k = 0; - else { - k = ((nvl = bp.Val(ix+1))-pvl)/((npt = bp.Pos(ix+1))-ppt); - } - } while(p > npt); -} - -// \todo iteration first, then calculation of k -V Env::Iter::UpdateBwd(R p) -{ - do { - npt = ppt,nvl = pvl; - if(--ix < 0) ppt = -BIG,k = 0; - else { - k = (nvl-(pvl = bp.Val(ix)))/(npt-(ppt = bp.Pos(ix))); - } - } while(p < ppt); -} diff --git a/externals/grill/vasp/source/env.h b/externals/grill/vasp/source/env.h deleted file mode 100644 index 11ad68ab..00000000 --- a/externals/grill/vasp/source/env.h +++ /dev/null @@ -1,76 +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. - -*/ - -#ifndef __VASP_ENV_H -#define __VASP_ENV_H - -#include "vasp.h" - -class Env: - public flext -{ -public: - Env(): cnt(0),pos(NULL),val(NULL) {} - Env(I argc,const t_atom *argv); -// Env(const Env &p); - ~Env(); - - static BL ChkArgs(I argc,const t_atom *argv); - - V MakeList(flext::AtomList &ret) const; - - V Clear(); - - BL Ok() const { return cnt && pos != NULL && val != NULL; } - -// friend class Iter; - - class Iter - { - public: - Iter(const Env &e); - V Init(R p); - - R ValFwd(R p) - { - if(p > npt) UpdateFwd(p); - return pvl+k*(p-ppt); - } - - R ValBwd(R p) - { - if(p < ppt) UpdateBwd(p); - return pvl+k*(p-ppt); - } - - protected: - V UpdateFwd(R p); - V UpdateBwd(R p); - - const Env &bp; - I ix; - R ppt,npt; - R pvl,nvl; - R k; - }; - - I Count() const { return cnt; } - const R *Pos() const { return pos; } - const R *Val() const { return val; } - R Pos(I ix) const { return pos[ix]; } - R Val(I ix) const { return val[ix]; } - -protected: - I cnt; - R *pos,*val; -}; - -#endif - diff --git a/externals/grill/vasp/source/main.cpp b/externals/grill/vasp/source/main.cpp deleted file mode 100644 index 38febd4a..00000000 --- a/externals/grill/vasp/source/main.cpp +++ /dev/null @@ -1,216 +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. - -*/ - -#include "main.h" -#include "classes.h" - - -const C *VASP_VERSION = "0.1.4pre"; - -#include "opfuns.h" - -static V vasp_main() -{ - post(""); - post("-----------------------------------------"); - post(" VASP modular %s ",VASP_VERSION); - post(" vector assembling signal processor "); - post(" (C)2002-2007 Thomas Grill "); -#ifdef FLEXT_DEBUG - post(" DEBUG BUILD - " __DATE__ " " __TIME__); -#endif - post(""); - post(" http://grrrr.org/ext "); - post("-----------------------------------------"); - post(""); - - // call the objects' setup routines - - VASP_SETUP(v); // vasp - VASP_SETUP(multi); // vasp.m - - VASP_SETUP(check); // vasp.check - VASP_SETUP(update); // vasp.update -// VASP_SETUP(post); // vasp.post - - VASP_SETUP(sync); // vasp.sync - VASP_SETUP(radio); // vasp.radio - - VASP_SETUP(vector); // vasp.vector - VASP_SETUP(qvectors); // vasp.vectors? - - VASP_SETUP(size); // vasp.size - VASP_SETUP(dsize); // vasp.size+ - VASP_SETUP(qsize); // vasp.size? - VASP_SETUP(msize); // vasp.size* - VASP_SETUP(rsize); // vasp.size/ - - VASP_SETUP(offset); // vasp.offset - VASP_SETUP(doffset); // vasp.offset+ - VASP_SETUP(qoffset); // vasp.offset? - - VASP_SETUP(frames); // vasp.frames - VASP_SETUP(dframes); // vasp.frames+ - VASP_SETUP(qframes); // vasp.frames? - VASP_SETUP(mframes); // vasp.frames* - VASP_SETUP(rframes); // vasp.frames/ - - VASP_SETUP(channel); // vasp.channel - VASP_SETUP(qchannel); // vasp.channel? - VASP_SETUP(qchannels); // vasp.channels? - - VASP_SETUP(split); - VASP_SETUP(join); - VASP_SETUP(spit); - VASP_SETUP(gather); - VASP_SETUP(part); - - VASP_SETUP(list); - VASP_SETUP(nonzero); - - VASP_SETUP(imm); // vasp.imm - - VASP__SETUP(set); - VASP__SETUP(cset); - VASP_SETUP(copy); - VASP_SETUP(ccopy); - - VASP__SETUP(add); - VASP__SETUP(cadd); - VASP__SETUP(sub); - VASP__SETUP(csub); - VASP__SETUP(subr); - VASP__SETUP(csubr); - VASP__SETUP(mul); - VASP__SETUP(cmul); - VASP__SETUP(div); - VASP__SETUP(cdiv); - VASP__SETUP(divr); - VASP__SETUP(cdivr); - VASP__SETUP(mod); - - VASP__SETUP(sign) - VASP__SETUP(abs) - VASP__SETUP(cabs) - - VASP_SETUP(qsum) - - VASP__SETUP(lwr) - VASP__SETUP(gtr) - VASP__SETUP(alwr) - VASP__SETUP(agtr) - VASP__SETUP(leq) - VASP__SETUP(geq) - VASP__SETUP(aleq) - VASP__SETUP(ageq) - VASP__SETUP(equ) - VASP__SETUP(neq) - - VASP__SETUP(min) - VASP__SETUP(rmin) - VASP__SETUP(max) - VASP__SETUP(rmax) - - VASP__SETUP(minmax) - - VASP_SETUP(qmin) - VASP_SETUP(qmax) - VASP_SETUP(qamin) - VASP_SETUP(qamax) - VASP_SETUP(qrmin) - VASP_SETUP(qrmax) - - VASP__SETUP(gate); - VASP__SETUP(rgate); -// VASP__SETUP(igate); -// VASP__SETUP(rigate); - - VASP_SETUP(peaks) - VASP_SETUP(valleys) - VASP_SETUP(rpeaks) - VASP_SETUP(rvalleys) - - VASP_SETUP(qpeaks); - -/* - VASP_SETUP(qvalleys); - VASP_SETUP(qrpeaks); - VASP_SETUP(qrvalleys); -*/ - - VASP__SETUP(sqr) - VASP__SETUP(ssqr) - VASP__SETUP(csqr) - VASP__SETUP(sqrt) - VASP__SETUP(ssqrt) - VASP__SETUP(pow) - VASP__SETUP(cpowi) - VASP__SETUP(rpow); - VASP__SETUP(radd); - - VASP__SETUP(exp) - VASP__SETUP(log) - - VASP__SETUP(polar) - VASP__SETUP(rect) - - VASP__SETUP(cnorm) -// VASP__SETUP(cswap) -// VASP__SETUP(cconj) - - VASP_SETUP(shift) - VASP_SETUP(xshift) - VASP__SETUP(rot) - VASP__SETUP(xrot) - VASP__SETUP(mirr) - VASP__SETUP(xmirr) - - VASP__SETUP(osc) - VASP__SETUP(mosc) - VASP__SETUP(cosc) - VASP__SETUP(mcosc) - VASP__SETUP(phasor) - VASP__SETUP(mphasor) - VASP__SETUP(noise) - VASP__SETUP(cnoise) - - VASP__SETUP(window) - VASP__SETUP(mwindow) - VASP__SETUP(iwindow) - VASP__SETUP(miwindow) - VASP__SETUP(xwindow) - VASP__SETUP(mxwindow) - - VASP__SETUP(flp) - VASP__SETUP(fhp) - - VASP__SETUP(int) - VASP__SETUP(dif) - - VASP__SETUP(fix) - - VASP__SETUP(tilt) - VASP__SETUP(xtilt) - - VASP__SETUP(soffset) - VASP__SETUP(sframes) - - VASP__SETUP(rfft) - VASP__SETUP(rifft) - VASP__SETUP(cfft) - VASP__SETUP(cifft) -} - -FLEXT_LIB_SETUP(vasp,vasp_main) - - - - - diff --git a/externals/grill/vasp/source/main.h b/externals/grill/vasp/source/main.h deleted file mode 100644 index d8aa8a65..00000000 --- a/externals/grill/vasp/source/main.h +++ /dev/null @@ -1,94 +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. - -*/ - -#ifndef __VASP_H -#define __VASP_H - -// enable attributes -#define FLEXT_ATTRIBUTES 1 - -#include <flext.h> - -#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 401) -#error You need at least flext version 0.4.1 -#endif - -#if defined(_MSC_VER) && !defined(FLEXT_DEBUG) -// switch off warnings for the release build -#pragma warning(disable: 4244) -#endif - - -#include <typeinfo> -#include <stdlib.h> - -class complex; -class vector; - -#if 0 - #define I int - #define L long - #define UL unsigned long - #define F float - #define D double - #define C char - #define BL bool - #define V void - #define S t_sample // type for samples - #define R double // type for internal calculations - #define CX complex - #define VX vector -#else - typedef int I; - typedef long L; - typedef unsigned long UL; - typedef float F; - typedef double D; - typedef char C; - typedef bool BL; - typedef void V; - typedef t_sample S; // type for samples - typedef double R; // type for internal calculations - typedef complex CX; - typedef vector VX; -#endif - -#if FLEXT_SYS == FLEXT_SYS_PD -// buffers are never interleaved - special optimizations may occur -// attention: possibly obsolete when immediate file access is implemented -#define VASP_CHN1 -#endif - -class complex -{ -public: - complex() {} - complex(F re,F im = 0): real(re),imag(im) {} - - F real,imag; -}; - -class vector -{ -public: - vector(): dim(0),data(NULL) {} - ~vector() { if(data) delete[] data; } - - I Dim() const { return dim; } - F *Data() { return data; } - const F *Data() const { return data; } - - F operator [](I ix) const { return data[ix]; } - F &operator [](I ix) { return data[ix]; } -protected: - I dim; F *data; -}; - -#endif diff --git a/externals/grill/vasp/source/mixfft.cpp b/externals/grill/vasp/source/mixfft.cpp deleted file mode 100644 index 73d1fca7..00000000 --- a/externals/grill/vasp/source/mixfft.cpp +++ /dev/null @@ -1,588 +0,0 @@ - -#include <math.h> -#include <stdio.h> -#include <stdlib.h> - -#ifdef _MSC_VER -#pragma warning(disable: 4244) -#endif - -/************************************************************************ - fft(int n, double xRe[], double xIm[], double yRe[], double yIm[]) - ------------------------------------------------------------------------ - NOTE : This is copyrighted material, Not public domain. See below. - ------------------------------------------------------------------------ - Input/output: - int n transformation length. - double xRe[] real part of input sequence. - double xIm[] imaginary part of input sequence. - double yRe[] real part of output sequence. - double yIm[] imaginary part of output sequence. - ------------------------------------------------------------------------ - Function: - The procedure performs a fast discrete Fourier transform (FFT) of - a complex sequence, x, of an arbitrary length, n. The output, y, - is also a complex sequence of length n. - - y[k] = sum(x[m]*exp(-i*2*pi*k*m/n), m=0..(n-1)), k=0,...,(n-1) - - The largest prime factor of n must be less than or equal to the - constant maxPrimeFactor defined below. - ------------------------------------------------------------------------ - Author: - Jens Joergen Nielsen For non-commercial use only. - Bakkehusene 54 A $100 fee must be paid if used - DK-2970 Hoersholm commercially. Please contact. - DENMARK - - E-mail : jjn@get2net.dk All rights reserved. October 2000. - Homepage : http://home.get2net.dk/jjn - ------------------------------------------------------------------------ - Implementation notes: - The general idea is to factor the length of the DFT, n, into - factors that are efficiently handled by the routines. - - A number of short DFT's are implemented with a minimum of - arithmetical operations and using (almost) straight line code - resulting in very fast execution when the factors of n belong - to this set. Especially radix-10 is optimized. - - Prime factors, that are not in the set of short DFT's are handled - with direct evaluation of the DFP expression. - - Please report any problems to the author. - Suggestions and improvements are welcomed. - ------------------------------------------------------------------------ - Benchmarks: - The Microsoft Visual C++ compiler was used with the following - compile options: - /nologo /Gs /G2 /W4 /AH /Ox /D "NDEBUG" /D "_DOS" /FR - and the FFTBENCH test executed on a 50MHz 486DX : - - Length Time [s] Accuracy [dB] - - 128 0.0054 -314.8 - 256 0.0116 -309.8 - 512 0.0251 -290.8 - 1024 0.0567 -313.6 - 2048 0.1203 -306.4 - 4096 0.2600 -291.8 - 8192 0.5800 -305.1 - 100 0.0040 -278.5 - 200 0.0099 -280.3 - 500 0.0256 -278.5 - 1000 0.0540 -278.5 - 2000 0.1294 -280.6 - 5000 0.3300 -278.4 - 10000 0.7133 -278.5 - ------------------------------------------------------------------------ - The following procedures are used : - factorize : factor the transformation length. - transTableSetup : setup table with sofar-, actual-, and remainRadix. - permute : permutation allows in-place calculations. - twiddleTransf : twiddle multiplications and DFT's for one stage. - initTrig : initialise sine/cosine table. - fft_4 : length 4 DFT, a la Nussbaumer. - fft_5 : length 5 DFT, a la Nussbaumer. - fft_10 : length 10 DFT using prime factor FFT. - fft_odd : length n DFT, n odd. -*************************************************************************/ - -/************************************************************************ - - changes by Thomas Grill: - - - introduced REAL type for numbers - - made functions static - - threw fft_n functions out of twiddleTransf - if feasible, these will be inlined by the compiler - - changed log prints (to post) - -************************************************************************/ - -#define REAL float -extern "C" void post(const char *c,...); - -/************************************************************************/ - - -#define maxPrimeFactor 8000 // all static data should fit into 256kB of cache -#define maxPrimeFactorDiv2 (maxPrimeFactor+1)/2 -#define maxFactorCount 100 - -static double c3_1 = -1.5000000000000E+00; /* c3_1 = cos(2*pi/3)-1; */ -static double c3_2 = 8.6602540378444E-01; /* c3_2 = sin(2*pi/3); */ - -static double u5 = 1.2566370614359E+00; /* u5 = 2*pi/5; */ -static double c5_1 = -1.2500000000000E+00; /* c5_1 = (cos(u5)+cos(2*u5))/2-1;*/ -static double c5_2 = 5.5901699437495E-01; /* c5_2 = (cos(u5)-cos(2*u5))/2; */ -static double c5_3 = -9.5105651629515E-01; /* c5_3 = -sin(u5); */ -static double c5_4 = -1.5388417685876E+00; /* c5_4 = -(sin(u5)+sin(2*u5)); */ -static double c5_5 = 3.6327126400268E-01; /* c5_5 = (sin(u5)-sin(2*u5)); */ -static double c8 = 7.0710678118655E-01; /* c8 = 1/sqrt(2); */ - -static double pi; -static int groupOffset,dataOffset,blockOffset,adr; -static int groupNo,dataNo,blockNo,twNo; -static double omega; -static REAL tw_re,tw_im; -static REAL twiddleRe[maxPrimeFactor], twiddleIm[maxPrimeFactor]; -static REAL trigRe[maxPrimeFactor], trigIm[maxPrimeFactor]; -static REAL zRe[maxPrimeFactor], zIm[maxPrimeFactor]; -static REAL vRe[maxPrimeFactorDiv2], vIm[maxPrimeFactorDiv2]; -static REAL wRe[maxPrimeFactorDiv2], wIm[maxPrimeFactorDiv2]; - - -static void factorize(int n, int *nFact, int fact[]) -{ - int i,j,k; - int nRadix; - int radices[7]; - int factors[maxFactorCount]; - - nRadix = 6; - radices[1]= 2; - radices[2]= 3; - radices[3]= 4; - radices[4]= 5; - radices[5]= 8; - radices[6]= 10; - - if (n==1) - { - j=1; - factors[1]=1; - } - else j=0; - i=nRadix; - while ((n>1) && (i>0)) - { - if ((n % radices[i]) == 0) - { - n=n / radices[i]; - j=j+1; - factors[j]=radices[i]; - } - else i=i-1; - } - if (factors[j] == 2) /*substitute factors 2*8 with 4*4 */ - { - i = j-1; - while ((i>0) && (factors[i] != 8)) i--; - if (i>0) - { - factors[j] = 4; - factors[i] = 4; - } - } - if (n>1) - { - for (k=2; k<sqrt((double)n)+1; k++) - while ((n % k) == 0) - { - n=n / k; - j=j+1; - factors[j]=k; - } - if (n>1) - { - j=j+1; - factors[j]=n; - } - } - for (i=1; i<=j; i++) - { - fact[i] = factors[j-i+1]; - } - *nFact=j; -} /* factorize */ - -/**************************************************************************** - After N is factored the parameters that control the stages are generated. - For each stage we have: - sofar : the product of the radices so far. - actual : the radix handled in this stage. - remain : the product of the remaining radices. - ****************************************************************************/ - -static bool transTableSetup(int sofar[], int actual[], int remain[], - int *nFact, - int *nPoints) -{ - int i; - - factorize(*nPoints, nFact, actual); - if (actual[1] > maxPrimeFactor) - { - // T.Grill - replaced the printfs by a post - post("FFT: Prime factor of FFT length is too large (%d) - aborted",actual[1]); - return false; - } - - remain[0]=*nPoints; - sofar[1]=1; - remain[1]=*nPoints / actual[1]; - for (i=2; i<=*nFact; i++) - { - sofar[i]=sofar[i-1]*actual[i-1]; - remain[i]=remain[i-1] / actual[i]; - } - return true; -} /* transTableSetup */ - -/**************************************************************************** - The sequence y is the permuted input sequence x so that the following - transformations can be performed in-place, and the final result is the - normal order. - ****************************************************************************/ - -static void permute(int nPoint, int nFact, - int fact[], int remain[], - REAL xRe[], REAL xIm[], - REAL yRe[], REAL yIm[]) - -{ - int i,j,k; - int count[maxFactorCount]; - - for (i=1; i<=nFact; i++) count[i]=0; - k=0; - for (i=0; i<=nPoint-2; i++) - { - yRe[i] = xRe[k]; - yIm[i] = xIm[k]; - j=1; - k=k+remain[j]; - count[1] = count[1]+1; - while (count[j] >= fact[j]) - { - count[j]=0; - k=k-remain[j-1]+remain[j+1]; - j=j+1; - count[j]=count[j]+1; - } - } - yRe[nPoint-1]=xRe[nPoint-1]; - yIm[nPoint-1]=xIm[nPoint-1]; -} /* permute */ - - -/**************************************************************************** - Twiddle factor multiplications and transformations are performed on a - group of data. The number of multiplications with 1 are reduced by skipping - the twiddle multiplication of the first stage and of the first group of the - following stages. - ***************************************************************************/ - -static void initTrig(int radix) -{ - int i; - double w,xre,xim,xre1,xim1; - - w=2*pi/radix; - trigRe[0]=1; trigIm[0]=0; - xre1=xre=cos(w); - xim1=xim=-sin(w); - trigRe[1]=xre; trigIm[1]=xim; - for (i=2; i<radix; i++) - { - trigRe[i] = xre1 = xre*trigRe[i-1] - xim*trigIm[i-1]; - trigIm[i] = xim1 = xim*trigRe[i-1] + xre*trigIm[i-1]; -// trigRe[i] = xre1 = xre*xre1 - xim*xim1; -// trigIm[i] = xim1 = xim*xre1 + xre*xim1; - } -} /* initTrig */ - -static void fft_2(REAL aRe[], REAL aIm[]) -{ - double gem; - gem=zRe[0] + zRe[1]; - zRe[1]=zRe[0] - zRe[1]; zRe[0]=gem; - gem=zIm[0] + zIm[1]; - zIm[1]=zIm[0] - zIm[1]; zIm[0]=gem; -} - -static void fft_3(REAL aRe[], REAL aIm[]) -{ - REAL t1_re,t1_im; - REAL m2_re,m2_im; - REAL m1_re,m1_im; - REAL s1_re,s1_im; - t1_re=zRe[1] + zRe[2]; t1_im=zIm[1] + zIm[2]; - zRe[0]=zRe[0] + t1_re; zIm[0]=zIm[0] + t1_im; - m1_re=c3_1*t1_re; m1_im=c3_1*t1_im; - m2_re=c3_2*(zIm[1] - zIm[2]); - m2_im=c3_2*(zRe[2] - zRe[1]); - s1_re=zRe[0] + m1_re; s1_im=zIm[0] + m1_im; - zRe[1]=s1_re + m2_re; zIm[1]=s1_im + m2_im; - zRe[2]=s1_re - m2_re; zIm[2]=s1_im - m2_im; -} - -static void fft_4(REAL aRe[], REAL aIm[]) -{ - REAL t1_re,t1_im, t2_re,t2_im; - REAL m2_re,m2_im, m3_re,m3_im; - - t1_re=aRe[0] + aRe[2]; t1_im=aIm[0] + aIm[2]; - t2_re=aRe[1] + aRe[3]; t2_im=aIm[1] + aIm[3]; - - m2_re=aRe[0] - aRe[2]; m2_im=aIm[0] - aIm[2]; - m3_re=aIm[1] - aIm[3]; m3_im=aRe[3] - aRe[1]; - - aRe[0]=t1_re + t2_re; aIm[0]=t1_im + t2_im; - aRe[2]=t1_re - t2_re; aIm[2]=t1_im - t2_im; - aRe[1]=m2_re + m3_re; aIm[1]=m2_im + m3_im; - aRe[3]=m2_re - m3_re; aIm[3]=m2_im - m3_im; -} /* fft_4 */ - - -static void fft_5(REAL aRe[], REAL aIm[]) -{ - REAL t1_re,t1_im, t2_re,t2_im, t3_re,t3_im; - REAL t4_re,t4_im, t5_re,t5_im; - REAL m2_re,m2_im, m3_re,m3_im, m4_re,m4_im; - REAL m1_re,m1_im, m5_re,m5_im; - REAL s1_re,s1_im, s2_re,s2_im, s3_re,s3_im; - REAL s4_re,s4_im, s5_re,s5_im; - - t1_re=aRe[1] + aRe[4]; t1_im=aIm[1] + aIm[4]; - t2_re=aRe[2] + aRe[3]; t2_im=aIm[2] + aIm[3]; - t3_re=aRe[1] - aRe[4]; t3_im=aIm[1] - aIm[4]; - t4_re=aRe[3] - aRe[2]; t4_im=aIm[3] - aIm[2]; - t5_re=t1_re + t2_re; t5_im=t1_im + t2_im; - aRe[0]=aRe[0] + t5_re; aIm[0]=aIm[0] + t5_im; - m1_re=c5_1*t5_re; m1_im=c5_1*t5_im; - m2_re=c5_2*(t1_re - t2_re); m2_im=c5_2*(t1_im - t2_im); - - m3_re=-c5_3*(t3_im + t4_im); m3_im=c5_3*(t3_re + t4_re); - m4_re=-c5_4*t4_im; m4_im=c5_4*t4_re; - m5_re=-c5_5*t3_im; m5_im=c5_5*t3_re; - - s3_re=m3_re - m4_re; s3_im=m3_im - m4_im; - s5_re=m3_re + m5_re; s5_im=m3_im + m5_im; - s1_re=aRe[0] + m1_re; s1_im=aIm[0] + m1_im; - s2_re=s1_re + m2_re; s2_im=s1_im + m2_im; - s4_re=s1_re - m2_re; s4_im=s1_im - m2_im; - - aRe[1]=s2_re + s3_re; aIm[1]=s2_im + s3_im; - aRe[2]=s4_re + s5_re; aIm[2]=s4_im + s5_im; - aRe[3]=s4_re - s5_re; aIm[3]=s4_im - s5_im; - aRe[4]=s2_re - s3_re; aIm[4]=s2_im - s3_im; -} /* fft_5 */ - -static void fft_8() -{ - REAL aRe[4], aIm[4], bRe[4], bIm[4], gem; - - aRe[0] = zRe[0]; bRe[0] = zRe[1]; - aRe[1] = zRe[2]; bRe[1] = zRe[3]; - aRe[2] = zRe[4]; bRe[2] = zRe[5]; - aRe[3] = zRe[6]; bRe[3] = zRe[7]; - - aIm[0] = zIm[0]; bIm[0] = zIm[1]; - aIm[1] = zIm[2]; bIm[1] = zIm[3]; - aIm[2] = zIm[4]; bIm[2] = zIm[5]; - aIm[3] = zIm[6]; bIm[3] = zIm[7]; - - fft_4(aRe, aIm); fft_4(bRe, bIm); - - gem = c8*(bRe[1] + bIm[1]); - bIm[1] = c8*(bIm[1] - bRe[1]); - bRe[1] = gem; - gem = bIm[2]; - bIm[2] =-bRe[2]; - bRe[2] = gem; - gem = c8*(bIm[3] - bRe[3]); - bIm[3] =-c8*(bRe[3] + bIm[3]); - bRe[3] = gem; - - zRe[0] = aRe[0] + bRe[0]; zRe[4] = aRe[0] - bRe[0]; - zRe[1] = aRe[1] + bRe[1]; zRe[5] = aRe[1] - bRe[1]; - zRe[2] = aRe[2] + bRe[2]; zRe[6] = aRe[2] - bRe[2]; - zRe[3] = aRe[3] + bRe[3]; zRe[7] = aRe[3] - bRe[3]; - - zIm[0] = aIm[0] + bIm[0]; zIm[4] = aIm[0] - bIm[0]; - zIm[1] = aIm[1] + bIm[1]; zIm[5] = aIm[1] - bIm[1]; - zIm[2] = aIm[2] + bIm[2]; zIm[6] = aIm[2] - bIm[2]; - zIm[3] = aIm[3] + bIm[3]; zIm[7] = aIm[3] - bIm[3]; -} /* fft_8 */ - -static void fft_10() -{ - REAL aRe[5], aIm[5], bRe[5], bIm[5]; - - aRe[0] = zRe[0]; bRe[0] = zRe[5]; - aRe[1] = zRe[2]; bRe[1] = zRe[7]; - aRe[2] = zRe[4]; bRe[2] = zRe[9]; - aRe[3] = zRe[6]; bRe[3] = zRe[1]; - aRe[4] = zRe[8]; bRe[4] = zRe[3]; - - aIm[0] = zIm[0]; bIm[0] = zIm[5]; - aIm[1] = zIm[2]; bIm[1] = zIm[7]; - aIm[2] = zIm[4]; bIm[2] = zIm[9]; - aIm[3] = zIm[6]; bIm[3] = zIm[1]; - aIm[4] = zIm[8]; bIm[4] = zIm[3]; - - fft_5(aRe, aIm); fft_5(bRe, bIm); - - zRe[0] = aRe[0] + bRe[0]; zRe[5] = aRe[0] - bRe[0]; - zRe[6] = aRe[1] + bRe[1]; zRe[1] = aRe[1] - bRe[1]; - zRe[2] = aRe[2] + bRe[2]; zRe[7] = aRe[2] - bRe[2]; - zRe[8] = aRe[3] + bRe[3]; zRe[3] = aRe[3] - bRe[3]; - zRe[4] = aRe[4] + bRe[4]; zRe[9] = aRe[4] - bRe[4]; - - zIm[0] = aIm[0] + bIm[0]; zIm[5] = aIm[0] - bIm[0]; - zIm[6] = aIm[1] + bIm[1]; zIm[1] = aIm[1] - bIm[1]; - zIm[2] = aIm[2] + bIm[2]; zIm[7] = aIm[2] - bIm[2]; - zIm[8] = aIm[3] + bIm[3]; zIm[3] = aIm[3] - bIm[3]; - zIm[4] = aIm[4] + bIm[4]; zIm[9] = aIm[4] - bIm[4]; -} /* fft_10 */ - -static void fft_odd(int radix) -{ - REAL rere, reim, imre, imim; - int i,j,k,n,max; - - n = radix; - max = (n + 1)/2; - for (j=1; j < max; j++) - { - vRe[j] = zRe[j] + zRe[n-j]; - vIm[j] = zIm[j] - zIm[n-j]; - wRe[j] = zRe[j] - zRe[n-j]; - wIm[j] = zIm[j] + zIm[n-j]; - } - - for (j=1; j < max; j++) - { - zRe[j]=zRe[0]; - zIm[j]=zIm[0]; - zRe[n-j]=zRe[0]; - zIm[n-j]=zIm[0]; - k=j; - for (i=1; i < max; i++) - { - rere = trigRe[k] * vRe[i]; - imim = trigIm[k] * vIm[i]; - reim = trigRe[k] * wIm[i]; - imre = trigIm[k] * wRe[i]; - - zRe[n-j] += rere + imim; - zIm[n-j] += reim - imre; - zRe[j] += rere - imim; - zIm[j] += reim + imre; - - k = k + j; - if (k >= n) k = k - n; - } - } - for (j=1; j < max; j++) - { - zRe[0]=zRe[0] + vRe[j]; - zIm[0]=zIm[0] + wIm[j]; - } -} /* fft_odd */ - - -static void twiddleTransf(int sofarRadix, int radix, int remainRadix, - REAL yRe[], REAL yIm[]) - -{ /* twiddleTransf */ - double cosw, sinw, gem; - - initTrig(radix); - omega = 2*pi/(double)(sofarRadix*radix); - cosw = cos(omega); - sinw = -sin(omega); - tw_re = 1.0; - tw_im = 0; - dataOffset=0; - groupOffset=dataOffset; - adr=groupOffset; - for (dataNo=0; dataNo<sofarRadix; dataNo++) - { - if (sofarRadix>1) - { - twiddleRe[0] = 1.0; - twiddleIm[0] = 0.0; - twiddleRe[1] = tw_re; - twiddleIm[1] = tw_im; - for (twNo=2; twNo<radix; twNo++) - { - twiddleRe[twNo]=tw_re*twiddleRe[twNo-1] - - tw_im*twiddleIm[twNo-1]; - twiddleIm[twNo]=tw_im*twiddleRe[twNo-1] - + tw_re*twiddleIm[twNo-1]; - } - gem = cosw*tw_re - sinw*tw_im; - tw_im = sinw*tw_re + cosw*tw_im; - tw_re = gem; - } - for (groupNo=0; groupNo<remainRadix; groupNo++) - { - if ((sofarRadix>1) && (dataNo > 0)) - { - zRe[0]=yRe[adr]; - zIm[0]=yIm[adr]; - blockNo=1; - do { - adr = adr + sofarRadix; - zRe[blockNo]= twiddleRe[blockNo] * yRe[adr] - - twiddleIm[blockNo] * yIm[adr]; - zIm[blockNo]= twiddleRe[blockNo] * yIm[adr] - + twiddleIm[blockNo] * yRe[adr]; - - blockNo++; - } while (blockNo < radix); - } - else - for (blockNo=0; blockNo<radix; blockNo++) - { - zRe[blockNo]=yRe[adr]; - zIm[blockNo]=yIm[adr]; - adr=adr+sofarRadix; - } - switch(radix) { - // T.Grill - replaced the inlined code by their function counterparts - case 2 : fft_2(zRe,zIm); break; - case 3 : fft_3(zRe,zIm); break; - case 4 : fft_4(zRe,zIm); break; - case 5 : fft_5(zRe,zIm); break; - case 8 : fft_8(); break; - case 10 : fft_10(); break; - default : fft_odd(radix); break; - } - adr=groupOffset; - for (blockNo=0; blockNo<radix; blockNo++) - { - yRe[adr]=zRe[blockNo]; yIm[adr]=zIm[blockNo]; - adr=adr+sofarRadix; - } - groupOffset=groupOffset+sofarRadix*radix; - adr=groupOffset; - } - dataOffset=dataOffset+1; - groupOffset=dataOffset; - adr=groupOffset; - } -} /* twiddleTransf */ - -bool mixfft(int n, REAL *xRe, REAL *xIm,REAL *yRe, REAL *yIm) -{ - int sofarRadix[maxFactorCount], - actualRadix[maxFactorCount], - remainRadix[maxFactorCount]; - int nFactor; - int count; - - pi = 4*atan(1.); - - if(!transTableSetup(sofarRadix, actualRadix, remainRadix, &nFactor, &n)) return false; - permute(n, nFactor, actualRadix, remainRadix, xRe, xIm, yRe, yIm); - - for (count=1; count<=nFactor; count++) - twiddleTransf(sofarRadix[count], actualRadix[count], remainRadix[count], - yRe, yIm); - return true; -} /* fft */ - diff --git a/externals/grill/vasp/source/obj_chns.cpp b/externals/grill/vasp/source/obj_chns.cpp deleted file mode 100644 index 1e7dfb67..00000000 --- a/externals/grill/vasp/source/obj_chns.cpp +++ /dev/null @@ -1,160 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" -#include "buflib.h" - - -/*! \class vasp_channel - \remark \b vasp.channel - \brief Sets channel index of vasp. - \since 0.0.8 - \param cmdln.1 int - index of vasp vector - \param inlet vasp - is stored and indexed vasp vector output - \param inlet bang - triggers indexed vasp vector output - \param inlet set - vasp to be stored (and not immediately output) - \retval outlet modified vasp -*/ -class vasp_channel: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_channel,vasp_tx,Setup) - -public: - vasp_channel(I argc,const t_atom *argv): - ix(0) - { - if(argc >= 1 && CanbeInt(argv[0])) - ix = GetAInt(argv[0]); - else if(argc) - post("%s - Index argument invalid -> set to 0",thisName()); - - AddInAnything(2); - AddOutAnything(); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,1,m_ix); - FLEXT_CADDATTR_VAR(c,"index",ix,m_ix); - } - - V m_ix(I i) { ix = i; } - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - ret->Channel(ix); - return ret; - } - - virtual V m_help() { post("%s - Set channel index of vectors in vasp",thisName()); } - -protected: - I ix; - -private: - FLEXT_CALLBACK_I(m_ix); - FLEXT_CALLSET_I(m_ix); - FLEXT_ATTRGET_I(ix); -}; - -VASP_LIB_V("vasp.channel vasp.c",vasp_channel) - - - -/*! \class vasp_qc - \remark \b vasp.c? - \brief Gets channel index of a vasp. - \since 0.0.8 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet int - channel index of stored vasp - - \note Always returns index of 0th vasp - \note No output for invalid vasp? -*/ -class vasp_qchannel: - public vasp_op -{ - FLEXT_HEADER(vasp_qchannel,vasp_op) - -public: - vasp_qchannel() - { - AddInAnything(); - AddOutInt(); - } - - virtual V m_bang() - { - if(ref.Ok()) { - if(ref.Vectors() > 1) - post("%s - more vectors in vasp, only considering first",thisName()); - - ToOutInt(0,ref.Vector(0).Channel()); - } - else - post("%s - Invalid vasp, no output",thisName()); - } - - virtual V m_help() { post("%s - Get channel index of 0th vector in vasp",thisName()); } -}; - -VASP_LIB("vasp.channel? vasp.c?",vasp_qchannel) - - -/*! \class vasp_qchannels - \remark \b vasp.channels? - \brief Gets number of channels of a vasp. - \since 0.1.3 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet int - channels of stored vasp - - \note No output for invalid vasp? -*/ -class vasp_qchannels: - public vasp_op -{ - FLEXT_HEADER(vasp_qchannels,vasp_op) - -public: - vasp_qchannels() - { - AddInAnything(); - AddOutInt(); - } - - virtual V m_bang() - { - if(ref.Ok()) { - if(ref.Vectors() > 1) - post("%s - more vectors in vasp, only considering first",thisName()); - - VBuffer *buf = BufLib::Get(ref.Vector(0).Symbol()); - ToOutInt(0,buf->Channels()); - delete buf; - } - else - post("%s - Invalid vasp, no output",thisName()); - } - - virtual V m_help() { post("%s - Get channel index of 0th vector in vasp",thisName()); } -}; - -VASP_LIB("vasp.channels?",vasp_qchannels) - - - diff --git a/externals/grill/vasp/source/obj_frames.cpp b/externals/grill/vasp/source/obj_frames.cpp deleted file mode 100644 index 875bcdc6..00000000 --- a/externals/grill/vasp/source/obj_frames.cpp +++ /dev/null @@ -1,241 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_frames - \remark \b vasp.frames - \brief Sets frame count of vasp. - \since 0.0.1 - \param cmdln.1 [_time=0] - frame count in time units - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _time - frame count in time units - \retval outlet vasp - modified vasp - - \todo Implement unit processing. -*/ -class vasp_frames: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_frames,vasp_tx,Setup) - -public: - vasp_frames(I argc,const t_atom *argv,BL abs = true): - frms(0),setf(false) - { - if(argc && CanbeFloat(argv[0])) - m_arg(GetAFloat(argv[0])); - else if(argc) { - post("%s - argument invalid -> ignored",thisName()); - } - - AddInAnything(); - AddInFloat(); - AddOutAnything(); - - if(abs) FLEXT_ADDATTR_VAR("frames",frms,m_arg); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,1,m_arg); - } - - virtual V m_arg(F f) - { - frms = (I)f; //! \todo unit processing - setf = true; - } - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(setf) ret->Frames(frms); - return ret; - } - - virtual V m_help() { post("%s - Set a vasp's frame count",thisName()); } -protected: - I frms; - BL setf; - -private: - FLEXT_CALLBACK_F(m_arg); - FLEXT_CALLSET_I(m_arg); - FLEXT_ATTRGET_I(frms); -}; - -VASP_LIB_V("vasp.frames vasp.f",vasp_frames) - - - - -/*! \class vasp_dframes - \remark \b vasp.frames+ - \brief Sets frame count of vasp differentially. - \since 0.0.1 - \param cmdln.1 [_time=0] - increase of frame count in time units - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _time - increase of frame count in time units - \retval outlet vasp - modified vasp - - \todo Implement unit processing. -*/ -class vasp_dframes: - public vasp_frames -{ - FLEXT_HEADER(vasp_dframes,vasp_frames) - -public: - vasp_dframes(I argc,const t_atom *argv): vasp_frames(argc,argv) {} - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(setf) ret->FramesD(frms); - return ret; - } - - virtual V m_help() { post("%s - Raise/lower a vasp's frame count",thisName()); } -}; - -VASP_LIB_V("vasp.frames+ vasp.f+",vasp_dframes) - - - -/*! \class vasp_mframes - \remark \b vasp.frames* - \brief Sets frame count of vasp by a factor - \since 0.0.6 - \param cmdln.1 [_number=1] - multiply of frame count - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _number - multiply of frame count - \retval outlet vasp - modified vasp -*/ -class vasp_mframes: - public vasp_frames -{ - FLEXT_HEADER_S(vasp_mframes,vasp_frames,Setup) - -public: - vasp_mframes(I argc,const t_atom *argv): - vasp_frames(argc,argv,false) - { - if(argc && CanbeFloat(argv[0])) m_arg(GetAFloat(argv[0])); - } - - static V Setup(t_classid c) - { - FLEXT_CADDATTR_VAR(c,"factor",factor,m_arg); - } - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(setf) ret->FramesM(factor); - return ret; - } - - virtual V m_help() { post("%s - Multiply a vasp's frame count",thisName()); } - - virtual V m_arg(F f) - { - factor = f; - setf = true; - } - -protected: - F factor; - FLEXT_CALLSET_F(m_arg); - FLEXT_ATTRGET_F(factor); -}; - -VASP_LIB_V("vasp.frames* vasp.f*",vasp_mframes) - - - -/*! \class vasp_rframes - \remark \b vasp.frames/ - \brief Sets frame count of vasp by a divisor - \since 0.0.6 - \param cmdln.1 [_number=1] - multiply of frame count - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _number - divisor of frame count - \retval outlet vasp - modified vasp -*/ -class vasp_rframes: - public vasp_mframes -{ - FLEXT_HEADER(vasp_rframes,vasp_mframes) - -public: - vasp_rframes(I argc,const t_atom *argv): vasp_mframes(argc,argv) {} - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(setf) ret->FramesR(factor); - return ret; - } - - virtual V m_help() { post("%s - Divide a vasp's frame count",thisName()); } -}; - -VASP_LIB_V("vasp.frames/ vasp.f/",vasp_rframes) - - - -/*! \class vasp_qframes - \remark \b vasp.frames? - \brief Get frame count in time units - \since 0.0.1 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet _time - frame count of vasp in time units - - \note Outputs 0 if vasp is undefined or invalid - - \todo Implement unit processing - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? -*/ -class vasp_qframes: - public vasp_op -{ - FLEXT_HEADER(vasp_qframes,vasp_op) - -public: - - vasp_qframes() - { - AddInAnything(); - AddOutInt(); - } - - virtual V m_bang() { ToOutInt(0,ref.ChkFrames()); } //! \todo unit processing - - virtual V m_help() { post("%s - Get a vasp's frame count",thisName()); } -}; - -VASP_LIB("vasp.frames? vasp.f?",vasp_qframes) - - diff --git a/externals/grill/vasp/source/obj_imm.cpp b/externals/grill/vasp/source/obj_imm.cpp deleted file mode 100644 index 258d5049..00000000 --- a/externals/grill/vasp/source/obj_imm.cpp +++ /dev/null @@ -1,123 +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 vasp_imm.cpp - \brief Definitions for immediate vasps -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" -#include "buflib.h" -#include "oploop.h" - - -/*! \class vasp_imm - \remark \b vasp.imm - \brief Get vasp immediate. - \since 0.0.6 - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.1 frames - minimum frame length - \param inlet.2 int - minimum frame length - \retval outlet vasp! - vasp immediate - -*/ -class vasp_imm: - public vasp_op -{ - FLEXT_HEADER_S(vasp_imm,vasp_op,Setup) - -public: - vasp_imm(I argc,const t_atom *argv): - frms(0),zero(true) - { - if(argc >= 1 && CanbeInt(argv[0])) - m_frames(GetAInt(argv[0])); - else if(argc) - post("%s - Frame count argument invalid -> ignored",thisName()); - - AddInAnything(); - AddInInt(); - AddOutAnything(); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,1,m_frames); - FLEXT_CADDATTR_VAR(c,"frames",frms,m_frames); - FLEXT_CADDATTR_VAR1(c,"zero",zero); - } - - V m_frames(I n) { frms = n; } - - virtual V m_bang() - { - if(!ref.Ok() || !ref.Check()) { -/* - if(!frms) - post("%s - No length defined!",thisName()); - else -*/ - { - ImmBuf ibuf(frms,zero); - Vasp ret(frms,Vasp::Ref(ibuf)); - ToOutVasp(0,ret); - } - } - else if(ref.Vectors() > 1) - post("%s - More than one vector in vasp!",thisName()); - else { - VBuffer *buf = ref.Buffer(0); - const I len = buf->Length(),chns = buf->Channels(); - - // size of memory reservation (at least frms samples) - const I rlen = frms > len?frms:len; - - ImmBuf imm(rlen,false); - - S *dst = imm.Pointer(); - const S *src = buf->Pointer(); - -// post("!copy: src: %p,%i,%i -> dst: %p,%i",src,len,chns,dst,rlen); - - register int i; - _DE_LOOP(i,len, ( dst[i] = *src,src += chns ) ) - if(zero && rlen > len) ZeroSamples(dst+len,rlen-len); - - Vasp::Ref vr(imm); - -// post("!vr: %s,%i",vr.Ok()?vr.Symbol().Name():"***",vr.Offset()); - - Vasp ret(len,vr); - ToOutVasp(0,ret); - - delete buf; - } - } - - virtual V m_help() { post("%s - Get immediate vasp vectors",thisName()); } - -protected: - - I frms; - BL zero; - -private: - FLEXT_CALLBACK_I(m_frames) - FLEXT_CALLSET_I(m_frames); - FLEXT_ATTRGET_I(frms); - FLEXT_ATTRVAR_B(zero); -}; - -VASP_LIB_V("vasp.imm vasp.!",vasp_imm) - - diff --git a/externals/grill/vasp/source/obj_offs.cpp b/externals/grill/vasp/source/obj_offs.cpp deleted file mode 100644 index 6e1a584e..00000000 --- a/externals/grill/vasp/source/obj_offs.cpp +++ /dev/null @@ -1,179 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_offset - \remark \b vasp.offset - \brief Sets offset of vasp vectors. - \since 0.0.1 - \param cmdln.1 [_time=0] - offset into buffer(s) - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _time - offset into buffer(s) - \retval outlet vasp - modified vasp - - \attention Normally vasp vectors have individual offsets - this operations sets all the offsets to equal values. - \todo Implement unit processing. -*/ -class vasp_offset: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_offset,vasp_tx,Setup) - -public: - vasp_offset(I argc,const t_atom *argv): - offs(0),seto(false) - { - if(argc >= 1 && CanbeFloat(argv[0])) - m_offs(GetAFloat(argv[0])); - else if(argc) - post("%s - Offset argument invalid -> ignored",thisName()); - - AddInAnything(); - AddInFloat(); - AddOutAnything(); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,1,m_offs); - FLEXT_CADDATTR_VAR(c,"frames",offs,m_offs); - } - - V m_offs(F o) - { - offs = (I)o; //! \todo unit processing - seto = true; - } - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(seto) ret->Offset(offs); - return ret; - } - - virtual V m_help() { post("%s - Set a vasp's offset(s) into the vector buffers",thisName()); } -protected: - I offs; - BL seto; - -private: - FLEXT_CALLBACK_F(m_offs); - FLEXT_CALLSET_I(m_offs); - FLEXT_ATTRGET_I(offs); -}; - -VASP_LIB_V("vasp.offset vasp.o",vasp_offset) - - - - -/*! \class vasp_doffset - \remark \b vasp.offset+ - \brief Sets offset of vasp vectors differentially. - \since 0.0.1 - \param cmdln.1 [_time=0] - increase offset of into buffer(s) - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _time - increase of offset into buffer(s) - \retval outlet vasp - modified vasp - - \todo Implement unit processing -*/ -class vasp_doffset: - public vasp_offset -{ - FLEXT_HEADER(vasp_doffset,vasp_offset) - -public: - vasp_doffset(I argc,const t_atom *argv): vasp_offset(argc,argv) {} - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(seto) ret->OffsetD(offs); - return ret; - } - - virtual V m_help() { post("%s - Shift a vasp's offset(s) into the vector buffers",thisName()); } -}; - -VASP_LIB_V("vasp.offset+ vasp.o+",vasp_doffset) - - - -/*! \class vasp_qoffset - \remark \b vasp.offset? - \brief Get offset of singled vector vasp. - \since 0.0.1 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet _time - offset into vector buffer - - \note Outputs 0 if vasp is undefined or invalid - \note Only works for a vasp with one vector. No output otherwise. - - \todo Implement unit processing - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? -*/ -class vasp_qoffset: - public vasp_op -{ - FLEXT_HEADER(vasp_qoffset,vasp_op) - -public: - - vasp_qoffset() - { - AddInAnything(); -// AddOutAnything(); - AddOutFloat(); - } - - virtual V m_bang() - { - if(!ref.Ok()) - post("%s - Invalid vasp!",thisName()); - else if(ref.Vectors() > 1) - post("%s - More than one vector in vasp!",thisName()); - else { - I o = 0; - if(ref.Vectors() == 1) { - o = ref.Vector(0).Offset(); - if(o < 0) o = 0; - else { - VBuffer *buf = ref.Buffer(0); - if(buf) { - I f = buf->Frames(); - if(o > f) o = f; - delete buf; - } - } - } - //! \todo unit processing -// ToOutVasp(0,ref); - ToOutFloat(0,o); - } - } - - virtual V m_help() { post("%s - Get a single vectored vasp's offset into the buffer",thisName()); } -}; - -VASP_LIB("vasp.offset? vasp.o?",vasp_qoffset) - diff --git a/externals/grill/vasp/source/obj_part.cpp b/externals/grill/vasp/source/obj_part.cpp deleted file mode 100644 index 59c79db3..00000000 --- a/externals/grill/vasp/source/obj_part.cpp +++ /dev/null @@ -1,115 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_part - \remark \b vasp.part - \brief Gets parts of vasp vectors. - \since 0.0.1 - \param cmdln.1 list - list of part lengts - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 list - list of part lengts - \retval outlet.1 vasp - consecutive vasp parts - \retval outlet.2 vasp - remainder - - \todo Implement unit processing. - \remarks Output zero length vasps? -*/ -class vasp_part: - public vasp_op -{ - FLEXT_HEADER_S(vasp_part,vasp_op,Setup) - -public: - vasp_part(I argc,const t_atom *argv): - parts(0),part(NULL) - { - m_part(argc,argv); - - AddInAnything(2); - AddOutAnything(2); - } - - ~vasp_part() { if(part) delete[] part; } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD_(c,1,"list",m_part); - FLEXT_CADDATTR_VAR(c,"parts",m_getpart,m_setpart); - } - - V m_part(I argc,const t_atom *argv) - { - if(part) delete[] part; parts = 0; - part = new I[argc]; - for(I i = 0; i < argc; ++i) { - BL warn = false; - I p = (I)GetAFloat(argv[i]); // \todo unit processing - if(p < 0 && !warn) { - post("%s - invalid part length(s) -> set to 0",thisName()); - p = 0; warn = true; - } - part[i] = p; ++parts; - } - } - - V m_getpart(AtomList &ret) - { - ret(parts); - for(I i = 0; i < parts; ++i) SetInt(ret[i],part[i]); - } - - V m_setpart(const AtomList &ret) { m_part(ret.Count(),ret.Atoms()); } - - virtual V m_bang() - { - if(!ref.Ok()) { - post("%s - Invalid vasp!",thisName()); - return; - } - - I fr = ref.ChkFrames(),o = 0,f = 0; - for(I i = 0; i < parts && (fr < 0 || fr); ++i) { - I p = part[i]; - if(fr >= 0) { p = min(p,fr); fr -= p; } - - Vasp ret(ref); - ret.Frames(p); - ret.OffsetD(o); - ToOutVasp(0,ret); - - o += p; - } - - if(fr) { - Vasp ret(ref); - ret.Frames(fr); - ret.OffsetD(o); - ToOutVasp(1,ret); - } - } - - virtual V m_help() { post("%s - Return consecutive vasps with lengths given by argument list",thisName()); } -protected: - I parts,*part; - - FLEXT_CALLBACK_V(m_part) - FLEXT_CALLVAR_V(m_getpart,m_setpart); -}; - -VASP_LIB_V("vasp.part",vasp_part) - - diff --git a/externals/grill/vasp/source/obj_peaks.cpp b/externals/grill/vasp/source/obj_peaks.cpp deleted file mode 100644 index 2a22979b..00000000 --- a/externals/grill/vasp/source/obj_peaks.cpp +++ /dev/null @@ -1,119 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" -#include <math.h> - - -/*! \class vasp_qpeaks - \remark \b vasp.peaks? - \brief Get most pronounced peaks of a single vasp vector. - \since 0.0.6 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet.0 list - peak positions - \retval outlet.1 list - peak values - - \note Outputs nothing if vasp is undefined or invalid - \note Only works for a vasp with one vector. No output otherwise. - \todo Units for peak position list -*/ -class vasp_qpeaks: - public vasp_op -{ - FLEXT_HEADER_S(vasp_qpeaks,vasp_op,Setup) - -public: - vasp_qpeaks(I argc,const t_atom *argv): - peaks(1) - { - if(argc >= 1 && CanbeInt(argv[0])) - m_peaks(GetAInt(argv[0])); - else if(argc) - post("%s - Number argument invalid -> ignored",thisName()); - - AddInAnything(); - AddInInt(); - AddOutAnything(2); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,1,m_peaks); - FLEXT_CADDATTR_VAR(c,"peaks",peaks,m_peaks); - } - - V m_peaks(I n) { peaks = n; } - - virtual V m_bang() - { - if(!ref.Ok()) - post("%s - Invalid vasp!",thisName()); - else if(ref.Vectors() > 1) - post("%s - More than one vector in vasp!",thisName()); - else { - VBuffer *buf = ref.Buffer(0); - I i,cnt = buf->Length(),pkfnd = 0; - S *p = buf->Pointer(); - - I mxpk = min(cnt,peaks); - t_atom *pos = new t_atom[mxpk],*lst = new t_atom[mxpk]; - for(i = 0; i < mxpk; ++i) SetFloat(lst[i],0); - - for(i = 0; i < cnt; ++i) { - const F v = fabs(p[i]); - - if(v && v > GetFloat(lst[mxpk-1])) { - I ix; - - for(ix = min(pkfnd-1,mxpk-1); ix >= 0; --ix) { - if(v > GetFloat(lst[ix])) { - if(ix < mxpk-1) { - pos[ix+1] = pos[ix]; - lst[ix+1] = lst[ix]; - } - } - else break; - } - ++ix; - - SetFloat(pos[ix],i); - SetFloat(lst[ix],v); - - if(++pkfnd > mxpk) pkfnd = mxpk; - } - } - - ToOutAnything(0,sym_list,pkfnd,pos); - ToOutAnything(1,sym_list,pkfnd,lst); - delete[] pos; - delete[] lst; - - delete buf; - } - } - - virtual V m_help() { post("%s - Get list of most pronounced peaks of a vasp vector",thisName()); } - -protected: - I peaks; - -private: - FLEXT_CALLBACK_I(m_peaks); - FLEXT_CALLSET_I(m_peaks); - FLEXT_ATTRGET_I(peaks); -}; - -VASP_LIB_V("vasp.peaks?",vasp_qpeaks) - - diff --git a/externals/grill/vasp/source/obj_q.cpp b/externals/grill/vasp/source/obj_q.cpp deleted file mode 100644 index 9756f4a4..00000000 --- a/externals/grill/vasp/source/obj_q.cpp +++ /dev/null @@ -1,124 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_list - \remark \b vasp.list - \brief Get samples of a single vasp vector. - \since 0.0.1 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet vector - vasp samples - - \note Outputs 0 if vasp is undefined or invalid - \note Only works for a vasp with one vector. No output otherwise. -*/ -class vasp_list: - public vasp_op -{ - FLEXT_HEADER(vasp_list,vasp_op) - -public: - - vasp_list() - { - AddInAnything(); - AddOutList(); - } - - virtual V m_bang() - { - if(!ref.Ok()) - post("%s - Invalid vasp!",thisName()); - else if(ref.Vectors() > 1) - post("%s - More than one vector in vasp!",thisName()); - else { - VBuffer *buf = ref.Buffer(0); - I cnt = buf->Length(); - S *p = buf->Pointer(); - AtomList lst(cnt); - for(I i = 0; i < cnt; ++i,++p) SetFloat(lst[i],*p); - ToOutList(0,lst); - - delete buf; - } - } - - virtual V m_help() { post("%s - Get list of samples of a vasp vector",thisName()); } -}; - -VASP_LIB("vasp.list vasp.?",vasp_list) - - - -/*! \class vasp_nonzero - \remark \b vasp.nonzero - \brief Get samples of a single vasp vector. - \since 0.0.2 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet.0 list - non-zero samples positions - \retval outlet.1 list - non-zero sample values - - \note Outputs 0 if vasp is undefined or invalid - \note Only works for a vasp with one vector. No output otherwise. - \todo units for position list -*/ -class vasp_nonzero: - public vasp_op -{ - FLEXT_HEADER(vasp_nonzero,vasp_op) - -public: - - vasp_nonzero() - { - AddInAnything(); - AddOutList(2); - } - - virtual V m_bang() - { - if(!ref.Ok()) - post("%s - Invalid vasp!",thisName()); - else if(ref.Vectors() > 1) - post("%s - More than one vector in vasp!",thisName()); - else { - VBuffer *buf = ref.Buffer(0); - I i,cnt = buf->Length(),cp,ci; - S *p = buf->Pointer(); - for(cp = i = 0; i < cnt; ++i,++p) if(*p) ++cp; - - AtomList pos(cp),lst(cp); - p = buf->Pointer(); - for(ci = i = 0; ci < cp; ++i,++p) - if(*p) { - SetFloat(pos[ci],i); - SetFloat(lst[ci],*p); - ++ci; - } - ToOutList(0,pos); - ToOutList(1,lst); - - delete buf; - } - } - - virtual V m_help() { post("%s - Get list of non-zero samples of a vasp vector",thisName()); } -}; - -VASP_LIB("vasp.nonzero vasp.??",vasp_nonzero) - diff --git a/externals/grill/vasp/source/obj_radio.cpp b/externals/grill/vasp/source/obj_radio.cpp deleted file mode 100644 index 8932e801..00000000 --- a/externals/grill/vasp/source/obj_radio.cpp +++ /dev/null @@ -1,59 +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_radio.cpp - \brief objects for radio messages. -*/ - -#include "main.h" -#include "classes.h" - - -/*! \class vasp_radio - \remark \b vasp.radio - \brief Lets only radio messages pass through. - \since 0.0.6 - \param inlet.1 * - any message - \retval outlet.1 radio messages - \retval outlet.2 other messages -*/ -class vasp_radio: - public flext_base -{ - FLEXT_HEADER_S(vasp_radio,flext_base,Setup) - -public: - - vasp_radio() - { - AddInAnything(); - AddOutAnything(2); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,0,m_any); - } - - virtual V m_any(const t_symbol *s,I argc,const t_atom *argv); - - virtual V m_help() { post("%s - split into radio and non-radio messages",thisName()); } -private: - FLEXT_CALLBACK_A(m_any); -}; - -VASP_LIB("vasp.radio",vasp_radio) - - -V vasp_radio::m_any(const t_symbol *s,I argc,const t_atom *argv) -{ - ToOutAnything(s == vasp_base::sym_radio?0:1,s,argc,argv); -} - diff --git a/externals/grill/vasp/source/obj_size.cpp b/externals/grill/vasp/source/obj_size.cpp deleted file mode 100644 index af4ba62e..00000000 --- a/externals/grill/vasp/source/obj_size.cpp +++ /dev/null @@ -1,265 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_size - \remark \b vasp.size - \brief Resize buffer. - \since 0.0.6 - \param cmdln.1 [_time=0] - size of buffer - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _time - offset into buffer(s) - \retval outlet vasp - modified vasp - - \attention Normally vasp vectors have individual offsets - this operations sets all the buffer sizes to equal values. - \todo Implement unit processing. -*/ -class vasp_size: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_size,vasp_tx,Setup) - -public: - vasp_size(I argc,const t_atom *argv,BL abs = true): - size(0),sets(false),keep(true),zero(true) - { - if(argc >= 1 && CanbeFloat(argv[0])) - m_arg(GetAFloat(argv[0])); - else if(argc) - post("%s - Offset argument invalid -> ignored",thisName()); - - AddInAnything(); - AddInFloat(); - AddOutAnything(); - - if(abs) FLEXT_ADDATTR_VAR("frames",size,m_arg); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,1,m_arg); - FLEXT_CADDATTR_VAR1(c,"keep",keep); - FLEXT_CADDATTR_VAR1(c,"zero",zero); - } - - virtual V m_arg(F s) - { - size = (I)s; // \todo unit processing - sets = true; - } - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(sets) ret->Size(size,keep,zero); - return ret; - } - - virtual V m_help() { post("%s - Set the size of the vector buffers",thisName()); } -protected: - I size; - BL sets,keep,zero; - -private: - FLEXT_CALLBACK_F(m_arg); - FLEXT_CALLSET_I(m_arg); - FLEXT_ATTRGET_I(size); - FLEXT_ATTRVAR_B(keep); - FLEXT_ATTRVAR_B(zero); -}; - -VASP_LIB_V("vasp.size vasp.s",vasp_size) - - - - -/*! \class vasp_dsize - \remark \b vasp.size+ - \brief Sets vector buffer sizes differentially. - \since 0.0.6 - \param cmdln.1 [_time=0] - increase offset of into buffer(s) - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _time - increase of offset into buffer(s) - \retval outlet vasp - modified vasp - - \todo Implement unit processing -*/ -class vasp_dsize: - public vasp_size -{ - FLEXT_HEADER(vasp_dsize,vasp_size) - -public: - vasp_dsize(I argc,const t_atom *argv): vasp_size(argc,argv) {} - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(sets) ret->SizeD(size); - return ret; - } - - virtual V m_help() { post("%s - Increase the size of the vector buffers",thisName()); } -}; - -VASP_LIB_V("vasp.size+ vasp.s+",vasp_dsize) - - - -/*! \class vasp_msize - \remark \b vasp.size* - \brief Sets vector buffer sizes by a factor - \since 0.0.6 - \param cmdln.1 [_number=1] - factor for size - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _number - factor for size - \retval outlet vasp - modified vasp -*/ -class vasp_msize: - public vasp_size -{ - FLEXT_HEADER_S(vasp_msize,vasp_size,Setup) - -public: - vasp_msize(I argc,const t_atom *argv): - vasp_size(argc,argv,false) - { - if(argc && CanbeFloat(argv[0])) m_arg(GetAFloat(argv[0])); - } - - static V Setup(t_classid c) - { - FLEXT_CADDATTR_VAR(c,"factor",factor,m_arg); - } - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(sets) ret->SizeM(factor); - return ret; - } - - virtual V m_help() { post("%s - Multiply the size of the vector buffers",thisName()); } - - virtual V m_arg(F f) - { - factor = f; - sets = true; - } - -protected: - R factor; - FLEXT_CALLSET_F(m_arg); - FLEXT_ATTRGET_F(factor); -}; - -VASP_LIB_V("vasp.size* vasp.s*",vasp_msize) - - - -/*! \class vasp_rsize - \remark \b vasp.size/ - \brief Sets vector buffer sizes by a factor - \since 0.0.6 - \param cmdln.1 [_number=1] - divisor for size - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.2 _number - divisor for size - \retval outlet vasp - modified vasp -*/ -class vasp_rsize: - public vasp_msize -{ - FLEXT_HEADER(vasp_rsize,vasp_msize) - -public: - vasp_rsize(I argc,const t_atom *argv): vasp_msize(argc,argv) {} - - virtual Vasp *x_work() - { - Vasp *ret = new Vasp(ref); - if(sets) ret->SizeR(factor); - return ret; - } - - virtual V m_help() { post("%s - Divide the size of the vector buffers",thisName()); } -}; - -VASP_LIB_V("vasp.size/ vasp.s/",vasp_rsize) - - - -/*! \class vasp_qsize - \remark \b vasp.size? - \brief Get size of a vector buffer. - \since 0.0.6 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet _time - offset into vector buffer - - \note Outputs 0 if vasp is undefined or invalid - \note Only works for a vasp with one vector. No output otherwise. - - \todo Implement unit processing - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? -*/ -class vasp_qsize: - public vasp_op -{ - FLEXT_HEADER(vasp_qsize,vasp_op) - -public: - - vasp_qsize() - { - AddInAnything(); -// AddOutAnything(); - AddOutFloat(); - } - - virtual V m_bang() - { - if(!ref.Check()) - post("%s - Invalid vasp!",thisName()); - else if(ref.Vectors() > 1) - post("%s - More than one vector in vasp!",thisName()); - else { - I s = 0; - if(ref.Vectors() == 1) { - VBuffer *buf = ref.Buffer(0); - if(buf) { - s = buf->Frames(); - delete buf; - } - } - //! \todo unit processing -// ToOutVasp(0,ref); - ToOutFloat(0,s); - } - } - - virtual V m_help() { post("%s - Get the buffer size of a vector",thisName()); } -}; - -VASP_LIB("vasp.size? vasp.s?",vasp_qsize) - diff --git a/externals/grill/vasp/source/obj_split.cpp b/externals/grill/vasp/source/obj_split.cpp deleted file mode 100644 index 341179d4..00000000 --- a/externals/grill/vasp/source/obj_split.cpp +++ /dev/null @@ -1,290 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_split - \remark \b vasp.split - \brief Splits a vasp into a number of vectors and the remainder. - \since 0.0.1 - \param cmdln.1 int - number of vectors to split vasp into (excl. one for the remainder vectors) - \param inlet.1 vasp - is stored and triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \retval outlet.n vasp - vector of stored vasp - \retval outlet.+ vasp - remainder of stored vasp - - \note if there is no remainder outputs a bang -*/ -class vasp_split: - public vasp_op -{ - FLEXT_HEADER(vasp_split,vasp_op) - -public: - vasp_split(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+1); - } - - virtual V m_bang() - { - if(!ref.Ok()) { - post("%s - Invalid vasp!",thisName()); - return; - } - - I outs = CntOut()-1,rem = ref.Vectors()-outs; - for(I i = min(outs,ref.Vectors())-1; i >= 0; --i) { - Vasp v(ref.Frames(),ref.Vector(i)); - ToOutVasp(i,v); - } - if(rem > 0) { - Vasp v(ref.Frames(),ref.Vector(outs)); - for(I i = 1; i < rem; ++i) v.AddVector(ref.Vector(outs+i)); - ToOutVasp(outs,v); - } - else - ToOutBang(outs); - } - - virtual V m_help() { post("%s - Split a vasp into its vectors",thisName()); } -}; - -VASP_LIB_V("vasp.split",vasp_split) - - -/*! \class vasp_join - \remark \b vasp.join - \brief Joins several vasps into one. - \since 0.0.1 - \param cmdln.1 int - number of vasp slots - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.1 reset - clears slots - \param inlet.+n vasp - is stored in this slot - \retval outlet vasp - joined vasp - - The several vectors of the several vasps are all joined into one vasp. - - \note On different vasp frame count the minmum frame count is taken. - \note The latest vector input to a slot is taken for the resulting vasp -*/ -class vasp_join: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_join,vasp_tx,Setup) - -public: - vasp_join(I argc,const t_atom *argv): - cnt(-1),vi(NULL) - { - 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; - - vi = new Vasp *[cnt-1]; - for(I i = 0; i < cnt-1; ++i) vi[i] = NULL; - - AddInAnything(cnt); - AddOutAnything(); - } - - ~vasp_join() { if(vi) delete[] vi; } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD_(c,0,"reset",m_reset); - } - - virtual Vasp *x_work() { - CVasp *ret = new CVasp(ref); - for(I i = 0; i < cnt-1; ++i) if(vi[i]) *ret += *vi[i]; - return ret; - } - - V m_reset() - { - ref.Clear(); - for(I i = 0; i < cnt-1; ++i) if(vi[i]) { delete vi[i]; vi[i] = NULL; } - } - - virtual bool m_method_(I inlet,const t_symbol *s,I argc,const t_atom *argv) - { - if(inlet > 0 && s == sym_vasp) { - if(vi[inlet-1]) delete vi[inlet-1]; - vi[inlet-1] = new Vasp(argc,argv); - return true; - } - else - return vasp_tx::m_method_(inlet,s,argc,argv); - } - - virtual V m_help() { post("%s - Join several vasps into one",thisName()); } -private: - I cnt; - Vasp **vi; - - FLEXT_CALLBACK(m_reset) -}; - -VASP_LIB_V("vasp.join",vasp_join) - - - -/*! \class vasp_spit - \remark \b vasp.spit - \brief Spit out vectors of a vasp consecutively. - \since 0.0.1 - \param inlet.1 vasp - is stored and triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \retval outlet.n vasp - vectors of stored vasp - \retval outlet.+ bang - triggered after last spit -*/ -class vasp_spit: - public vasp_op -{ - FLEXT_HEADER(vasp_spit,vasp_op) - -public: - vasp_spit(I argc,const t_atom *argv) - { - I n = 1; - if(argc >= 1) n = GetAInt(argv[0]); - if(n < 1) { - post("%s - illegal outlet count (%i) -> set to 1",thisName(),n); - n = 1; - } - - AddInAnything(); - AddOutAnything(n); - AddOutBang(); - } - - virtual V m_bang() - { - if(!ref.Ok()) { - post("%s - Invalid vasp!",thisName()); - return; - } - - I outs = CntOut()-1,rem = ref.Vectors(); - for(I vi = 0; rem;) { - I r = min(rem,outs); - for(I i = 0; i < r; ++i) { - Vasp v(ref.Frames(),ref.Vector(vi+i)); - ToOutVasp(outs-1-i,v); - } - vi += r; - rem -= r; - } - ToOutBang(outs); - } - - virtual V m_help() { post("%s - Spit out vectors of a vasp",thisName()); } -}; - -VASP_LIB_V("vasp.spit",vasp_spit) - - -/*! \class vasp_gather - \remark \b vasp.gather - \brief Gathers several consecutive vasps into one. - \since 0.0.1 - \param cmdln.1 int - number of vasp slots - \param inlet.1 vasp - is stored and output triggered - \param inlet.1 bang - triggers output - \param inlet.1 set - sets result vasp - \param inlet.1 reset - clears result - \param inlet.2 vasp - add to result vasp - \retval outlet vasp - gathered vasp - - The several incoming vectors are all gathered into one vasp. - - \note On different vasp frame count the minimum frame count is taken. -*/ -class vasp_gather: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_gather,vasp_tx,Setup) - -public: - vasp_gather(I argc,const t_atom *argv) - { - cnt = 0; - if(argc >= 1) cnt = GetAInt(argv[0]); - if(cnt < 0) { - post("%s - illegal count (%i) -> set to 0 (triggered mode)",thisName(),cnt); - cnt = 0; - } - rem = cnt; - - AddInAnything(2); - AddOutAnything(); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD_(c,0,"reset",m_reset); - FLEXT_CADDMETHOD_(c,1,"vasp",m_add); - } - - virtual Vasp *x_work() - { - CVasp *ret = new CVasp(ref); - *ret += cdst; - m_reset(); - return ret; - } - - V m_reset() { ref.Clear(); cdst.Clear(); rem = cnt; } - - virtual I m_set(I argc,const t_atom *argv) { rem = cnt; return vasp_tx::m_set(argc,argv); } - - V m_add(I argc,const t_atom *argv) - { - cdst += Vasp(argc,argv); - if(cnt && !--rem) m_bang(); - } - - virtual V m_help() { post("%s - Gather several vasps into one",thisName()); } -private: - I cnt,rem; - CVasp cdst; - - FLEXT_CALLBACK(m_reset) - FLEXT_CALLBACK_V(m_add) -}; - -VASP_LIB_V("vasp.gather",vasp_gather) - - - diff --git a/externals/grill/vasp/source/obj_sync.cpp b/externals/grill/vasp/source/obj_sync.cpp deleted file mode 100644 index b6ad0963..00000000 --- a/externals/grill/vasp/source/obj_sync.cpp +++ /dev/null @@ -1,130 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_sync - \remark \b vasp.sync - \brief Waits for all inlets to be hit (by vasps/anything) to trigger output. - \since 0.0.1 - \param cmdln.1 int - number of sync inlets - \param inlet.1 vasp - is stored - \param inlet.1 bang - triggers output - \param inlet.1 set - vasp to be stored - \param inlet.1 reset - clear all hit flags - \param inlet.+n vasp/anything - sets hit flag - \retval outlet.* vasp - stored vasps - - \todo Message for selection if only vasp input triggers (or any one). - \todo Message for selection of manual or auto reset upon trigger -*/ -class vasp_sync: - public vasp_op -{ - FLEXT_HEADER_S(vasp_sync,vasp_op,Setup) - -public: - vasp_sync(I argc,const t_atom *argv): - autoreset(true),vasponly(false) - { - 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; - - flags = new BL[cnt]; - stored = new Vasp[cnt-1]; - - AddInAnything(cnt); - AddOutAnything(cnt); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD_(c,0,"reset",m_reset); - } - - virtual BL Init() - { - BL ret = vasp_op::Init(); - m_reset(); - return ret; - } - - ~vasp_sync() - { - if(flags) delete[] flags; - if(stored) delete[] stored; - } - - V chkbang(I n,Vasp *a = NULL) - { - if(a && n > 0) { - stored[n-1] = *a; - delete a; - } - - BL f = flags[n]; - flags[n] = true; - if(!f) { // flags have changed - - BL all = true; - for(I i = 0; i < CntIn(); ++i) all = all && flags[i]; - - if(all) { - if(ref.Ok()) { - for(I i = CntIn()-1; i > 0; --i) ToOutVasp(i,stored[i-1]); - ToOutVasp(0,ref); - } - else ToOutBang(0); - - if(autoreset) m_reset(); - } - } - } - - virtual V m_bang() { chkbang(0); } - - V m_reset() - { - for(I i = 0; i < CntIn(); ++i) flags[i] = false; - } - - virtual bool m_method_(I inlet,const t_symbol *s,I argc,const t_atom *argv) - { - if(inlet > 0 && (!vasponly || s == sym_vasp)) { - Vasp *a = new Vasp(argc,argv); - chkbang(inlet,a); - return true; - } - else - return vasp_op::m_method_(inlet,s,argc,argv); - } - - virtual V m_help() { post("%s - Synchronize a number of vasps (default 2)",thisName()); } -private: - BL autoreset,vasponly; - BL *flags; - Vasp *stored; - - FLEXT_CALLBACK(m_reset) -}; - -VASP_LIB_V("vasp.sync",vasp_sync) - - 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) - diff --git a/externals/grill/vasp/source/obj_vecs.cpp b/externals/grill/vasp/source/obj_vecs.cpp deleted file mode 100644 index d056189e..00000000 --- a/externals/grill/vasp/source/obj_vecs.cpp +++ /dev/null @@ -1,111 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" - - -/*! \class vasp_vector - \remark \b vasp.vector - \brief Gets indexed vector of a vasp. - \since 0.0.1 - \param cmdln.1 int - index of vasp vector - \param inlet vasp - is stored and indexed vasp vector output - \param inlet bang - triggers indexed vasp vector output - \param inlet set - vasp to be stored (and not immediately output) - \retval outlet.1 vasp - single indexed vector of vasp - \retval outlet.2 vasp - remainder of vasp - - \note Outputs only on valid index - \todo Output remainder as vasp. -*/ -class vasp_vector: - public vasp_tx -{ - FLEXT_HEADER_S(vasp_vector,vasp_tx,Setup) - -public: - vasp_vector(I argc,const t_atom *argv): - ix(0) - { - if(argc >= 1 && CanbeInt(argv[0])) - ix = GetAInt(argv[0]); - else if(argc) - post("%s - Index argument invalid -> set to 0",thisName()); - - AddInAnything(2); - AddOutAnything(); - } - - static V Setup(t_classid c) - { - FLEXT_CADDMETHOD(c,1,m_ix); - FLEXT_CADDATTR_VAR(c,"index",ix,m_ix); - } - - V m_ix(I i) { ix = i; } - - virtual Vasp *x_work() { return ix < ref.Vectors()?new Vasp(ref.Frames(),ref.Vector(ix)):NULL; } - - virtual V m_help() { post("%s - Get one vector of a vasp",thisName()); } - -protected: - I ix; - -private: - FLEXT_CALLBACK_I(m_ix); - FLEXT_CALLSET_I(m_ix); - FLEXT_ATTRGET_I(ix); -}; - -VASP_LIB_V("vasp.vector vasp.n",vasp_vector) - - - -/*! \class vasp_qn - \remark \b vasp.n? - \brief Gets number of vector of a vasp. - \since 0.0.1 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet int - number of vectors in stored vasp - - \note Outputs 0 if vasp is undefined or invalid. - - \todo Should we disable output with invalid vasp? -*/ -class vasp_qvectors: - public vasp_op -{ - FLEXT_HEADER(vasp_qvectors,vasp_op) - -public: - vasp_qvectors() - { - AddInAnything(); -// AddOutAnything(); - AddOutInt(); - } - - virtual V m_bang() - { -// ToOutVasp(0,ref); - ToOutInt(0,ref.Ok()?ref.Vectors():0); - } - - virtual V m_help() { post("%s - Get number of vectors of a vasp",thisName()); } -}; - -VASP_LIB("vasp.vectors? vasp.n?",vasp_qvectors) - - - diff --git a/externals/grill/vasp/source/opbase.cpp b/externals/grill/vasp/source/opbase.cpp deleted file mode 100644 index 5abcb9fa..00000000 --- a/externals/grill/vasp/source/opbase.cpp +++ /dev/null @@ -1,85 +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. - -*/ - -#include "main.h" -#include "opbase.h" -#include "opdefs.h" - -Vasp *VaspOp::m_run(OpParam &p,CVasp &src,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} - -Vasp *VaspOp::m_cun(OpParam &p,CVasp &src,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} - -Vasp *VaspOp::m_rbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - BL argvasp = arg.IsVasp(); - - RVecBlock *vecs = argvasp?GetRVecs(p.opname,src,arg.GetVasp(),dst):GetRVecs(p.opname,src,dst); - if(vecs) { - if(arg.CanbeDouble()) p.rbin.arg = arg.GetADouble(); - else if(arg.IsEnv()) { - if(p.args != 1) - ERRINTERNAL(); - else - p.arg[0].SetE(&arg.GetEnv()); - } - - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} - -Vasp *VaspOp::m_cbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun) -{ - Vasp *ret = NULL; - BL argvasp = arg.IsVasp(); - - CVecBlock *vecs = argvasp?GetCVecs(p.opname,src,arg.GetVasp(),dst):GetCVecs(p.opname,src,dst); - if(vecs) { - if(arg.CanbeComplex()) { - CX z = arg.GetAComplex(); - p.cbin.rarg = z.real; - p.cbin.iarg = z.imag; - } - else if(arg.IsEnv()) { - if(p.args != 1) - ERRINTERNAL(); - else - p.arg[0].SetE(&arg.GetEnv()); - } - - ret = DoOp(vecs,fun,p); - delete vecs; - } - - return ret; -} diff --git a/externals/grill/vasp/source/opbase.h b/externals/grill/vasp/source/opbase.h deleted file mode 100644 index bba4a3a6..00000000 --- a/externals/grill/vasp/source/opbase.h +++ /dev/null @@ -1,47 +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. - -*/ - -#ifndef __VASP_OPBASE_H -#define __VASP_OPBASE_H - -#include "main.h" -#include "classes.h" -#include "vecblk.h" -#include "opparam.h" - - -namespace VaspOp { - typedef BL opfun(OpParam &p); - - // -------- prepare vectors and do vector operation ----------- - // in opvecs.cpp - - RVecBlock *GetRVecs(const C *op,CVasp &src,CVasp *dst = NULL); - CVecBlock *GetCVecs(const C *op,CVasp &src,CVasp *dst = NULL,BL full = false); - RVecBlock *GetRVecs(const C *op,CVasp &src,const CVasp &arg,CVasp *dst = NULL,I multi = -1,BL ssize = true); - CVecBlock *GetCVecs(const C *op,CVasp &src,const CVasp &arg,CVasp *dst = NULL,I multi = -1,BL ssize = true,BL full = false); - - Vasp *DoOp(RVecBlock *vecs,opfun *fun,OpParam &p,BL symm = false); - Vasp *DoOp(CVecBlock *vecs,opfun *fun,OpParam &p,BL symm = false); - - // -------- transformations ----------------------------------- - // in opbase.cpp - - // unary functions - Vasp *m_run(OpParam &p,CVasp &src,CVasp *dst,opfun fun); // real unary (one vec or real) - Vasp *m_cun(OpParam &p,CVasp &src,CVasp *dst,opfun fun); // complex unary (one vec or complex) - - // binary functions - Vasp *m_rbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun); // real binary (one vec or real) - Vasp *m_cbin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,opfun fun); // complex binary (one vec or complex) - -} - -#endif diff --git a/externals/grill/vasp/source/opdefs.h b/externals/grill/vasp/source/opdefs.h deleted file mode 100644 index 833163dc..00000000 --- a/externals/grill/vasp/source/opdefs.h +++ /dev/null @@ -1,495 +0,0 @@ -/* - -VASP modular - vector assembling signal processor / objects for Max/MSP and PD - -Copyright (c) 2002-2003 Thomas Grill (xovo@gmx.net) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -*/ - -#ifndef __VASP_OPDEFS_H -#define __VASP_OPDEFS_H - -#include "oploop.h" -#include "opbase.h" - -#ifdef VASP_CHN1 -#define _D_ALWAYS1 1 -#else -#define _D_ALWAYS1 0 -#endif - - -namespace VecOp { - -// multi-layer templates - -template<class T,class OP,int LR> -inline BL vec_un(T *v,const T *a,I n = 0) { - const I _n = LR?LR:n; - for(I i = 0; i < _n; ++i) OP::run(v[i],a[i]); - return true; -} - -template<class T,class OP,int LR> -inline BL vec_un(T *v,T a,I n = 0) { - const I _n = LR?LR:n; - for(I i = 0; i < _n; ++i) OP::run(v[i],a); - return true; -} - -template<class T,class TR,class OP,int LR> -inline BL vec_bin(T *v,const T *a,const TR *b,I n = 0) { - const I _n = LR?LR:n; - for(I i = 0; i < _n; ++i) OP::rbin(v[i],a[i],b[i]); - return true; -} - -template<class T,class TR,class OP,int LR> -inline BL vec_bin(T *v,const T *a,TR b,I n = 0) { - const I _n = LR?LR:n; - for(I i = 0; i < _n; ++i) OP::rbin(v[i],a[i],b); - return true; -} - -/*! \brief skeleton for unary real operations -*/ -template<class T,class OP> BL V__run(register const T *sr,I rss,register T *dr,I rds,I frames) -{ - register I i; - if(sr == dr && OP::run_opt() >= 3) - if((_D_ALWAYS1 || rds == 1) && OP::run_opt() >= 2) - _DE_LOOP(i,frames, ( OP::run(*dr,*dr), dr++ ) ) - else - _DE_LOOP(i,frames, ( OP::run(*dr,*dr), dr += rds ) ) - else - if((_D_ALWAYS1 || (rss == 1 && rds == 1)) && OP::run_opt() >= 2) - _DE_LOOP(i,frames, ( OP::run(*dr,*sr), sr++,dr++ ) ) - else - _DE_LOOP(i,frames, ( OP::run(*dr,*sr), sr += rss,dr += rds ) ) - return true; -} - - -/*! \brief skeleton for unary complex operations -*/ -template<class T,class OP> BL V__cun(register const T *sr,register const T *si,I rss,I iss,register T *dr,register T *di,I rds,I ids,I frames) -{ - register I i; - if(sr == dr && si == di && OP::cun_opt() >= 3) - if((_D_ALWAYS1 || (rds == 1 && ids == 1)) && OP::cun_opt() >= 2) - _DE_LOOP(i,frames, ( OP::cun(*dr,*di,*dr,*di), dr++,di++ ) ) - else - _DE_LOOP(i,frames, ( OP::cun(*dr,*di,*dr,*di), dr += rds,di += ids ) ) - else - if((_D_ALWAYS1 || (rss == 1 && iss == 1 && rds == 1 && ids == 1)) && OP::cun_opt() >= 2) - _DE_LOOP(i,frames, ( OP::cun(*dr,*di,*sr,*si), sr++,si++,dr++,di++ ) ) - else - _DE_LOOP(i,frames, ( OP::cun(*dr,*di,*sr,*si), sr += rss,si += iss,dr += rds,di += ids ) ) - return true; -} - -template<class T,class OP> BL V__vun(I layers,register const T *sr,register T *dr,I frames) -{ - register I i; - switch(layers) { - case 1: - V__run<T,OP>(sr,1,dr,1,frames); - break; - case 2: - _DF_LOOP(i,frames, ( vec_un<T,OP,2>(dr,sr,2), sr += 2, dr += 2) ) - break; - case 3: - _DF_LOOP(i,frames, ( vec_un<T,OP,3>(dr,sr,3), sr += 3, dr += 3) ) - break; - case 4: - _DF_LOOP(i,frames, ( vec_un<T,OP,4>(dr,sr,4), sr += 4, dr += 4) ) - break; - default: - _DF_LOOP(i,frames, ( vec_un<T,OP,0>(dr,sr,layers), sr += layers, dr += layers) ) - break; - } - return true; -} - - -template<class T,class OP> BL V__rbin(register const T *sr,I rss,register T *dr,I rds,register const T *ar,I ras,I frames) -{ - register I i; - if(sr == dr && OP::rbin_opt() >= 3) - if((_D_ALWAYS1 || (rds == 1 && ras == 1)) && OP::rbin_opt() >= 2) - _DE_LOOP(i,frames, ( OP::rbin(*dr,*dr,*ar), dr++,ar++ ) ) - else - _DE_LOOP(i,frames, ( OP::rbin(*dr,*dr,*ar), dr += rds,ar += ras ) ) - else - if((_D_ALWAYS1 || (rss == 1 && rds == 1 && ras == 1)) && OP::rbin_opt() >= 2) - _DE_LOOP(i,frames, ( OP::rbin(*dr,*sr,*ar), sr++,dr++,ar++ ) ) - else - _DE_LOOP(i,frames, ( OP::rbin(*dr,*sr,*ar), sr += rss,dr += rds,ar += ras ) ) - return true; -} - -template<class T,class OP> BL V__cbin(register const T *sr,register const T *si,I rss,I iss,register T *dr,register T *di,I ids,I rds,const T *ar,const T *ai,I ras,I ias,I frames) -{ - register I i; - if(sr == dr && si == di && OP::cbin_opt() >= 3) - if((_D_ALWAYS1 || (rds == 1 && ids == 1 && ras == 1 && ias == 1)) && OP::cbin_opt() >= 2) - _DE_LOOP(i,frames, ( OP::cbin(*dr,*di,*dr,*di,*ar,*ai), dr++,di++,ar++,ai++ ) ) - else - _DE_LOOP(i,frames, ( OP::cbin(*dr,*di,*dr,*di,*ar,*ai), dr += rds,di += ids,ar += ras,ai += ias ) ) - else - _DE_LOOP(i,frames, ( OP::cbin(*dr,*di,*sr,*si,*ar,*ai), sr += rss,si += iss,dr += rds,di += ids,ar += ras,ai += ias ) ) - return true; -} - - -template<class TR> class _A__vector { -public: - static BL unroll() { return true; } - static TR ev(const TR *a,I i,I m) { return a[i*m]; } -}; - -template<class TR> class _A__scalar { -public: - static BL unroll() { return true; } - static TR ev(TR a,I i,I m) { return a; } -}; - -class _A__env { -public: - static BL unroll() { return false; } - static R ev(Env::Iter &a,I i,I m) { return a.ValFwd(i); } -}; - -template<class T,class TA,class TR,class OP,class EVARG> BL Vx__rbin(register const T *sr,I rss,register T *dr,I rds,TA ar,I frames) -{ - register I i; - if(sr == dr && OP::rbin_opt() >= 3) - if((_D_ALWAYS1 || rds == 1) && OP::rbin_opt() >= 2) - _DQ_LOOP(EVARG::unroll(),i,frames, ( OP::rbin(*dr,*dr,EVARG::ev(ar,i,1)), dr++ ) ) - else - _DQ_LOOP(EVARG::unroll(),i,frames, ( OP::rbin(*dr,*dr,EVARG::ev(ar,i,1)), dr += rds ) ) - else - if((_D_ALWAYS1 || rss == 1 && rds == 1) && OP::rbin_opt() >= 2) - _DQ_LOOP(EVARG::unroll(),i,frames, ( OP::rbin(*dr,*sr,EVARG::ev(ar,i,1)), sr++,dr++ ) ) - else - _DQ_LOOP(EVARG::unroll(),i,frames, ( OP::rbin(*dr,*sr,EVARG::ev(ar,i,1)), sr += rss,dr += rds ) ) - return true; -} - -template<class T,class TA1,class TA2,class TR,class OP,class EVARG1,class EVARG2> BL Vx__cbin(register const T *sr,register const T *si,I rss,I iss,register T *dr,register T *di,I ids,I rds,TA1 ar,TA2 ai,I ras,I ias,I frames) -{ - register I i; - if(sr == dr && si == di && OP::cbin_opt() >= 3) - if((_D_ALWAYS1 || (rds == 1 && ids == 1 && ras == 1 && ias == 1)) && OP::cbin_opt() >= 2) - _DQ_LOOP(EVARG1::unroll() && EVARG2::unroll(),i,frames, ( OP::cbin(*dr,*di,*dr,*di,EVARG1::ev(ar,i,1),EVARG2::ev(ai,i,1)), dr++,di++ ) ) - else - _DQ_LOOP(EVARG1::unroll() && EVARG2::unroll(),i,frames, ( OP::cbin(*dr,*di,*dr,*di,EVARG1::ev(ar,i,ras),EVARG2::ev(ai,i,ias)), dr += rds,di += ids ) ) - else - _DQ_LOOP(EVARG1::unroll() && EVARG2::unroll(),i,frames, ( OP::cbin(*dr,*di,*sr,*si,EVARG1::ev(ar,i,ras),EVARG2::ev(ai,i,ias)), sr += rss,si += iss,dr += rds,di += ids ) ) - return true; -} - -template<class T,class TA,class TR,class OP,class EVARG> BL Vx__vbin(I layers,register const T *sr,register T *dr,TA ar,I frames) -{ - register I i; - switch(layers) { - case 1: - Vx__rbin<T,TA,TR,OP,EVARG>(sr,1,dr,1,ar,frames); - break; - case 2: - _DF_LOOP(i,frames, ( vec_bin<T,TR,OP,2>(dr,sr,EVARG::ev(ar,i,2),2), sr += 2, dr += 2) ) - break; - case 3: - _DF_LOOP(i,frames, ( vec_bin<T,TR,OP,3>(dr,sr,EVARG::ev(ar,i,3),3), sr += 3, dr += 3) ) - break; - case 4: - _DF_LOOP(i,frames, ( vec_bin<T,TR,OP,4>(dr,sr,EVARG::ev(ar,i,4),4), sr += 4, dr += 4) ) - break; - default: - _DF_LOOP(i,frames, ( vec_bin<T,TR,OP,0>(dr,sr,EVARG::ev(ar,i,layers),layers), sr += layers, dr += layers) ) - break; - } - return true; -} - -template<class T,class OP> inline BL V__vbin(I layers,register const T *sr,register T *dr,register const T *ar,I frames) -{ - return Vx__vbin<T,const T *,T,OP,_A__vector<T> >(layers,sr,dr,ar,frames); -} - -/*! \brief skeleton for binary real operations -*/ -template<class T,class OP> BL _F__rbin(OpParam &p) -{ - if(p.HasArg() && p.arg[0].Is()) { - switch(p.arg[0].argtp) { - case OpParam::Arg::arg_v: { - V__rbin<T,OP>(p.rsdt,p.rss,p.rddt,p.rds,p.arg[0].v.rdt,p.arg[0].v.rs,p.frames); - break; - } - case OpParam::Arg::arg_env: { - Env::Iter it(*p.arg[0].e.env); it.Init(0); - Vx__rbin<T,Env::Iter &,R,OP,_A__env >(p.rsdt,p.rss,p.rddt,p.rds,it,p.frames); - break; - } - case OpParam::Arg::arg_x: { - Vx__rbin<T,R,T,OP,_A__scalar<R> >(p.rsdt,p.rss,p.rddt,p.rds,p.arg[0].x.r,p.frames); - break; - } - } - } - else { - Vx__rbin<T,T,T,OP,_A__scalar<T> >(p.rsdt,p.rss,p.rddt,p.rds,p.rbin.arg,p.frames); - } - return true; -} - - -/*! \brief skeleton for binary complex operations -*/ -template<class T,class OP> BL _F__cbin(OpParam &p) -{ - if(p.HasArg() && p.arg[0].Is()) { - switch(p.arg[0].argtp) { - case OpParam::Arg::arg_v: { - if(p.arg[0].v.idt) - V__cbin<T,OP>(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.arg[0].v.rdt,p.arg[0].v.idt,p.arg[0].v.rs,p.arg[0].v.is,p.frames); - else - Vx__cbin<T,const T *,T,T,OP,_A__vector<T>,_A__scalar<T> >(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.arg[0].v.rdt,0,p.arg[0].v.rs,1,p.frames); - break; - } - case OpParam::Arg::arg_env: { - Env::Iter it(*p.arg[0].e.env); it.Init(0); - Vx__cbin<T,Env::Iter &,T,R,OP,_A__env,_A__scalar<T> >(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,it,0,1,1,p.frames); - break; - } - case OpParam::Arg::arg_x: { - Vx__cbin<T,R,R,R,OP,_A__scalar<R>,_A__scalar<R> >(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.arg[0].x.r,p.arg[0].x.i,1,1,p.frames); - break; - } - } - } - else { - Vx__cbin<T,T,T,T,OP,_A__scalar<T>,_A__scalar<T> >(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.cbin.rarg,p.cbin.iarg,1,1,p.frames); - } - return true; -} - -/*! \brief skeleton for real operations with parameter block -*/ -template<class T,class ARG,class OP> BL V__rop(ARG p,register const S *sr,I rss,register S *dr,I rds,I frames) -{ - register I i; - if(sr == dr && OP::rop_opt() >= 3) - if((_D_ALWAYS1 || rds == 1) && OP::rop_opt() >= 2) - _DE_LOOP(i,frames, ( OP::rop(*dr,*dr,p), dr++ ) ) - else - _DE_LOOP(i,frames, ( OP::rop(*dr,*dr,p), dr += rds ) ) - else - if((_D_ALWAYS1 || (rss == 1 && p.rds == 1)) && OP::rop_opt() >= 2) - _DE_LOOP(i,frames, ( OP::rop(*dr,*sr,p), sr++,dr++ ) ) - else - _DE_LOOP(i,frames, ( OP::rop(*dr,*sr,p), sr += rss,dr += rds ) ) - return true; -} - -/*! \brief skeleton for complex operations with parameter block -*/ -template<class T,class ARG,class OP> BL V__cop(ARG p,register const S *sr,register const S *si,I rss,I iss,register S *dr,register S *di,I rds,I ids,I frames) -{ - register I i; - if(sr == dr && si == di && OP::cop_opt() >= 3) - if((_D_ALWAYS1 || (rds == 1 && ids == 1)) && OP::cop_opt() >= 2) - _DE_LOOP(i,frames, ( OP::cop(*dr,*di,*dr,*di,p), dr++,di++ ) ) - else - _DE_LOOP(i,frames, ( OP::cop(*dr,*di,*dr,*di,p), dr += rds,di += ids ) ) - else - if((_D_ALWAYS1 || (p.rss == 1 && p.iss == 1 && p.rds == 1 && p.ids == 1)) && OP::cop_opt() >= 2) - _DE_LOOP(i,frames, ( OP::cop(*dr,*di,*sr,*si,p), sr++,si++,dr++,di++ ) ) - else - _DE_LOOP(i,frames, ( OP::cop(*dr,*di,*sr,*si,p), sr += rss,si += iss,dr += rds,di += ids ) ) - return true; -} - - -template<class T> BL _d__run(V fun(T &v,T a),OpParam &p) -{ - int i; - if(p.rds == 1 && p.rss == 1) - _DE_LOOP(i,p.frames, ( fun(p.rddt[i],p.rsdt[i]) ) ) - else - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.rsdt[p.rss*i]) ) ) - return true; -} - -template<class T> BL _d__cun(V fun(T &rv,T &iv,T ra,T ia),OpParam &p) -{ - int i; - if(p.rds == 1 && p.ids == 1 && p.rss == 1 && p.iss == 1) - _DE_LOOP(i,p.frames, ( fun(p.rddt[i],p.iddt[i],p.rsdt[i],p.isdt[i]) ) ) - else - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.iddt[p.ids*i],p.rsdt[p.rss*i],p.isdt[p.iss*i]) ) ) - return true; -} - -template<class T> BL _d__rbin(V fun(T &v,T a,T b),OpParam &p) -{ - int i; - if(p.HasArg() && p.arg[0].Is()) { - switch(p.arg[0].argtp) { - case OpParam::Arg::arg_v: { - const T *adr = p.arg[0].v.rdt; - const I asr = p.arg[0].v.rs; - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.rsdt[p.rss*i],adr[asr*i]) ) ) - break; - } - case OpParam::Arg::arg_env: { - Env::Iter it(*p.arg[0].e.env); it.Init(0); - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.rsdt[p.rss*i],it.ValFwd(i)) ) ) - break; - } - case OpParam::Arg::arg_x: { - const T av = p.arg[0].x.r; - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.rsdt[p.rss*i],av) ) ) - break; - } - } - } - else { - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.rsdt[p.rss*i],p.rbin.arg) ) ) - } - return true; -} - -template<class T> BL _d__cbin(V fun(T &rv,T &iv,T ra,T ia,T rb,T ib),OpParam &p) -{ - int i; - if(p.HasArg() && p.arg[0].Is()) { - switch(p.arg[0].argtp) { - case OpParam::Arg::arg_v: { - const T *adr = p.arg[0].v.rdt,*adi = p.arg[0].v.idt; - const I asr = p.arg[0].v.rs,asi = p.arg[0].v.is; - if(adi) - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.iddt[p.ids*i],p.rsdt[p.rss*i],p.isdt[p.iss*i],adr[asr*i],adi[asi*i]) ) ) - else - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.iddt[p.ids*i],p.rsdt[p.rss*i],p.isdt[p.iss*i],adr[asr*i],0) ) ) - break; - } - case OpParam::Arg::arg_env: { - Env::Iter it(*p.arg[0].e.env); it.Init(0); - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.iddt[p.ids*i],p.rsdt[p.rss*i],p.isdt[p.iss*i],it.ValFwd(i),0) ) ) - break; - } - case OpParam::Arg::arg_x: { - const T avr = p.arg[0].x.r,avi = p.arg[0].x.i; - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.iddt[p.ids*i],p.rsdt[p.rss*i],p.isdt[p.iss*i],avr,avi) ) ) - break; - } - } - } - else { - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.iddt[p.ids*i],p.rsdt[p.rss*i],p.isdt[p.iss*i],p.cbin.rarg,p.cbin.iarg) ) ) - } - return true; -} - -template<class T> BL _d__rop(V fun(T &v,T a,OpParam &p),OpParam &p) -{ - int i; - if(p.rds == 1 && p.rss == 1) - _DE_LOOP(i,p.frames, ( fun(p.rddt[i],p.rsdt[i],p) ) ) - else - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.rsdt[p.rss*i],p) ) ) - return true; -} - -template<class T> BL _d__cop(V fun(T &rv,T &iv,T ra,T ia,OpParam &p),OpParam &p) -{ - int i; - if(p.rds == 1 && p.ids == 1 && p.rss == 1 && p.iss == 1) - _DE_LOOP(i,p.frames, ( fun(p.rddt[i],p.iddt[i],p.rsdt[i],p.isdt[i],p) ) ) - else - _DF_LOOP(i,p.frames, ( fun(p.rddt[p.rds*i],p.iddt[p.ids*i],p.rsdt[p.rss*i],p.isdt[p.iss*i],p) ) ) - return true; -} - - -/* -template<class T,class CL> inline BL _D__run(OpParam &p) { return V__run<T,CL>(p.rsdt,p.rss,p.rddt,p.rds,p.frames); } -template<class T,class CL> inline BL _D__cun(OpParam &p) { return V__cun<T,CL>(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames); } -template<class T,class CL> inline BL _D__rbin(OpParam &p) { return _F__rbin<T,CL>(p); } -template<class T,class CL> inline BL _D__cbin(OpParam &p) { return _F__cbin<T,CL>(p); } -template<class T,class CL> inline BL _D__rop(OpParam &p) { return V__rop<T,OpParam &,CL>(p,p.rsdt,p.rss,p.rddt,p.rds,p.frames); } -template<class T,class CL> inline BL _D__cop(OpParam &p) { return V__cop<T,OpParam &,CL>(p,p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames); } - -#ifdef VASP_COMPACT - template<class T,class CL> BL D__run(OpParam &p) { return _d__run<T>(CL::run,p); } - template<class T,class CL> BL D__cun(OpParam &p) { return _d__cun<T>(CL::cun,p); } - template<class T,class CL> BL D__rbin(OpParam &p) { return _d__rbin<T>(CL::rbin,p); } - template<class T,class CL> BL D__cbin(OpParam &p) { return _d__cbin<T>(CL::cbin,p); } - template<class T,class CL> BL D__rop(OpParam &p) { return _d__rop<T>(CL::rop,p); } - template<class T,class CL> BL D__cop(OpParam &p) { return _d__cop<T>(CL::cop,p); } -#else - template<class T,class CL> BL D__run(OpParam &p) { return CL::run_opt()?_D__run<T,CL>(p):_d__run<T>(CL::run,p); } - template<class T,class CL> BL D__cun(OpParam &p) { return CL::cun_opt()?_D__cun<T,CL>(p):_d__cun<T>(CL::cun,p); } - template<class T,class CL> BL D__rbin(OpParam &p) { return CL::rbin_opt()?_D__rbin<T,CL>(p):_d__rbin<T>(CL::rbin,p); } - template<class T,class CL> BL D__cbin(OpParam &p) { return CL::cbin_opt()?_D__cbin<T,CL>(p):_d__cbin<T>(CL::cbin,p); } - template<class T,class CL> BL D__rop(OpParam &p) { return CL::rop_opt()?_D__rop<T,CL>(p):_d__rop<T>(CL::rop,p); } - template<class T,class CL> BL D__cop(OpParam &p) { return CL::cop_opt()?_D__cop<T,CL>(p):_d__cop<T>(CL::cop,p); } -#endif -*/ - -// MSVC 6 can't handle optimization here!! (silently produces wrong code!!!) - -#define _D__run(T,CL,p) V__run< T,CL >(p.rsdt,p.rss,p.rddt,p.rds,p.frames) -#define _D__cun(T,CL,p) V__cun< T,CL >(p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames) -#define _D__rbin(T,CL,p) _F__rbin< T,CL >(p) -#define _D__cbin(T,CL,p) _F__cbin< T,CL >(p) -#define _D__rop(T,CL,p) V__rop< T,OpParam &,CL >(p,p.rsdt,p.rss,p.rddt,p.rds,p.frames) -#define _D__cop(T,CL,p) V__cop< T,OpParam &,CL >(p,p.rsdt,p.isdt,p.rss,p.iss,p.rddt,p.iddt,p.rds,p.ids,p.frames) - -#if defined(VASP_COMPACT) || (defined(_MSC_VER) && _MSC_VER < 1300) - #define D__run(T,CL,p) _d__run< T >(CL::run,p) - #define D__cun(T,CL,p) _d__cun< T >(CL::cun,p) - #define D__rbin(T,CL,p) _d__rbin< T >(CL::rbin,p) - #define D__cbin(T,CL,p) _d__cbin< T >(CL::cbin,p) - #define D__rop(T,CL,p) _d__rop< T >(CL::rop,p) - #define D__cop(T,CL,p) _d__cop< T >(CL::cop,p) -#else - #define D__run(T,CL,p) ( CL::run_opt()?_D__run(T,CL,p):_d__run<T>(CL::run,p) ) - #define D__cun(T,CL,p) ( CL::cun_opt()?_D__cun(T,CL,p):_d__cun<T>(CL::cun,p) ) - #define D__rbin(T,CL,p) ( CL::rbin_opt()?_D__rbin(T,CL,p):_d__rbin<T>(CL::rbin,p) ) - #define D__cbin(T,CL,p) ( CL::cbin_opt()?_D__cbin(T,CL,p):_d__cbin<T>(CL::cbin,p) ) - #define D__rop(T,CL,p) ( CL::rop_opt()?_D__rop(T,CL,p):_d__rop<T>(CL::rop,p) ) - #define D__cop(T,CL,p) ( CL::cop_opt()?_D__cop(T,CL,p):_d__cop<T>(CL::cop,p) ) -#endif - - -// process multi-dimensional data - -template<class T> inline BL V__vmulti(BL vbin(I layers,const T *sr,T *dr,const T *ar,I len),I layers,const T *sr,T *dr,const T *ar,I dim,const I *dims) -{ - if(dim == 1 || !dims) { - return vbin(layers,sr,dr,ar,dims?dims[0]:dim); - } - else if(dim > 1) { - // calculate stride for next dimensions - I i,s,str = layers*dims[0]; - for(i = 1; i < dim-1; ++i) str *= dims[i]; - const I dimn = dims[i]; - - for(s = i = 0; i < dimn; ++i,s += str) - V__vmulti(vbin,layers,sr+s,dr+s,ar+s,dim-1,dims); - return true; - } - else - return false; -} - - - -} // namespace VecOp - -#endif diff --git a/externals/grill/vasp/source/opfuns.h b/externals/grill/vasp/source/opfuns.h deleted file mode 100644 index 7abbec6f..00000000 --- a/externals/grill/vasp/source/opfuns.h +++ /dev/null @@ -1,529 +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. - -*/ - -#ifndef __VASP_OPFUNS_H -#define __VASP_OPFUNS_H - -#include "opdefs.h" -#include <math.h> -#include "util.h" - - -namespace VecOp { - - // assignment - - template<class T> class f_copy { - public: - static I run_opt() { return 3; } - static V run(T &v,T a) { v = a; } - static I cun_opt() { return 2; } - static V cun(T &rv,T &iv,T ra,T ia) { rv = ra,iv = ia; } - }; - - template<class T> class f_set { - public: - static I rbin_opt() { return 3; } - static V rbin(T &v,T,T b) { v = b; } - static I cbin_opt() { return 2; } - static V cbin(T &rv,T &iv,T,T,T rb,T ib) { rv = rb,iv = ib; } - }; - - // arithmetic - - template<class T> class f_add { - public: - static I rbin_opt() { return 3; } - static V rbin(T &v,T a,T b) { v = a+b; } - static I cbin_opt() { return 2; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) { rv = ra+rb,iv = ia+ib; } - }; - - template<class T> class f_sub { - public: - static I rbin_opt() { return 3; } - static V rbin(T &v,T a,T b) { v = a-b; } - static I cbin_opt() { return 2; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) { rv = ra-rb,iv = ia-ib; } - }; - - template<class T> class f_subr { - public: - static I rbin_opt() { return 2; } - static V rbin(T &v,T a,T b) { v = b-a; } - static I cbin_opt() { return 2; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) { rv = rb-ra,iv = ib-ia; } - }; - - template<class T> class f_mul { - public: - static I rbin_opt() { return 3; } - static V rbin(T &v,T a,T b) { v = a*b; } - static I cbin_opt() { return 1; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) { rv = ra*rb-ia*ib, iv = ra*ib+rb*ia; } - }; - - template<class T> class f_div { - public: - static I rbin_opt() { return 2; } - static V rbin(T &v,T a,T b) { v = a/b; } - - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) - { - register const T den = sqabs(rb,ib); - rv = (ra*rb+ia*ib)/den; - iv = (ia*rb-ra*ib)/den; - } - }; - - template<class T> class f_divr { - public: - static I rbin_opt() { return 2; } - static V rbin(T &v,T a,T b) { v = b/a; } - - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) - { - register const T den = sqabs(ra,ia); - rv = (rb*ra+ib*ia)/den; - iv = (ib*ra-rb*ia)/den; - } - }; - - template<class T> class f_mod { - public: - static I rbin_opt() { return 0; } - static V rbin(T &v,T a,T b) { v = fmod(a,b); } - }; - - template<class T> class f_abs { - public: - static I run_opt() { return 0; } - static V run(T &v,T a) { v = fabs(a); } - static I cun_opt() { return 0; } - static V cun(T &rv,T &iv,T ra,T ia) { rv = sqrt(ra*ra+ia*ia),iv = 0; } - }; - - template<class T> class f_sign { - public: - static I run_opt() { return 0; } - static V run(T &v,T a) { v = (a == 0?0:(a < 0?-1.:1.)); } - }; - - template<class T> class f_sqr { - public: - static I run_opt() { return 3; } - static V run(T &v,T a) { v = a*a; } - static I cun_opt() { return 1; } - static V cun(T &rv,T &iv,T ra,T ia) { rv = ra*ra-ia*ia; iv = ra*ia*2; } - }; - - template<class T> class f_ssqr { - public: - static I run_opt() { return 0; } - static V run(T &v,T a) { v = a*fabs(a); } - }; - - - template<class T> class f_sumq { - public: - static I rop_opt() { return 2; } - static V rop(T &,T ra,OpParam &p) - { - p.norm.minmax += ra; - } - }; - - // transcendent - - template<class T> class f_powi { - public: - static I cop_opt() { return 0; } - static V cop(T &rv,T &iv,T ra,T ia,OpParam &p) - { - register const I powi = p.ibin.arg; - register T rt,it; VecOp::f_sqr<T>::cun(rt,it,ra,ia); - for(I i = 2; i < powi; ++i) VecOp::f_mul<T>::cbin(rt,it,rt,it,ra,ia); - rv = rt,iv = it; - } - }; - - template<class T> class f_pow { - public: - static I rbin_opt() { return 0; } - static V rbin(T &v,T a,T b) { v = pow(fabs(a),b)*sgn(a); } - - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T) - { - register const T _abs = sqrt(sqabs(ra,ia)); - if(_abs) { - register const T _p = pow(_abs,rb)/_abs; - rv = _p*ra,iv = _p*ia; - } - else - rv = iv = 0; - } - protected: - static T sgn(T x) { return x?(x > 0?1:-1):0; } - }; - - template<class T> class f_sqrt { - public: - static I run_opt() { return 0; } - static V run(T &v,T a) { v = sqrt(fabs(a)); } - }; - - template<class T> class f_ssqrt { - public: - static I run_opt() { return 0; } - static V run(T &v,T a) { v = sqrt(fabs(a))*sgn(a); } - }; - - - template<class T> class f_exp { - public: - static I run_opt() { return 0; } - static V run(T &v,T a) { v = exp(a); } - }; - - template<class T> class f_log { - public: - static I run_opt() { return 0; } - static V run(T &v,T a) { v = log(a); } // \todo detect NANs - }; - - // comparisons - - template<class T> class f_lwr { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a < b?1:0; } - }; - - template<class T> class f_gtr { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a > b?1:0; } - }; - - template<class T> class f_alwr { - public: - static I rbin_opt() { return 0; } - static V rbin(T &v,T a,T b) { v = fabs(a) < fabs(b)?1:0; } - }; - - template<class T> class f_agtr { - public: - static I rbin_opt() { return 0; } - static V rbin(T &v,T a,T b) { v = fabs(a) > fabs(b)?1:0; } - }; - - template<class T> class f_leq { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a <= b?1:0; } - }; - - template<class T> class f_geq { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a >= b?1:0; } - }; - - template<class T> class f_aleq { - public: - static I rbin_opt() { return 0; } - static V rbin(T &v,T a,T b) { v = fabs(a) <= fabs(b)?1:0; } - }; - - template<class T> class f_ageq { - public: - static I rbin_opt() { return 0; } - static V rbin(T &v,T a,T b) { v = fabs(a) >= fabs(b)?1:0; } - }; - - template<class T> class f_equ { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a == b?1:0; } - }; - - template<class T> class f_neq { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a != b?1:0; } - }; - - // min/max - - template<class T> class f_min { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a < b?a:b; } - - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) - { - if(sqabs(ra,ia) < sqabs(rb,ib)) rv = ra,iv = ia; - else rv = rb,iv = ib; - } - }; - - template<class T> class f_max { - public: - static I rbin_opt() { return 1; } - static V rbin(T &v,T a,T b) { v = a > b?a:b; } - - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T ib) - { - if(sqabs(ra,ia) > sqabs(rb,ib)) rv = ra,iv = ia; - else rv = rb,iv = ib; - } - }; - - template<class T> class f_minmax { - public: - static I cun_opt() { return 0; } - static V cun(T &rv,T &iv,T ra,T ia) - { - if(ra < ia) rv = ra,iv = ia; - else rv = ia,iv = ra; - } - }; - - template<class T> class f_minq { - public: - static I rop_opt() { return 0; } - static V rop(T &,T ra,OpParam &p) - { - if(ra < p.norm.minmax) p.norm.minmax = ra; - } - - static I cop_opt() { return 0; } - static V cop(T &,T &,T ra,T ia,OpParam &p) - { - register T s = sqabs(ra,ia); - if(s < p.norm.minmax) p.norm.minmax = s; - } - }; - - template<class T> class f_maxq { - public: - static I rop_opt() { return 0; } - static V rop(T &,T ra,OpParam &p) - { - if(ra > p.norm.minmax) p.norm.minmax = ra; - } - - static I cop_opt() { return 0; } - static V cop(T &,T &,T ra,T ia,OpParam &p) - { - register T s = sqabs(ra,ia); - if(s > p.norm.minmax) p.norm.minmax = s; - } - }; - - template<class T> class f_aminq { - public: - static I rop_opt() { return 0; } - static V rop(T &,T ra,OpParam &p) - { - register T s = fabs(ra); - if(s < p.norm.minmax) p.norm.minmax = s; - } - }; - - template<class T> class f_amaxq { - public: - static I rop_opt() { return 0; } - static V rop(T &,T ra,OpParam &p) - { - register T s = fabs(ra); - if(s > p.norm.minmax) p.norm.minmax = s; - } - }; - - - // gating - - template<class T> class f_gate { - public: - static I rbin_opt() { return 0; } - static V rbin(T &rv,T ra,T rb) { rv = fabs(ra) >= rb?ra:0; } - - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T) - { - register const T _abs = sqabs(ra,ia); - - if(_abs >= rb*rb) rv = ra,iv = ia; - else rv = iv = 0; - } - }; - - template<class T> class f_igate { - public: - static I rbin_opt() { return 0; } - static V rbin(T &rv,T ra,T rb) { rv = fabs(ra) <= rb?ra:0; } - - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T) - { - register const T _abs = sqabs(ra,ia); - - if(_abs <= rb*rb) rv = ra,iv = ia; - else rv = iv = 0; - } - }; - - // complex - - template<class T> class f_norm { - public: - static I cun_opt() { return 0; } - static V cun(T &rv,T &iv,T ra,T ia) - { - register T f = sqabs(ra,ia); - if(f) { f = 1./sqrt(f); rv = ra*f,iv = ia*f; } - else rv = iv = 0; - } - }; - - template<class T> class f_conj { - public: - static I cun_opt() { return 2; } - static V cun(T &,T &iv,T,T ia) { iv = -ia; } - }; - - template<class T> class f_polar { - public: - static I cun_opt() { return 0; } - static V cun(T &rv,T &iv,T ra,T ia) { rv = sqrt(sqabs(ra,ia)),iv = arg(ra,ia); } - }; - - template<class T> class f_rect { - public: - static I cun_opt() { return 0; } - static V cun(T &rv,T &iv,T ra,T ia) { rv = ra*cos(ia),iv = ra*sin(ia); } - }; - - template<class T> class f_radd { - public: - static I cbin_opt() { return 0; } - static V cbin(T &rv,T &iv,T ra,T ia,T rb,T) - { - register const T _abs = sqrt(sqabs(ra,ia))+rb; - register const T _phi = arg(ra,ia); - - rv = _abs*cos(_phi),iv = _abs*sin(_phi); - } - }; - - // extra - - template<class T> class f_fix { - public: - /*! \brief Bashes denormals and NANs to zero - - \param a argument list - \param v destination vasp (NULL for in-place operation) - \return normalized destination vasp - */ - static I run_opt() { return 0; } - static V run(T &v,T a) - { - if(a != a) // NAN - v = 0; - else { - // denormal bashing (doesn't propagate to the next stage) - - static const T anti_denormal = (T)1.e-18; - a += anti_denormal; - a -= anti_denormal; - v = a; - } - } - }; - -} - - - -#define DEFOP(T,FUN,OP,KIND) \ -namespace VecOp { inline BL FUN(OpParam &p) { return D__##KIND(T,f_##OP < T > ,p); } } - - -#define DEFVEC_R(T,OP) \ - static BL r_##OP (I len,T *dr,I rds,const T *sr,I rss) { return VecOp::V__rbin<T,VecOp::f_##OP <T> >(sr,rss,dr,rds,len); } \ - static BL v_##OP##_(I layers,const T *sr,T *dr,const T *ar,I len) { return VecOp::V__vbin<T,VecOp::f_##OP <T> >(layers,sr,dr,ar,len); } \ - static BL v_##OP (I dim,const I *dims,I layers,T *dr,const T *sr,const T *ar) { return VecOp::V__vmulti<T>(v_##OP##_,layers,sr,dr,ar,dim,dims); } - -#define DEFVEC_C(T,OP) \ - static BL c_##OP (I len,T *dr,T *di,I rds,I ids,const T *sr,I rss,I iss) { return VecOp::V__cbin<T,VecOp::f_##OP <T> >(sr,rss,iss,dr,rds,ids,len); } - -#define DEFVEC_B(T,OP) DEFVEC_R(T,OP) DEFVEC_C(T,OP) - - -template<class T> -class VecFun { -public: - DEFVEC_B(T,copy) - - DEFVEC_B(T,add) - DEFVEC_B(T,sub) - DEFVEC_B(T,subr) - DEFVEC_B(T,mul) - DEFVEC_B(T,div) - DEFVEC_B(T,divr) - DEFVEC_R(T,mod) - DEFVEC_B(T,abs) - DEFVEC_R(T,sign) - DEFVEC_B(T,sqr) - DEFVEC_R(T,ssqr) - - DEFVEC_C(T,powi) - DEFVEC_B(T,pow) - DEFVEC_R(T,sqrt) - DEFVEC_R(T,ssqrt) - DEFVEC_R(T,exp) - DEFVEC_R(T,log) - - DEFVEC_R(T,lwr) - DEFVEC_R(T,gtr) - DEFVEC_R(T,alwr) - DEFVEC_R(T,agtr) - DEFVEC_R(T,leq) - DEFVEC_R(T,geq) - DEFVEC_R(T,aleq) - DEFVEC_R(T,ageq) - DEFVEC_R(T,equ) - DEFVEC_R(T,neq) - - DEFVEC_B(T,min) - DEFVEC_B(T,max) - DEFVEC_C(T,minmax) - DEFVEC_C(T,gate) - DEFVEC_C(T,igate) - - DEFVEC_C(T,norm) - DEFVEC_C(T,conj) - DEFVEC_C(T,polar) - DEFVEC_C(T,rect) - DEFVEC_C(T,radd) - - DEFVEC_R(T,fix) -}; - - - -#endif diff --git a/externals/grill/vasp/source/oploop.h b/externals/grill/vasp/source/oploop.h deleted file mode 100644 index ec805c13..00000000 --- a/externals/grill/vasp/source/oploop.h +++ /dev/null @@ -1,95 +0,0 @@ -/* - -VASP modular - vector assembling signal processor / objects for Max/MSP and PD - -Copyright (c) 2002-2006 Thomas Grill (gr@grrrr.org) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -*/ - -#ifndef __VASP_OPLOOP_H -#define __VASP_OPLOOP_H - -#define _D_BLOCK 4096 - -#define _D_MIN(a,b) ((a) < (b)?(a):(b)) - -#ifdef FLEXT_THREADS - - #define _D_LOOP(VAR,LEN) { \ - for(register int __i__ = 0; __i__ < LEN; flext_base::ThrYield()) { \ - register const I __m__ = _D_MIN(LEN,__i__+_D_BLOCK); \ - for(; __i__ < __m__; ++__i__) { VAR = __i__; - - #define _E_LOOP } if(__i__ < __m__) break; }} - - #define _D_WHILE(COND) { \ - for(; (COND) ; flext_base::ThrYield()) { \ - register I __i__ = 0; \ - for(; __i__ < _D_BLOCK && (COND); ++__i__) { - - #define _E_WHILE } if(__i__ < _D_BLOCK) break; }} - -#else - - #define _D_LOOP(VAR,LEN) { \ - for(VAR = 0; VAR < LEN; ++VAR) { - - #define _E_LOOP }} - - #define _D_WHILE(COND) { \ - while(COND) { - - #define _E_WHILE }} - -#endif - - -#define _DE_WHILE(COND,BODY) { _D_WHILE(COND) BODY; _E_WHILE } -#define _DF_LOOP(VAR,LEN,BODY) { _D_LOOP(VAR,LEN) BODY; _E_LOOP } - -#ifdef VASP_COMPACT - - #define _DE_LOOP(VAR,LEN,BODY) _DF_LOOP(VAR,LEN,BODY) - -#else - - #ifdef FLEXT_THREADS - - #define _DE_LOOP(VAR,LEN,BODY) { \ - for(VAR = 0; VAR < LEN; flext_base::ThrYield()) { \ - register const I __m__ = _D_MIN(LEN,VAR+_D_BLOCK); \ - for(; VAR <= __m__-4; ) { \ - BODY; ++VAR; \ - BODY; ++VAR; \ - BODY; ++VAR; \ - BODY; ++VAR; \ - } \ - for(; VAR < __m__; ++VAR) { \ - BODY; \ - } \ - } \ - } - - #else - - #define _DE_LOOP(VAR,LEN,BODY) { \ - for(VAR = 0; VAR <= LEN-4; ) { \ - BODY; ++VAR; \ - BODY; ++VAR; \ - BODY; ++VAR; \ - BODY; ++VAR; \ - } \ - for(; VAR < LEN; ++VAR) { \ - BODY; \ - } \ - } - - #endif - -#endif - -#define _DQ_LOOP(UNROLL,VAR,LEN,BODY) { if(UNROLL) _DE_LOOP(VAR,LEN,BODY) else _DF_LOOP(VAR,LEN,BODY) } - -#endif diff --git a/externals/grill/vasp/source/opparam.cpp b/externals/grill/vasp/source/opparam.cpp deleted file mode 100644 index 1c1fd450..00000000 --- a/externals/grill/vasp/source/opparam.cpp +++ /dev/null @@ -1,255 +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. - -*/ - -#include "main.h" -#include "opparam.h" -//#include <math.h> - -/* -// Duplication of breakpoint lists should be avoided -OpParam::Arg &OpParam::Arg::operator =(const Arg &op) -{ - Clear(); - - switch(argtp = op.argtp) { - case arg_x: x = op.x; break; - case arg_v: v = op.v; break; - case arg_bp: { - // Copy breakpoint list (find a different way, e.g. store them in a pool) - bp.pts = op.bp.pts; - bp.pt = new R[bp.pts]; - for(I i = 0; i < bp.pts; ++i) - bp.pt[i] = op.bp.pt[i]; - break; - } - } - - return *this; -} -*/ -V OpParam::Arg::Clear() -{ -// if(argtp == arg_bp && bp.pt) delete[] bp.pt; - argtp = arg_; -} - -OpParam::Arg &OpParam::Arg::SetX(S r,S i) -{ - Clear(); - argtp = arg_x; - x.r = r,x.i = i; - return *this; -} - -OpParam::Arg &OpParam::Arg::SetV(S *r,I rs,S *i,I is) -{ - Clear(); - argtp = arg_v; - v.rdt = r,v.rs = rs; - v.idt = i,v.is = is; - return *this; -} - -/* -OpParam::Arg &OpParam::Arg::SetB(I pts,const R *pt) -{ - Clear(); - argtp = arg_bp; - bp.pts = pts; - bp.pt = new R[pts]; - for(I ix = 0; ix < pts; ix) bp.pt[ix] = pt[ix]; - return *this; -} -*/ - -OpParam::Arg &OpParam::Arg::SetE(const Env *env) -{ - Clear(); - argtp = arg_env; - e.env = env; - return *this; -} - - -/* -V OpParam::SDR_Rev() { SR_Rev(); DR_Rev(); } -V OpParam::SDI_Rev() { SI_Rev(); DI_Rev(); } -V OpParam::SDC_Rev() { SDR_Rev(); SDI_Rev(); } -V OpParam::ADR_Rev() { AR_Rev(); DR_Rev(); } -V OpParam::ADI_Rev() { AI_Rev(); DI_Rev(); } -V OpParam::ADC_Rev() { ADR_Rev(); ADI_Rev(); } -V OpParam::SADR_Rev() { SR_Rev(); AR_Rev(); DR_Rev(); } -V OpParam::SADI_Rev() { SI_Rev(); AI_Rev(); DI_Rev(); } -V OpParam::SADC_Rev() { SADR_Rev(); SADI_Rev(); } -*/ - -OpParam::OpParam(const C *opnm,I nargs): - opname(opnm),frames(0),args(0),arg(NULL), - /*part(false),*/ ovrlap(false),revdir(false),oddrem(false) -{ - InitArgs(nargs); -} - -OpParam::~OpParam() { Clear(); } - -V OpParam::InitArgs(I n) -{ - if(arg) Clear(); - args = n; - if(args) arg = new Arg[args]; -} - -V OpParam::Clear() -{ - if(arg) { delete[] arg; arg = NULL; } - args = 0; -} - - -/*! \brief Reverse direction of real vector operation - \todo Check for existence of vectors! -*/ -V OpParam::R_Rev() -{ - - SR_Rev(); - DR_Rev(); - AR_Rev(); - revdir = true; -} - -/*! \brief Reverse direction of complex vector operation - \todo Check for existence of vectors! -*/ -V OpParam::C_Rev() -{ - SR_Rev(); SI_Rev(); - DR_Rev(); DI_Rev(); - AR_Rev(); AI_Rev(); - revdir = true; -} - - -V OpParam::AR_Rev(I bl) -{ - if(arg[bl].argtp == Arg::arg_v && arg[bl].v.rdt) - arg[bl].v.rdt -= (frames-1)*(arg[bl].v.rs = -arg[bl].v.rs); -} - -V OpParam::AI_Rev(I bl) -{ - if(arg[bl].argtp == Arg::arg_v && arg[bl].v.idt) - arg[bl].v.idt -= (frames-1)*(arg[bl].v.is = -arg[bl].v.is); -} - -BL OpParam::AR_In(I bl) const -{ - return arg[bl].argtp == Arg::arg_v && arg[bl].v.rdt && rddt > arg[bl].v.rdt && rddt < arg[bl].v.rdt+frames*arg[bl].v.rs; -} - -BL OpParam::AI_In(I bl) const -{ - return arg[bl].argtp == Arg::arg_v && arg[bl].v.idt && iddt > arg[bl].v.idt && iddt < arg[bl].v.idt+frames*arg[bl].v.is; -} - -BL OpParam::AR_Can(I bl) const -{ - return arg[bl].argtp != Arg::arg_v || !arg[bl].v.rdt || arg[bl].v.rdt <= rddt || arg[bl].v.rdt >= rddt+frames*rds; -} - -BL OpParam::AI_Can(I bl) const -{ - return arg[bl].argtp != Arg::arg_v || !arg[bl].v.idt || arg[bl].v.idt <= iddt || arg[bl].v.idt >= iddt+frames*ids; -} - -BL OpParam::AR_Ovr(I bl) const -{ - return arg[bl].argtp == Arg::arg_v && arg[bl].v.rdt && rddt != arg[bl].v.rdt && rddt < arg[bl].v.rdt+frames*arg[bl].v.rs && arg[bl].v.rdt < rddt+frames*rds; -} - -BL OpParam::AI_Ovr(I bl) const -{ - return arg[bl].argtp == Arg::arg_v && arg[bl].v.idt && iddt != arg[bl].v.idt && iddt < arg[bl].v.idt+frames*arg[bl].v.is && arg[bl].v.idt < iddt+frames*ids; -} - - - -BL OpParam::AR_In() const -{ - for(I i = 0; i < args; ++i) - if(AR_In(i)) return true; - return false; -} - -BL OpParam::AI_In() const -{ - for(I i = 0; i < args; ++i) - if(AI_In(i)) return true; - return false; -} - -BL OpParam::AR_Can() const -{ - for(I i = 0; i < args; ++i) - if(!AR_Can(i)) return false; - return true; -} - -BL OpParam::AI_Can() const -{ - for(I i = 0; i < args; ++i) - if(!AI_Can(i)) return false; - return true; -} - -BL OpParam::AR_Ovr() const -{ - for(I i = 0; i < args; ++i) - if(!AR_Ovr(i)) return false; - return true; -} - -BL OpParam::AI_Ovr() const -{ - for(I i = 0; i < args; ++i) - if(!AI_Ovr(i)) return false; - return true; -} - - -V OpParam::AR_Rev() -{ - for(I i = 0; i < args; ++i) AR_Rev(i); -} - -V OpParam::AI_Rev() -{ - for(I i = 0; i < args; ++i) AI_Rev(i); -} - -V OpParam::SkipOddMiddle() -{ - if(symm == 0 && oddrem) { - // don't process middle sample! - if(revdir) rsdt += rss,rddt += rds; - frames--; - } -} - -V OpParam::SkipOddMiddle(S m) -{ - if(symm == 0 && oddrem) { - // set and skip middle sample! - frames--; - if(revdir) *rddt = m,rsdt += rss,rddt += rds; - else rddt[frames] = m; - } -} - diff --git a/externals/grill/vasp/source/opparam.h b/externals/grill/vasp/source/opparam.h deleted file mode 100644 index 1c0193d4..00000000 --- a/externals/grill/vasp/source/opparam.h +++ /dev/null @@ -1,128 +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. - -*/ - -#ifndef __VASP_OPPARAM_H -#define __VASP_OPPARAM_H - -#include "vecblk.h" -#include "arg.h" - -class OpParam { -public: - OpParam(const C *opnm,I args); - ~OpParam(); - - V InitArgs(I nargs); - V Clear(); - - BL HasArg() const { return arg != NULL; } - - const C *opName() const { return opname; } - - // check for overlap - // \remark if on same vector, stride is the same for src, arg, dst! - inline BL SR_In() const { return rddt > rsdt && rddt < rsdt+frames*rss; } - inline BL SI_In() const { return iddt > isdt && iddt < isdt+frames*iss; } - BL AR_In(I bl) const; - BL AI_In(I bl) const; - BL AR_In() const; - BL AI_In() const; - - // Can we reverse direction? - inline BL SR_Can() const { return rsdt <= rddt || rsdt >= rddt+frames*rds; } - inline BL SI_Can() const { return isdt <= iddt || isdt >= iddt+frames*ids; } - BL AR_Can(I bl) const; - BL AI_Can(I bl) const; - BL AR_Can() const; - BL AI_Can() const; - - // does it overlap? (works only with rss,rds,ras.... > 0) - inline BL SR_Ovr() const { return rddt != rsdt && rddt < rsdt+frames*rss && rsdt < rddt+frames*rds; } - inline BL SI_Ovr() const { return iddt != isdt && iddt < isdt+frames*iss && isdt < iddt+frames*ids; } - BL AR_Ovr(I bl) const; - BL AI_Ovr(I bl) const; - BL AR_Ovr() const; - BL AI_Ovr() const; - - V AR_Rev(); - V AI_Rev(); - - V R_Rev(); - V C_Rev(); - - V SkipOddMiddle(); - V SkipOddMiddle(S m); - - const C *opname; - I frames,symm,args; - BL ovrlap,revdir,oddrem; - S *rsdt,*isdt; I rss,iss; - S *rddt,*iddt; I rds,ids; - - class Arg - { - public: - Arg(): argtp(arg_) {} -// Arg(const Arg &op) { operator =(op); } - ~Arg() { Clear(); } - V Clear(); - - BL Is() const { return argtp != arg_; } - -// Arg &operator =(const Arg &op); -// Arg &operator =(const Argument &arg); - - Arg &SetX(S r,S i = 0); - Arg &SetV(S *r,I rs,S *i = NULL,I is = 0); - Arg &SetE(const Env *bp); - - struct env_t { const Env *env; }; - struct v_t { S *rdt,*idt; I rs,is; }; - struct x_t { R r,i; }; - - enum { arg_ = 0,arg_x,arg_v,arg_env } argtp; - union { - x_t x; - v_t v; - env_t e; - }; - }; - - Arg *arg; - - union { - struct { R coef,carry; I rep; } flt; - struct { R carry; I rep; } intdif; - struct { BL cx; R density; I cnt; } peaks; - struct { R ph,phinc; } gen; - struct { R factor,center; I mode,fill; } tilt; - struct { R cur,inc; } bvl; - struct { R sh; I ish; I fill; } sh; - struct { I wndtp; BL inv,mul; R p1,p2,p3; } wnd; - struct { R minmax,scl; } norm; - struct { I arg; } ibin; - struct { R arg; } rbin; - struct { R rarg,iarg; } cbin; - struct { I *order; } perm; - struct { R val; I offs,dif,dir,slope; BL incl; } srch; - }; - -private: - // reverse direction - inline V SR_Rev() { rsdt -= (frames-1)*(rss = -rss); } - inline V SI_Rev() { isdt -= (frames-1)*(iss = -iss); } - V AR_Rev(I bl); - V AI_Rev(I bl); - inline V DR_Rev() { rddt -= (frames-1)*(rds = -rds); } - inline V DI_Rev() { iddt -= (frames-1)*(ids = -ids); } - -}; - -#endif diff --git a/externals/grill/vasp/source/oppermute.h b/externals/grill/vasp/source/oppermute.h deleted file mode 100644 index 45221a1f..00000000 --- a/externals/grill/vasp/source/oppermute.h +++ /dev/null @@ -1,121 +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. - -*/ - -#ifndef __VASP_OPPERMUTE_H -#define __VASP_OPPERMUTE_H - -#include "opparam.h" -#include "oploop.h" - -#define PERMTMPL -#define MAXPERMDIM 2 - -template<class T> -inline void permswap(T &a,T &b) { register T t = a; a = b; b = t; } - -#ifdef PERMTMPL -template<class T,int origination(int pos, int sz,OpParam &p)> -void permutation1(OpParam &p) -#else -template<class T> -void permutation1(OpParam &p,int (*origination)(int pos, int sz,OpParam &p)) -#endif -{ - T *ddt = p.rddt; - const I ds = p.rds; - const I sz = p.frames; - - if(ddt != p.rsdt) { - // not in place - const T *sdt = p.rsdt; - const I ss = p.rss; - I i; - _DE_LOOP(i,sz, ( ddt[origination(i,sz,p)*ds] = sdt[i*ss] ) ) - } - else { - // in place - // \todo try to come from both sides! - I i; - _D_LOOP(i,sz-1) - int cur = i; - do { cur = origination(cur,sz,p); } while(cur < i); - if(cur > i) { - // swap - permswap(ddt[cur*ds],ddt[i*ds]); - } - _E_LOOP - } -} - -#ifdef PERMTMPL -template<class T,int origination(int pos, int sz,OpParam &p)> -void permutation2(OpParam &p) -#else -template<class T> -void permutation2(OpParam &p,int (*origination)(int pos, int sz,OpParam &p)) -#endif -{ - T *rddt = p.rddt,*iddt = p.iddt; - const I rds = p.rds,ids = p.ids; - const I sz = p.frames; - bool rinpl = rddt == p.rsdt,iinpl = iddt == p.isdt; - - if(rinpl == iinpl) { - // re and im both in place - I i; - _D_LOOP(i,sz-1) - int cur = i; - do { cur = origination(cur,sz,p); } while(cur < i); - if(cur > i) { - // swap - permswap(rddt[cur*rds],rddt[i*rds]); - permswap(iddt[cur*ids],iddt[i*ids]); - } - _E_LOOP - } - else { - if(!rinpl) { - const T *sdt = p.rsdt; - const I ss = p.rss; - I i; - if(ss == 1 && rds == 1) - _DE_LOOP(i,sz, ( *(rddt++) = *(sdt++) ) ) - else - _DE_LOOP(i,sz, ( *rddt = *sdt,rddt += rds,sdt += ss ) ) - rddt = p.rddt; - } - else permutation1<T>(p,origination); - - if(!iinpl) { - const T *sdt = p.isdt; - const I ss = p.iss; - I i; - if(ss == 1 && ids == 1) - _DE_LOOP(i,sz, ( *(iddt++) = *(sdt++) ) ) - else - _DE_LOOP(i,sz, ( *iddt = *sdt,iddt += ids,sdt += ss ) ) - iddt = p.iddt; - } - else { - permswap(p.rddt,p.iddt); permswap(p.rds,p.ids); - permutation1<T>(p,origination); - permswap(p.rddt,p.iddt); permswap(p.rds,p.ids); - } - } -} - -#ifdef PERMTMPL -#define PERMUTATION(tp,dim,p,func) permutation ## dim <tp,func>(p) -#else -#define PERMUTATION(tp,dim,p,func) permutation ## dim <tp>(p,func) -#endif - -#endif - diff --git a/externals/grill/vasp/source/ops.h b/externals/grill/vasp/source/ops.h deleted file mode 100644 index 00dc8e44..00000000 --- a/externals/grill/vasp/source/ops.h +++ /dev/null @@ -1,27 +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. - -*/ - -#ifndef __VASP_OPS_H -#define __VASP_OPS_H - -#include "ops_assign.h" -#include "ops_arith.h" -#include "ops_trnsc.h" -#include "ops_cmp.h" -#include "ops_cplx.h" -#include "ops_flt.h" -#include "ops_dft.h" -#include "ops_gen.h" -#include "ops_wnd.h" -#include "ops_rearr.h" -#include "ops_resmp.h" -#include "ops_feature.h" - -#endif diff --git a/externals/grill/vasp/source/ops_arith.cpp b/externals/grill/vasp/source/ops_arith.cpp deleted file mode 100644 index eb05f8a0..00000000 --- a/externals/grill/vasp/source/ops_arith.cpp +++ /dev/null @@ -1,79 +0,0 @@ -/* - -VASP modular - vector assembling signal processor / objects for Max/MSP and PD - -Copyright (c) 2002-2003 Thomas Grill (xovo@gmx.net) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -*/ - -#include "main.h" -#include "ops_arith.h" -#include "opdefs.h" -#include "util.h" -#include <math.h> - - -VASP_BINARY("vasp.+",add,true,VASP_ARG_R(0),"Adds a value, envelope or vasp") -VASP_BINARY("vasp.-",sub,true,VASP_ARG_R(0),"Subtracts a value, envelope or vasp") -VASP_BINARY("vasp.!-",subr,true,VASP_ARG_R(0),"Reverse subtracts a value, envelope or vasp") -VASP_BINARY("vasp.*",mul,true,VASP_ARG_R(1),"Multiplies with a value, envelope or vasp") -VASP_BINARY("vasp./",div,true,VASP_ARG_R(1),"Divides by a value, envelope or vasp") -VASP_BINARY("vasp.!/",divr,true,VASP_ARG_R(1),"Reverse divides by a value, envelope or vasp") -VASP_BINARY("vasp.%",mod,true,VASP_ARG_R(0),"Calculates the remainder of the division by a value, envelope or vasp") - -// ----------------------------------------------------- - -VASP_UNARY("vasp.sqr",sqr,true,"Calculates the square") -VASP_UNARY("vasp.ssqr",ssqr,true,"Calculates the square with preservation of the sign") - -// ----------------------------------------------------- - -VASP_UNARY("vasp.sign",sign,true,"Calculates the sign (signum function)") -VASP_UNARY("vasp.abs",abs,true,"Calculates the absolute value") - - - -/*! \class vasp_qsum - \remark \b vasp.sum? - \brief Get sum of sample values - \since 0.1.3 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet float - sample value sum - - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? - \remark Returns 0 for a vasp with 0 frames -*/ -class vasp_qsum: - public vasp_unop -{ - FLEXT_HEADER(vasp_qsum,vasp_unop) - -public: - vasp_qsum(): vasp_unop(true,XletCode(xlet_float,0)) {} - - virtual Vasp *do_opt(OpParam &p) - { - p.norm.minmax = 0; - CVasp cref(ref); - Vasp *ret = VaspOp::m_qsum(p,cref); - return ret; - } - - virtual Vasp *tx_work() - { - OpParam p(thisName(),0); - Vasp *ret = do_opt(p); - ToOutFloat(1,p.norm.minmax); - return ret; - } - - virtual V m_help() { post("%s - Get the sum of a vasp's sample values",thisName()); } -}; - -VASP_LIB("vasp.sum?",vasp_qsum) - diff --git a/externals/grill/vasp/source/ops_arith.h b/externals/grill/vasp/source/ops_arith.h deleted file mode 100644 index dd8f88b3..00000000 --- a/externals/grill/vasp/source/ops_arith.h +++ /dev/null @@ -1,54 +0,0 @@ -/* - -VASP modular - vector assembling signal processor / objects for Max/MSP and PD - -Copyright (c) 2002-2003 Thomas Grill (xovo@gmx.net) -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "license.txt," in this distribution. - -*/ - -#ifndef __VASP_OPS_ARITH_H -#define __VASP_OPS_ARITH_H - -#include "opfuns.h" - -// Arithmetic math functions - -DEFOP(S,d_add,add,rbin) -DEFOP(S,d_sub,sub,rbin) -DEFOP(S,d_subr,subr,rbin) -DEFOP(S,d_mul,mul,rbin) -DEFOP(S,d_div,div,rbin) -DEFOP(S,d_divr,divr,rbin) -DEFOP(S,d_mod,mod,rbin) - -DEFOP(S,d_sqr,sqr,run) -DEFOP(S,d_ssqr,ssqr,run) - -DEFOP(S,d_sign,sign,run) -DEFOP(S,d_abs,abs,run) - -DEFOP(S,d_sumq,sumq,rop) - - -namespace VaspOp { - - inline Vasp *m_add(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_add); } // add to (one vec or real) - inline Vasp *m_sub(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_sub); } // sub from (one vec or real) - inline Vasp *m_subr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_subr); } // reverse sub from (one vec or real) - inline Vasp *m_mul(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_mul); } // mul with (one vec or real) - inline Vasp *m_div(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_div); } // div by (one vec or real) - inline Vasp *m_divr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_divr); } // reverse div by (one vec or real) - inline Vasp *m_mod(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_mod); } // modulo by (one vec or real) - - inline Vasp *m_sqr(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_sqr); } // unsigned square - inline Vasp *m_ssqr(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_ssqr); } // signed square - - inline Vasp *m_sign(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_sign); } // sign function - inline Vasp *m_abs(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_abs); } // absolute values - - inline Vasp *m_qsum(OpParam &p,CVasp &src) { return m_run(p,src,NULL,VecOp::d_sumq); } // get sum of sample values -} - -#endif diff --git a/externals/grill/vasp/source/ops_assign.cpp b/externals/grill/vasp/source/ops_assign.cpp deleted file mode 100644 index e0adc444..00000000 --- a/externals/grill/vasp/source/ops_assign.cpp +++ /dev/null @@ -1,95 +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. - -*/ - -#include "main.h" -#include "ops_assign.h" -#include "opdefs.h" - - -VASP_BINARY("vasp.set vasp.=",set,false,VASP_ARG_R(0),"Assigns a value, envelope or vasp") -VASP_BINARY("vasp.cset vasp.c=",cset,false,VASP_ARG_R(0),"Assigns a complex value, real envelope or vasp") - - - -Vasp *VaspOp::m_copy(OpParam &p,CVasp &src,CVasp &arg) -{ - Vasp *s = NULL,*d = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,&arg); - if(vecs) { - d = DoOp(vecs,VecOp::d_copy,p); - s = vecs->SrcVasp(); - if(d) arg = *d; else { arg.Clear(); delete d; } - delete vecs; - } - return s; -} - -Vasp *VaspOp::m_ccopy(OpParam &p,CVasp &src,CVasp &arg) -{ - Vasp *s = NULL,*d = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,&arg); - if(vecs) { - d = DoOp(vecs,VecOp::d_ccopy,p); - s = vecs->SrcVasp(); - if(d) arg = *d; else { arg.Clear(); delete d; } - delete vecs; - } - return s; -} - - -class vasp_copy: - public vasp_anyop -{ - FLEXT_HEADER(vasp_copy,vasp_anyop) -public: - - vasp_copy(I argc,const t_atom *argv): vasp_anyop(argc,argv,VASP_ARG(),true,XletCode(xlet_any,0)) {} - - virtual V m_to(I,const t_atom *) { post("s - destination vasp is ignored!",thisName()); } - - virtual Vasp *do_copy(OpParam &p,CVasp &dst) { CVasp cref(ref); return VaspOp::m_copy(p,cref,dst); } - - virtual Vasp *tx_work(const Argument &arg) - { - OpParam p(thisName(),0); - - if(arg.CanbeVasp()) { - CVasp dst(arg.GetAVasp()); - Vasp *ret = do_copy(p,dst); - ToOutVasp(1,dst); - return ret; - } - else { - post("%s - argument is not a valid vasp!",thisName()); // \todo check earlier! - return NULL; - } - } - - virtual V m_help() { post("%s - Copies the triggering vasp to the argument vasp",thisName()); } -}; -VASP_LIB_V("vasp.copy vasp.->",vasp_copy) - - -class vasp_ccopy: - public vasp_copy -{ - FLEXT_HEADER(vasp_ccopy,vasp_copy) -public: - - vasp_ccopy(I argc,const t_atom *argv): vasp_copy(argc,argv) {} - - virtual Vasp *do_copy(OpParam &p,CVasp &dst) { CVasp cref(ref); return VaspOp::m_ccopy(p,cref,dst); } - - virtual V m_help() { post("%s - Copies complex pairs of the triggering vasp to the argument vasp",thisName()); } -}; -VASP_LIB_V("vasp.ccopy vasp.c->",vasp_ccopy) - - diff --git a/externals/grill/vasp/source/ops_assign.h b/externals/grill/vasp/source/ops_assign.h deleted file mode 100644 index 78a3392e..00000000 --- a/externals/grill/vasp/source/ops_assign.h +++ /dev/null @@ -1,33 +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. - -*/ - -#ifndef __VASP_OPS_ASSIGN_H -#define __VASP_OPS_ASSIGN_H - -#include "opfuns.h" - -// Assignment functions - -DEFOP(S,d_copy,copy,run) -DEFOP(S,d_ccopy,copy,cun) - -DEFOP(S,d_set,set,rbin) -DEFOP(S,d_cset,set,cbin) - - -namespace VaspOp { - inline Vasp *m_set(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_set); } // copy to (one vec or real) - inline Vasp *m_cset(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_cset); } // complex copy (pairs of vecs or complex) - - Vasp *m_copy(OpParam &p,CVasp &src,CVasp &dst); - Vasp *m_ccopy(OpParam &p,CVasp &src,CVasp &dst); -} - -#endif diff --git a/externals/grill/vasp/source/ops_carith.cpp b/externals/grill/vasp/source/ops_carith.cpp deleted file mode 100644 index 5a964cca..00000000 --- a/externals/grill/vasp/source/ops_carith.cpp +++ /dev/null @@ -1,82 +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. - -*/ - -#include "main.h" -#include "ops_carith.h" -#include "ops_assign.h" -#include "opdefs.h" -#include "util.h" -#include <math.h> - - -VASP_BINARY("vasp.c+",cadd,true,VASP_ARG_R(0),"adds a complex value or vasp") -VASP_BINARY("vasp.c-",csub,true,VASP_ARG_R(0),"subtracts a complex value or vasp") -VASP_BINARY("vasp.c!-",csubr,true,VASP_ARG_R(0),"reverse subtracts a complex value or vasp") -VASP_BINARY("vasp.c*",cmul,true,VASP_ARG_R(1),"multiplies by a complex value or vasp") -VASP_BINARY("vasp.c/",cdiv,true,VASP_ARG_R(1),"divides by a complex value or vasp") -VASP_BINARY("vasp.c!/",cdivr,true,VASP_ARG_R(1),"reverse divides by a complex value or vasp") - - -// ----------------------------------------------------- - - -VASP_UNARY("vasp.csqr",csqr,true,"complex square") - -// ----------------------------------------------------- - -Vasp *VaspOp::m_cpowi(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - I powi = 1; - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeInt(arg.GetList()[0])) - powi = flext::GetAInt(arg.GetList()[0]); - else - post("%s - power arg is invalid -> set to 1",p.opname); - - if(powi < 0) { - post("%s - negative integer power is not allowed",p.opname); - } - else { - switch(powi) { - case 0: { - p.cbin.rarg = 1,p.cbin.iarg = 0; - ret = DoOp(vecs,VecOp::d_cset,p); - break; - } - case 1: { - // set arg to src - ret = DoOp(vecs,VecOp::d_ccopy,p); - break; - } - case 2: { - ret = DoOp(vecs,VecOp::d_csqr,p); - break; - } - default: { - p.ibin.arg = powi; - ret = DoOp(vecs,VecOp::d_cpowi,p); - break; - } - } - } - - delete vecs; - } - return ret; -} - -VASP_ANYOP("vasp.cpowi",cpowi,0,true,VASP_ARG_I(1),"complex integer power") - -// ----------------------------------------------------- - -VASP_UNARY("vasp.cabs",cabs,true,"set real part to complex absolute value, imaginary part becomes zero") - diff --git a/externals/grill/vasp/source/ops_carith.h b/externals/grill/vasp/source/ops_carith.h deleted file mode 100644 index 04514a10..00000000 --- a/externals/grill/vasp/source/ops_carith.h +++ /dev/null @@ -1,48 +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. - -*/ - -#ifndef __VASP_OPS_CARITH_H -#define __VASP_OPS_CARITH_H - -#include "opfuns.h" - -// Arithmetic math functions - -DEFOP(S,d_cadd,add,cbin) -DEFOP(S,d_csub,sub,cbin) -DEFOP(S,d_csubr,subr,cbin) -DEFOP(S,d_cmul,mul,cbin) -DEFOP(S,d_cdiv,div,cbin) -DEFOP(S,d_cdivr,divr,cbin) - -DEFOP(S,d_csqr,sqr,cun) - -DEFOP(S,d_cpowi,powi,cop) - -DEFOP(S,d_cabs,abs,cun) - - -namespace VaspOp { - inline Vasp *m_cadd(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_cadd); } // complex add (pairs of vecs or complex) - inline Vasp *m_csub(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_csub); } // complex sub (pairs of vecs or complex) - inline Vasp *m_csubr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_csubr); } // reverse complex sub (pairs of vecs or complex) - inline Vasp *m_cmul(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_cmul); } // complex mul (pairs of vecs or complex) - inline Vasp *m_cdiv(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_cdiv); } // complex div (pairs of vecs or complex) - inline Vasp *m_cdivr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_cdivr); } // complex reverse div (pairs of vecs or complex) - - inline Vasp *m_csqr(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_csqr); } // complex square (with each two channels) -// inline Vasp *m_csqrt(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_csqrt); } // complex square root (how about branches?) - - Vasp *m_cpowi(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL); // complex integer power (with each two channels) - - inline Vasp *m_cabs(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_cabs); } // absolute values -} - -#endif diff --git a/externals/grill/vasp/source/ops_cmp.cpp b/externals/grill/vasp/source/ops_cmp.cpp deleted file mode 100644 index 34b7a98a..00000000 --- a/externals/grill/vasp/source/ops_cmp.cpp +++ /dev/null @@ -1,49 +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. - -*/ - -#include "main.h" -#include "ops_cmp.h" -#include "opdefs.h" -#include "util.h" -#include <math.h> - -// -------------------------------------------------------------- - -VASP_BINARY("vasp.<",lwr,true,VASP_ARG_R(0),"set destination to 1 if source < argument, 0 otherwise") -VASP_BINARY("vasp.>",gtr,true,VASP_ARG_R(0),"set destination to 1 if source > argument, 0 otherwise") -VASP_BINARY("vasp.a<",alwr,true,VASP_ARG_R(0),"set destination to 1 if abs(source) < abs(argument), 0 otherwise") -VASP_BINARY("vasp.a>",agtr,true,VASP_ARG_R(0),"set destination to 1 if abs(source) > abs(argument), 0 otherwise") -VASP_BINARY("vasp.<=",leq,true,VASP_ARG_R(0),"set destination to 1 if source <= argument, 0 otherwise") -VASP_BINARY("vasp.>=",geq,true,VASP_ARG_R(0),"set destination to 1 if source >= argument, 0 otherwise") -VASP_BINARY("vasp.a<=",aleq,true,VASP_ARG_R(0),"set destination to 1 if abs(source) <= abs(argument), 0 otherwise") -VASP_BINARY("vasp.a>=",ageq,true,VASP_ARG_R(0),"set destination to 1 if abs(source) >= abs(argument), 0 otherwise") -VASP_BINARY("vasp.==",equ,true,VASP_ARG_R(0),"set destination to 1 if source == argument, 0 otherwise") -VASP_BINARY("vasp.!=",neq,true,VASP_ARG_R(0),"set destination to 1 if source != argument, 0 otherwise") - - -// -------------------------------------------------------------- - -VASP_BINARY("vasp.min",min,true,VASP_ARG_R(0),"assigns the minimum of the comparison with a value or vasp") -VASP_BINARY("vasp.max",max,true,VASP_ARG_R(0),"assigns the maximum of the comparison with a value or vasp") - -VASP_BINARY("vasp.rmin",rmin,true,VASP_ARG_R(0),"assigns the minimum of the radius comparison with a complex value or vasp") -VASP_BINARY("vasp.rmax",rmax,true,VASP_ARG_R(0),"assigns the maximum of the radius comparison with a complex value or vasp") - - -// -------------------------------------------------------------- - -VASP_UNARY("vasp.minmax",minmax,true,"compare two vectors, assign the lower values to the first and the higher to the second one") - - - - - - - diff --git a/externals/grill/vasp/source/ops_cmp.h b/externals/grill/vasp/source/ops_cmp.h deleted file mode 100644 index ae445b94..00000000 --- a/externals/grill/vasp/source/ops_cmp.h +++ /dev/null @@ -1,83 +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. - -*/ - -#ifndef __VASP_OPS_CMP_H -#define __VASP_OPS_CMP_H - -#include "opfuns.h" - -// Comparison functions - -DEFOP(S,d_lwr,lwr,rbin) -DEFOP(S,d_gtr,gtr,rbin) -DEFOP(S,d_alwr,alwr,rbin) -DEFOP(S,d_agtr,agtr,rbin) -DEFOP(S,d_leq,leq,rbin) -DEFOP(S,d_geq,geq,rbin) -DEFOP(S,d_aleq,aleq,rbin) -DEFOP(S,d_ageq,ageq,rbin) -DEFOP(S,d_equ,equ,rbin) -DEFOP(S,d_neq,neq,rbin) - -DEFOP(S,d_min,min,rbin) -DEFOP(S,d_max,max,rbin) -DEFOP(S,d_rmin,min,cbin) -DEFOP(S,d_rmax,max,cbin) - -DEFOP(S,d_minmax,minmax,cun) - -DEFOP(S,d_minq,minq,rop) -DEFOP(S,d_maxq,maxq,rop) -DEFOP(S,d_rminq,minq,cop) -DEFOP(S,d_rmaxq,maxq,cop) -DEFOP(S,d_aminq,aminq,rop) -DEFOP(S,d_amaxq,amaxq,rop) - -DEFOP(S,d_gate,gate,rbin) -DEFOP(S,d_igate,igate,rbin) -DEFOP(S,d_rgate,gate,cbin) -DEFOP(S,d_rigate,igate,cbin) - - -namespace VaspOp { - inline Vasp *m_lwr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_lwr); } // lower than - inline Vasp *m_gtr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_gtr); } // greater than - inline Vasp *m_alwr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_alwr); } // abs lower than - inline Vasp *m_agtr(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_agtr); } // abs greater than - inline Vasp *m_leq(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_leq); } // abs lower than - inline Vasp *m_geq(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_geq); } // abs greater than - inline Vasp *m_aleq(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_aleq); } // lower than - inline Vasp *m_ageq(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_ageq); } // greater than - inline Vasp *m_equ(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_equ); } // lower than - inline Vasp *m_neq(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_neq); } // greater than - - inline Vasp *m_min(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_min); } // min (one vec or real) - inline Vasp *m_max(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_max); } // max (one vec or real) - - inline Vasp *m_rmin(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_rmin); } // complex (radius) min (pairs of vecs or complex) - inline Vasp *m_rmax(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_cbin(p,src,arg,dst,VecOp::d_rmax); } // complex (radius) max (pairs of vecs or complex) - - inline Vasp *m_minmax(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_minmax); } // min/max - - inline Vasp *m_qmin(OpParam &p,CVasp &src) { return m_run(p,src,NULL,VecOp::d_minq); } // get minimum sample value - inline Vasp *m_qmax(OpParam &p,CVasp &src) { return m_run(p,src,NULL,VecOp::d_maxq); } // get maximum sample value - inline Vasp *m_qamin(OpParam &p,CVasp &src) { return m_run(p,src,NULL,VecOp::d_aminq); } // get minimum sample value - inline Vasp *m_qamax(OpParam &p,CVasp &src) { return m_run(p,src,NULL,VecOp::d_amaxq); } // get maximum sample value - - inline Vasp *m_qrmin(OpParam &p,CVasp &src) { return m_cun(p,src,NULL,VecOp::d_rminq); } // get minimum sample value - inline Vasp *m_qrmax(OpParam &p,CVasp &src) { return m_cun(p,src,NULL,VecOp::d_rmaxq); } // get maximum sample value - - Vasp *m_gate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL); // gate - Vasp *m_igate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL); // inverse gate - Vasp *m_rgate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL); // radius gate - Vasp *m_rigate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL); // inverse radius gate -} - -#endif diff --git a/externals/grill/vasp/source/ops_cplx.cpp b/externals/grill/vasp/source/ops_cplx.cpp deleted file mode 100644 index 275f6f2d..00000000 --- a/externals/grill/vasp/source/ops_cplx.cpp +++ /dev/null @@ -1,56 +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. - -*/ - -#include "main.h" -#include "ops_cplx.h" -#include "opdefs.h" -#include "util.h" -#include <math.h> - -// ----------------------------------------------------- - -VASP_UNARY("vasp.polar",polar,true,"convert complex vector pair from rectangular to polar coordinates") -VASP_UNARY("vasp.rect",rect,true,"convert complex vector pair from polar to rectangular coordinates") - - -// ----------------------------------------------------- - - -Vasp *VaspOp::m_radd(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeFloat(arg.GetList()[0])) - p.cbin.rarg = flext::GetAFloat(arg.GetList()[0]); - else { - post("%s - argument is invalid -> set to 0",p.opname); - p.cbin.rarg = 0; - } - p.cbin.iarg = 0; // not used anyway - - ret = DoOp(vecs,VecOp::d_radd,p); - delete vecs; - } - return ret; -} - - -VASP_ANYOP("vasp.r+",radd,0,true,VASP_ARG_R(0),"add offset to complex radius (of complex vector pair)") - - -// ----------------------------------------------------- - -VASP_UNARY("vasp.cnorm",cnorm,true,"normalize complex radius to 1 (but preserve angle)") - -// ----------------------------------------------------- - -//VASP_UNARY("vasp.cconj",cconj,true,"complex conjugate: multiply imaginary part with -1") // should be replaced by an abstraction - diff --git a/externals/grill/vasp/source/ops_cplx.h b/externals/grill/vasp/source/ops_cplx.h deleted file mode 100644 index 9ca9d74e..00000000 --- a/externals/grill/vasp/source/ops_cplx.h +++ /dev/null @@ -1,40 +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. - -*/ - -#ifndef __VASP_OPS_CPLX_H -#define __VASP_OPS_CPLX_H - -#include "opfuns.h" - -// Complex functions - -DEFOP(S,d_polar,polar,cun) -DEFOP(S,d_rect,rect,cun) - -DEFOP(S,d_radd,radd,cbin) - -DEFOP(S,d_cnorm,norm,cun) - -//DEFOP(S,d_cconj,conj,cun) - - -namespace VaspOp { - inline Vasp *m_polar(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_polar); } // cartesian -> polar (each two) - inline Vasp *m_rect(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_rect); } // polar -> cartesian (each two) - - Vasp *m_radd(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL); // radius offset - - inline Vasp *m_cnorm(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_cnorm); } // complex normalize - -// inline Vasp *m_cswap(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_cswap); } // swap real and imaginary parts -// inline Vasp *m_cconj(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_cconj); } // complex conjugate -} - -#endif diff --git a/externals/grill/vasp/source/ops_dft.cpp b/externals/grill/vasp/source/ops_dft.cpp deleted file mode 100644 index fd00d921..00000000 --- a/externals/grill/vasp/source/ops_dft.cpp +++ /dev/null @@ -1,652 +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 ops_dft.cpp - \brief Implementation of DFT routines - - \todo align temporary memory allocations - - All DFTs are normalized by 1/sqrt(n), hence the complex ones are repeatable - - - complex FFT radix-2: in-place - - real FFT radix-2 (split-radix): in-place - - complex DFT radix-n (split-radix): out-of-place - - real DFT radix-n: out-of-place / based on complex DFT radix-n (inefficient) - - In-place transformation is only possible for stride=1 -*/ - -#include "main.h" -#include "ops_dft.h" -#include <math.h> -#include <string.h> - -/////////////////////////////////////////////////////////////// - -BL mixfft(I n,F *xRe,F *xIm,F *yRe,F *yIm); - -#ifdef FLEXT_THREADS -static flext::ThrMutex mixmtx; -#endif - -//! Real forward DFT radix-n (managing routine) -static BL fft_fwd_real_any(I cnt,F *rsdt,I _rss,F *rddt,I _rds) -{ - if(!rddt) rddt = rsdt,_rds = _rss; - -#ifdef VASP_CHN1 - const I rds = 1,rss = 1; -#else - const I rds = _rds,rss = _rss; -#endif - - const BL rst = rss != 1; - const BL rdt = rsdt == rddt || rds != 1; - - F *rstmp,*istmp; - register I i; - - if(rst) { - rstmp = new F[cnt]; - // happens only if rss != 1, no optimization necessary - for(i = 0; i < cnt; ++i) rstmp[i] = rsdt[i*rss]; - } - else - rstmp = rsdt; - - istmp = new F[cnt]; - flext::ZeroMem(istmp,cnt*sizeof(*istmp)); - - F *rdtmp = rdt?new F[cnt]:rddt; - F *idtmp = new F[cnt]; - - BL ret; - { - // mixfft is not thread-safe -#ifdef FLEXT_THREADS - mixmtx.Lock(); -#endif - ret = mixfft(cnt,rstmp,istmp,rdtmp,idtmp); -#ifdef FLEXT_THREADS - mixmtx.Unlock(); -#endif - } - if(ret) { - const F nrm = 1./sqrt((F)cnt); - const I n2 = cnt/2; - -#ifndef VASP_COMPACT - if(rds == 1) { - for(i = 0; i <= n2; ++i) rddt[i] = rdtmp[i]*nrm; - for(i = 1; i < cnt-n2; ++i) rddt[i+n2] = idtmp[i]*nrm; - } - else -#endif - { - for(i = 0; i <= n2; ++i) rddt[i*rds] = rdtmp[i]*nrm; - for(i = 1; i < cnt-n2; ++i) rddt[(i+n2)*rds] = idtmp[i]*nrm; - } - } - - if(rst) delete[] rstmp; - delete[] istmp; - if(rdt) delete[] rdtmp; - delete[] idtmp; - - return ret; -} - - -//! Real inverse DFT radix-n (managing routine) -static BL fft_inv_real_any(I cnt,F *rsdt,I _rss,F *rddt,I _rds) -{ - if(!rddt) rddt = rsdt,_rds = _rss; - -#ifdef VASP_CHN1 - const I rds = 1,rss = 1; -#else - const I rds = _rds,rss = _rss; -#endif - - const BL rst = rss != 1; - const BL rdt = rsdt == rddt || rds != 1; - - const I n2 = cnt/2; - F *rstmp,*istmp; - istmp = new F[cnt]; - register I i; - - if(rst) { - rstmp = new F[cnt]; - // happens only if rss != 1, no optimization necessary - for(i = 0; i <= n2; ++i) rstmp[i] = rsdt[i*rss]; - for(i = 1; i < cnt-n2; ++i) istmp[cnt-i] = rsdt[(n2+i)*rss]; - } - else { - rstmp = rsdt; - for(i = 1; i < cnt-n2; ++i) istmp[cnt-i] = rsdt[n2+i]; - } - - // make symmetric parts - for(i = 1; i < cnt-n2; ++i) { - istmp[i] = -istmp[cnt-i]; - rstmp[cnt-i] = rstmp[i]; - } - istmp[0] = 0; - if(cnt%2 == 0) istmp[n2] = 0; - - - F *rdtmp = rdt?new F[cnt]:rddt; - F *idtmp = new F[cnt]; - - BL ret; - { -#ifdef FLEXT_THREADS - mixmtx.Lock(); -#endif - // mixfft is not thread-safe - ret = mixfft(cnt,rstmp,istmp,rdtmp,idtmp); -#ifdef FLEXT_THREADS - mixmtx.Unlock(); -#endif - } - if(ret) { - const F nrm = 1./sqrt((F)cnt); -#ifndef VASP_COMPACT - if(rds == 1) - for(i = 0; i < cnt; ++i) - rddt[i] = rdtmp[i]*nrm; - else -#endif - for(i = 0; i < cnt; ++i) - rddt[i*rds] = rdtmp[i]*nrm; - } - - if(rst) delete[] rstmp; - delete[] istmp; - if(rdt) delete[] rdtmp; - delete[] idtmp; - - return ret; -} - -/////////////////////////////////////////////////////////////// - -//! Complex forward DFT radix-n (managing routine) -static BL fft_fwd_complex_any(I cnt,F *rsdt,I _rss,F *isdt,I _iss,F *rddt,I _rds,F *iddt,I _ids) -{ - if(!rddt) rddt = rsdt,_rds = _rss; - if(!iddt) iddt = isdt,_ids = _iss; - -#ifdef VASP_CHN1 - const I rds = 1,ids = 1,rss = 1,iss = 1; -#else - const I rds = _rds,ids = _ids,rss = _rss,iss = _iss; -#endif - - const BL rst = rss != 1; - const BL ist = iss != 1; - const BL rdt = rsdt == rddt || rds != 1; - const BL idt = isdt == iddt || ids != 1; - - F *rstmp,*istmp; - register I i; - - if(rst) { - rstmp = new F[cnt]; - // happens only if rss != 1, no optimization necessary - for(i = 0; i < cnt; ++i) rstmp[i] = rsdt[i*rss]; - } - else - rstmp = rsdt; - - if(ist) { - istmp = new F[cnt]; - // happens only if iss != 1, no optimization necessary - for(i = 0; i < cnt; ++i) istmp[i] = isdt[i*iss]; - } - else - istmp = isdt; - - F *rdtmp = rdt?new F[cnt]:rddt; - F *idtmp = idt?new F[cnt]:iddt; - - BL ret; - { -#ifdef FLEXT_THREADS - mixmtx.Lock(); -#endif - // mixfft is not thread-safe - ret = mixfft(cnt,rstmp,istmp,rdtmp,idtmp); -#ifdef FLEXT_THREADS - mixmtx.Unlock(); -#endif - } - if(ret) { - const F nrm = 1./sqrt((F)cnt); - -#ifdef VASP_COMPACT - for(i = 0; i < cnt; ++i) { - rddt[i*rds] = rdtmp[i]*nrm; - iddt[i*ids] = idtmp[i]*nrm; - } -#else - if(rdt) { - if(rds != 1) - for(i = 0; i < cnt; ++i) rddt[i*rds] = rdtmp[i]*nrm; - else - for(i = 0; i < cnt; ++i) rddt[i] = rdtmp[i]*nrm; - } - else // ok, this branch is not absolutely necessary - if(rds != 1) - for(i = 0; i < cnt; ++i) rddt[i*rds] *= nrm; - else - for(i = 0; i < cnt; ++i) rddt[i] *= nrm; - - if(idt) { - if(ids != 1) - for(i = 0; i < cnt; ++i) iddt[i*ids] = idtmp[i]*nrm; - else - for(i = 0; i < cnt; ++i) iddt[i] = idtmp[i]*nrm; - } - else // ok, this branch is not absolutely necessary - if(ids != 1) - for(i = 0; i < cnt; ++i) iddt[i*ids] *= nrm; - else - for(i = 0; i < cnt; ++i) iddt[i] *= nrm; -#endif - } - - if(rst) delete[] rstmp; - if(ist) delete[] istmp; - if(rdt) delete[] rdtmp; - if(idt) delete[] idtmp; - - return ret; -} - -//! Complex inverse DFT radix-n (managing routine) -static BL fft_inv_complex_any(I cnt,F *rsdt,I _rss,F *isdt,I _iss,F *rddt,I _rds,F *iddt,I _ids) -{ - I i; - - if(!rddt) rddt = rsdt,_rds = _rss; - if(!iddt) iddt = isdt,_ids = _iss; - -#ifdef VASP_CHN1 - const I rds = 1,ids = 1,rss = 1,iss = 1; -#else - const I rds = _rds,ids = _ids,rss = _rss,iss = _iss; -#endif - -#ifndef VASP_COMPACT - if(iss == 1) - for(i = 0; i < cnt; ++i) isdt[i] = -isdt[i]; - else -#endif - for(i = 0; i < cnt; ++i) isdt[i*iss] *= -1; - - BL ret = fft_fwd_complex_any(cnt,rsdt,rss,isdt,iss,rddt,rds,iddt,ids); - - if(ret) { -#ifndef VASP_COMPACT - if(ids == 1) - for(i = 0; i < cnt; ++i) iddt[i] = -iddt[i]; - else -#endif - for(i = 0; i < cnt; ++i) iddt[i*ids] *= -1; - } - - // reverse minus on input - if(isdt != iddt) { -#ifndef VASP_COMPACT - if(iss == 1) - for(i = 0; i < cnt; ++i) isdt[i] = -isdt[i]; - else -#endif - for(i = 0; i < cnt; ++i) isdt[i*iss] *= -1; - } - return ret; -} - -/////////////////////////////////////////////////////////////// - -bool fft_bidir_complex_radix2(int size,float *real,float *imag,int dir); - -//! Complex forward FFT radix-2 (managing routine) -static BL fft_complex_radix2(I cnt,F *rsdt,I _rss,F *isdt,I _iss,F *rddt,I _rds,F *iddt,I _ids,I dir) -{ - if(!rddt) rddt = rsdt,_rds = _rss; - if(!iddt) iddt = isdt,_ids = _iss; - -#ifdef VASP_CHN1 - const I rds = 1,ids = 1,rss = 1,iss = 1; -#else - const I rds = _rds,ids = _ids,rss = _rss,iss = _iss; -#endif - - BL rt = false,it = false; - F *rtmp,*itmp; - register I i; - - if(rss == 1) - rtmp = rsdt; - else { - if(rsdt == rddt || rds != 1) - rtmp = new F[cnt],rt = true; - else - rtmp = rddt; - for(i = 0; i < cnt; ++i) rtmp[i] = rsdt[i*rss]; - } - - if(iss == 1) - itmp = isdt; - else { - if(isdt == iddt || ids != 1) - itmp = new F[cnt],it = true; - else - itmp = iddt; - for(i = 0; i < cnt; ++i) itmp[i] = isdt[i*iss]; - } - - BL ret = fft_bidir_complex_radix2(cnt,rtmp,itmp,dir); - - if(ret) { - const F nrm = 1./sqrt((F)cnt); - -#ifndef VASP_COMPACT - if(rtmp == rddt) - for(i = 0; i < cnt; ++i) rddt[i] *= nrm; - else if(rds == 1) - for(i = 0; i < cnt; ++i) rddt[i] = rtmp[i]*nrm; - else -#endif - for(i = 0; i < cnt; ++i) rddt[i*rds] = rtmp[i]*nrm; - -#ifndef VASP_COMPACT - if(itmp == iddt) - for(i = 0; i < cnt; ++i) iddt[i] *= nrm; - else if(ids == 1) - for(i = 0; i < cnt; ++i) iddt[i] = itmp[i]*nrm; - else -#endif - for(i = 0; i < cnt; ++i) iddt[i*ids] = itmp[i]*nrm; - } - - if(rt) delete[] rtmp; - if(it) delete[] itmp; - - return ret; -} - -inline BL fft_fwd_complex_radix2(I cnt,F *rsdt,I _rss,F *isdt,I _iss,F *rddt,I _rds,F *iddt,I _ids) -{ - return fft_complex_radix2(cnt,rsdt,_rss,isdt,_iss,rddt,_rds,iddt,_ids,1); -} - -inline BL fft_inv_complex_radix2(I cnt,F *rsdt,I _rss,F *isdt,I _iss,F *rddt,I _rds,F *iddt,I _ids) -{ - return fft_complex_radix2(cnt,rsdt,_rss,isdt,_iss,rddt,_rds,iddt,_ids,-1); -} - -/////////////////////////////////////////////////////////////// - -void realfft_split(float *data,int n); -void irealfft_split(float *data,int n); - -// normalize and reverse imaginary part in-place -static void nrmirev(float *data,int n,float fn) -{ - int i; - const I n2 = n/2,n4 = n2/2; - for(i = 0; i <= n2; ++i) data[i] *= fn; - for(i = 1; i < n4; ++i) { - register F tmp = data[n2+i]; - data[n2+i] = data[n-i]*fn; - data[n-i] = tmp*fn; - } - if(n2%2 == 0) data[n2+n4] *= fn; -} - -//! Real forward FFT radix-2 (managing routine) -BL fft_fwd_real_radix2(I cnt,F *src,I _sstr,F *dst,I _dstr) -{ -#ifdef VASP_CHN1 - const I dstr = 1,sstr = 1; -#else - const I dstr = _dstr,sstr = _sstr; -#endif - - register I i; - const I n2 = cnt/2; - const F fn = (F)(1./sqrt((F)cnt)); - F *stmp; - if(!dst || src == dst) { - // in-place - - if(sstr == 1) - stmp = src; - else { - stmp = new F[cnt]; - for(i = 0; i < cnt; ++i) stmp[i] = src[i*sstr]; - } - - realfft_split(stmp,cnt); - - if(sstr == 1) { - // src == stmp !!! - nrmirev(stmp,cnt,fn); - } - else { - for(i = 0; i <= n2; ++i) src[i*sstr] = stmp[i]*fn; - for(i = 1; i < n2; ++i) src[(n2+i)*sstr] = stmp[cnt-i]*fn; - delete[] stmp; - } - } - else { - // out of place - - if(sstr == 1) - stmp = src; - else { - stmp = dstr == 1?dst:new F[cnt]; - for(i = 0; i < cnt; ++i) stmp[i] = src[i*sstr]; - } - - realfft_split(stmp,cnt); - - if(sstr == 1) { -#ifdef VASP_COMPACT - if(dstr == 1) { - for(i = 0; i <= n2; ++i) dst[i] = stmp[i]*fn; - for(i = 1; i < n2; ++i) dst[n2+i] = stmp[cnt-i]*fn; - } - else -#endif - { - for(i = 0; i <= n2; ++i) dst[i*dstr] = stmp[i]*fn; - for(i = 1; i < n2; ++i) dst[(n2+i)*dstr] = stmp[cnt-i]*fn; - } - } - else { - if(dstr == 1) { - // dst == stmp !!! - nrmirev(stmp,cnt,fn); - } - else { - for(i = 0; i <= n2; ++i) dst[i*dstr] = stmp[i]*fn; - for(i = 1; i < n2; ++i) dst[(n2+i)*dstr] = stmp[cnt-i]*fn; - delete[] dst; - } - } - } - - return true; -} - -//! Real inverse FFT radix-2 (managing routine) -BL fft_inv_real_radix2(I cnt,F *src,I _sstr,F *dst,I _dstr) -{ -#ifdef VASP_CHN1 - const I dstr = 1,sstr = 1; -#else - const I dstr = _dstr,sstr = _sstr; -#endif - - register I i; - const I n2 = cnt/2; - const F fn = (F)(1./sqrt((F)cnt)); - F *stmp; - if(!dst || src == dst) { - // in-place - - if(sstr == 1) { - stmp = src; - nrmirev(stmp,cnt,fn); - } - else { - stmp = new F[cnt]; - -#ifdef VASP_COMPACT - if(sstr == 1) { - for(i = 0; i <= n2; ++i) stmp[i] = src[i]*fn; - for(i = 1; i < n2; ++i) stmp[cnt-i] = src[n2+i]*fn; - } - else -#endif - { - for(i = 0; i <= n2; ++i) stmp[i] = src[i*sstr]*fn; - for(i = 1; i < n2; ++i) stmp[cnt-i] = src[(n2+i)*sstr]*fn; - } - } - - irealfft_split(stmp,cnt); - - if(sstr != 1) { - for(i = 0; i < cnt; ++i) src[i*sstr] = stmp[i]; - delete[] stmp; - } - } - else { - // out of place - - if(dstr == 1) { - stmp = dst; -#ifdef VASP_COMPACT - if(sstr == 1) { - for(i = 0; i <= n2; ++i) stmp[i] = src[i]*fn; - for(i = 1; i < n2; ++i) stmp[cnt-i] = src[n2+i]*fn; - } - else -#endif - { - for(i = 0; i <= n2; ++i) stmp[i] = src[i*sstr]*fn; - for(i = 1; i < n2; ++i) stmp[cnt-i] = src[(n2+i)*sstr]*fn; - } - } - else { - stmp = new F[cnt]; - if(sstr == 1) { - // dst == stmp !!! - nrmirev(stmp,cnt,fn); - } - else { - for(i = 0; i <= n2; ++i) stmp[i] = src[i*sstr]*fn; - for(i = 1; i < n2; ++i) stmp[cnt-i] = src[(n2+i)*sstr]*fn; - } - } - - irealfft_split(stmp,cnt); - - if(dstr != 1) { - for(i = 0; i < cnt; ++i) dst[i*dstr] = stmp[i]; - delete[] stmp; - } - } - - return true; -} - -/////////////////////////////////////////////////////////////// - -//! Determine if size is radix-2 -static I radix2(I size) -{ - I i,j; - for(i = j = 1; j < size; i++,j <<= 1) (void)0; - return j == size?i:-1; -} - -Vasp *VaspOp::m_rfft(OpParam &p,CVasp &src,CVasp *dst,BL inv) -{ - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - BL ok = true; - for(I i = 0; ok && i < vecs->Vecs(); ++i) { - VBuffer *s = vecs->Src(i); - VBuffer *d = vecs->Dst(i); - if(!d) d = s; - - if(vecs->Frames() > 1) - if(radix2(vecs->Frames()) >= 1) - // radix-2 - if(inv) - ok = fft_inv_real_radix2(vecs->Frames(),s->Pointer(),s->Channels(),d->Pointer(),d->Channels()); - else - ok = fft_fwd_real_radix2(vecs->Frames(),s->Pointer(),s->Channels(),d->Pointer(),d->Channels()); - else - // radix-n - if(inv) - ok = fft_inv_real_any(vecs->Frames(),s->Pointer(),s->Channels(),d->Pointer(),d->Channels()); - else - ok = fft_fwd_real_any(vecs->Frames(),s->Pointer(),s->Channels(),d->Pointer(),d->Channels()); - } - return ok?vecs->ResVasp():NULL; - } - else - return NULL; -} - -Vasp *VaspOp::m_cfft(OpParam &p,CVasp &src,CVasp *dst,BL inv) -{ - CVecBlock *vecs = GetCVecs(p.opname,src,dst,true); - if(vecs) { - BL ok = true; - for(I i = 0; ok && i < vecs->Pairs(); ++i) { - VBuffer *sre = vecs->ReSrc(i),*sim = vecs->ImSrc(i); - VBuffer *dre = vecs->ReDst(i),*dim = vecs->ImDst(i); - if(!dre) dre = sre; - if(!dim) dim = sim; - - if(vecs->Frames() > 1) - if(radix2(vecs->Frames()) >= 1) - // radix-2 - if(inv) - ok = fft_inv_complex_radix2(vecs->Frames(),sre->Pointer(),sre->Channels(),sim?sim->Pointer():NULL,sim?sim->Channels():0,dre->Pointer(),dre->Channels(),dim->Pointer(),dim->Channels()); - else - ok = fft_fwd_complex_radix2(vecs->Frames(),sre->Pointer(),sre->Channels(),sim?sim->Pointer():NULL,sim?sim->Channels():0,dre->Pointer(),dre->Channels(),dim->Pointer(),dim->Channels()); - else - // radix-n - if(inv) - ok = fft_inv_complex_any(vecs->Frames(),sre->Pointer(),sre->Channels(),sim?sim->Pointer():NULL,sim?sim->Channels():0,dre->Pointer(),dre->Channels(),dim->Pointer(),dim->Channels()); - else - ok = fft_fwd_complex_any(vecs->Frames(),sre->Pointer(),sre->Channels(),sim?sim->Pointer():NULL,sim?sim->Channels():0,dre->Pointer(),dre->Channels(),dim->Pointer(),dim->Channels()); - } - return ok?vecs->ResVasp():NULL; - } - else - return NULL; -} - -VASP_UNARY("vasp.rfft",rfft,true,"Real DFT") -VASP_UNARY("vasp.r!fft",rifft,true,"Real inverse DFT") -VASP_UNARY("vasp.cfft",cfft,true,"Complex DFT") -VASP_UNARY("vasp.c!fft",cifft,true,"Complex inverse DFT") - diff --git a/externals/grill/vasp/source/ops_dft.h b/externals/grill/vasp/source/ops_dft.h deleted file mode 100644 index 24b9a23d..00000000 --- a/externals/grill/vasp/source/ops_dft.h +++ /dev/null @@ -1,25 +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. - -*/ - -#ifndef __VASP_OPS_DFT_H -#define __VASP_OPS_DFT_H - -#include "opbase.h" - -// Fourier transforms - -namespace VaspOp { - Vasp *m_rfft(OpParam &p,CVasp &src,CVasp *dst = NULL,BL inv = false); // real forward - inline Vasp *m_rifft(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_rfft(p,src,dst,true); } // real inverse - Vasp *m_cfft(OpParam &p,CVasp &src,CVasp *dst = NULL,BL inv = false); // complex forward - inline Vasp *m_cifft(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cfft(p,src,dst,true); } // complex inverse -} - -#endif diff --git a/externals/grill/vasp/source/ops_feature.cpp b/externals/grill/vasp/source/ops_feature.cpp deleted file mode 100644 index 89e3a156..00000000 --- a/externals/grill/vasp/source/ops_feature.cpp +++ /dev/null @@ -1,226 +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. - -*/ - -#include "main.h" -#include "ops_feature.h" -#include "oploop.h" -#include "util.h" -#include <math.h> - -// --- find peaks - -BL higher(S a,S b) { return a > b; } -BL lower(S a,S b) { return a < b; } - -/*! \brief Find peaks or valleys (depending on cmp function) - \param rep repetition count - - \remark real peak search is mangled into complex domain - - \todo how to treat <=, >= - \todo separate real and complex functionality -*/ - -static BL d_vlpk(OpParam &p,BL cmpf(S a,S b)) -{ - I dpeaks = (I)(p.frames*p.peaks.density); - if(dpeaks < 1) dpeaks = 1; - - I cnt; - do { - cnt = 0; - - I i; - S *rdst = p.rddt,*rsrc = p.rsdt; - S *idst = p.iddt,*isrc = p.isdt; - - if(!p.peaks.cx || !idst) idst = rdst,p.ids = p.rds; - if(!p.peaks.cx || !isrc) isrc = rsrc,p.iss = p.rss; - - // preset sample values - S d1 = -1,d0 = -1,dn = -1; - - // search first non-null sample - _D_LOOP(i,p.frames) - if((dn = sqabs(rsrc[i*p.rss],isrc[i*p.iss])) != 0) - break; // non-null -> break! - else - rdst[i*p.rds] = idst[i*p.ids] = 0; // copy null samples to dst - _E_LOOP - - // i points to first non-null sample - - _D_WHILE(i < p.frames) - // current samples -> previous samples - d1 = d0,d0 = dn; - - // save current index - I ci = i; - - // search next non-null sample - dn = -1; - while(++i < p.frames) - if((dn = sqabs(rsrc[i*p.rss],isrc[i*p.iss])) != 0) { - break; // non-null -> break! - } - else - rdst[i*p.rds] = idst[i*p.ids] = 0; - - if((d1 < 0 || cmpf(d0,d1)) && (dn < 0 || cmpf(d0,dn))) { - // is peak/valley - rdst[ci*p.rds] = rsrc[ci*p.rss]; - idst[ci*p.ids] = isrc[ci*p.iss]; - ++cnt; - } - else - rdst[ci*p.rds] = idst[ci*p.ids] = 0; - _E_WHILE - } while(cnt > dpeaks); - - p.peaks.density = p.frames?(R)cnt/p.frames:(cnt?1:0); - return true; -} - -inline BL d_peaks(OpParam &p) { return d_vlpk(p,higher); } -inline BL d_valleys(OpParam &p) { return d_vlpk(p,lower); } -inline BL d_rpeaks(OpParam &p) { return d_vlpk(p,higher); } -inline BL d_rvalleys(OpParam &p) { return d_vlpk(p,lower); } - -/*! \brief Finds peaks or valleys in a vasp. - - \param arg argument list - \param arg.rep repetition count - \param dst destination vasp (NULL for in-place operation) - \param inv true for valley operation - \return normalized destination vasp -*/ -Vasp *VaspOp::m_peaks(OpParam &p,CVasp &src,CVasp *dst,BL inv) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - p.peaks.cx = false; - ret = DoOp(vecs,inv?d_valleys:d_peaks,p); - delete vecs; - } - return ret; -} - - - -/*! \brief Finds peaks or valleys by radius in a complex vasp. - - \param arg argument list - \param arg.rep repetition count - \param dst destination vasp (NULL for in-place operation) - \param inv true for valley operation - \return normalized destination vasp -*/ -Vasp *VaspOp::m_rpeaks(OpParam &p,CVasp &src,CVasp *dst,BL inv) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - p.peaks.cx = true; - ret = DoOp(vecs,inv?d_rvalleys:d_rpeaks,p); - delete vecs; - } - return ret; -} - - -class vasp_peaks: - public vasp_anyop -{ - FLEXT_HEADER(vasp_peaks,vasp_anyop) -public: - - vasp_peaks(I argc,const t_atom *argv): - vasp_anyop(argc,argv,VASP_ARG(),true,XletCode(xlet_float,0)) - {} - - virtual Vasp *do_peaks(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_peaks(p,cref,&cdst); - } - - virtual Vasp *tx_work(const Argument &arg) - { - OpParam p(thisName(),0); - - if(arg.IsList() && arg.GetList().Count() >= 1 && CanbeFloat(arg.GetList()[0])) { - p.peaks.density = GetAFloat(arg.GetList()[0]); - } - else { - if(!arg.IsNone()) post("%s - invalid density argument -> set to 1",p.opname); - p.peaks.density = 1; - } - - Vasp *ret = do_peaks(p); - ToOutFloat(1,p.peaks.density); - return ret; - } - - virtual V m_help() { post("%s - Get non-zero values only for peaks",thisName()); } -}; -VASP_LIB_V("vasp.peaks",vasp_peaks) - - -class vasp_valleys: - public vasp_peaks -{ - FLEXT_HEADER(vasp_valleys,vasp_peaks) -public: - vasp_valleys(I argc,const t_atom *argv): vasp_peaks(argc,argv) {} - virtual Vasp *do_peaks(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_valleys(p,cref,&cdst); - } - - virtual V m_help() { post("%s - Get non-zero values only for values",thisName()); } -}; -VASP_LIB_V("vasp.valleys",vasp_valleys) - - -class vasp_rpeaks: - public vasp_peaks -{ - FLEXT_HEADER(vasp_rpeaks,vasp_peaks) -public: - vasp_rpeaks(I argc,const t_atom *argv): vasp_peaks(argc,argv) {} - virtual Vasp *do_peaks(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_rpeaks(p,cref,&cdst); - } - - virtual V m_help() { post("%s - Get non-zero values only for peaks of the complex radius",thisName()); } -}; -VASP_LIB_V("vasp.rpeaks",vasp_rpeaks) - - -class vasp_rvalleys: - public vasp_peaks -{ - FLEXT_HEADER(vasp_rvalleys,vasp_peaks) -public: - vasp_rvalleys(I argc,const t_atom *argv): vasp_peaks(argc,argv) {} - virtual Vasp *do_peaks(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_rvalleys(p,cref,&cdst); - } - - virtual V m_help() { post("%s - Get non-zero values only for valleys of the complex radius",thisName()); } -}; -VASP_LIB_V("vasp.rvalleys",vasp_rvalleys) - diff --git a/externals/grill/vasp/source/ops_feature.h b/externals/grill/vasp/source/ops_feature.h deleted file mode 100644 index 95293bad..00000000 --- a/externals/grill/vasp/source/ops_feature.h +++ /dev/null @@ -1,29 +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. - -*/ - -#ifndef __VASP_OPS_FEATURE_H -#define __VASP_OPS_FEATURE_H - -#include "opbase.h" - -// Feature extraction functions - -namespace VecOp { -} - -namespace VaspOp { - // extrema functions - Vasp *m_peaks(OpParam &p,CVasp &src,CVasp *dst = NULL,BL inv = false); //! find peaks - inline Vasp *m_valleys(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_peaks(p,src,dst,true); } //! find valleys - Vasp *m_rpeaks(OpParam &p,CVasp &src,CVasp *dst = NULL,BL inv = false); //! find radius peaks - inline Vasp *m_rvalleys(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_rpeaks(p,src,dst,true); } //! find radius valleys -} - -#endif diff --git a/externals/grill/vasp/source/ops_flt.cpp b/externals/grill/vasp/source/ops_flt.cpp deleted file mode 100644 index deecc5ff..00000000 --- a/externals/grill/vasp/source/ops_flt.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. - -*/ - -#include "main.h" -#include "ops_flt.h" -#include "opdefs.h" -#include "util.h" - -// --- highpass --------------------------------------- - -//! \todo handle carry -//! \todo handle yield - -BL VecOp::d_fhp(OpParam &p) -{ - if(p.revdir) - post("%s - reversing operation direction due to overlap: opposite sample delay",p.opname); - -/* - R coef = (2*PI)/perln; - if(coef > 1) coef = 1; -*/ - const R coef = 1-p.flt.coef; - const I arep = abs(p.flt.rep); - S *src = p.rsdt,*dst = p.rddt; - - for(I ti = 0; ti < arep; ++ti) { - register S v1; - I i; - - // t+ direction - for(i = 0,v1 = 0; i < p.frames; ++i) { - register const S v0 = *src + coef*v1; - *dst = v0-v1; - v1 = v0; - src += p.rss,dst += p.rds; - } - - if(p.flt.rep < 0) { - if(++ti == arep) break; - - // t- direction - for(i = p.frames-1,v1 = 0; i >= 0; --i) { - src -= p.rss,dst -= p.rds; - register const S v0 = *src + coef*v1; - *dst = v0-v1; - v1 = v0; - } - } - } - - return true; -} - - -// --- lowpass --------------------------------------- - -//! \todo handle carry -//! \todo handle yield - -BL VecOp::d_flp(OpParam &p) -{ - if(p.revdir) - post("%s - reversing operation direction due to overlap: opposite sample delay",p.opname); - -/* - R coef = (2*PI)/perln; - if(coef > 1) coef = 1; -*/ - - const R coef = p.flt.coef,feed = 1-coef; - const I arep = abs(p.flt.rep); - - for(I ti = 0; ti < arep; ++ti) { - register S v1; - I i; - S *src = p.rsdt,*dst = p.rddt; - - // t+ direction - for(i = 0,v1 = 0; i < p.frames; ++i) { - v1 = *dst = coef* *src + feed*v1; - src += p.rss,dst += p.rds; - } - - if(p.flt.rep < 0) { - if(++ti == arep) break; - - // t- direction - for(i = p.frames-1,v1 = 0; i >= 0; --i) { - src -= p.rss,dst -= p.rds; - v1 = *dst = coef* *src + feed*v1; - } - } - } - - return true; -} - - - -Vasp *VaspOp::m_fhp(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL hp) -{ - Vasp *ret = NULL; - if(arg.IsList() && arg.GetList().Count() >= 1) { - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - p.flt.coef = 2*PI/flext::GetAFloat(arg.GetList()[0]); - if(p.flt.coef > 1) p.flt.coef = 1; - p.flt.rep = arg.GetList().Count() >= 2?flext::GetAInt(arg.GetList()[1]):1; - p.flt.rep = -p.flt.rep; // fwd/bwd operation -/* - if(p.SROvr()) { - p.SDRRev(); - post("%s - reversing operation direction due to overlap: opposite sample delay",opnm); - } -*/ - ret = DoOp(vecs,hp?VecOp::d_fhp:VecOp::d_flp,p); - - delete vecs; - } - } - - return ret; -} - -VASP_ANYOP("vasp.flp",flp,1,true,VASP_ARG(),"Passive low pass filter") -VASP_ANYOP("vasp.fhp",fhp,1,true,VASP_ARG(),"Passive high pass filter") - - -// --- integrate/differentiate - -/*! \brief Integration - \remark The delay of the result is +/- one sample, depending on the direction of the calculation - - \todo different modes how to initialize first carry? - \todo repetition count -*/ -BL VecOp::d_int(OpParam &p) -{ - if(p.revdir) - post("%s - reversed operation direction due to overlap: opposite sample delay",p.opname); - - register S d = p.intdif.carry; - register I i; - _DE_LOOP(i,p.frames, ( *p.rddt = (d += *p.rsdt), p.rsdt += p.rss,p.rddt += p.rds ) ) - p.intdif.carry = d; - return true; -} - -/*! \brief Differentiation - \remark The delay of the result is +/- one sample, depending on the direction of the calculation - - \todo different modes how to initialize first carry? - \todo repetition count -*/ -BL VecOp::d_dif(OpParam &p) -{ - if(p.revdir) - post("%s - reversed operation direction due to overlap: opposite sample delay",p.opname); - - register S d = p.intdif.carry,d1; - register I i; - _DE_LOOP(i,p.frames, ( d1 = *p.rsdt, *p.rddt = d1-d,d = d1, p.rsdt += p.rss,p.rddt += p.rds ) ) - p.intdif.carry = d; - return true; -} - -/*! \brief Does vasp integration/differentiation. - - \param arg argument list - \param dst destination vasp (NULL for in-place operation) - \param inv true for differentiation - \return normalized destination vasp -*/ -Vasp *VaspOp::m_int(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL inv) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - p.intdif.carry = 0,p.intdif.rep = 1; - if(arg.IsList() && arg.GetList().Count() >= 1) p.intdif.rep = flext::GetAInt(arg.GetList()[0]); - - if(p.intdif.rep < 0) { - post("%s - invalid repetition count (%i) -> set to 1",p.opname,p.intdif.rep); - p.intdif.rep = 1; - } - - ret = DoOp(vecs,inv?VecOp::d_dif:VecOp::d_int,p); - delete vecs; - } - return ret; -} - -VASP_ANYOP("vasp.int",int,0,true,VASP_ARG_I(1),"Integration") -VASP_ANYOP("vasp.dif",dif,0,true,VASP_ARG_I(1),"Differentiation") - - -VASP_UNARY("vasp.fix",fix,true,"Bashes denormals/NANs to zero") diff --git a/externals/grill/vasp/source/ops_flt.h b/externals/grill/vasp/source/ops_flt.h deleted file mode 100644 index debb4039..00000000 --- a/externals/grill/vasp/source/ops_flt.h +++ /dev/null @@ -1,41 +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. - -*/ - -#ifndef __VASP_OPS_FLT_H -#define __VASP_OPS_FLT_H - -#include "opfuns.h" - -// Filtering functions - -namespace VecOp { - BL d_flp(OpParam &p); - BL d_fhp(OpParam &p); - - BL d_int(OpParam &p); - BL d_dif(OpParam &p); -} - -DEFOP(S,d_fix,fix,run) - -namespace VaspOp { - // passive filters - Vasp *m_fhp(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL,BL hp = true); //! hi pass - inline Vasp *m_flp(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_fhp(p,src,arg,dst,false); } //! lo pass - - // int/dif functions - Vasp *m_int(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL,BL inv = false); //! integrate - inline Vasp *m_dif(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_int(p,src,arg,dst,true); } //! differentiate - - // fix denormals/NANs - inline Vasp *m_fix(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_fix); } // ! NAN/denormal filter -} - -#endif diff --git a/externals/grill/vasp/source/ops_gate.cpp b/externals/grill/vasp/source/ops_gate.cpp deleted file mode 100644 index 919ee07f..00000000 --- a/externals/grill/vasp/source/ops_gate.cpp +++ /dev/null @@ -1,63 +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. - -*/ - -#include "main.h" -#include "ops_cmp.h" -#include "opdefs.h" -#include "util.h" -#include <math.h> - -// -------------------------------------------------------------- - - -Vasp *VaspOp::m_gate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeFloat(arg.GetList()[0])) - p.rbin.arg = flext::GetAFloat(arg.GetList()[0]); - else { - post("%s - argument is invalid -> set to 1",p.opname); - p.rbin.arg = 1; - } - - ret = DoOp(vecs,VecOp::d_gate,p); - delete vecs; - } - return ret; -} - - -Vasp *VaspOp::m_rgate(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeFloat(arg.GetList()[0])) - p.cbin.rarg = flext::GetAFloat(arg.GetList()[0]); - else { - post("%s - argument is invalid -> set to 1",p.opname); - p.cbin.rarg = 1; - } - p.cbin.iarg = 0; // not used anyway - - ret = DoOp(vecs,VecOp::d_rgate,p); - delete vecs; - } - return ret; -} - -VASP_ANYOP("vasp.gate",gate,1,true,VASP_ARG_R(1),"set destination to 0 if source < argument") -VASP_ANYOP("vasp.rgate",rgate,1,true,VASP_ARG_R(1),"complex radius gate: set destination to 0 if rad(complex source) < rad(complex argument)") - - -// -------------------------------------------------------------- - diff --git a/externals/grill/vasp/source/ops_gen.cpp b/externals/grill/vasp/source/ops_gen.cpp deleted file mode 100644 index 73aaab5c..00000000 --- a/externals/grill/vasp/source/ops_gen.cpp +++ /dev/null @@ -1,266 +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. - -*/ - -#include "main.h" -#include "ops_gen.h" -#include "util.h" -#include <math.h> - -// --- osc --------------------------------------- - -/*! \brief Generator for real (cos) oscillations -*/ -BL VecOp::d_osc(OpParam &p) -{ - register R ph = p.gen.ph,phinc = p.gen.phinc; - if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - - for(I i = 0; i < p.frames; ++i,ph += phinc,p.rddt += p.rds) *p.rddt = cos(ph); - return true; -} - -/*! \brief multiplicative generator for real (cos) oscillations -*/ -BL VecOp::d_mosc(OpParam &p) -{ - register R ph = p.gen.ph,phinc = p.gen.phinc; - if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - - for(I i = 0; i < p.frames; ++i,ph += phinc,p.rsdt += p.rss,p.rddt += p.rds) - *p.rddt = *p.rsdt * cos(ph); - return true; -} - -/*! \brief Generator for real (cos) oscillations. - - \param arg argument list - \param arg.perlen Period length (in samples) - \param arg.stph Starting phase - \param mul true for multiplication to exisiting date - \return normalized destination vasp - - \todo Replace period length by frequency specification -*/ -Vasp *VaspOp::m_osc(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL mul) -{ - Vasp *ret = NULL; - if(arg.IsList() && arg.GetList().Count() >= 1) { - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - // period length - p.gen.phinc = 2*PI/flext::GetAFloat(arg.GetList()[0]); - // starting phase - p.gen.ph = arg.GetList().Count() >= 2?flext::GetAFloat(arg.GetList()[1]):0; - - ret = DoOp(vecs,mul?VecOp::d_mosc:VecOp::d_osc,p); - delete vecs; - } - } - else - post("%s - no arguments: no operation",p.opName()); - - return ret; -} - - -/*! \brief Generator for complex oscillations. -*/ -BL VecOp::d_cosc(OpParam &p) -{ - register R ph = p.gen.ph,phinc = p.gen.phinc; - if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - - for(; p.frames--; ph += phinc,p.rddt += p.rds,p.iddt += p.ids) - *p.rddt = cos(ph),*p.iddt = sin(ph); - return true; -} - -/*! \brief Multiplicative generator for complex oscillations. -*/ -BL VecOp::d_mcosc(OpParam &p) -{ - register R ph = p.gen.ph,phinc = p.gen.phinc; - if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - - for(; p.frames--; ph += phinc,p.rsdt += p.rss,p.isdt += p.iss,p.rddt += p.rds,p.iddt += p.ids) { - R zre = cos(ph),zim = sin(ph); - - register const R r = *p.rsdt * zre - *p.isdt * zim; - *p.iddt = *p.isdt * zre + *p.rsdt * zim; - *p.rddt = r; - } - return true; -} - -/*! \brief Generator for complex (cos+i sin) oscillations. - - \param arg argument list - \param arg.perlen Period length (in samples) - \param arg.stph Starting phase - \param mul true for multiplication to exisiting date - \return normalized destination vasp - - \todo Replace period length by frequency specification -*/ -Vasp *VaspOp::m_cosc(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL mul) -{ - Vasp *ret = NULL; - if(arg.IsList() && arg.GetList().Count() >= 1) { - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - // period length - p.gen.phinc = 2*PI/flext::GetAFloat(arg.GetList()[0]); - // starting phase - p.gen.ph = arg.GetList().Count() >= 2?flext::GetAFloat(arg.GetList()[1]):0; - - ret = DoOp(vecs,mul?VecOp::d_mcosc:VecOp::d_cosc,p); - delete vecs; - } - } - else - post("%s - no arguments: no operation",p.opName()); - - return ret; -} - - -VASP_ANYOP("vasp.osc",osc,1,false,VASP_ARG(),"Calculates a cosine wave") -VASP_ANYOP("vasp.*osc",mosc,1,true,VASP_ARG(),"Multiplies with a cosine wave") -VASP_ANYOP("vasp.cosc",cosc,1,false,VASP_ARG(),"Calculates a complex oscillation (cos + i sin)") -VASP_ANYOP("vasp.*cosc",mcosc,1,true,VASP_ARG(),"Multiplies with a complex oscillation (cos + i sin)") - -// --- phasor --------------------------------------- - -// ! look up Höldrich's pd phasor code - -/*! \brief Generator for saw wave oscillations. -*/ -BL VecOp::d_phasor(OpParam &p) -{ - register R ph = p.gen.ph,phinc = p.gen.phinc; - if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - - for(; p.frames--; ph += phinc,p.rddt += p.rds) *p.rddt = fmod((F)ph,1.F); - return true; -} - -/*! \brief Multiplicative generator for saw wave oscillations. -*/ -BL VecOp::d_mphasor(OpParam &p) -{ - register R ph = p.gen.ph,phinc = p.gen.phinc; - if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - - for(; p.frames--; ph += phinc,p.rddt += p.rds,p.rsdt += p.rss) *p.rddt = *p.rsdt * fmod((F)ph,1.F); - return true; -} - -/*! \brief Generator for sawtooth oscillations. - - \param arg argument list - \param arg.perlen Period length (in samples) - \param arg.stph Starting phase - \param mul true for multiplication to exisiting date - \return normalized destination vasp - - \todo Replace period length by frequency specification -*/ -Vasp *VaspOp::m_phasor(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL mul) -{ - Vasp *ret = NULL; - if(arg.IsList() && arg.GetList().Count() >= 1) { - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - // period length - p.gen.phinc = 1./flext::GetAFloat(arg.GetList()[0]); - // starting phase - p.gen.ph = arg.GetList().Count() >= 2?flext::GetAFloat(arg.GetList()[1]):0; - - ret = DoOp(vecs,mul?VecOp::d_mphasor:VecOp::d_phasor,p); - delete vecs; - } - } - else - post("%s - no arguments: no operation",p.opName()); - - return ret; -} - - -VASP_ANYOP("vasp.phasor",phasor,1,false,VASP_ARG(),"Calculates a sawtooth wave") -VASP_ANYOP("vasp.*phasor",mphasor,1,true,VASP_ARG(),"Multiplies with a sawtooth wave") - -// --- noise -------------------------------- - -static F rnd() -{ - static I val = 307*1319; - F ret = ((F)((val&0x7fffffff)-0x40000000))*(F)(1.0/0x40000000); - val = val * 435898247 + 382842987; - return ret; -} - -/*! \brief Vector function for pseudorandom noise. -*/ -BL VecOp::d_noise(OpParam &p) -{ - for(; p.frames--; p.rddt += p.rds) *p.rddt = rnd(); - return true; -} - - -/*! \brief Generator for real valued noise. - - \return normalized destination vasp -*/ -Vasp *VaspOp::m_noise(OpParam &p,CVasp &src,CVasp *dst) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - ret = DoOp(vecs,VecOp::d_noise,p); - delete vecs; - } - return ret; -} - -/*! \brief Vector function for pseudorandom complex noise. -*/ -BL VecOp::d_cnoise(OpParam &p) -{ - for(; p.frames--; p.rddt += p.rds,p.iddt += p.ids) { - R amp = rnd(); - R arg = rnd()*(2.*PI); - *p.rddt = amp*cos(arg); - *p.iddt = amp*sin(arg); - } - return true; -} - -/*! \brief Generator for complex noise (complex abs, complex arg). - - \return normalized destination vasp - - \todo Replace period length by frequency specification -*/ -Vasp *VaspOp::m_cnoise(OpParam &p,CVasp &src,CVasp *dst) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - ret = DoOp(vecs,VecOp::d_cnoise,p); - delete vecs; - } - return ret; -} - -VASP_UNARY("vasp.noise",noise,false,"Fills the vectors with white noise") -VASP_UNARY("vasp.cnoise",cnoise,false,"Fills the vectors with complex white noise (radius and angle are random)") - diff --git a/externals/grill/vasp/source/ops_gen.h b/externals/grill/vasp/source/ops_gen.h deleted file mode 100644 index eff28710..00000000 --- a/externals/grill/vasp/source/ops_gen.h +++ /dev/null @@ -1,40 +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. - -*/ - -#ifndef __VASP_OPS_GEN_H -#define __VASP_OPS_GEN_H - -#include "opbase.h" - -// Generator functions - -namespace VecOp { - BL d_osc(OpParam &p); - BL d_cosc(OpParam &p); - BL d_mosc(OpParam &p); - BL d_mcosc(OpParam &p); - BL d_phasor(OpParam &p); - BL d_mphasor(OpParam &p); - BL d_noise(OpParam &p); - BL d_cnoise(OpParam &p); -} - -namespace VaspOp { - Vasp *m_osc(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL mul = false); // real osc - inline Vasp *m_mosc(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_osc(p,src,arg,dst,true); } // * real osc - Vasp *m_cosc(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL mul = false); // complex osc (phase rotates) - inline Vasp *m_mcosc(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_cosc(p,src,arg,dst,true); } // * complex osc (phase rotates) - Vasp *m_phasor(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL mul = false); // phasor - inline Vasp *m_mphasor(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_phasor(p,src,arg,dst,true); } // * phasor - Vasp *m_noise(OpParam &p,CVasp &src,CVasp *dst); // real noise - Vasp *m_cnoise(OpParam &p,CVasp &src,CVasp *dst); // complex noise (arg and abs random) -} - -#endif diff --git a/externals/grill/vasp/source/ops_qminmax.cpp b/externals/grill/vasp/source/ops_qminmax.cpp deleted file mode 100644 index 22ae6128..00000000 --- a/externals/grill/vasp/source/ops_qminmax.cpp +++ /dev/null @@ -1,267 +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. - -*/ - -#include "main.h" -#include "ops_cmp.h" -#include "opdefs.h" -#include "util.h" -#include <math.h> - -// -------------------------------------------------------------- - -// -------------------------------------------------------------- - - -/*! \class vasp_qmin - \remark \b vasp.min? - \brief Get minimum sample value - \since 0.0.2 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet float - minimum sample value - - \remark Returns 0 for a vasp with 0 frames -*/ -class vasp_qmin: - public vasp_op -{ - FLEXT_HEADER(vasp_qmin,vasp_op) - -public: - vasp_qmin() { - AddInAnything(); - AddOutList(); - } - - virtual F do_opt(OpParam &p,CVasp &v) - { - p.norm.minmax = BIG; - Vasp *ret = VaspOp::m_qmin(p,v); - delete ret; - return p.norm.minmax == BIG?0:p.norm.minmax; - } - - virtual V m_bang() - { - if(!ref.Ok()) return; - - AtomList ret(ref.Vectors()); - OpParam p(thisName(),0); - - for(I i = 0; i < ret.Count(); ++i) { - Vasp vasp(ref.Frames(),ref.Vector(i)); - CVasp ref(vasp); - F v = do_opt(p,ref); - SetFloat(ret[i],v); - } - ToOutList(0,ret); - } - - virtual V m_help() { post("%s - Get a vasp's minimum sample value",thisName()); } -}; - -VASP_LIB("vasp.min?",vasp_qmin) - - -/*! \class vasp_qamin - \remark \b vasp.amin? - \brief Get minimum absolute sample value - \since 0.0.2 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet float - minimum absolute sample value - - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? - \remark Returns 0 for a vasp with 0 frames -*/ -class vasp_qamin: - public vasp_qmin -{ - FLEXT_HEADER(vasp_qamin,vasp_qmin) -public: - virtual F do_opt(OpParam &p,CVasp &v) - { - p.norm.minmax = BIG; - Vasp *ret = VaspOp::m_qmin(p,v); - delete ret; - return p.norm.minmax == BIG?0:p.norm.minmax; - } - - virtual V m_help() { post("%s - Get a vasp's minimum absolute sample value",thisName()); } -}; - -VASP_LIB("vasp.amin?",vasp_qamin) - - - -/*! \class vasp_qmax - \remark \b vasp.max? - \brief Get maximum sample value - \since 0.0.2 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet float - maximum sample value - - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? - \remark Returns 0 for a vasp with 0 frames -*/ -class vasp_qmax: - public vasp_qmin -{ - FLEXT_HEADER(vasp_qmax,vasp_qmin) -public: - virtual F do_opt(OpParam &p,CVasp &v) - { - p.norm.minmax = -BIG; - Vasp *ret = VaspOp::m_qmax(p,v); - delete ret; - return p.norm.minmax == -BIG?0:p.norm.minmax; - } - - virtual V m_help() { post("%s - Get a vasp's maximum sample value",thisName()); } -}; - -VASP_LIB("vasp.max?",vasp_qmax) - - - -/*! \class vasp_qamax - \remark \b vasp.amax? - \brief Get minimum absolute sample value - \since 0.0.2 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet float - maximum absolute sample value - - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? - \remark Returns 0 for a vasp with 0 frames -*/ -class vasp_qamax: - public vasp_qmax -{ - FLEXT_HEADER(vasp_qamax,vasp_qmax) -public: - virtual F do_opt(OpParam &p,CVasp &v) - { - p.norm.minmax = 0; - Vasp *ret = VaspOp::m_qamax(p,v); - delete ret; - return p.norm.minmax; - } - - virtual V m_help() { post("%s - Get a vasp's maximum absolute sample value",thisName()); } -}; - -VASP_LIB("vasp.amax?",vasp_qamax) - - - - -/*! \class vasp_qrmin - \remark \b vasp.rmin? - \brief Get minimum complex radius of samples - \since 0.0.2 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet list - minimum radius value per complex vector pair - - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? - \remark Returns 0 for a vasp with 0 frames -*/ -class vasp_qrmin: - public vasp_op -{ - FLEXT_HEADER(vasp_qrmin,vasp_op) -public: - vasp_qrmin() { - AddInAnything(); - AddOutList(); - } - - virtual F do_opt(OpParam &p,CVasp &v) - { - p.norm.minmax = BIG; - Vasp *ret = VaspOp::m_qrmin(p,v); - delete ret; - return sqrt(p.norm.minmax == BIG?0:p.norm.minmax); - } - - virtual V m_bang() - { - if(!ref.Ok()) return; - - AtomList ret(ref.Vectors()/2); - OpParam p(thisName(),0); - - for(I i = 0; i < ret.Count(); ++i) { - Vasp vasp(ref.Frames(),ref.Vector(i*2)); - vasp.AddVector(ref.Vector(i*2+1)); - CVasp ref(vasp); - F v = do_opt(p,ref); - SetFloat(ret[i],v); - } - - if(ref.Vectors()%2) { - post("%s - omitting dangling vector of complex pairs",thisName()); - } - - ToOutList(0,ret); - } - - virtual V m_help() { post("%s - Get a vasp's minimum complex radius",thisName()); } -}; - -VASP_LIB("vasp.rmin?",vasp_qrmin) - - - -/*! \class vasp_qrmax - \remark \b vasp.rmax? - \brief Get maximum complex radius of samples - \since 0.0.2 - \param inlet vasp - is stored and output triggered - \param inlet bang - triggers output - \param inlet set - vasp to be stored - \retval outlet float - maximum radius value per complex vector pair - - \todo Should we provide a cmdln default vasp? - \todo Should we inhibit output for invalid vasps? - \remark Returns 0 for a vasp with 0 frames -*/ -class vasp_qrmax: - public vasp_qrmin -{ - FLEXT_HEADER(vasp_qrmax,vasp_qrmin) -public: - virtual F do_opt(OpParam &p,CVasp &v) - { - p.norm.minmax = 0; - Vasp *ret = VaspOp::m_qrmax(p,v); - delete ret; - return sqrt(p.norm.minmax); - } - - virtual V m_help() { post("%s - Get a vasp's maximum complex radius",thisName()); } -}; - -VASP_LIB("vasp.rmax?",vasp_qrmax) - - - - diff --git a/externals/grill/vasp/source/ops_rearr.cpp b/externals/grill/vasp/source/ops_rearr.cpp deleted file mode 100644 index fc86b327..00000000 --- a/externals/grill/vasp/source/ops_rearr.cpp +++ /dev/null @@ -1,248 +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. - -*/ - -#include "main.h" -#include "ops_rearr.h" -#include "oploop.h" -#include "oppermute.h" - -/*! \brief vasp shift or rotation - \todo units for shift -*/ -Vasp *VaspOp::m_shift(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL shift,BL symm) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeFloat(arg.GetList()[0])) { - // shift length - p.sh.sh = flext::GetAFloat(arg.GetList()[0]); - } - else { - post("%s - invalid argument -> set to 0",p.opname); - p.sh.sh = 0; - } - - ret = DoOp(vecs,shift?VecOp::d_shift:VecOp::d_rot,p,symm); - delete vecs; - } - - return ret; -} - - -/*! \brief shift buffer -*/ -BL VecOp::d_shift(OpParam &p) -{ - if(p.ovrlap) { - post("%s - cannot operate on overlapped vectors",p.opname); - return false; - } - - I ish = (I)p.sh.sh; - if(p.sh.sh != ish) { // integer shift - // requires interpolation - post("non-integer shift not implemented - truncating to integer"); - p.sh.sh = ish; - } - - p.SkipOddMiddle(); - - if(p.symm == 1) ish = -ish; - - I aish = abs(ish); - if(aish > p.frames) aish = ish = p.frames; - - I i,cnt = p.frames-aish; - const S *sd = p.rsdt-ish*p.rss; - S *dd = p.rddt; - - if(ish > 0) { - sd += (p.frames-1)*p.rss,dd += (p.frames-1)*p.rds; - p.rss = -p.rss,p.rds = -p.rds; - } - - // do shift - if(cnt > 0) { - if(p.rss == 1 && p.rds == 1) - _DE_LOOP(i,cnt, ( *(dd++) = *(sd++) ) ) - else if(p.rss == -1 && p.rds == -1) - _DE_LOOP(i,cnt, ( *(dd--) = *(sd--) ) ) - else - _DE_LOOP(i,cnt, ( *dd = *sd,sd += p.rss,dd += p.rds ) ) - } - - // fill spaces - if(p.sh.fill) { - S vfill = p.sh.fill == 1?0:dd[-p.rds]; - I aish = abs(ish); - if(p.rds == 1) - _DE_LOOP(i,aish, ( *(dd++) = vfill ) ) - else if(p.rds == -1) - _DE_LOOP(i,aish, ( *(dd--) = vfill ) ) - else - _DE_LOOP(i,aish, ( *dd = vfill,dd += p.rds ) ) - } - - return true; -} - - -class vasp_shift: - public vasp_anyop -{ - FLEXT_HEADER_S(vasp_shift,vasp_anyop,Setup) -public: - - vasp_shift(I argc,const t_atom *argv): - vasp_anyop(argc,argv,VASP_ARG_I(0),true), - fill(xsf_zero) - {} - - static V Setup(t_classid c) - { - FLEXT_CADDATTR_VAR1_E(c,"fill",fill); - } - - enum xs_fill { - xsf__ = -1, // don't change - xsf_none = 0,xsf_zero,xsf_edge - }; - - virtual Vasp *do_shift(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_shift(p,cref,arg,&cdst); - } - - virtual Vasp *tx_work(const Argument &arg) - { - OpParam p(thisName(),0); - p.sh.fill = (I)fill; - - Vasp *ret = do_shift(p); - return ret; - } - - virtual V m_help() { post("%s - Shifts buffer data",thisName()); } - -protected: - xs_fill fill; - -private: - FLEXT_ATTRVAR_E(fill,xs_fill) -}; -VASP_LIB_V("vasp.shift",vasp_shift) - - -class vasp_xshift: - public vasp_shift -{ - FLEXT_HEADER(vasp_xshift,vasp_shift) -public: - - vasp_xshift(I argc,const t_atom *argv): vasp_shift(argc,argv) {} - - virtual Vasp *do_shift(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_xshift(p,cref,arg,&cdst); - } - - virtual V m_help() { post("%s - Shifts buffer data symmetrically (in two halves)",thisName()); } -}; -VASP_LIB_V("vasp.xshift",vasp_xshift) - - -inline int rotation(int ij, int n,OpParam &p) { return (ij+n-p.sh.ish)%n; } - -#define ROTBLOCK 1024 - -/*! \brief rotate buffer - \todo implement temporary storage for faster transformation (use abstract permute algorithm) -*/ -BL VecOp::d_rot(OpParam &p) -{ - if(p.ovrlap) { - post("%s - cannot operate on overlapped vectors",p.opname); - return false; - } - - p.sh.ish = (I)p.sh.sh; - if(p.sh.sh != p.sh.ish) { - // requires interpolation - post("%s - non-integer shift not implemented - truncating to integer",p.opname); - } - - p.SkipOddMiddle(); - - p.sh.ish = p.sh.ish%p.frames; - if(p.symm == 1) p.sh.ish = -p.sh.ish; - -/* - if(p.frames >= ROTBLOCK) { - //use temporary space; - S *tmp = new S[ROTBLOCK]; - - delete[] tmp; - } - else -*/ - PERMUTATION(S,1,p,rotation); - return true; -} - -VASP_ANYOP("vasp.rot",rot,0,true,VASP_ARG_I(0),"Rotates buffer data") -VASP_ANYOP("vasp.xrot",xrot,0,true,VASP_ARG_I(0),"Rotates buffer data symmetrically (in two halves)") - - -/*! \brief mirror buffer -*/ -BL VecOp::d_mirr(OpParam &p) -{ - if(p.ovrlap) { - post("%s - cannot operate on overlapped vectors",p.opname); - return false; - } - - p.SkipOddMiddle(); - - if(p.rsdt == p.rddt) { - S *dl = p.rddt,*du = p.rddt+(p.frames-1)*p.rds; - register S t; - _DE_WHILE(dl < du, ( t = *dl, *dl = *du, *du = t, dl += p.rds,du -= p.rds ) ) - } - else { - I i; - const S *ds = p.rsdt; - S *dd = p.rddt+(p.frames-1)*p.rds; - _DE_LOOP(i,p.frames, ( *dd = *ds,ds += p.rss,dd -= p.rds ) ) - } - return true; -} - -/*! \brief vasp mirror -*/ -Vasp *VaspOp::m_mirr(OpParam &p,CVasp &src,CVasp *dst,BL symm) -{ - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - ret = DoOp(vecs,VecOp::d_mirr,p,symm); - delete vecs; - } - return ret; -} - -VASP_UNARY("vasp.mirr",mirr,true,"Mirrors buffer data") -VASP_UNARY("vasp.xmirr",xmirr,true,"Mirrors buffer data symmetrically (in two halves)") - - diff --git a/externals/grill/vasp/source/ops_rearr.h b/externals/grill/vasp/source/ops_rearr.h deleted file mode 100644 index aa412937..00000000 --- a/externals/grill/vasp/source/ops_rearr.h +++ /dev/null @@ -1,34 +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. - -*/ - -#ifndef __VASP_OPS_REARR_H -#define __VASP_OPS_REARR_H - -#include "opbase.h" - -// Rearrange buffer - -namespace VecOp { - BL d_shift(OpParam &p); - BL d_rot(OpParam &p); - BL d_mirr(OpParam &p); -} - -namespace VaspOp { - Vasp *m_shift(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL,BL sh = true,BL symm = false); // shift buffer - inline Vasp *m_xshift(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_shift(p,src,arg,dst,true,true); } // shift buffer (symmetrically) - inline Vasp *m_rot(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_shift(p,src,arg,dst,false,false); } // rotate buffer - inline Vasp *m_xrot(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_shift(p,src,arg,dst,false,true); } // rotate buffer (symmetrically) - Vasp *m_mirr(OpParam &p,CVasp &src,CVasp *dst = NULL,BL symm = false); //! mirror buffer - inline Vasp *m_xmirr(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_mirr(p,src,dst,true); } //! mirror buffer (symmetrically) - -} - -#endif diff --git a/externals/grill/vasp/source/ops_resmp.cpp b/externals/grill/vasp/source/ops_resmp.cpp deleted file mode 100644 index b37dd8dc..00000000 --- a/externals/grill/vasp/source/ops_resmp.cpp +++ /dev/null @@ -1,275 +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 vasp__resmp.cpp - \brief Routines for resampling -*/ - -#include "main.h" -#include "ops_resmp.h" - - -// --- resample --------------------- - -/*! \brief Subroutine for resampling. - - \param cnt frame count - \param src source data - \param sstr source data stride - \param dst destination data - \param dstr destination data stride - \param factor resampling factor - \param center resampling center (this will remain untouched by the transformation) - \param mode interpolation mode - \return true on success - - \todo implement averaging interpolation methods - \todo check for operation direction! - \todo check for src/dst overlap - \todo support different frame lengths for src and dst -*/ - -static V do_tilt(OpParam &p) -{ - I mode = p.tilt.mode; - if(mode == 0&& (p.tilt.factor < 0 || p.tilt.center < 0 || p.tilt.factor >= p.frames)) mode = 1; - - const R center = p.tilt.center; - const I icenter = (I)center; - S fll,flr; - if(p.tilt.fill) - fll = p.rsdt[0],flr = p.rsdt[p.frames-1]; - else - fll = flr = 0; - - if(mode >= 1 && mode <= 3) { - S *tmp; - I rss; - if(p.rsdt == p.rddt) { - tmp = new S[p.frames],rss = 1; - for(int i = 0; i < p.frames; ++i) tmp[i] = p.rsdt[i*p.rss]; - } - else tmp = p.rsdt,rss = p.rss; - - switch(mode) { - case 1: { - // no interpolation - for(int i = 0; i < p.frames; ++i) { - I pi = (I)(center+(i-center)*p.tilt.factor); - p.rddt[i*p.rds] = pi >= 0?(pi < p.frames?tmp[pi*rss]:flr):fll; - } - break; - } - case 2: { - // linear interpolation - for(int i = 0; i < p.frames; ++i) { - R pr = center+(i-center)*p.tilt.factor,v; - I ip = (I)pr; - if(ip >= 0) - if(ip < p.frames-1) { - R r = pr-ip; - v = (1-r)*tmp[ip*rss]+r*tmp[(ip+1)*rss]; - } - else - v = ip == p.frames-1?tmp[ip*rss]:flr; - else - v = fll; - p.rddt[i*p.rds] = v; - } - break; - } - case 3: { - // 4-point interpolation - R f[4]; - for(int i = 0; i < p.frames; ++i) { - R pr = center+(i-center)*p.tilt.factor; - const I ip = (I)pr; - const S *t = tmp+ip*rss; - const R r = pr-ip; - if(ip >= 1) - if(ip < p.frames-2) { - f[0] = t[-rss]; - f[1] = t[0]; - f[2] = t[rss]; - f[3] = t[rss*2]; - } - else { - f[0] = ip < p.frames+1?t[-rss]:flr; - f[1] = ip < p.frames?t[0]:flr; - f[2] = ip < p.frames-1?t[rss]:flr; - f[3] = flr; - } - else { - f[0] = fll; - f[1] = ip >= 0?t[0]:fll; - f[2] = ip >= -1?t[rss]:fll; - f[3] = ip >= -2?t[rss*2]:fll; - } - - const R cmb = f[2]-f[1]; - p.rddt[i*p.rds] = f[1]+r*(cmb-0.5*(r-1.)*((f[0]-f[3]+3.*cmb)*r+(f[1]-f[0]-cmb))); - } - break; - } - } - - if(p.rsdt == p.rddt) delete[] tmp; - } - else { - const R rem = center-icenter; // 0 <= rem < 1 - // quick and dirty... but in-place! - - if(p.tilt.factor > 1) { - I i; - for(i = 0; i <= icenter; ++i) { - I sp = (I)(center-(i+rem)*p.tilt.factor); - p.rddt[(icenter-i)*p.rds] = sp >= 0?(sp < p.frames?p.rsdt[sp*p.rss]:flr):fll; - } - for(i = 1; i < p.frames-icenter; ++i) { - I sp = (I)(center+(i-rem)*p.tilt.factor); - p.rddt[(icenter+i)*p.rds] = sp >= 0?(sp < p.frames?p.rsdt[sp*p.rss]:flr):fll; - } - } - else { - I i; - for(i = icenter; i >= 0; --i) { - I sp = (I)(center-(i+rem)*p.tilt.factor); - p.rddt[(icenter-i)*p.rds] = p.rsdt[sp*p.rss]; - } - for(i = p.frames-1-icenter; i > 0; --i) { - I sp = (I)(center+(i-rem)*p.tilt.factor); - p.rddt[(icenter+i)*p.rds] = p.rsdt[sp*p.rss]; - } - } - } -} - - -BL VecOp::d_tilt(OpParam &p) -{ - if(p.frames <= 1 || p.tilt.factor == 1) return true; - - // symmetric operation - if(p.symm == 1) - p.tilt.center = p.frames-1-p.tilt.center; - - do_tilt(p); - - return true; -} - - -/*! \brief Does vasp resampling. - - \param arg argument list - \param arg.factor factor for resampling - \param arg.center center of resampling - \param dst destination vasp (NULL for in-place operation) - \param symm true for symmetric operation - \param mode interpolation mode - \return normalized destination vasp -*/ -Vasp *VaspOp::m_tilt(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL symm) -{ - Vasp *ret = NULL; - if(arg.IsList() && arg.GetList().Count() >= 1) { - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - p.tilt.factor = flext::GetAFloat(arg.GetList()[0]); - p.tilt.center = arg.GetList().Count() >= 2?flext::GetAFloat(arg.GetList()[1]):0; - - ret = DoOp(vecs,VecOp::d_tilt,p,symm); - - delete vecs; - } - } - else - post("%s - no arguments: no operation",p.opName()); - - return ret; -} - - - -class vasp_tilt: - public vasp_anyop -{ - FLEXT_HEADER_S(vasp_tilt,vasp_anyop,Setup) -public: - - vasp_tilt(I argc,t_atom *argv): - vasp_anyop(argc,argv,VASP_ARG_R(1),true), - fill(xtf_zero),inter(xti_4p) - {} - - static V Setup(t_classid c) - { - FLEXT_CADDATTR_VAR1_E(c,"fill",fill); - FLEXT_CADDATTR_VAR1_E(c,"inter",inter); - } - - enum xt_fill { - xtf__ = -1, // don't change - xtf_zero = 0,xtf_edge - }; - - enum xt_inter { - xti__ = -1, // don't change - xti_inpl = 0,xti_none,xti_lin,xti_4p - }; - - virtual Vasp *do_shift(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_tilt(p,cref,arg,&cdst); - } - - virtual Vasp *tx_work(const Argument &arg) - { - OpParam p(thisName(),1); - p.tilt.fill = (I)fill; - p.tilt.mode = (I)inter; - - Vasp *ret = do_shift(p); - return ret; - } - - virtual V m_help() { post("%s - Resamples buffer data",thisName()); } - -protected: - xt_fill fill; - xt_inter inter; - -private: - FLEXT_ATTRVAR_E(fill,xt_fill) - FLEXT_ATTRVAR_E(inter,xt_inter) -}; -VASP_LIB_V("vasp.tilt",vasp_tilt) - - -class vasp_xtilt: - public vasp_tilt -{ - FLEXT_HEADER(vasp_xtilt,vasp_tilt) -public: - - vasp_xtilt(I argc,t_atom *argv): vasp_tilt(argc,argv) {} - - virtual Vasp *do_shift(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_xtilt(p,cref,arg,&cdst); - } - - virtual V m_help() { post("%s - Resamples buffer data symmetrically (in two halves)",thisName()); } -}; -VASP_LIB_V("vasp.xtilt",vasp_xtilt) - - diff --git a/externals/grill/vasp/source/ops_resmp.h b/externals/grill/vasp/source/ops_resmp.h deleted file mode 100644 index e164ee0b..00000000 --- a/externals/grill/vasp/source/ops_resmp.h +++ /dev/null @@ -1,28 +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. - -*/ - -#ifndef __VASP_OPS_RESMP_H -#define __VASP_OPS_RESMP_H - -#include "opbase.h" - -// Resampling (around center sample) - -namespace VecOp { - BL d_tilt(OpParam &p); -} - -namespace VaspOp { - Vasp *m_tilt(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL,BL symm = false); - // Symmetric resampling (around center sample) - inline Vasp *m_xtilt(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_tilt(p,src,arg,dst,true); } -} - -#endif diff --git a/externals/grill/vasp/source/ops_search.cpp b/externals/grill/vasp/source/ops_search.cpp deleted file mode 100644 index cf7e7df3..00000000 --- a/externals/grill/vasp/source/ops_search.cpp +++ /dev/null @@ -1,213 +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. - -*/ - -#include "main.h" -#include "ops_search.h" -#include "util.h" -#include "oploop.h" - - -BL VecOp::d_search(OpParam &p) -{ - const I off = p.srch.offs; - const S val = p.srch.val; - const R cur = p.rsdt[off]; - - I i,ofl = -1,ofr = -1; - - if(p.srch.incl && cur == val) { - // if @incl attribute is set and current sample matches - ofl = ofr = off; - } - else { - if(p.srch.dir <= 0) { - BL y = cur >= val; - i = off-1; - _D_WHILE(i >= 0) - BL y2 = p.rsdt[i] >= val; - if(y != y2) { - if(p.srch.slope <= 0 && y2) break; - if(p.srch.slope >= 0 && !y2) break; - } - y = y2; - --i; - _E_WHILE - - if(i >= 0) ofl = i; - } - - if(p.srch.dir >= 0) { - BL y = cur >= val; - i = off+1; - _D_WHILE(i < p.frames) - BL y2 = p.rsdt[i] >= val; - if(y != y2) { - if(p.srch.slope <= 0 && !y2) break; - if(p.srch.slope >= 0 && y2) break; - } - y = y2; - ++i; - _E_WHILE - - if(i < p.frames) ofr = i; - } - } - - if(!p.srch.dir) { - if(ofl >= 0) { - p.srch.dif = ofl-off; - if(ofr >= 0 && abs(p.srch.dif) < abs(ofr-off)) p.srch.dif = ofr-off; - } - else - p.srch.dif = ofr >= 0?ofr-off:0; - } - else if(p.srch.dir > 0) - p.srch.dif = ofr >= 0?ofr-off:0; - else - p.srch.dif = ofl >= 0?ofl-off:0; - - return true; -} - -Vasp *VaspOp::m_search(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL st) -{ - Vasp *ret = NULL; - if(src.Vectors() != 1) - post("%s - Need exactly one vector in vasp!",p.opName()); - else if(arg.CanbeFloat() || (arg.IsList() && arg.GetList().Count() >= 1)) { - I fr = src.Frames(); - I o = src.Vector(0).Offset(); - - VBuffer *buf = src.Buffer(0); - I sz = buf->Frames(); - delete buf; - - CVasp all(src); - if(st) { - // search start point - p.srch.offs = o; - - // set bounds of search buffer - all.Offset(0); - all.Frames(fr+o); // all frames of buffer - } - else { - // search end point - p.srch.offs = o+fr; - // check if current offset is past buffer - if(p.srch.offs >= sz) p.srch.offs = sz-1; - - // set bounds of search buffer - all.Offset(o); - all.Frames(sz-o); // all frames of buffer - } - - RVecBlock *vecs = GetRVecs(p.opname,all,dst); - if(vecs) { - p.srch.val = arg.IsList()?flext::GetAFloat(arg.GetList()[0]):arg.GetAFloat(); - - ret = DoOp(vecs,VecOp::d_search,p); - - if(st) o += p.srch.dif,fr -= p.srch.dif; - else fr += p.srch.dif; - - if(ret) { - ret->Offset(o); - ret->Frames(fr); - ret->Frames(ret->ChkFrames()); // What's that???? - } - - delete vecs; - } - } - else - post("%s - no arguments: no operation",p.opName()); - - return ret; -} - - -class vasp_search: - public vasp_anyop -{ - FLEXT_HEADER_S(vasp_search,vasp_anyop,Setup) -public: - - vasp_search(I argc,t_atom *argv): - vasp_anyop(argc,argv,VASP_ARG_R(0),false,XletCode(xlet_float,0)), - slope(0),dir(0),incl(false) - {} - - static V Setup(t_classid c) - { - FLEXT_CADDATTR_VAR1(c,"dir",dir); - FLEXT_CADDATTR_VAR1(c,"slope",slope); - FLEXT_CADDATTR_VAR1(c,"incl",incl); - } - - virtual Vasp *do_work(OpParam &p) = 0; - - virtual Vasp *tx_work(const Argument &arg) - { - OpParam p(thisName(),1); - p.srch.dir = dir; - p.srch.slope = slope; - p.srch.incl = incl; - - Vasp *ret = do_work(p); - if(ret) ToOutFloat(1,p.srch.dif); - return ret; - } - -protected: - I dir,slope; - BL incl; - -private: - FLEXT_ATTRVAR_I(dir) - FLEXT_ATTRVAR_I(slope) - FLEXT_ATTRVAR_B(incl) -}; - - -class vasp_soffset: - public vasp_search -{ - FLEXT_HEADER(vasp_soffset,vasp_search) -public: - vasp_soffset(I argc,t_atom *argv): vasp_search(argc,argv) {} - virtual Vasp *do_work(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_soffset(p,cref,arg,&cdst); - } - - virtual V m_help() { post("%s - Define starting point by searching for given value",thisName()); } -}; -VASP_LIB_V("vasp.offset= vasp.o=",vasp_soffset) - - -class vasp_sframes: - public vasp_search -{ - FLEXT_HEADER(vasp_sframes,vasp_search) -public: - vasp_sframes(I argc,t_atom *argv): vasp_search(argc,argv) {} - virtual Vasp *do_work(OpParam &p) - { - CVasp cdst(dst),cref(ref); - return VaspOp::m_sframes(p,cref,arg,&cdst); - } - - virtual V m_help() { post("%s - Define vasp frame length by searching for given value",thisName()); } -}; -VASP_LIB_V("vasp.frames= vasp.f=",vasp_sframes) - - diff --git a/externals/grill/vasp/source/ops_search.h b/externals/grill/vasp/source/ops_search.h deleted file mode 100644 index ef199f71..00000000 --- a/externals/grill/vasp/source/ops_search.h +++ /dev/null @@ -1,29 +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. - -*/ - -#ifndef __VASP_OPS_SEARCH_H -#define __VASP_OPS_SEARCH_H - -#include "opbase.h" - -// Sample search functions - -namespace VecOp { - BL d_search(OpParam &p); //! find values -} - -namespace VaspOp { - // search functions - Vasp *m_search(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL st); //! find values - inline Vasp *m_soffset(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_search(p,src,arg,dst,true); } - inline Vasp *m_sframes(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_search(p,src,arg,dst,false); } -} - -#endif diff --git a/externals/grill/vasp/source/ops_trnsc.cpp b/externals/grill/vasp/source/ops_trnsc.cpp deleted file mode 100644 index 8bbda8e9..00000000 --- a/externals/grill/vasp/source/ops_trnsc.cpp +++ /dev/null @@ -1,52 +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. - -*/ - -#include "main.h" -#include "ops_trnsc.h" -#include "opdefs.h" -#include "util.h" -#include <math.h> - -// -------------------------------------------------------------- - -Vasp *VaspOp::m_rpow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) -{ - Vasp *ret = NULL; - CVecBlock *vecs = GetCVecs(p.opname,src,dst); - if(vecs) { - if(arg.IsList() && arg.GetList().Count() >= 1 && flext::CanbeFloat(arg.GetList()[0])) - p.cbin.rarg = flext::GetAFloat(arg.GetList()[0]); - else { - post("%s - argument is invalid -> set to 1",p.opname); - p.cbin.rarg = 1; - } - p.cbin.iarg = 0; // not used anyway - - ret = DoOp(vecs,VecOp::d_rpow,p); - delete vecs; - } - return ret; -} - -VASP_BINARY("vasp.pow",pow,true,VASP_ARG_R(1),"Real power function") -VASP_ANYOP("vasp.rpow",rpow,0,true,VASP_ARG_R(1),"Power function acting on complex radius") - - -// -------------------------------------------------------------- - -VASP_UNARY("vasp.sqrt",sqrt,true,"Square root") -VASP_UNARY("vasp.ssqrt",ssqrt,true,"Square root preserving the sign") - -// -------------------------------------------------------------- - -VASP_UNARY("vasp.exp",exp,true,"Exponential function") -VASP_UNARY("vasp.log",log,true,"Natural logarithm") - - diff --git a/externals/grill/vasp/source/ops_trnsc.h b/externals/grill/vasp/source/ops_trnsc.h deleted file mode 100644 index 408aeb9b..00000000 --- a/externals/grill/vasp/source/ops_trnsc.h +++ /dev/null @@ -1,43 +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. - -*/ - -#ifndef __VASP_OPS_TRNSC_H -#define __VASP_OPS_TRNSC_H - -#include "opfuns.h" - -// Transcendent math functions - -DEFOP(S,d_pow,pow,rbin) -DEFOP(S,d_rpow,pow,cbin) - -DEFOP(S,d_sqrt,sqrt,run) -DEFOP(S,d_ssqrt,ssqrt,run) - -DEFOP(S,d_exp,exp,run) -DEFOP(S,d_log,log,run) - -namespace VaspOp { - inline Vasp *m_pow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL) { return m_rbin(p,src,arg,dst,VecOp::d_pow); } // power - - Vasp *m_rpow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst = NULL); // radius power (with each two channels) - - inline Vasp *m_sqrt(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_sqrt); } // square root (from abs value) - inline Vasp *m_ssqrt(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_ssqrt); } // square root (from abs value) - - inline Vasp *m_exp(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_exp); } // exponential function - inline Vasp *m_log(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_run(p,src,dst,VecOp::d_log); } // natural logarithm - -// inline Vasp *m_cexp(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_cexp); } // complex exponential function -// inline Vasp *m_clog(OpParam &p,CVasp &src,CVasp *dst = NULL) { return m_cun(p,src,dst,VecOp::d_clog); } // complex logarithm (how about branches?) - -} - -#endif diff --git a/externals/grill/vasp/source/ops_wnd.cpp b/externals/grill/vasp/source/ops_wnd.cpp deleted file mode 100644 index 278e7bf1..00000000 --- a/externals/grill/vasp/source/ops_wnd.cpp +++ /dev/null @@ -1,192 +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. - -*/ - -#include "main.h" -#include "ops_wnd.h" -#include "oploop.h" -#include <math.h> -#include <string.h> - -#ifndef PI -#define PI 3.1415926535897932384 -#endif - -// --- window -------------------------- - -typedef R (*wfunc)(R i,const OpParam &p); - -inline R wf_sin(R i,const OpParam &p) { return sin(i*p.wnd.p1+p.wnd.p2); } -inline R wf_hanning(R i,const OpParam &p) { return 0.5*(1+cos(i*p.wnd.p1+p.wnd.p2)); } -inline R wf_hamming(R i,const OpParam &p) { return 0.54 + 0.46 * cos(i*p.wnd.p1+p.wnd.p2); } -inline R wf_blackman(R i,const OpParam &p) { const R x = i*p.wnd.p1+p.wnd.p2; return 0.42+0.5*cos(x)+0.08*cos(2*x); } -inline R wf_connes(R i,const OpParam &p) { const R x = i*p.wnd.p1+p.wnd.p2,x2 = 1-x*x; return x2*x2; } -inline R wf_welch(R i,const OpParam &p) { const R x = i*p.wnd.p1+p.wnd.p2; return 1-x*x; } -inline R wf_lanczos(R i,const OpParam &p) { const R x = i*p.wnd.p1+p.wnd.p2; return x?sin(x)/x:1; } -//inline R wf_gaussian(R i,const OpParam &p) { const R x = i*p.wnd.p1+p.wnd.p2; return pow(2, (-1 * (x / p.wnd.p3) * (x / p.wnd.p3))); } -//inline R wf_kaiser(R i,const OpParam &p) { const R x = i*p.wnd.p1+p.wnd.p2; return i0(p.wnd.p3 * sqrt(1 - (x * x))) / i0(p.wnd.p3); } - - -static V WndOp(wfunc wf,OpParam &p) { - register I i; - - if(!p.wnd.mul) { - register S *dd = p.rddt; - _D_LOOP(i,p.frames) *dd = wf(i,p),dd += p.rds; _E_LOOP - } - else { - register const S *sd = p.rsdt; - register S *dd = p.rddt; - _D_LOOP(i,p.frames) *dd = *sd*wf(i,p),sd += p.rss,dd += p.rds; _E_LOOP - } -} - -#define WNDOP(WFUNC,OPP) WndOp(WFUNC,OPP) - - - -BL VecOp::d_window(OpParam &p) -{ - // reverse direction? - BL rev = ((p.revdir?1:0)^(p.symm == 1?1:0)^(p.wnd.inv?1:0)) != 0; - - // set middle sample (if existent) to 1 - if(p.oddrem) p.SkipOddMiddle(1); - - switch(p.wnd.wndtp) { - case 0: { // bevel (Bartlett) - register R inc,cur; - inc = (rev?-1.:1.)/p.frames; // increase - cur = rev?(1+inc/2):inc/2; // start - - if(!p.wnd.mul) { - register S *dd = p.rddt; - register I i; - if(p.rds == 1) - _D_LOOP(i,p.frames) *(dd++) = cur,cur += inc; _E_LOOP - else - _D_LOOP(i,p.frames) *dd = cur,dd += p.rds,cur += inc; _E_LOOP - } - else { - register const S *sd = p.rsdt; - register S *dd = p.rddt; - register I i; - if(sd == dd) - if(p.rss == 1 && p.rds == 1) - _D_LOOP(i,p.frames) *(dd++) *= cur,cur += inc; _E_LOOP - else - _D_LOOP(i,p.frames) *dd *= cur,dd += p.rds,cur += inc; _E_LOOP - else - if(p.rss == 1 && p.rds == 1) - _D_LOOP(i,p.frames) *(dd++) = *(sd++) * cur,cur += inc; _E_LOOP - else - _D_LOOP(i,p.frames) *dd = *sd * cur,sd += p.rss,dd += p.rds,cur += inc; _E_LOOP - } - break; - } - case 1: { // sine - p.wnd.p1 = (PI/2)/p.frames; - p.wnd.p2 = p.wnd.p1/2+(rev?PI/2:0); - WNDOP(wf_sin,p); - break; - } - case 2: { // Hanning - p.wnd.p1 = PI/p.frames; - p.wnd.p2 = p.wnd.p1/2+(rev?0:PI); - WNDOP(wf_hanning,p); - break; - } - case 3: { // Hamming - p.wnd.p1 = PI/p.frames; - p.wnd.p2 = p.wnd.p1/2+(rev?0:PI); - WNDOP(wf_hamming,p); - break; - } - case 4: { // Blackman - p.wnd.p1 = PI/p.frames; - p.wnd.p2 = p.wnd.p1/2+(rev?0:PI); - WNDOP(wf_blackman,p); - break; - } - case 5: { // Connes (xxx) - p.wnd.p1 = 1./p.frames; - p.wnd.p2 = p.wnd.p1/2+(rev?1:0); - WNDOP(wf_connes,p); - break; - } - case 6: { // Welch (xxx) - p.wnd.p1 = 1./p.frames; - p.wnd.p2 = p.wnd.p1/2+(rev?1:0); - WNDOP(wf_welch,p); - break; - } - case 7: { // Lanczos (xxx) - p.wnd.p1 = PI/p.frames; - p.wnd.p2 = p.wnd.p1/2+(rev?0:PI); - WNDOP(wf_lanczos,p); - break; - } - default: { - post("%s: Window function #%i not known",p.opname,p.wnd.wndtp); - return false; - } - } - - return true; -} - -Vasp *VaspOp::m_window(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL inv,BL mul,BL symm) -{ - static const int wndnum = 8; - static const char *wndtps[wndnum] = {"lin","sin","hanning","hamming","blackman","connes","welch","lanczos" /*,"gaussian","kaiser"*/}; - - Vasp *ret = NULL; - RVecBlock *vecs = GetRVecs(p.opname,src,dst); - if(vecs) { - p.wnd.wndtp = -1; - - if(arg.IsList() && arg.GetList().Count() >= 1) { - // window mode - const flext::AtomList &l = arg.GetList(); - if(flext::IsSymbol(l[0])) { - I i; - const C *s = flext::GetString(l[0]); - p.wnd.wndtp = -1; - for(i = 0; i < wndnum; ++i) - if(!strcmp(wndtps[i],s)) { p.wnd.wndtp = i; break; } - } - else if(flext::CanbeInt(l[0])) { - p.wnd.wndtp = flext::GetAInt(l[0]); - } - else p.wnd.wndtp = -1; - } - - if(p.wnd.wndtp < 0) { - post("%s - invalid window type - using lin",p.opname); - p.wnd.wndtp = 0; - } - - p.wnd.inv = inv; - p.wnd.mul = mul; - ret = DoOp(vecs,VecOp::d_window,p,symm); - delete vecs; - } - - return ret; -} - -VASP_ANYOP("vasp.window vasp.wnd",window,0,false,VASP_ARG(),"Sets target vasp to window function") -VASP_ANYOP("vasp.*window vasp.*wnd",mwindow,0,true,VASP_ARG(),"Multiplies a vasp by window function") -VASP_ANYOP("vasp.!window vasp.!wnd",iwindow,0,false,VASP_ARG(),"Sets target vasp to reverse window function") -VASP_ANYOP("vasp.*!window vasp.!wnd",miwindow,0,true,VASP_ARG(),"Multiplies a vasp by reverse window function") -VASP_ANYOP("vasp.xwindow vasp.xwnd",xwindow,0,false,VASP_ARG(),"Sets target vasp to symmetrical window function") -VASP_ANYOP("vasp.*xwindow vasp.*xwnd",mxwindow,0,true,VASP_ARG(),"Multiplies a vasp by symmetrical window function") - - - diff --git a/externals/grill/vasp/source/ops_wnd.h b/externals/grill/vasp/source/ops_wnd.h deleted file mode 100644 index 9103d978..00000000 --- a/externals/grill/vasp/source/ops_wnd.h +++ /dev/null @@ -1,41 +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. - -*/ - -#ifndef __VASP_OPS_WND_H -#define __VASP_OPS_WND_H - -#include "opbase.h" - -// Window functions - -namespace VecOp { -/* - BL d_bevel(OpParam &p); - BL d_mbevel(OpParam &p); -*/ - BL d_window(OpParam &p); -} - -namespace VaspOp { -/* - Vasp *m_bevelup(OpParam &p,CVasp &src,CVasp *dst,BL up = true,BL mul = false); // bevel up - inline Vasp *m_mbevelup(OpParam &p,CVasp &src,CVasp *dst) { return m_bevelup(p,src,dst,true,true); } // * bevel up (fade in) - inline Vasp *m_beveldn(OpParam &p,CVasp &src,CVasp *dst) { return m_bevelup(p,src,dst,false,false); } // bevel down - inline Vasp *m_mbeveldn(OpParam &p,CVasp &src,CVasp *dst) { return m_bevelup(p,src,dst,false,true); } // * bevel down (fade out) -*/ - Vasp *m_window(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst,BL inv = false,BL mul = false,BL symm = false); // window curve - inline Vasp *m_mwindow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_window(p,src,arg,dst,false,true,false); } // * window curve - inline Vasp *m_iwindow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_window(p,src,arg,dst,true,false,false); } // inverse window curve - inline Vasp *m_miwindow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_window(p,src,arg,dst,true,true,false); } // * inverse window curve - inline Vasp *m_xwindow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_window(p,src,arg,dst,false,false,true); } // symmetrical window curve - inline Vasp *m_mxwindow(OpParam &p,CVasp &src,const Argument &arg,CVasp *dst) { return m_window(p,src,arg,dst,false,true,true); } // * symmetrical window curve -} - -#endif diff --git a/externals/grill/vasp/source/opvecs.cpp b/externals/grill/vasp/source/opvecs.cpp deleted file mode 100644 index f78210be..00000000 --- a/externals/grill/vasp/source/opvecs.cpp +++ /dev/null @@ -1,631 +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 vasp__ctrl.cpp - \brief Methods for handling of vector data for real, complex and multi-vector cases. - -*/ - -#include "main.h" -#include "opbase.h" -#include "classes.h" -#include "vecblk.h" -#include "util.h" - -/*! \brief Corrects for the common vector frame count - \param frms frame count to correct - \param bl new frame count - \return true if a correction was made -*/ -static BL corrlen(I &frms,I bl,I bf = -1,I bo = 0) -{ - if(bf < 0) bf = bl; - - BL corr = false; - BL all = frms < 0; - if(all) - frms = bl; - else if(frms > bl) { - // longer than vector length -> correct - frms = bl; - corr = true; - } - - if(bo+frms > bf) { - // now check if buffer size is exceeded -// post("%s - %s vector (%s) exceeds buffer size: cropped",op,bli == 0?"src":"dst",bref->Name()); - frms = bf-bo; - if(frms < 0) frms = 0; - corr = true; - } - - return corr; -} - - -inline BL corrlen(I &frms,VBuffer &b) -{ - return corrlen(frms,b.Length(),b.Frames(),b.Offset()); -} - - -/*! \brief Make real vector block for unary operations. - - \param op operation name - \param src source vasp - \param dst optional destination vasp - \return struct with vector data - - \remark working size is maximum common vector size -*/ -RVecBlock *VaspOp::GetRVecs(const C *op,CVasp &src,CVasp *dst) -{ - I nvecs = src.Vectors(); - if(dst && dst->Ok() && dst->Vectors() != nvecs) { - nvecs = min(nvecs,dst->Vectors()); - post("%s - src/dst vector number not equal -> taking minimum",op); - } - - RVecBlock *ret = new RVecBlock(nvecs); - - BL ok = true,dlens = false; - I tfrms = -1; - - Vasp *vbl[2] = {&src,dst}; - - for(I bli = 0; bli < 2; ++bli) - for(I ci = 0; ok && ci < nvecs; ++ci) { - VBuffer *bref = NULL; - if(vbl[bli] && vbl[bli]->Ok()) { - bref = vbl[bli]->Buffer(ci); - if(!bref->Data()) { - post("%s - %s vector (%s) is invalid",op,bli == 0?"src":"dst",bref->Name()); - delete bref; bref = NULL; - ok = false; - } - else - dlens = dlens || corrlen(tfrms,*bref); - } - - if(bli == 0) - ret->Src(ci,bref); - else - ret->Dst(ci,bref); - } - - if(dlens) post("%s - vector length has been limited to maximum common length (%i)",op,tfrms); - - ret->Frames(tfrms < 0?0:tfrms); - - if(ok) return ret; - else { delete ret; return NULL; } -} - -/*! \brief Make real vector block for unary operations. - - \param op operation name - \param src source vasp - \param dst optional destination vasp - \param full true if imaginary part is compulsory - \return struct with vector data -*/ -CVecBlock *VaspOp::GetCVecs(const C *op,CVasp &src,CVasp *dst,BL full) -{ - I nvecs = src.Vectors(); - if(dst && dst->Ok() && dst->Vectors() != nvecs) { - nvecs = min(nvecs,dst->Vectors()); - post("%s - src/dst vector number not equal -> taking minimum",op); - } - - I pairs = nvecs/2; - if(nvecs != pairs*2) - if(full) { - post("%s - number of vectors is odd - not allowed",op); - return NULL; - } - else { - post("%s - number of vectors is odd - omitting last vector",op); - } - - CVecBlock *ret = new CVecBlock(pairs); - BL ok = true,dlens = false; - I tfrms = -1; - - Vasp *vbl[2] = {&src,dst}; - - for(I bli = 0; bli < 2; ++bli) - for(I ci = 0; ci < pairs; ++ci) { - VBuffer *bre = NULL,*bim = NULL; // complex channels - if(vbl[bli] && vbl[bli]->Ok()) { - const C *vnm = bli == 0?"src":"dst"; - bre = vbl[bli]->Buffer(ci*2); - bim = vbl[bli]->Buffer(ci*2+1); // complex channels - - if(!bre->Data()) { - post("%s - real %s vector (%s) is invalid",op,vnm,bre->Name()); - delete bre; bre = NULL; - ok = false; - } - if(bim && !bim->Data()) { - post("%s - imag %s vector (%s) is invalid",op,vnm,bim->Name()); - delete bim; bim = NULL; - ok = false; - } - - // check against common vector length - if(bre) { - dlens = dlens || corrlen(tfrms,*bre); - } - if(bim) { - dlens = dlens || corrlen(tfrms,*bim); - } - - } - - if(bli == 0) - ret->Src(ci,bre,bim); - else - ret->Dst(ci,bre,bim); - } - - if(dlens) post("%s - vector src/dst length has been limited to maximum common length (%i)",op,tfrms); - - ret->Frames(tfrms < 0?0:tfrms); - - if(ok) return ret; - else { delete ret; return NULL; } -} - - -/*! \brief Make real vector block for binary operations. - - \param op operation name - \param src source vasp - \param arg argument vasp - \param dst optional destination vasp - \param multi 0 off/1 on/-1 auto... controls whether argument vector is single- or multi-vectored - \return struct with vector data -*/ -RVecBlock *VaspOp::GetRVecs(const C *op,CVasp &src,const CVasp &arg,CVasp *dst,I multi,BL ssize) -{ - if(!arg.Ok()) { - post("%s - invalid argument vasp detected and ignored",op); - return NULL; - } - - I nvecs = src.Vectors(); - if(dst && dst->Ok() && dst->Vectors() != nvecs) { - nvecs = min(nvecs,dst->Vectors()); - post("%s - src/dst vector number not equal -> taking minimum",op); - } - - RVecBlock *ret; - - if(multi < 0) { // auto mode - multi = arg.Vectors() > 1; - } - - if(multi) { - if(arg.Vectors() < nvecs) { - nvecs = arg.Vectors(); - post("%s - too few arg vectors, operating on only first %i vectors",op,nvecs); - } - ret = new RVecBlock(nvecs,nvecs,1); - for(I i = 0; i < nvecs; ++i) - ret->Arg(i,arg.Buffer(i)); - } - else { - if(arg.Vectors() > 1) { - post("%s - using only first arg vector for all operations",op); - } - ret = new RVecBlock(nvecs,nvecs,1); - for(I i = 0; i < nvecs; ++i) - ret->Arg(i,arg.Buffer(0)); - } - - BL ok = true,dlens = false,dalens = false; - I tfrms = -1,afrms = -1; - - for(I ci = 0; ok && ci < nvecs; ++ci) { - VBuffer *bref = src.Buffer(ci); - VBuffer *barg = ret->Arg(multi?ci:0); - VBuffer *bdst = dst && dst->Ok()?dst->Buffer(ci):NULL; - - if(barg && (multi || ci == 0) && !barg->Data()) { - post("%s - arg vector (%s) is invalid",op,barg->Name()); - ok = false; break; // really break? - } - else if(!bref->Data()) { - post("%s - src vector (%s) is invalid",op,bref->Name()); - ok = false; break; // really break? - } - - // check src/dst frame lengths - dlens = dlens || corrlen(tfrms,*bref); - if(bdst) dlens = dlens || corrlen(tfrms,*bdst); - - // check arg frame length - if(barg) dalens = dalens || corrlen(afrms,*barg); - - ret->Src(ci,bref); - if(bdst) ret->Dst(ci,bdst); - } - - if(dlens) post("%s - vector src/dst length has been limited to maximum common length (%i)",op,tfrms); - if(dalens) post("%s - vector arg length has been limited to maximum common length (%i)",op,afrms); - - if(ssize) { - if(corrlen(tfrms,afrms)) - post("%s - vector src/dst and arg lengths are unequal -> set to max. common length (%i)",op,tfrms); - afrms = tfrms; - } - - ret->Frames(tfrms < 0?0:tfrms); - ret->ArgFrames(afrms < 0?0:afrms); - - if(ok) return ret; - else { delete ret; return NULL; } -} - - -/*! \brief Make real complex block for binary operations. - - \param op operation name - \param src source vasp - \param arg argument vasp - \param dst optional destination vasp - \param multi 0 off/1 on/-1 auto... controls whether argument vector is single- or multi-vectored - \param full true if imaginary part is compulsory - \return struct with vector data -*/ -CVecBlock *VaspOp::GetCVecs(const C *op,CVasp &src,const CVasp &arg,CVasp *dst,I multi,BL ssize,BL full) -{ - if(!arg.Ok()) { - post("%s - invalid argument vasp detected and ignored",op); - return NULL; - } - - I nvecs = src.Vectors(); - if(dst && dst->Ok() && dst->Vectors() != nvecs) { - nvecs = min(nvecs,dst->Vectors()); - post("%s - src/dst vector number not equal -> taking minimum",op); - } - - I pairs = nvecs/2; - CVecBlock *ret; - - if(multi < 0) { // auto mode - multi = arg.Vectors() > 2; // more than one argument pair -> multi - } - - if(multi) { - I apairs = arg.Vectors()/2; - if(arg.Vectors() != apairs*2) - if(full) { - post("%s - number of arg vectors is odd - not allowed",op); - return NULL; - } - else { - post("%s - number of arg vectors is odd - assuming complex part as 0",op); - ++apairs; - } - - if(apairs < pairs) { - pairs = apairs; - post("%s - too few arg vectors, operating on only first %i vector pairs",op,pairs); - } - ret = new CVecBlock(pairs,pairs,1); - for(I i = 0; i < pairs; ++i) - ret->Arg(i,arg.Buffer(i*2),arg.Buffer(i*2+1)); - } - else { - if(arg.Vectors() > 2) { - post("%s - using only first arg vector pair for all operations",op); - } - ret = new CVecBlock(pairs,pairs,1); - for(I i = 0; i < pairs; ++i) - ret->Arg(i,arg.Buffer(0),arg.Buffer(1)); - } - - BL ok = true,dlens = false,dalens = false; - I tfrms = -1,afrms = -1; - - { - if(nvecs != pairs*2) { - post("%s - number of src vectors is odd - omitting last vector",op); - // clear superfluous vector? - } - - for(I ci = 0; ok && ci < pairs; ++ci) { - // --- arg stuff ---------------- - - VBuffer *brarg = ret->ReArg(ci),*biarg = ret->ImArg(ci); - - if(multi || ci == 0) { - if(!brarg->Data()) { - post("%s - real arg vector (%s) is invalid",op,brarg->Name()); - ok = false; break; - } - else if(biarg && !biarg->Data()) { - post("%s - imag arg vector (%s) is invalid",op,biarg->Name()); - ok = false; break; - } - } - - // check against common arg length - if(brarg) dalens = dalens || corrlen(afrms,*brarg); - if(biarg) dalens = dalens || corrlen(afrms,*biarg); - - // --- src/dst stuff ---------------- - - VBuffer *brref = src.Buffer(ci*2),*biref = src.Buffer(ci*2+1); - VBuffer *brdst,*bidst; - if(dst && dst->Ok()) brdst = dst->Buffer(ci*2),bidst = dst->Buffer(ci*2+1); - else brdst = bidst = NULL; - - if(!brref->Data()) { - post("%s - real src vector (%s) is invalid",op,brref->Name()); - ok = false; break; // really break? - } - else if(biref && !biref->Data()) { - post("%s - imag src vector (%s) is invalid",op,biref->Name()); - ok = false; break; // really break? - } - else { - dlens = dlens || corrlen(tfrms,*brref); - if(biref) dlens = dlens || corrlen(tfrms,*biref); - if(brdst) dlens = dlens || corrlen(tfrms,*brdst); - if(bidst) dlens = dlens || corrlen(tfrms,*bidst); - } - - ret->Src(ci,brref,biref); - if(brdst) ret->Dst(ci,brdst,bidst); - } - } - - if(dlens) post("%s - vector src/dst length has been limited to maximum common length (%i)",op,tfrms); - if(dalens) post("%s - vector arg length has been limited to maximum common length (%i)",op,afrms); - - if(ssize) { - if(corrlen(tfrms,afrms)) - post("%s - vector src/dst and arg lengths are unequal -> set to max. common length (%i)",op,tfrms); - afrms = tfrms; - } - - ret->Frames(tfrms < 0?0:tfrms); - ret->ArgFrames(afrms < 0?0:afrms); - - if(ok) return ret; - else { delete ret; return NULL; } -} - - -/*! \brief Run the operation on the various real vectors. - - \param vecs src/arg/dst vector block - \param fun operative function - \param p parameter block for operative function - \return normalized vasp or NULL on error - - \todo set overlap flag - - \remark operative function must be capable of handling reversed direction -*/ -Vasp *VaspOp::DoOp(RVecBlock *vecs,opfun *fun,OpParam &p,BL symm) -{ - BL ok = true; - - if(vecs->ArgBlks() && (!p.arg || p.args < vecs->ArgBlks())) { - post("%s - not enough argument blocks",p.opname); - ok = false; - } - - const I scnt = symm?2:1; - for(I i = 0; ok && i < vecs->Vecs(); ++i) - for(I si = 0; ok && si < scnt; ++si) { - p.frames = vecs->Frames(); - - VBuffer *s = vecs->Src(i),*d = vecs->Dst(i); - p.rsdt = s->Pointer(),p.rss = s->Channels(); - - if(d) p.rddt = d->Pointer(),p.rds = d->Channels(); - else p.rddt = p.rsdt,p.rds = p.rss; - - for(I bi = 0; bi < vecs->ArgBlks(); ++bi) { - VBuffer *a = vecs->Arg(i,bi); - p.arg[bi].SetV(a?a->Pointer():NULL,a?a->Channels():0); - } - - if(!symm) - p.symm = -1; - else { - const I hcnt = p.frames/2; - p.oddrem = p.frames != 2*hcnt; - - if((p.symm = si) == 0) { - p.frames = hcnt+(p.oddrem?1:0); - } - else { - const I r = p.frames-hcnt; - p.frames = hcnt; - p.rsdt += r*p.rss,p.rddt += r*p.rds; - - // What to do with arguments in symmetric mode? - // let the object decide!! - } - } - - { // ---- Check out and try to resolve overlap situation ------------ - - BL sovr = p.SR_In(); // check whether dst is before src - if(p.HasArg()) { - // has argument - if(sovr) { - // src/dst needs reversal -> check if ok for arg/dst - p.ovrlap = true; - - if(p.AR_Can()) - p.R_Rev(); // Revert vectors - else { - post("%s - vector overlap situation can't be resolved",p.opname); - ok = false; - } - } - else if(p.AR_In()) { - // arg/dst needs reversal -> check if ok for src/dst - p.ovrlap = true; - - if(p.SR_Can()) - p.R_Rev(); // Revert vectors - else { - post("%s - vector overlap situation can't be resolved",p.opname); - ok = false; - } - } - } - else { // No arg - if(sovr) { - p.ovrlap = true; - p.R_Rev(); // if overlapping revert vectors - } - else - p.ovrlap = p.SR_Ovr(); - } - } - - ok = fun(p); - -#ifdef FLEXT_THREAD - flext_base::ThrYield(); -#endif - } - return ok?vecs->ResVasp():NULL; -} - - -/*! \brief Run the operation on the various complex vector pairs. - - \param vecs src/arg/dst vector block - \param fun operative function - \param p parameter block for operative function - \return normalized vasp or NULL on error - - \todo set overlap flag - - \remark operative function must be capable of handling reversed direction -*/ -Vasp *VaspOp::DoOp(CVecBlock *vecs,opfun *fun,OpParam &p,BL symm) -{ - BL ok = true; - - if(vecs->ArgBlks() && (!p.arg || p.args < vecs->ArgBlks())) { - post("%s - not enough argument blocks",p.opname); - ok = false; - } - - const I scnt = symm?2:1; - for(I i = 0; ok && i < vecs->Pairs(); ++i) - for(I si = 0; ok && si < scnt; ++si) { - p.frames = vecs->Frames(); - - VBuffer *rsv = vecs->ReSrc(i),*isv = vecs->ImSrc(i); - p.rsdt = rsv->Pointer(),p.rss = rsv->Channels(); - p.isdt = isv->Pointer(),p.iss = isv->Channels(); - - VBuffer *rdv = vecs->ReDst(i),*idv = vecs->ImDst(i); - if(rdv) { - p.rddt = rdv->Pointer(),p.rds = rdv->Channels(); - if(idv) p.iddt = idv->Pointer(),p.ids = idv->Channels(); - else p.iddt = NULL; //,p.ids = 0; // Can that be NULL?? - } - else { - p.rddt = p.rsdt,p.rds = p.rss,p.iddt = p.isdt,p.ids = p.iss; - } - - for(I bi = 0; bi < vecs->ArgBlks(); ++bi) { - VBuffer *rav = vecs->ReArg(i,bi),*iav = vecs->ImArg(i,bi); - p.arg[bi].SetV(rav?rav->Pointer():NULL,rav?rav->Channels():0,iav?iav->Pointer():NULL,iav?iav->Channels():0); - } - - if(!symm) - p.symm = -1; - else { - const I hcnt = p.frames/2; - p.oddrem = p.frames != 2*hcnt; - - if((p.symm = si) == 0) { - p.frames = hcnt+(p.oddrem?1:0); - } - else { - const I r = p.frames-hcnt; - p.frames = hcnt; - p.rsdt += r*p.rss,p.isdt += r*p.iss; - p.rddt += r*p.rds; - if(p.iddt) p.iddt += r*p.ids; // Can that be NULL?? - - // What to do with arguments? - // let objects decide!! - } - } - - { // ---- Check out and try to resolve overlap situation ------------ - - BL sovr = p.SR_In(); // check whether dst is before src - if(sovr && !p.SI_Can()) { - post("%s - src/dst overlap of re/im vectors not resolvable",p.opname); - ok = false; - } - - if(ok && p.HasArg()) { - // has argument - if(sovr) { - // src/dst needs reversal -> check if ok for arg/dst - p.ovrlap = true; - - if(p.AR_Can() && p.AI_Can()) - p.C_Rev(); // Revert vectors - else { - post("%s - vector overlap situation can't be resolved",p.opname); - ok = false; - } - } - else if(p.AR_In() || p.AI_In()) { - // arg/dst needs reversal -> check if ok for src/dst - p.ovrlap = true; - - if(p.AR_Can() && p.AI_Can() && p.SR_Can() && p.SI_Can()) - p.C_Rev(); // Revert vectors - else { - post("%s - vector overlap situation can't be resolved",p.opname); - ok = false; - } - } - } - else { // No arg - if(sovr) { - p.ovrlap = true; - p.C_Rev(); // if overlapping revert vectors - } - else - p.ovrlap = p.SR_Ovr() || p.SI_Ovr(); - } - } - - ok = fun(p); - -#ifdef FLEXT_THREAD - flext_base::ThrYield(); -#endif - } - return ok?vecs->ResVasp():NULL; -} - - - diff --git a/externals/grill/vasp/source/rdx2fft.cpp b/externals/grill/vasp/source/rdx2fft.cpp deleted file mode 100644 index b4ecf6c9..00000000 --- a/externals/grill/vasp/source/rdx2fft.cpp +++ /dev/null @@ -1,82 +0,0 @@ -#include <math.h> - -#define PI 3.1415926535897932384f - -////////////////////////////////////////////////////////////////////////// - -/* calculate bidirectional fourier transform of complex data radix 2 */ -/* adapted from subroutine FOUREA listed in */ -/* Programs for Digital Signal Processing */ -/* edited by Digital Signal Processing Committee */ -/* IEEE Acoustics Speech and Signal Processing Committee */ -/* Chapter 1 Section 1.1 Page 1.1-4,5 */ -/* direct -1 forward +1 reverse */ - -bool fft_bidir_complex_radix2(int size,float *real,float *imag,int direct) -{ - int i,j,m,mmax,istep; - float c,s,treal,timag,theta; - - /* compute transform */ - - j=1; - for(i=1;i<=size;i++) - { - if(i<j) - { - treal=real[j-1]; - timag=imag[j-1]; - real[j-1]=real[i-1]; - imag[j-1]=imag[i-1]; - real[i-1]=treal; - imag[i-1]=timag; - } - m=size/2; - while(j>m) - { - j-=m; - m=(m+1)/2; - } - j+=m; - } - mmax=1; - while(size>mmax) - { - istep=2*mmax; - for(m=1;m<=mmax;m++) - { - theta=PI*(float)direct*(float)(m-1)/(float)mmax; - c=(float)cos(theta); - s=(float)sin(theta); - for(i=m;i<=size;i+=istep) - { - j=i+mmax; - treal=real[j-1]*c-imag[j-1]*s; - timag=imag[j-1]*c+real[j-1]*s; - real[j-1]=real[i-1]-treal; - imag[j-1]=imag[i-1]-timag; - real[i-1]+=treal; - imag[i-1]+=timag; - } - } - mmax=istep; - } - - return true; -} - -#if 0 -/* calculate forward fourier transform of complex data radix 2 */ - -bool fft_fwd_complex_radix2(int size,float *real,float *imag) -{ - return fft_bidir_complex_radix2(size,real,imag,-1); -} - -/* calculate inverse fourier transform of complex data radix 2 */ - -bool fft_inv_complex_radix2(int size,float *real,float *imag) -{ - return fft_bidir_complex_radix2(size,real,imag,1); -} -#endif diff --git a/externals/grill/vasp/source/rvfft.cpp b/externals/grill/vasp/source/rvfft.cpp deleted file mode 100644 index b7d81c93..00000000 --- a/externals/grill/vasp/source/rvfft.cpp +++ /dev/null @@ -1,357 +0,0 @@ -#include <math.h> - -#ifdef _MSC_VER -#pragma warning(disable: 4244) -#endif - -#define PI 3.14159265358979 - -///////////////////////////////////////////////////////// -// Sorensen in-place split-radix FFT for real values -// data: array of floats: -// re(0),re(1),re(2),...,re(size-1) -// -// output: -// re(0),re(1),re(2),...,re(size/2),im(size/2-1),...,im(1) -// normalized by array length -// -// Source: -// Sorensen et al: Real-Valued Fast Fourier Transform Algorithms, -// IEEE Trans. ASSP, ASSP-35, No. 6, June 1987 - -void realfft_split(float *data,int n) -{ - - int i,j,k,i5,i6,i7,i8,i0,id,i1,i2,i3,i4,n2,n4,n8; - float t1,t2,t3,t4,t5,t6,a3,ss1,ss3,cc1,cc3,a,e,sqrt2; - - sqrt2=sqrt(2.0); - n4=n-1; - - //data shuffling - for (i=0,j=0,n2=n/2; i<n4 ; i++){ - if (i<j){ - t1=data[j]; - data[j]=data[i]; - data[i]=t1; - } - k=n2; - while (k<=j){ - j-=k; - k>>=1; - } - j+=k; - } - -/*----------------------*/ - - //length two butterflies - i0=0; - id=4; - do{ - for (; i0<n4; i0+=id){ - i1=i0+1; - t1=data[i0]; - data[i0]=t1+data[i1]; - data[i1]=t1-data[i1]; - } - id<<=1; - i0=id-2; - id<<=1; - } while ( i0<n4 ); - - /*----------------------*/ - //L shaped butterflies -n2=2; -for(k=n;k>2;k>>=1){ - n2<<=1; - n4=n2>>2; - n8=n2>>3; - e = 2*PI/(n2); - i1=0; - id=n2<<1; - do{ - for (; i1<n; i1+=id){ - i2=i1+n4; - i3=i2+n4; - i4=i3+n4; - t1=data[i4]+data[i3]; - data[i4]-=data[i3]; - data[i3]=data[i1]-t1; - data[i1]+=t1; - if (n4!=1){ - i0=i1+n8; - i2+=n8; - i3+=n8; - i4+=n8; - t1=(data[i3]+data[i4])/sqrt2; - t2=(data[i3]-data[i4])/sqrt2; - data[i4]=data[i2]-t1; - data[i3]=-data[i2]-t1; - data[i2]=data[i0]-t2; - data[i0]+=t2; - } - } - id<<=1; - i1=id-n2; - id<<=1; - } while ( i1<n ); - a=e; - for (j=2; j<=n8; j++){ - a3=3*a; - cc1=cos(a); - ss1=sin(a); - cc3=cos(a3); - ss3=sin(a3); - a=j*e; - i=0; - id=n2<<1; - do{ - for (; i<n; i+=id){ - i1=i+j-1; - i2=i1+n4; - i3=i2+n4; - i4=i3+n4; - i5=i+n4-j+1; - i6=i5+n4; - i7=i6+n4; - i8=i7+n4; - t1=data[i3]*cc1+data[i7]*ss1; - t2=data[i7]*cc1-data[i3]*ss1; - t3=data[i4]*cc3+data[i8]*ss3; - t4=data[i8]*cc3-data[i4]*ss3; - t5=t1+t3; - t6=t2+t4; - t3=t1-t3; - t4=t2-t4; - t2=data[i6]+t6; - data[i3]=t6-data[i6]; - data[i8]=t2; - t2=data[i2]-t3; - data[i7]=-data[i2]-t3; - data[i4]=t2; - t1=data[i1]+t5; - data[i6]=data[i1]-t5; - data[i1]=t1; - t1=data[i5]+t4; - data[i5]-=t4; - data[i2]=t1; - } - id<<=1; - i=id-n2; - id<<=1; - } while(i<n); - } - } -} - - -///////////////////////////////////////////////////////// -// Sorensen in-place inverse split-radix FFT for real values -// data: array of doubles: -// re(0),re(1),re(2),...,re(size/2),im(size/2-1),...,im(1) -// -// output: -// re(0),re(1),re(2),...,re(size-1) -// NOT normalized by array length -// -// Source: -// Sorensen et al: Real-Valued Fast Fourier Transform Algorithms, -// IEEE Trans. ASSP, ASSP-35, No. 6, June 1987 - -void irealfft_split(float *data,int n){ - - int i,j,k,i5,i6,i7,i8,i0,id,i1,i2,i3,i4,n2,n4,n8,n1; - float t1,t2,t3,t4,t5,a3,ss1,ss3,cc1,cc3,a,e,sqrt2; - - sqrt2=sqrt(2.0); - -n1=n-1; -n2=n<<1; -for(k=n;k>2;k>>=1){ - id=n2; - n2>>=1; - n4=n2>>2; - n8=n2>>3; - e = 2*PI/(n2); - i1=0; - do{ - for (; i1<n; i1+=id){ - i2=i1+n4; - i3=i2+n4; - i4=i3+n4; - t1=data[i1]-data[i3]; - data[i1]+=data[i3]; - data[i2]*=2; - data[i3]=t1-2*data[i4]; - data[i4]=t1+2*data[i4]; - if (n4!=1){ - i0=i1+n8; - i2+=n8; - i3+=n8; - i4+=n8; - t1=(data[i2]-data[i0])/sqrt2; - t2=(data[i4]+data[i3])/sqrt2; - data[i0]+=data[i2]; - data[i2]=data[i4]-data[i3]; - data[i3]=2*(-t2-t1); - data[i4]=2*(-t2+t1); - } - } - id<<=1; - i1=id-n2; - id<<=1; - } while ( i1<n1 ); - a=e; - for (j=2; j<=n8; j++){ - a3=3*a; - cc1=cos(a); - ss1=sin(a); - cc3=cos(a3); - ss3=sin(a3); - a=j*e; - i=0; - id=n2<<1; - do{ - for (; i<n; i+=id){ - i1=i+j-1; - i2=i1+n4; - i3=i2+n4; - i4=i3+n4; - i5=i+n4-j+1; - i6=i5+n4; - i7=i6+n4; - i8=i7+n4; - t1=data[i1]-data[i6]; - data[i1]+=data[i6]; - t2=data[i5]-data[i2]; - data[i5]+=data[i2]; - t3=data[i8]+data[i3]; - data[i6]=data[i8]-data[i3]; - t4=data[i4]+data[i7]; - data[i2]=data[i4]-data[i7]; - t5=t1-t4; - t1+=t4; - t4=t2-t3; - t2+=t3; - data[i3]=t5*cc1+t4*ss1; - data[i7]=-t4*cc1+t5*ss1; - data[i4]=t1*cc3-t2*ss3; - data[i8]=t2*cc3+t1*ss3; - } - id<<=1; - i=id-n2; - id<<=1; - } while(i<n1); - } - } - - /*----------------------*/ - i0=0; - id=4; - do{ - for (; i0<n1; i0+=id){ - i1=i0+1; - t1=data[i0]; - data[i0]=t1+data[i1]; - data[i1]=t1-data[i1]; - } - id<<=1; - i0=id-2; - id<<=1; - } while ( i0<n1 ); - -/*----------------------*/ - -//data shuffling - for (i=0,j=0,n2=n/2; i<n1 ; i++){ - if (i<j){ - t1=data[j]; - data[j]=data[i]; - data[i]=t1; - } - k=n2; - while (k<=j){ - j-=k; - k>>=1; - } - j+=k; - } -} - - -#if 0 -///////////////////////////////////////////////////////// -// Sorensen in-place radix-2 FFT for real values -// data: array of floats: -// re(0),re(1),re(2),...,re(size-1) -// -// output: -// re(0),re(1),re(2),...,re(size/2),im(size/2-1),...,im(1) -// normalized by array length -// -// Source: -// Sorensen et al: Real-Valued Fast Fourier Transform Algorithms, -// IEEE Trans. ASSP, ASSP-35, No. 6, June 1987 - -void realfft_radix2(float *data,int n){ - - float xt,a,e, t1, t2, cc, ss; - int i, j, k, n1, n2, n3, n4, i1, i2, i3, i4; - - n4=n-1; - //data shuffling - for (i=0,j=0,n2=n/2; i<n4 ; i++){ - if (i<j){ - xt=data[j]; - data[j]=data[i]; - data[i]=xt; - } - k=n2; - while (k<=j){ - j-=k; - k>>=1; - } - j+=k; - } - -/* -------------------- */ - for (i=0; i<n; i += 2) - { - xt = data[i]; - data[i] = xt + data[i+1]; - data[i+1] = xt - data[i+1]; - } -/* ------------------------ */ - n2 = 1; - for (k=n;k>2;k>>=1){ - n4 = n2; - n2 = n4 << 1; - n1 = n2 << 1; - e = 2*PI/(n1); - for (i=0; i<n; i+=n1){ - xt = data[i]; - data[i] = xt + data[i+n2]; - data[i+n2] = xt-data[i+n2]; - data[i+n4+n2] = -data[i+n4+n2]; - a = e; - n3=n4-1; - for (j = 1; j <=n3; j++){ - i1 = i+j; - i2 = i - j + n2; - i3 = i1 + n2; - i4 = i - j + n1; - cc = cos(a); - ss = sin(a); - a += e; - t1 = data[i3] * cc + data[i4] * ss; - t2 = data[i3] * ss - data[i4] * cc; - data[i4] = data[i2] - t2; - data[i3] = -data[i2] - t2; - data[i2] = data[i1] - t1; - data[i1] += t1; - } - } - } -} -#endif diff --git a/externals/grill/vasp/source/util.cpp b/externals/grill/vasp/source/util.cpp deleted file mode 100644 index 0b1050c1..00000000 --- a/externals/grill/vasp/source/util.cpp +++ /dev/null @@ -1,24 +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. - -*/ - -#include "main.h" -#include "util.h" -#include <math.h> - -/* -R arg(R re,R im) -{ - if(re) - return fmod(atan(im/re)+(re < 0?2*PI:PI),2*PI)-PI; - else - if(im || re) return im > 0?PI/2:-PI/2; - else return 0; -} -*/ diff --git a/externals/grill/vasp/source/util.h b/externals/grill/vasp/source/util.h deleted file mode 100644 index 7f7cd080..00000000 --- a/externals/grill/vasp/source/util.h +++ /dev/null @@ -1,58 +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. - -*/ - -#ifndef __VASP_UTIL_H -#define __VASP_UTIL_H - -#include "main.h" - -#ifndef PI -#define PI 3.1415926535897932385 -#endif - -#define BIG 1.e10 - -#ifdef min -#undef min -#endif - -#ifdef max -#undef max -#endif - -template<class T> -inline V swap(T &a,T &b) { T c = a; a = b; b = c; } - -template<class T> -inline T min(T a,T b) { return a < b?a:b; } - -template<class T> -inline T max(T a,T b) { return a > b?a:b; } - - -template<class T> -T arg(T re,T im) -{ - if(re) - return (T)(fmod(atan(im/re)+(re < 0?2*PI:PI),2*PI)-PI); - else - if(im || re) return (T)(im > 0?PI/2:-PI/2); - else return 0; -} - -template<class T> -inline T sgn(T x) { return (T)(x?(x < 0?-1:1):0); } - -template<class T> -inline T sqabs(T re,T im) { return re*re+im*im; } - - - -#endif diff --git a/externals/grill/vasp/source/vasp.cpp b/externals/grill/vasp/source/vasp.cpp deleted file mode 100644 index 3fe91330..00000000 --- a/externals/grill/vasp/source/vasp.cpp +++ /dev/null @@ -1,384 +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. - -*/ - -#include "main.h" -#include "classes.h" -#include "util.h" -#include "buflib.h" - -/////////////////////////////////////////////////////////////////////////// -// Vasp class -/////////////////////////////////////////////////////////////////////////// - -Vasp::Ref::Ref(VBuffer &b): sym(b.Symbol()),chn(b.Channel()),offs(b.Offset()) {} -Vasp::Ref::Ref(VSymbol &s,I c,I o): sym(s),chn(c),offs(o) {} -Vasp::Ref::~Ref() {} - -Vasp::Ref &Vasp::Ref::operator =(const Ref &r) -{ - sym = r.sym,chn = r.chn,offs = r.offs; - return *this; -} - -V Vasp::Ref::Symbol(const VSymbol &s) { sym = s; } - - -Vasp::Vasp(): - refs(0),chns(0),ref(NULL), - frames(0) -{ -} - -Vasp::Vasp(I argc,const t_atom *argv): - refs(0),chns(0),ref(NULL), - frames(0) -{ - operator ()(argc,argv); -} - -Vasp::Vasp(const Vasp &v): - refs(0),chns(0),ref(NULL), - frames(0) -{ - operator =(v); -} - -Vasp::Vasp(I fr,const Ref &r): - refs(0),chns(0),ref(NULL), - frames(fr) -{ - AddVector(r); -} - - -Vasp::~Vasp() -{ - Clear(); -} - -Vasp &Vasp::Clear() -{ - refs = frames = chns = 0; - if(ref) { delete[] ref; ref = NULL; } - return *this; -} - - -BL Vasp::ChkArgs(I argc,const t_atom *argv) -{ - I ix = 0; - - // vasp keyword - t_symbol *v = ix < argc?flext::GetASymbol(argv[ix]):NULL; - if(v && v == vasp_base::sym_vasp) ix++; // if it is "vasp" ignore it - - // length argument - if(argc > ix && flext::CanbeInt(argv[ix])) ix++; - - while(argc > ix) { - // check for symbol - t_symbol *bsym = flext::GetASymbol(argv[ix]); - if(!bsym || !flext::GetString(bsym) || !flext::GetString(bsym)[0]) { // expect a symbol - // not symbol -> bail out - return false; - } - else - ix++; - - // check for offset - if(argc > ix && flext::CanbeInt(argv[ix])) ix++; - - // check for channel - if(argc > ix && flext::CanbeInt(argv[ix])) ix++; - } - - return true; -} - -V Vasp::Resize(I rcnt) { - if(!ref) { - ref = new Ref[refs = rcnt]; - chns = 0; - } - else if(rcnt > refs) { - Ref *rnew = new Ref[refs = rcnt]; - for(I ix = 0; ix < chns; ++ix) rnew[ix] = ref[ix]; - delete[] ref; - ref = rnew; - } -} - - - -Vasp &Vasp::operator =(const Vasp &v) -{ - if(!v.Ok()) - Clear(); - else { - frames = v.frames; - if(!ref || v.chns > refs) { - if(ref) delete[] ref; - ref = new Ref[refs = v.chns]; - } - - chns = v.chns; - for(I ix = 0; ix < chns; ++ix) { - ref[ix] = v.ref[ix]; - } - } - - return *this; -} - - -Vasp &Vasp::AddVector(const Ref &r) -{ - Resize(chns+1); - ref[chns++] = r; - return *this; -} - - -// parse argument list -Vasp &Vasp::operator ()(I argc,const t_atom *argv) -{ - BL lenset = false; - I ix = 0; - - I maxneeded = argc; // maximum number of ref'd buffers - // rather use a temp storage - if(!ref || refs < maxneeded) { - if(ref) delete[] ref; - ref = new Ref[refs = maxneeded]; - } - - t_symbol *v = ix < argc?flext::GetASymbol(argv[ix]):NULL; - if(v && v == vasp_base::sym_vasp) ix++; // if it is "vasp" ignore it - - if(argc > ix && flext::CanbeInt(argv[ix])) { - frames = flext::GetAInt(argv[ix]); - lenset = true; - ix++; - } - else - frames = -1; - - chns = 0; - while(argc > ix) { - t_symbol *bsym = flext::GetASymbol(argv[ix]); - if(!bsym || !flext::GetString(bsym) || !flext::GetString(bsym)[0]) { // expect a symbol - Clear(); - return *this; - } - else - ix++; - - // is a symbol! - Ref &r = ref[chns]; - r.Symbol(VSymbol(bsym)); - - if(argc > ix && flext::CanbeInt(argv[ix])) { - r.Offset((I)flext::GetAInt(argv[ix])); - ix++; - } - else - r.Offset(0); - - if(argc > ix && flext::CanbeInt(argv[ix])) { - r.Channel((I)flext::GetAInt(argv[ix])); - ix++; - } - else - r.Channel(0); - - chns++; - } - - if(!lenset) { - // set length to maximum! - // or let it be -1 to represent the maximum?! - frames = -1; - // if len is already set then where to check for oversize? - } - - return *this; -} - - -VBuffer *Vasp::Buffer(I ix) const -{ - if(ix >= Vectors()) - return NULL; - else { - const Ref &r = Vector(ix); - VBuffer *ret = BufLib::Get(r.Symbol(),r.Channel(),Frames(),r.Offset()); - return ret; - } -} - -// generate Vasp list of buffer references -V Vasp::MakeList(flext::AtomList &ret,BL withvasp) const -{ - I voffs = withvasp?1:0; - I needed = voffs+1+Vectors()*3; - ret(needed); - - if(withvasp) - flext::SetSymbol(ret[0],vasp_base::sym_vasp); // VASP - - flext::SetInt(ret[voffs],frames); // frames - - for(I ix = 0; ix < Vectors(); ++ix) { - const Ref &r = Vector(ix); - flext::SetSymbol(ret[voffs+1+ix*3],r.Symbol().Symbol()); // buf - flext::SetInt(ret[voffs+2+ix*3],r.Offset()); // offs - flext::SetInt(ret[voffs+3+ix*3],r.Channel()); // chn - } -} - - -// generate Vasp list of buffer references -flext::AtomList *Vasp::MakeList(BL withvasp) const -{ - flext::AtomList *ret = new flext::AtomList; - MakeList(*ret,withvasp); - return ret; -} - - -V Vasp::Refresh() -{ - for(I i = 0; i < Vectors(); ++i) { - VBuffer *vb = Buffer(i); - if(vb) { - vb->Refresh(); - delete vb; - } - } -} - -V Vasp::Offset(I o) -{ - for(I i = 0; i < Vectors(); ++i) Vector(i).Offset(o); -} - -V Vasp::OffsetD(I od) -{ - for(I i = 0; i < Vectors(); ++i) Vector(i).OffsetD(od); -} - - -V Vasp::Channel(I c) -{ - for(I i = 0; i < Vectors(); ++i) Vector(i).Channel(c); -} - - -V Vasp::Size(I s,BL keep,BL zero) -{ - for(I i = 0; i < Vectors(); ++i) { - VBuffer *buf = Buffer(i); - if(buf) { - buf->Frames(s,keep,zero); - delete buf; - } - } -} - -V Vasp::SizeD(I sd,BL keep,BL zero) -{ - for(I i = 0; i < Vectors(); ++i) { - VBuffer *buf = Buffer(i); - if(buf) { - I s = buf->Frames()+sd; - buf->Frames(s >= 0?s:0,keep,zero); - delete buf; - } - } -} - - -V Vasp::SizeM(R f,BL keep,BL zero) -{ - for(I i = 0; i < Vectors(); ++i) { - VBuffer *buf = Buffer(i); - if(buf) { - I s = (I)(buf->Frames()*f); - buf->Frames(s >= 0?s:0,keep,zero); - delete buf; - } - } -} - -BL Vasp::Check() const -{ - BL ok = true; - for(I i = 0; ok && i < Vectors(); ++i) { - VBuffer *buf = Buffer(i); - if(!buf) - ok = false; - else { - ok = buf->Data() != NULL; - delete buf; - } - } - return ok; -} - -I Vasp::ChkFrames() const -{ - if(Vectors() == 0) return 0; - - I frms = -1; - for(I i = 0; i < Vectors(); ++i) { - VBuffer *buf = Buffer(i); - if(buf) { - I f = buf->Length(); - if(frms < 0 || f < frms) frms = f; - delete buf; - } - } - - return frms < 0?0:frms; -} - - -// ------------------------------------ - -CVasp::CVasp() {} - -CVasp::CVasp(const Vasp &v): - Vasp(v) -{ - if(!Check()) - Clear(); - else - Frames(ChkFrames()); -} - -CVasp &CVasp::operator +=(const CVasp &v) -{ - if(v.Ok()) { - if(!Ok()) *this = v; - else { - I f = Frames(),vf = v.Frames(); - - if(f != vf) { - post("vasp - Frame count of joined vasps is different - taking the minimum"); - Frames(min(f,vf)); - } - - Resize(Vectors()+v.Vectors()); - for(I i = 0; i < v.Vectors(); ++i) AddVector(v.Vector(i)); - } - } - return *this; -} - diff --git a/externals/grill/vasp/source/vasp.h b/externals/grill/vasp/source/vasp.h deleted file mode 100644 index 0cc80be8..00000000 --- a/externals/grill/vasp/source/vasp.h +++ /dev/null @@ -1,161 +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. - -*/ - -#ifndef __VASP__H -#define __VASP__H - -#include "vbuffer.h" - -class Vasp: - public flext -{ -public: - class Ref: - public flext - { - public: - Ref(): sym(NULL) {} - Ref(VBuffer &b); - Ref(VSymbol &s,I c,I o); - Ref(const Ref &r) { operator =(r); } - ~Ref(); - - Ref &operator =(const Ref &r); - - V Clear() { sym.Clear(); } - BL Ok() const { return sym.Ok(); } - - VSymbol &Symbol() { return sym; } - const VSymbol &Symbol() const { return sym; } - V Symbol(const VSymbol &s); - I Channel() const { return chn; } - V Channel(I c) { chn = c; } - I Offset() const { return offs; } - V Offset(I o) { offs = o; } - V OffsetD(I o) { offs += o; } - - protected: - VSymbol sym; - I chn; - I offs; // counted in frames - }; - - Vasp(); - Vasp(I argc,const t_atom *argv); - Vasp(const Vasp &v); - Vasp(I frames,const Ref &r); - ~Vasp(); - - static BL ChkArgs(I argc,const t_atom *argv); - - const C *thisName() const { return typeid(*this).name(); } - - // check if vasp reference is valid - BL Check() const; - - Vasp &operator =(const Vasp &v); - Vasp &operator ()(I argc,const t_atom *argv /*,BL withvasp = false*/); - - // set used channels to 0 - Vasp &Clear(); - - // used vectors - I Vectors() const { return chns; } - - // length of the vasp (in frames) - I Frames() const { return frames; } - // set frame count - V Frames(I fr) { frames = fr; } - // set frame count differentially - V FramesD(I frd) { if(frames >= 0) frames += frd; } - // set frame count - V FramesM(R f) { if(frames >= 0) frames = (int)(frames*f); } - // set frame count - V FramesR(R f) { if(f) FramesM(1./f); else Frames(0); } - - // set buffer sizes - V Size(I fr,BL keep = true,BL zero = true); - // set frame count differentially - V SizeD(I frd,BL keep = true,BL zero = true); - // set frame count - V SizeM(R f,BL keep = true,BL zero = true); - // set frame count - V SizeR(R f,BL keep = true,BL zero = true) { if(f) SizeM(1./f,keep,zero); else Size(0,false); } - - // actual length of the vasp (in frames) - I ChkFrames() const; - - // set offset(s) - V Offset(I fr); - // set offset(s) differentially - V OffsetD(I fr); - - // set channel(s) - V Channel(I ch); - - BL Ok() const { return ref && Vectors() > 0; } - BL IsComplex() const { return ref && Vectors() >= 2 && ref[1].Ok(); } - - // get any vector - test if in range 0..Vectors()-1! - const Ref &Vector(I ix) const { return ref[ix]; } - Ref &Vector(I ix) { return ref[ix]; } - - // get real part - be sure that Ok! - const Ref &Real() const { return Vector(0); } - Ref &Real() { return Vector(0); } - - // get imaginary part - be sure that Complex! - const Ref &Imag() const { return Vector(1); } - Ref &Imag() { return Vector(1); } - - // get buffer associated to a channel - VBuffer *Buffer(I ix) const; - - // add another vector - Vasp &AddVector(const Ref &r); - - // Real/Complex - VBuffer *ReBuffer() const { return Buffer(0); } - VBuffer *ImBuffer() const { return Buffer(1); } - - // prepare and reference t_atom list for output - V MakeList(flext::AtomList &ret,BL withvasp = true) const; - // prepare and reference t_atom list for output - flext::AtomList *MakeList(BL withvasp = true) const; - - // make a graphical update of all buffers in vasp - V Refresh(); - -protected: - I frames; // length counted in frames - I chns; // used channels - I refs; // allocated channels (>= chns) - Ref *ref; - - V Resize(I rcnt); -}; - -/*! \brief Checked vasp - \remark Only use that for immediate operation! -*/ -class CVasp: - public Vasp -{ -public: - CVasp(); - CVasp(const Vasp &v); - - // add vectors of another vasp - CVasp &operator +=(const CVasp &v); - -}; - - -#endif diff --git a/externals/grill/vasp/source/vasp.rsrc b/externals/grill/vasp/source/vasp.rsrc deleted file mode 100755 index 632ebe43..00000000 --- a/externals/grill/vasp/source/vasp.rsrc +++ /dev/null @@ -1,13 +0,0 @@ -(This file must be converted with BinHex 4.0) -:!!"bFh*M8P0&4!#3#!)RpQ8!N!3"!!!!!I!!!!$`!!!!0b"MEfjdB@PZC@3JE@9 -cFf&RC5"TEL"LD@jKFRNJ+Lm0$@KcE'PNCA+j,R*cFQ-#!!)!FR0bBe*6483"!2q -3"!)!FR0bBe*6483"!2q3"!#3%U((pmm!N!B%Z#TLAhC`D@il#3N[+L"`BA4MD'P -ZE'9d)'PZ)(4SDA-JF'&dBfKPFLGc)(CTFfpLDL!U,`d*#94&5'&ZC'aP)'*IG'9 -S1`Q3"#mU)(4PH(3JC@4TG'pb)'KKEQ4XC5!U,`d*I5"LAh9Z1`ep1`d0,bSJBQp -i)'CXB@Gc)#S[$3dMC!!!!1aJ#J!!E8&i6!a#!!"1qJ!`6R8LAb!I,S"R%L"!F!! -3%'!%%1J!!9()rrT#%%l4@8m[,`!)6VVrh#"I)!K1G8j@r[T)j`!`*Qi!#&P2,ca -Y3AK-2c`!!DJ1)&mN5#!+Cbi[#NKZr[T)E[lm5'lr!+QS5'lr!%kkrlK)E[m!3IS -!,NK3)'X!N!"1N!"2l`!-B!j"qJ!f5&!JD`#3!%k3!&K260m-!%jH6R@%E@&TEJ! -!3#9c1L"ZEh3JBACKD@aKBQaP)'C[FL!f1%X!G'KTFb"[BQTPBh3JDA-JEQpd)'& -fB@PXB@*XC5"QEh)J0MK,!*!%!3!!!!(`!!!!m!!!!$F4Y4E8!`B!!!!F!$)!!'e -"H%`!!!!+(d!!N!B4Y4A!"(CKFh!6F!: diff --git a/externals/grill/vasp/source/vbuffer.cpp b/externals/grill/vasp/source/vbuffer.cpp deleted file mode 100644 index 0308358f..00000000 --- a/externals/grill/vasp/source/vbuffer.cpp +++ /dev/null @@ -1,51 +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. - -*/ - -#include "main.h" -#include "vbuffer.h" -#include "buflib.h" - -V VSymbol::Inc() { if(sym) BufLib::IncRef(sym); } -V VSymbol::Dec() { if(sym) BufLib::DecRef(sym); } - -/////////////////////////////////////////////////////////////////////////// -// SysBuf class -/////////////////////////////////////////////////////////////////////////// - -SysBuf &SysBuf::Set(const VSymbol &s,I c,I l,I o) -{ - buf.Set(s.Symbol()); - - chn = c; - if(chn > Channels()) { - I chn1 = Channels()-1; - post("vasp - buffer %s: Channel index (%i) is out of range, set to highest (%i)",s.Name(),chn,chn1); - chn = chn1; // simply correct the channel?? - } - offs = o; - if(offs < 0) { - post("vasp - buffer %s: Offset (%i) is out of range, set to 0",s.Name(),offs); - offs = 0; - } - if(offs > Frames()) { -// post("vasp - buffer %s: Offset (%i) is out of range, set to %i",s.Name(),offs,Frames()); - offs = Frames(); - } - len = l >= 0?l:Frames(); - if(offs+len > Frames()) { - I len1 = Frames()-offs; - if(l >= 0) post("vasp - buffer %s: Length (%i) is out of range, corrected to %i",s.Name(),len,len1); - len = len1; - } - - return *this; -} - - diff --git a/externals/grill/vasp/source/vbuffer.h b/externals/grill/vasp/source/vbuffer.h deleted file mode 100644 index a87685c9..00000000 --- a/externals/grill/vasp/source/vbuffer.h +++ /dev/null @@ -1,128 +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. - -*/ - -#ifndef __VASP_VBUFFER_H -#define __VASP_VBUFFER_H - -#include "main.h" - -class VSymbol: - public flext -{ -public: - VSymbol(const t_symbol *s = NULL): sym(s) { Inc(); } - VSymbol(const VSymbol &s): sym(s.sym) { Inc(); } - ~VSymbol() { Dec(); } - - BL Ok() const { return sym != NULL; } - V Clear() { Dec(); sym = NULL; } - -// V *Thing() { return sym?flext_base::GetThing(sym):NULL; } -// V Thing(V *th) { if(sym) flext_base::GetThing(sym); } - - VSymbol &operator =(const VSymbol &s) { Dec(); sym = s.sym; Inc(); return *this; } - - const t_symbol *Symbol() const { return sym; } - const C *Name() const { return flext::GetAString(Symbol()); } - -protected: - V Inc(); - V Dec(); - - const t_symbol *sym; -}; - -class VBuffer: - public flext -{ -public: - virtual ~VBuffer() {} - - virtual BL Ok() const = 0; - virtual I Frames() const = 0; - virtual V Frames(I fr,BL keep,BL zero) = 0; - - virtual I Channels() const = 0; - virtual S *Data() = 0; - - virtual V Refresh() {} - virtual V Dirty() {} - - S *Pointer() { return Data()+Offset()*Channels()+Channel(); } - - virtual VSymbol Symbol() const = 0; - const C *Name() const { return Symbol().Name(); } - - I Channel() const { return chn; } - V Channel(I c) { chn = c; } - - I Offset() const { return offs; } - V Offset(I o) { offs = o; } - - I Length() const { return len; } - V Length(I l) { len = l; } - -protected: - VBuffer(I c = 0,I l = 0,I o = 0): chn(c),offs(o),len(l) {} - - I chn,offs,len; -}; - - -class SysBuf: - public VBuffer -{ -public: - SysBuf(const VSymbol &s,I chn = 0,I len = -1,I offs = 0) { Set(s,chn,len,offs); } - - virtual BL Ok() const { return buf.Ok(); } - virtual V Refresh() { buf.Dirty(true); } - virtual V Dirty() { buf.Dirty(false); } - - virtual VSymbol Symbol() const { return buf.Symbol(); } - - SysBuf &Set(const VSymbol &s,I chn = 0,I len = -1,I offs = 0); - - virtual I Frames() const { return buf.Frames(); } - virtual V Frames(I fr,BL keep,BL zero) { buf.Frames(fr,keep,zero); } - - virtual I Channels() const { return buf.Channels(); } - virtual S *Data() { return buf.Data(); } - -protected: - flext::buffer buf; -}; - - -class BufEntry; - -class ImmBuf: - public VBuffer -{ -public: - ImmBuf(I len,BL zero = true); - ImmBuf(BufEntry *e,I len = -1,I offs = 0); - - virtual BL Ok() const { return entry != NULL; } - - virtual VSymbol Symbol() const; - - virtual I Frames() const; - virtual V Frames(I fr,BL keep,BL zero); - - virtual I Channels() const { return 1; } - virtual S *Data(); - -protected: - BufEntry *entry; -}; - - -#endif diff --git a/externals/grill/vasp/source/vecblk.cpp b/externals/grill/vasp/source/vecblk.cpp deleted file mode 100644 index 80917237..00000000 --- a/externals/grill/vasp/source/vecblk.cpp +++ /dev/null @@ -1,60 +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. - -*/ - -#include "main.h" -#include "vecblk.h" -//#include <math.h> - - -/////////////////////////////////////////////////////////////////////////// -// VecBlock class -/////////////////////////////////////////////////////////////////////////// - -VecBlock::VecBlock(BL cx,I msrc,I mdst,I marg,I blarg): - cplx(cx),asrc(msrc),barg(blarg),aarg(marg*blarg),adst(mdst) -{ - I i,all = asrc+aarg*blarg+adst; - vecs = new VBuffer *[all]; - for(i = 0; i < all; ++i) vecs[i] = NULL; -} - -VecBlock::~VecBlock() -{ - if(vecs) { - I all = asrc+aarg*barg+adst; - for(I i = 0; i < all; ++i) - if(vecs[i]) delete vecs[i]; - delete[] vecs; - } -} - -Vasp *VecBlock::_DstVasp(I n) -{ - Vasp *ret = new Vasp; - ret->Frames(Frames()); - for(I i = 0; i < n; ++i) ret->AddVector(Vasp::Ref(*_Dst(i))); - return ret; -} - -Vasp *VecBlock::_SrcVasp(I n) -{ - Vasp *ret = new Vasp; - ret->Frames(Frames()); - for(I i = 0; i < n; ++i) ret->AddVector(Vasp::Ref(*_Src(i))); - return ret; -} - -Vasp *VecBlock::_ResVasp(I n) -{ - return _Dst(0)?_DstVasp(n):_SrcVasp(n); -} - - - diff --git a/externals/grill/vasp/source/vecblk.h b/externals/grill/vasp/source/vecblk.h deleted file mode 100644 index 7ca4ca94..00000000 --- a/externals/grill/vasp/source/vecblk.h +++ /dev/null @@ -1,106 +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. - -*/ - -#ifndef __VASP_VECBLK_H -#define __VASP_VECBLK_H - -#include "vasp.h" - -class VecBlock: - public flext -{ -public: - - I Frames() const { return frms; } - V Frames(I fr) { frms = fr; } - I ArgFrames() const { return afrms; } - V ArgFrames(I fr) { afrms = fr; } - I ArgBlks() const { return barg; } - - BL Complex() { return cplx; } - -protected: - VecBlock(BL cplx,I msrc,I mdst,I marg,I blarg); - ~VecBlock(); - - Vasp *_SrcVasp(I n); - Vasp *_DstVasp(I n); - Vasp *_ResVasp(I n); // either Dst or Src - - VBuffer *_Src(I ix) { return vecs[ix]; } - VBuffer *_Dst(I ix) { return vecs[asrc+aarg*barg+ix]; } - V _Src(I ix,VBuffer *v) { vecs[ix] = v; } - V _Dst(I ix,VBuffer *v) { vecs[asrc+aarg*barg+ix] = v; } - - VBuffer *_Arg(I ix,I bl = 0) { return vecs[asrc+bl*aarg+ix]; } - V _Arg(I ix,VBuffer *v,I bl = 0) { vecs[asrc+bl*aarg+ix] = v; } - -private: - BL cplx; - I asrc,adst,aarg,barg; - VBuffer **vecs; - I frms,afrms; -}; - - -class RVecBlock: - public VecBlock -{ -public: - RVecBlock(I _n,I _a = 0,I _ba = 0): VecBlock(false,_n,_n,_a,_ba),n(_n),a(_a) {} - - VBuffer *Src(I ix) { return _Src(ix); } - VBuffer *Dst(I ix) { return _Dst(ix); } - V Src(I ix,VBuffer *v) { _Src(ix,v); } - V Dst(I ix,VBuffer *v) { _Dst(ix,v); } - - VBuffer *Arg(I ix,I bl = 0) { return _Arg(ix,bl); } - V Arg(I ix,VBuffer *v,I bl = 0) { _Arg(ix,v,bl); } - - I Vecs() const { return n; } - I Args() const { return a; } - - Vasp *SrcVasp() { return _SrcVasp(n); } - Vasp *DstVasp() { return _DstVasp(n); } - Vasp *ResVasp() { return _ResVasp(n); } - -protected: - I n,a; -}; - -class CVecBlock: - public VecBlock -{ -public: - CVecBlock(I _np,I _ap = 0,I _bap = 0): VecBlock(true,_np*2,_np*2,_ap*2,_bap),np(_np),ap(_ap) {} - - VBuffer *ReSrc(I ix) { return _Src(ix*2); } - VBuffer *ImSrc(I ix) { return _Src(ix*2+1); } - VBuffer *ReDst(I ix) { return _Dst(ix*2); } - VBuffer *ImDst(I ix) { return _Dst(ix*2+1); } - V Src(I ix,VBuffer *vre,VBuffer *vim) { _Src(ix*2,vre); _Src(ix*2+1,vim); } - V Dst(I ix,VBuffer *vre,VBuffer *vim) { _Dst(ix*2,vre); _Dst(ix*2+1,vim); } - - VBuffer *ReArg(I ix,I bl = 0) { return _Arg(ix*2,bl); } - VBuffer *ImArg(I ix,I bl = 0) { return _Arg(ix*2+1,bl); } - V Arg(I ix,VBuffer *vre,VBuffer *vim,I bl = 0) { _Arg(ix*2,vre,bl); _Arg(ix*2+1,vim,bl); } - - I Pairs() const { return np; } - I Args() const { return ap; } - - Vasp *SrcVasp() { return _SrcVasp(np*2); } - Vasp *DstVasp() { return _DstVasp(np*2); } - Vasp *ResVasp() { return _ResVasp(np*2); } - -protected: - I np,ap; -}; - -#endif diff --git a/externals/grill/vasp/todo.txt b/externals/grill/vasp/todo.txt deleted file mode 100644 index 21926ce4..00000000 --- a/externals/grill/vasp/todo.txt +++ /dev/null @@ -1,70 +0,0 @@ -TODO list: - -features: ---------------------- -- introduce attributes!! - -- introduce several log levels (for warning posts) -- grab (and recompose) signals for granular vasp usage -- vasp~s for realtime-capable vasp objects - -- complex power operations - delta phase - -- optimize (c)osc with table lookup, phasor with Höldrichs code (in pd) - -- how to handle beyond buffer-domain: -warning, treat as 0, calculate unit operation, loop, mirror on buffer end, stay on last frame - -- better algorithm for vasp.fix - -- make loops interruptible ("stop" message?) -- make in place rotation more efficient (use temporary space) - - -- introduce "groups" for attribute organisation (e.g. detach etc.) - -- reduce number of warnings for wrong offset, frame size etc. - -- review vasp.f=, vasp.o= for quasi-constant envelopes - - -objects: ---------------------- -- wave object for table-lookup oscs. -- various random distributions for noise - -- vasp.window: one should be able to use just a portion of the windowing envelope - -- slope: frequency distortion with given exponent - -- vasp.expr - -- vasp.state.... current vasp, operation, progress meter - -- vasp.ahead (vasp.a): abstraction head - set/bang/to handling, radio outlet, attribute processing (?) -- vasp.print (vasp.p): print vasp messages - -- vasp.resmp: resampling with vasp argument, instead of vasp.tilt (?) - -bugs: ---------------------- - - -tests: ---------------------- -- in-place operation (src == dst), test if strides are equal! -- should frame count always be pre-evaluated (e.g. in vasp.f+ etc. ?) -- test DFT objects on strided buffers -- check for odd remainder frame on symmetric operations!! - -premature thoughts: ---------------------- -- interface to scripting language (python) - - -documentation: ---------------------- -- have all the objects written in their full names -- no special characters! - - diff --git a/externals/grill/vasp/todo/allgemein.txt b/externals/grill/vasp/todo/allgemein.txt deleted file mode 100644 index 325e8ec5..00000000 --- a/externals/grill/vasp/todo/allgemein.txt +++ /dev/null @@ -1,42 +0,0 @@ -Vasp allgemein: ---------------- - -- nicht unwichtig: alle Operationen werden zumeist nur auf 1 (reell) oder 2 (komplex) Buffer angewendet. - allerdings funktionieren sie immer auch für mehrere bzw. mehrere Paare - - -Hilfe: ------- - -!! bitte die wavedisplays nicht ändern, das ist relativ kompliziert wegen graph on parent einstellungen... - -- Hilfe-Seite mit Abkürzungen - -- vasp.cnoise... Unterschied zu 2 unabhängigen vasp.noise-Kanälen demonstrieren - - > M: den unterschied musst du erklären, das kannst du am besten, thomas. akustisch ist der eher schwer auszumachen (oder gar nicht) - - >> T: mit den Laptop-Lautsprechern ist er vielleicht nicht zu hören, mit Monitoren aber sehr deutlich - -- vasp-xshift eigentlich nur sinnvol in verbindung mit einem fft-beispiel, ... xrot auch. - -- neue objekte in die "vasp_main" aufnehmen und entsprechend "gruppieren" - - > T: neue Objekte: - > vasp.radio, vasp.!radio, vasp.size, vasp.size?, vasp.size+, vasp.size, vasp.size*, vasp.size/ - > vasp.frames*, vasp.frames/, vasp.imm, vasp.copy, vasp.ccopy, vasp.peaks?, vasp.fix - - -- genau überlegen, ob noch "standard-soundfiles" hinzugefügt werden sollen - -was passiert mit vasp_size, vasp_size?, vasp_vector ??? oder doch vasp_n ??? -alle fft-objekte, erklären, wie das mit dem prime-factor funkt. -unterschiede zwischen amin?, min?, amax?, max? besser erklären. - -- was ist mit abstractions (vasp_opt zum beispiel) - - > T: man sollte die in der Hilfe vielleicht auf eine eigene Seite stellen (vasp.pwrap, vasp.opt, vasp.ropt) - - -- vasp_valleys sollte man gleich optimieren (nicht extra anklicken), oder? bei den peaks ist es dafür nicht so sinnvoll, ... - diff --git a/externals/grill/vasp/todo/marius.txt b/externals/grill/vasp/todo/marius.txt deleted file mode 100644 index 735fa5f9..00000000 --- a/externals/grill/vasp/todo/marius.txt +++ /dev/null @@ -1,5 +0,0 @@ -vasp.copy besser die offsets erklären -genauso bei vasp.= nicht so komplizierte sachen... -bei den peaks muss man erklären, was die density genau aussagt -bei vasp.! zeigen, dass man einfach aus einem normalen einen immediate machen kann... -phase bei den oscillatoren?? diff --git a/externals/grill/vasp/todo/neue-objekte.txt b/externals/grill/vasp/todo/neue-objekte.txt deleted file mode 100644 index e7000804..00000000 --- a/externals/grill/vasp/todo/neue-objekte.txt +++ /dev/null @@ -1,3 +0,0 @@ -liste aller objekte, die noch in die hilfe aufgenommen werden müssen - -die argumente
\ No newline at end of file diff --git a/externals/grill/vasp/todo/patcher-boys.txt b/externals/grill/vasp/todo/patcher-boys.txt deleted file mode 100644 index ebf5f846..00000000 --- a/externals/grill/vasp/todo/patcher-boys.txt +++ /dev/null @@ -1,3 +0,0 @@ -- Hinzufügen der neuen Objekte -- Hilfen mit PD-Version vergleichen -- vasp.minmax .... Hilfe ist sehr missverständlich diff --git a/externals/grill/vasp/todo/thomas.txt b/externals/grill/vasp/todo/thomas.txt deleted file mode 100644 index 4f9bc024..00000000 --- a/externals/grill/vasp/todo/thomas.txt +++ /dev/null @@ -1,5 +0,0 @@ -Hilfe: -- Dokumentation (inline?) der abstractions - -Objekte: -- vasp.gather .. nur bang -> Ausgabe vasp 0 ??? diff --git a/externals/grill/vasp/todo/vasp-objects.csv b/externals/grill/vasp/todo/vasp-objects.csv deleted file mode 100644 index 8d5d560e..00000000 --- a/externals/grill/vasp/todo/vasp-objects.csv +++ /dev/null @@ -1,164 +0,0 @@ -"internal name -(also for help files)";"vasp name -(if empty: internal name)";abbreviation - -vasp;; -vasp.update;;vasp.u -vasp.check;;vasp.chk -vasp.multi;;vasp.m - -vasp.sync;; - -vasp.split;; -vasp.join;; -vasp.spit;; -vasp.gather;; -vasp.part;; - -vasp.imm;;vasp.! - -vasp.radio;; - -vasp.list;;vasp.? -vasp.nonzero;;vasp.?? - -vasp.vector;;vasp.n -vasp.qvectors;vasp.vectors?;vasp.n? - -vasp.channel;;vasp.c -vasp.qchannel;vasp.channel?;vasp.c? -vasp.qchannels;vasp.channels?; - -vasp.frames;;vasp.f -vasp.dframes;vasp.frames+;vasp.f+ -vasp.mframes;vasp.frames*;vasp.f* -vasp.rframes;vasp.frames/;vasp.f/ -vasp.qframes;vasp.frames?;vasp.f? -vasp.sframes;vasp.frames=;vasp.f= - -vasp.offset;;vasp.o -vasp.doffset;vasp.offset+;vasp.o+ -vasp.qoffset;vasp.offset?;vasp.o? -vasp.soffset;vasp.offset=;vasp.o= - -vasp.size;;vasp.s -vasp.dsize;vasp.size+;vasp.s+ -vasp.msize;vasp.size*;vasp.s* -vasp.rsize;vasp.size/;vasp.s/ -vasp.qsize;vasp.size?;vasp.s? - -vasp.set;;vasp.= -vasp.cset;;vasp.c= -vasp.copy;;vasp.-> -vasp.ccopy;;vasp.c-> - -vasp.add;vasp.+; -vasp.cadd;vasp.c+; -vasp.sub;vasp.-; -vasp.csub;vasp.c-; -vasp.subr;vasp.!-; -vasp.csubr;vasp.c!-; -vasp.mul;vasp.*; -vasp.cmul;vasp.c*; -vasp.div;vasp./; -vasp.cdiv;vasp.c/; -vasp.divr;vasp.r/; -vasp.cdivr;vasp.c!/; -vasp.mod;vasp.% - -vasp.sqr; -vasp.ssqr; -vasp.csqr; -vasp.sqrt; -vasp.ssqrt; -vasp.pow; -vasp.powi; -vasp.cpowi; -vasp.rpow; -vasp.radd;vasp.r+ - -vasp.exp; -vasp.log; - -vasp.sign; -vasp.abs; -vasp.cabs; - -vasp.qsum;vasp.sum? - -vasp.lwr;vasp.< -vasp.gtr;vasp.> -vasp.leq;vasp.<= -vasp.geq;vasp.>= -vasp.equ;vasp.== -vasp.neq;vasp.!= -vasp.alwr;vasp.a< -vasp.agtr;vasp.a> -vasp.aleq;vasp.a<= -vasp.ageq;vasp.a>= - -vasp.polar; -vasp.rect; - -vasp.cnorm; -vasp.cconj; - -vasp.min; -vasp.rmin; -vasp.max; -vasp.rmax; -vasp.qmin;vasp.min? -vasp.qmax;vasp.max? -vasp.qamin;vasp.amin? -vasp.qamax;vasp.amax? -vasp.qrmin;vasp.rmin? -vasp.qrmax;vasp.rmax? -vasp.minmax; - -vasp.gate; -vasp.rgate; - -vasp.peaks; -vasp.rpeaks; -vasp.valleys; -vasp.rvalleys; -vasp.qpeaks;vasp.peaks? - -vasp.shift; -vasp.xshift; -vasp.rot; -vasp.xrot; -vasp.mirr; -vasp.xmirr; - -vasp.osc; -vasp.mosc;vasp.*osc -vasp.cosc; -vasp.mcosc;vasp.*cosc -vasp.phasor; -vasp.mphasor;vasp.*phasor -vasp.noise; -vasp.cnoise; - -vasp.window; -vasp.mwindow;vasp.*window -vasp.iwindow;vasp.!window -vasp.miwindow;vasp.*!window -vasp.xwindow; -vasp.mxwindow;vasp.*xwindow - -vasp.flp; -vasp.fhp; - -vasp.int; -vasp.dif; - -vasp.fix; - -vasp.tilt; -vasp.xtilt; - -vasp.rfft; -vasp.rifft;vasp.r!fft -vasp.cfft; -vasp.cifft;vasp.c!fft diff --git a/externals/grill/vasp/vasp.doxy b/externals/grill/vasp/vasp.doxy deleted file mode 100644 index 38fb121b..00000000 --- a/externals/grill/vasp/vasp.doxy +++ /dev/null @@ -1,188 +0,0 @@ -# Doxyfile 1.2.13-20020210 - -#--------------------------------------------------------------------------- -# General configuration options -#--------------------------------------------------------------------------- -PROJECT_NAME = "vasp modular" -PROJECT_NUMBER = 0.0.8pre8 -OUTPUT_DIRECTORY = f:/prog/max/vasp/doc/ -OUTPUT_LANGUAGE = English -EXTRACT_ALL = YES -EXTRACT_PRIVATE = NO -EXTRACT_STATIC = YES -EXTRACT_LOCAL_CLASSES = YES -HIDE_UNDOC_MEMBERS = NO -HIDE_UNDOC_CLASSES = NO -BRIEF_MEMBER_DESC = YES -REPEAT_BRIEF = YES -ALWAYS_DETAILED_SEC = NO -INLINE_INHERITED_MEMB = NO -FULL_PATH_NAMES = NO -STRIP_FROM_PATH = -INTERNAL_DOCS = YES -STRIP_CODE_COMMENTS = YES -CASE_SENSE_NAMES = YES -SHORT_NAMES = NO -HIDE_SCOPE_NAMES = NO -VERBATIM_HEADERS = YES -SHOW_INCLUDE_FILES = YES -JAVADOC_AUTOBRIEF = NO -MULTILINE_CPP_IS_BRIEF = NO -DETAILS_AT_TOP = NO -INHERIT_DOCS = YES -INLINE_INFO = YES -SORT_MEMBER_DOCS = YES -DISTRIBUTE_GROUP_DOC = NO -TAB_SIZE = 8 -GENERATE_TODOLIST = YES -GENERATE_TESTLIST = YES -GENERATE_BUGLIST = YES -ALIASES = -ENABLED_SECTIONS = -MAX_INITIALIZER_LINES = 30 -OPTIMIZE_OUTPUT_FOR_C = NO -OPTIMIZE_OUTPUT_JAVA = NO -SHOW_USED_FILES = YES -#--------------------------------------------------------------------------- -# configuration options related to warning and progress messages -#--------------------------------------------------------------------------- -QUIET = NO -WARNINGS = YES -WARN_IF_UNDOCUMENTED = YES -WARN_FORMAT = "$file:$line: $text" -WARN_LOGFILE = -#--------------------------------------------------------------------------- -# configuration options related to the input files -#--------------------------------------------------------------------------- -INPUT = f:/prog/max/vasp/source/ -FILE_PATTERNS = -RECURSIVE = NO -EXCLUDE = -EXCLUDE_SYMLINKS = NO -EXCLUDE_PATTERNS = -EXAMPLE_PATH = -EXAMPLE_PATTERNS = -EXAMPLE_RECURSIVE = NO -IMAGE_PATH = -INPUT_FILTER = -FILTER_SOURCE_FILES = NO -#--------------------------------------------------------------------------- -# configuration options related to source browsing -#--------------------------------------------------------------------------- -SOURCE_BROWSER = YES -INLINE_SOURCES = NO -REFERENCED_BY_RELATION = YES -REFERENCES_RELATION = YES -#--------------------------------------------------------------------------- -# configuration options related to the alphabetical class index -#--------------------------------------------------------------------------- -ALPHABETICAL_INDEX = YES -COLS_IN_ALPHA_INDEX = 5 -IGNORE_PREFIX = -#--------------------------------------------------------------------------- -# configuration options related to the HTML output -#--------------------------------------------------------------------------- -GENERATE_HTML = YES -HTML_OUTPUT = html -HTML_FILE_EXTENSION = .html -HTML_HEADER = -HTML_FOOTER = -HTML_STYLESHEET = -HTML_ALIGN_MEMBERS = YES -GENERATE_HTMLHELP = NO -CHM_FILE = -HHC_LOCATION = -GENERATE_CHI = NO -BINARY_TOC = NO -TOC_EXPAND = NO -DISABLE_INDEX = NO -ENUM_VALUES_PER_LINE = 4 -GENERATE_TREEVIEW = NO -TREEVIEW_WIDTH = 250 -#--------------------------------------------------------------------------- -# configuration options related to the LaTeX output -#--------------------------------------------------------------------------- -GENERATE_LATEX = NO -LATEX_OUTPUT = latex -LATEX_CMD_NAME = latex -MAKEINDEX_CMD_NAME = makeindex -COMPACT_LATEX = NO -PAPER_TYPE = a4wide -EXTRA_PACKAGES = -LATEX_HEADER = -PDF_HYPERLINKS = NO -USE_PDFLATEX = NO -LATEX_BATCHMODE = NO -#--------------------------------------------------------------------------- -# configuration options related to the RTF output -#--------------------------------------------------------------------------- -GENERATE_RTF = NO -RTF_OUTPUT = rtf -COMPACT_RTF = NO -RTF_HYPERLINKS = NO -RTF_STYLESHEET_FILE = -RTF_EXTENSIONS_FILE = -#--------------------------------------------------------------------------- -# configuration options related to the man page output -#--------------------------------------------------------------------------- -GENERATE_MAN = NO -MAN_OUTPUT = man -MAN_EXTENSION = .3 -MAN_LINKS = NO -#--------------------------------------------------------------------------- -# configuration options related to the XML output -#--------------------------------------------------------------------------- -GENERATE_XML = NO -#--------------------------------------------------------------------------- -# configuration options for the AutoGen Definitions output -#--------------------------------------------------------------------------- -GENERATE_AUTOGEN_DEF = NO -#--------------------------------------------------------------------------- -# Configuration options related to the preprocessor -#--------------------------------------------------------------------------- -ENABLE_PREPROCESSING = YES -MACRO_EXPANSION = YES -EXPAND_ONLY_PREDEF = YES -SEARCH_INCLUDES = YES -INCLUDE_PATH = -INCLUDE_FILE_PATTERNS = -PREDEFINED = -EXPAND_AS_DEFINED = -SKIP_FUNCTION_MACROS = YES -#--------------------------------------------------------------------------- -# Configuration::addtions related to external references -#--------------------------------------------------------------------------- -TAGFILES = -GENERATE_TAGFILE = -ALLEXTERNALS = NO -EXTERNAL_GROUPS = YES -PERL_PATH = /usr/bin/perl -#--------------------------------------------------------------------------- -# Configuration options related to the dot tool -#--------------------------------------------------------------------------- -CLASS_DIAGRAMS = YES -HIDE_UNDOC_RELATIONS = YES -HAVE_DOT = NO -CLASS_GRAPH = YES -COLLABORATION_GRAPH = YES -TEMPLATE_RELATIONS = YES -INCLUDE_GRAPH = YES -INCLUDED_BY_GRAPH = YES -GRAPHICAL_HIERARCHY = YES -DOT_IMAGE_FORMAT = png -DOT_PATH = -DOTFILE_DIRS = -MAX_DOT_GRAPH_WIDTH = 1024 -MAX_DOT_GRAPH_HEIGHT = 1024 -GENERATE_LEGEND = YES -DOT_CLEANUP = YES -#--------------------------------------------------------------------------- -# Configuration::addtions related to the search engine -#--------------------------------------------------------------------------- -SEARCHENGINE = NO -CGI_NAME = search.cgi -CGI_URL = -DOC_URL = -DOC_ABSPATH = -BIN_ABSPATH = /usr/local/bin/ -EXT_DOC_PATHS = diff --git a/externals/grill/vasp/vasp.mcp b/externals/grill/vasp/vasp.mcp Binary files differdeleted file mode 100644 index 8a8391fe..00000000 --- a/externals/grill/vasp/vasp.mcp +++ /dev/null diff --git a/externals/grill/vasp/vasp.vcproj b/externals/grill/vasp/vasp.vcproj deleted file mode 100644 index e47aea6e..00000000 --- a/externals/grill/vasp/vasp.vcproj +++ /dev/null @@ -1,2785 +0,0 @@ -<?xml version="1.0" encoding="Windows-1252"?> -<VisualStudioProject - ProjectType="Visual C++" - Version="7.10" - Name="vasp"> - <Platforms> - <Platform - Name="Win32"/> - </Platforms> - <Configurations> - <Configuration - Name="PD Debug|Win32" - OutputDirectory=".\pd-msvc\d" - IntermediateDirectory=".\pd-msvc\d" - ConfigurationType="2" - UseOfMFC="0" - ATLMinimizesCRunTimeLibraryUsage="FALSE" - CharacterSet="2"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="f:\prog\pd\pd-cvs\src,f:\prog\max\flext\source" - PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL;FLEXT_SYS=2;VASP_COMPACT" - BasicRuntimeChecks="3" - RuntimeLibrary="5" - UsePrecompiledHeader="2" - PrecompiledHeaderThrough="main.h" - BrowseInformation="1" - WarningLevel="3" - SuppressStartupBanner="TRUE" - DebugInformationFormat="4" - CompileAs="0"/> - <Tool - Name="VCCustomBuildTool"/> - <Tool - Name="VCLinkerTool" - AdditionalDependencies="pthreadVC.lib pd.lib" - OutputFile=".\pd-msvc\d/vasp.dll" - LinkIncremental="1" - SuppressStartupBanner="TRUE" - AdditionalLibraryDirectories="c:\programme\audio\pd\bin" - GenerateDebugInformation="TRUE" - ProgramDatabaseFile=".\pd-msvc\d/vasp.pdb" - ImportLibrary=".\pd-msvc\d/vasp.lib" - TargetMachine="1"/> - <Tool - Name="VCMIDLTool" - PreprocessorDefinitions="_DEBUG" - MkTypLibCompatible="TRUE" - SuppressStartupBanner="TRUE" - TargetEnvironment="1" - TypeLibraryName=".\pd-msvc\d/vasp.tlb" - HeaderFileName=""/> - <Tool - Name="VCPostBuildEventTool"/> - <Tool - Name="VCPreBuildEventTool"/> - <Tool - Name="VCPreLinkEventTool"/> - <Tool - Name="VCResourceCompilerTool" - PreprocessorDefinitions="_DEBUG" - Culture="3079"/> - <Tool - Name="VCWebServiceProxyGeneratorTool"/> - <Tool - Name="VCXMLDataGeneratorTool"/> - <Tool - Name="VCWebDeploymentTool"/> - <Tool - Name="VCManagedWrapperGeneratorTool"/> - <Tool - Name="VCAuxiliaryManagedWrapperGeneratorTool"/> - </Configuration> - <Configuration - Name="PD Threads Debug|Win32" - OutputDirectory=".\pd-msvc\td" - IntermediateDirectory=".\pd-msvc\td" - ConfigurationType="2" - UseOfMFC="0" - ATLMinimizesCRunTimeLibraryUsage="FALSE" - CharacterSet="2"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="C:\data\prog\packs\pthreads\include;c:\programme\audio\pd\src;..\flext\source" - PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL;FLEXT_SYS=2;FLEXT_THREADS;VASP_COMPACT" - BasicRuntimeChecks="3" - RuntimeLibrary="1" - UsePrecompiledHeader="2" - PrecompiledHeaderThrough="main.h" - BrowseInformation="1" - WarningLevel="3" - SuppressStartupBanner="TRUE" - DebugInformationFormat="4" - CompileAs="0"/> - <Tool - Name="VCCustomBuildTool"/> - <Tool - Name="VCLinkerTool" - AdditionalDependencies="pthreadVC2.lib pd.lib" - OutputFile=".\pd-msvc\td/vasp.dll" - LinkIncremental="1" - SuppressStartupBanner="TRUE" - AdditionalLibraryDirectories="c:\data\pd\pd-cvs\bin;c:\data\prog\packs\pthreads\lib" - GenerateDebugInformation="TRUE" - ProgramDatabaseFile=".\pd-msvc\td/vasp.pdb" - ImportLibrary=".\pd-msvc\td/vasp.lib" - TargetMachine="1"/> - <Tool - Name="VCMIDLTool" - PreprocessorDefinitions="_DEBUG" - MkTypLibCompatible="TRUE" - SuppressStartupBanner="TRUE" - TargetEnvironment="1" - TypeLibraryName=".\pd-msvc\td/vasp.tlb" - HeaderFileName=""/> - <Tool - Name="VCPostBuildEventTool"/> - <Tool - Name="VCPreBuildEventTool"/> - <Tool - Name="VCPreLinkEventTool"/> - <Tool - Name="VCResourceCompilerTool" - PreprocessorDefinitions="_DEBUG" - Culture="3079"/> - <Tool - Name="VCWebServiceProxyGeneratorTool"/> - <Tool - Name="VCXMLDataGeneratorTool"/> - <Tool - Name="VCWebDeploymentTool"/> - <Tool - Name="VCManagedWrapperGeneratorTool"/> - <Tool - Name="VCAuxiliaryManagedWrapperGeneratorTool"/> - </Configuration> - <Configuration - Name="PD Threads Release|Win32" - OutputDirectory=".\pd-msvc\t" - IntermediateDirectory=".\pd-msvc\t" - ConfigurationType="2" - UseOfMFC="0" - ATLMinimizesCRunTimeLibraryUsage="FALSE" - CharacterSet="2"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - GlobalOptimizations="TRUE" - InlineFunctionExpansion="2" - FavorSizeOrSpeed="1" - OptimizeForProcessor="2" - AdditionalIncludeDirectories="c:\programme\audio\pd\src,..\flext\source" - PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL;FLEXT_SYS=2;FLEXT_THREADS" - StringPooling="TRUE" - ExceptionHandling="TRUE" - RuntimeLibrary="0" - BufferSecurityCheck="FALSE" - DisableLanguageExtensions="TRUE" - UsePrecompiledHeader="2" - PrecompiledHeaderThrough="main.h" - WarningLevel="3" - SuppressStartupBanner="TRUE" - DebugInformationFormat="3" - CompileAs="0"/> - <Tool - Name="VCCustomBuildTool"/> - <Tool - Name="VCLinkerTool" - AdditionalDependencies="pthreadVC.lib pd.lib" - OutputFile="pd-msvc/vasp.dll" - LinkIncremental="1" - SuppressStartupBanner="TRUE" - AdditionalLibraryDirectories="c:\programme\audio\pd\bin" - GenerateDebugInformation="TRUE" - ProgramDatabaseFile=".\pd-msvc\t/vasp.pdb" - ImportLibrary=".\pd-msvc\t/vasp.lib" - TargetMachine="1"/> - <Tool - Name="VCMIDLTool" - PreprocessorDefinitions="NDEBUG" - MkTypLibCompatible="TRUE" - SuppressStartupBanner="TRUE" - TargetEnvironment="1" - TypeLibraryName=".\pd-msvc\t/vasp.tlb" - HeaderFileName=""/> - <Tool - Name="VCPostBuildEventTool"/> - <Tool - Name="VCPreBuildEventTool"/> - <Tool - Name="VCPreLinkEventTool"/> - <Tool - Name="VCResourceCompilerTool" - PreprocessorDefinitions="NDEBUG" - Culture="3079"/> - <Tool - Name="VCWebServiceProxyGeneratorTool"/> - <Tool - Name="VCXMLDataGeneratorTool"/> - <Tool - Name="VCWebDeploymentTool"/> - <Tool - Name="VCManagedWrapperGeneratorTool"/> - <Tool - Name="VCAuxiliaryManagedWrapperGeneratorTool"/> - </Configuration> - <Configuration - Name="PD Release|Win32" - OutputDirectory=".\pd-msvc\r" - IntermediateDirectory=".\pd-msvc\r" - ConfigurationType="2" - UseOfMFC="0" - ATLMinimizesCRunTimeLibraryUsage="FALSE" - CharacterSet="2"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - GlobalOptimizations="TRUE" - InlineFunctionExpansion="2" - FavorSizeOrSpeed="1" - OptimizeForProcessor="2" - AdditionalIncludeDirectories="c:\programme\audio\pd\src,f:\prog\max\flext\source" - PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL;FLEXT_SYS=2" - RuntimeLibrary="4" - UsePrecompiledHeader="2" - PrecompiledHeaderThrough="main.h" - WarningLevel="3" - SuppressStartupBanner="TRUE" - CompileAs="0"/> - <Tool - Name="VCCustomBuildTool"/> - <Tool - Name="VCLinkerTool" - AdditionalDependencies="pthreadVC.lib pd.lib" - OutputFile=".\pd-msvc\r/vasp.dll" - LinkIncremental="1" - SuppressStartupBanner="TRUE" - AdditionalLibraryDirectories="c:\programme\audio\pd\bin" - ImportLibrary=".\pd-msvc\r/vasp.lib" - TargetMachine="1"/> - <Tool - Name="VCMIDLTool" - PreprocessorDefinitions="NDEBUG" - MkTypLibCompatible="TRUE" - SuppressStartupBanner="TRUE" - TargetEnvironment="1" - TypeLibraryName=".\pd-msvc\r/vasp.tlb" - HeaderFileName=""/> - <Tool - Name="VCPostBuildEventTool"/> - <Tool - Name="VCPreBuildEventTool"/> - <Tool - Name="VCPreLinkEventTool"/> - <Tool - Name="VCResourceCompilerTool" - PreprocessorDefinitions="NDEBUG" - Culture="3079"/> - <Tool - Name="VCWebServiceProxyGeneratorTool"/> - <Tool - Name="VCXMLDataGeneratorTool"/> - <Tool - Name="VCWebDeploymentTool"/> - <Tool - Name="VCManagedWrapperGeneratorTool"/> - <Tool - Name="VCAuxiliaryManagedWrapperGeneratorTool"/> - </Configuration> - <Configuration - Name="PD Shared Release|Win32" - OutputDirectory=".\pd-msvc\sr" - IntermediateDirectory=".\pd-msvc\sr" - ConfigurationType="2" - UseOfMFC="0" - ATLMinimizesCRunTimeLibraryUsage="FALSE" - CharacterSet="2"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - GlobalOptimizations="TRUE" - InlineFunctionExpansion="2" - FavorSizeOrSpeed="1" - OmitFramePointers="TRUE" - OptimizeForProcessor="3" - OptimizeForWindowsApplication="FALSE" - AdditionalIncludeDirectories=""c:\data\prog\pd\pd-cvs\src";c:\data\prog\packs\pthreads;..\flext\source" - PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL;FLEXT_SYS=2;FLEXT_SHARED" - ExceptionHandling="TRUE" - RuntimeLibrary="2" - EnableEnhancedInstructionSet="1" - DisableLanguageExtensions="TRUE" - UsePrecompiledHeader="2" - PrecompiledHeaderThrough="main.h" - PrecompiledHeaderFile="$(outdir)/$(TargetName).pch" - WarningLevel="3" - SuppressStartupBanner="TRUE" - DebugInformationFormat="3" - CompileAs="0"/> - <Tool - Name="VCCustomBuildTool"/> - <Tool - Name="VCLinkerTool" - AdditionalDependencies="pthreadVC.lib pd.lib" - OutputFile="$(outdir)/vasp.dll" - LinkIncremental="1" - SuppressStartupBanner="TRUE" - AdditionalLibraryDirectories=""c:\data\prog\pd\pd-cvs\bin";c:\data\prog\packs\pthreads" - GenerateDebugInformation="FALSE" - ProgramDatabaseFile="$(outdir)/vasp.pdb" - ImportLibrary="$(outdir)/vasp.lib" - TargetMachine="1"/> - <Tool - Name="VCMIDLTool" - PreprocessorDefinitions="NDEBUG" - MkTypLibCompatible="TRUE" - SuppressStartupBanner="TRUE" - TargetEnvironment="1" - TypeLibraryName=".\pd-msvc\t/vasp.tlb" - HeaderFileName=""/> - <Tool - Name="VCPostBuildEventTool"/> - <Tool - Name="VCPreBuildEventTool"/> - <Tool - Name="VCPreLinkEventTool"/> - <Tool - Name="VCResourceCompilerTool" - PreprocessorDefinitions="NDEBUG" - Culture="3079"/> - <Tool - Name="VCWebServiceProxyGeneratorTool"/> - <Tool - Name="VCXMLDataGeneratorTool"/> - <Tool - Name="VCWebDeploymentTool"/> - <Tool - Name="VCManagedWrapperGeneratorTool"/> - <Tool - Name="VCAuxiliaryManagedWrapperGeneratorTool"/> - </Configuration> - <Configuration - Name="PD Shared Debug|Win32" - OutputDirectory=".\pd-msvc\sd" - IntermediateDirectory=".\pd-msvc\sd" - ConfigurationType="2" - UseOfMFC="0" - ATLMinimizesCRunTimeLibraryUsage="FALSE" - CharacterSet="2"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="f:\prog\pd\pd-cvs\src;f:\prog\packs\pthreads,f:\prog\max\flext\source" - PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL;FLEXT_SYS=2;FLEXT_SHARED;VASP_COMPACT" - BasicRuntimeChecks="3" - RuntimeLibrary="3" - UsePrecompiledHeader="2" - PrecompiledHeaderThrough="main.h" - BrowseInformation="1" - WarningLevel="3" - SuppressStartupBanner="TRUE" - DebugInformationFormat="4" - CompileAs="0"/> - <Tool - Name="VCCustomBuildTool"/> - <Tool - Name="VCLinkerTool" - AdditionalDependencies="pthreadVC.lib pd.lib" - OutputFile=".\pd-msvc\sd/vasp.dll" - LinkIncremental="1" - SuppressStartupBanner="TRUE" - AdditionalLibraryDirectories="f:\prog\pd\pd-cvs\bin;f:\prog\packs\pthreads" - GenerateDebugInformation="TRUE" - ProgramDatabaseFile=".\pd-msvc\td/vasp.pdb" - ImportLibrary=".\pd-msvc\td/vasp.lib" - TargetMachine="1"/> - <Tool - Name="VCMIDLTool" - PreprocessorDefinitions="_DEBUG" - MkTypLibCompatible="TRUE" - SuppressStartupBanner="TRUE" - TargetEnvironment="1" - TypeLibraryName=".\pd-msvc\td/vasp.tlb" - HeaderFileName=""/> - <Tool - Name="VCPostBuildEventTool"/> - <Tool - Name="VCPreBuildEventTool"/> - <Tool - Name="VCPreLinkEventTool"/> - <Tool - Name="VCResourceCompilerTool" - PreprocessorDefinitions="_DEBUG" - Culture="3079"/> - <Tool - Name="VCWebServiceProxyGeneratorTool"/> - <Tool - Name="VCXMLDataGeneratorTool"/> - <Tool - Name="VCWebDeploymentTool"/> - <Tool - Name="VCManagedWrapperGeneratorTool"/> - <Tool - Name="VCAuxiliaryManagedWrapperGeneratorTool"/> - </Configuration> - </Configurations> - <References> - </References> - <Files> - <Filter - Name="doc" - Filter=""> - <File - RelativePath="changes.txt"> - </File> - <File - RelativePath="license.txt"> - </File> - <File - RelativePath="readme.txt"> - </File> - <File - RelativePath="todo.txt"> - </File> - </Filter> - <Filter - Name="vasp" - Filter=""> - <File - RelativePath="source\arg.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\arg.h"> - </File> - <File - RelativePath="source\buflib.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\buflib.h"> - </File> - <File - RelativePath="source\classes.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\classes.h"> - </File> - <File - RelativePath="source\env.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\env.h"> - </File> - <File - RelativePath="source\util.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\util.h"> - </File> - <File - RelativePath="source\vasp.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\vasp.h"> - </File> - <File - RelativePath="source\vbuffer.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\vbuffer.h"> - </File> - <File - RelativePath="source\vecblk.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\vecblk.h"> - </File> - </Filter> - <Filter - Name="ops" - Filter=""> - <File - RelativePath="source\opbase.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\opbase.h"> - </File> - <File - RelativePath="source\opdefs.h"> - </File> - <File - RelativePath="source\opfuns.h"> - </File> - <File - RelativePath="source\oploop.h"> - </File> - <File - RelativePath="source\opparam.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\opparam.h"> - </File> - <File - RelativePath="source\oppermute.h"> - </File> - <File - RelativePath="source\ops.h"> - </File> - <File - RelativePath="source\opvecs.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <Filter - Name="funcs" - Filter=""> - <File - RelativePath="source\ops_arith.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_arith.h"> - </File> - <File - RelativePath="source\ops_assign.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_assign.h"> - </File> - <File - RelativePath="source\ops_carith.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_carith.h"> - </File> - <File - RelativePath="source\ops_cmp.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_cmp.h"> - </File> - <File - RelativePath="source\ops_cplx.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_cplx.h"> - </File> - <File - RelativePath="source\ops_dft.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_dft.h"> - </File> - <File - RelativePath="source\ops_feature.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_feature.h"> - </File> - <File - RelativePath="source\ops_flt.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_flt.h"> - </File> - <File - RelativePath="source\ops_gate.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_gen.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_gen.h"> - </File> - <File - RelativePath="source\ops_qminmax.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_rearr.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_rearr.h"> - </File> - <File - RelativePath="source\ops_resmp.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_resmp.h"> - </File> - <File - RelativePath="source\ops_search.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_search.h"> - </File> - <File - RelativePath="source\ops_trnsc.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_trnsc.h"> - </File> - <File - RelativePath="source\ops_wnd.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\ops_wnd.h"> - </File> - </Filter> - </Filter> - <Filter - Name="dft" - Filter=""> - <File - RelativePath="source\mixfft.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\rdx2fft.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\rvfft.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - </Filter> - <Filter - Name="objs" - Filter=""> - <File - RelativePath="source\obj_chns.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_frames.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_imm.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_offs.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_part.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_peaks.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_q.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_radio.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_size.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_split.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_sync.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_vasp.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\obj_vecs.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - </Filter> - <File - RelativePath="source\main.cpp"> - <FileConfiguration - Name="PD Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - <FileConfiguration - Name="PD Threads Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Release|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="3" - AdditionalIncludeDirectories=""/> - </FileConfiguration> - <FileConfiguration - Name="PD Shared Debug|Win32"> - <Tool - Name="VCCLCompilerTool" - Optimization="0" - AdditionalIncludeDirectories="" - BasicRuntimeChecks="3" - BrowseInformation="1"/> - </FileConfiguration> - </File> - <File - RelativePath="source\main.h"> - </File> - </Files> - <Globals> - </Globals> -</VisualStudioProject> diff --git a/externals/grill/vasp/vasp.xcodeproj/project.pbxproj b/externals/grill/vasp/vasp.xcodeproj/project.pbxproj deleted file mode 100644 index 049affb7..00000000 --- a/externals/grill/vasp/vasp.xcodeproj/project.pbxproj +++ /dev/null @@ -1,507 +0,0 @@ -// !$*UTF8*$! -{ - archiveVersion = 1; - classes = { - }; - objectVersion = 42; - objects = { - -/* Begin PBXBuildFile section */ - E9EACC230B7D6883002F61CC /* arg.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBD90B7D6883002F61CC /* arg.cpp */; }; - E9EACC240B7D6883002F61CC /* arg.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBDA0B7D6883002F61CC /* arg.h */; }; - E9EACC250B7D6883002F61CC /* buflib.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBDB0B7D6883002F61CC /* buflib.cpp */; }; - E9EACC260B7D6883002F61CC /* buflib.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBDC0B7D6883002F61CC /* buflib.h */; }; - E9EACC270B7D6883002F61CC /* classes.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBDD0B7D6883002F61CC /* classes.cpp */; }; - E9EACC280B7D6883002F61CC /* classes.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBDE0B7D6883002F61CC /* classes.h */; }; - E9EACC290B7D6883002F61CC /* env.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBDF0B7D6883002F61CC /* env.cpp */; }; - E9EACC2A0B7D6883002F61CC /* env.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBE00B7D6883002F61CC /* env.h */; }; - E9EACC2B0B7D6883002F61CC /* main.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE10B7D6883002F61CC /* main.cpp */; }; - E9EACC2C0B7D6883002F61CC /* main.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBE20B7D6883002F61CC /* main.h */; }; - E9EACC2D0B7D6883002F61CC /* mixfft.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE30B7D6883002F61CC /* mixfft.cpp */; }; - E9EACC2E0B7D6883002F61CC /* obj_chns.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE40B7D6883002F61CC /* obj_chns.cpp */; }; - E9EACC2F0B7D6883002F61CC /* obj_frames.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE50B7D6883002F61CC /* obj_frames.cpp */; }; - E9EACC300B7D6883002F61CC /* obj_imm.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE60B7D6883002F61CC /* obj_imm.cpp */; }; - E9EACC310B7D6883002F61CC /* obj_offs.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE70B7D6883002F61CC /* obj_offs.cpp */; }; - E9EACC320B7D6883002F61CC /* obj_part.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE80B7D6883002F61CC /* obj_part.cpp */; }; - E9EACC330B7D6883002F61CC /* obj_peaks.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBE90B7D6883002F61CC /* obj_peaks.cpp */; }; - E9EACC340B7D6883002F61CC /* obj_q.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBEA0B7D6883002F61CC /* obj_q.cpp */; }; - E9EACC350B7D6883002F61CC /* obj_radio.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBEB0B7D6883002F61CC /* obj_radio.cpp */; }; - E9EACC360B7D6883002F61CC /* obj_size.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBEC0B7D6883002F61CC /* obj_size.cpp */; }; - E9EACC370B7D6883002F61CC /* obj_split.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBED0B7D6883002F61CC /* obj_split.cpp */; }; - E9EACC380B7D6883002F61CC /* obj_sync.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBEE0B7D6883002F61CC /* obj_sync.cpp */; }; - E9EACC390B7D6883002F61CC /* obj_vasp.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBEF0B7D6883002F61CC /* obj_vasp.cpp */; }; - E9EACC3A0B7D6883002F61CC /* obj_vecs.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBF00B7D6883002F61CC /* obj_vecs.cpp */; }; - E9EACC3B0B7D6883002F61CC /* opbase.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBF10B7D6883002F61CC /* opbase.cpp */; }; - E9EACC3C0B7D6883002F61CC /* opbase.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBF20B7D6883002F61CC /* opbase.h */; }; - E9EACC3D0B7D6883002F61CC /* opdefs.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBF30B7D6883002F61CC /* opdefs.h */; }; - E9EACC3E0B7D6883002F61CC /* opfuns.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBF40B7D6883002F61CC /* opfuns.h */; }; - E9EACC3F0B7D6883002F61CC /* oploop.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBF50B7D6883002F61CC /* oploop.h */; }; - E9EACC400B7D6883002F61CC /* opparam.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBF60B7D6883002F61CC /* opparam.cpp */; }; - E9EACC410B7D6883002F61CC /* opparam.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBF70B7D6883002F61CC /* opparam.h */; }; - E9EACC420B7D6883002F61CC /* oppermute.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBF80B7D6883002F61CC /* oppermute.h */; }; - E9EACC430B7D6883002F61CC /* ops_arith.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBF90B7D6883002F61CC /* ops_arith.cpp */; }; - E9EACC440B7D6883002F61CC /* ops_arith.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBFA0B7D6883002F61CC /* ops_arith.h */; }; - E9EACC450B7D6883002F61CC /* ops_assign.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBFB0B7D6883002F61CC /* ops_assign.cpp */; }; - E9EACC460B7D6883002F61CC /* ops_assign.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBFC0B7D6883002F61CC /* ops_assign.h */; }; - E9EACC470B7D6883002F61CC /* ops_carith.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBFD0B7D6883002F61CC /* ops_carith.cpp */; }; - E9EACC480B7D6883002F61CC /* ops_carith.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACBFE0B7D6883002F61CC /* ops_carith.h */; }; - E9EACC490B7D6883002F61CC /* ops_cmp.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACBFF0B7D6883002F61CC /* ops_cmp.cpp */; }; - E9EACC4A0B7D6883002F61CC /* ops_cmp.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC000B7D6883002F61CC /* ops_cmp.h */; }; - E9EACC4B0B7D6883002F61CC /* ops_cplx.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC010B7D6883002F61CC /* ops_cplx.cpp */; }; - E9EACC4C0B7D6883002F61CC /* ops_cplx.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC020B7D6883002F61CC /* ops_cplx.h */; }; - E9EACC4D0B7D6883002F61CC /* ops_dft.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC030B7D6883002F61CC /* ops_dft.cpp */; }; - E9EACC4E0B7D6883002F61CC /* ops_dft.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC040B7D6883002F61CC /* ops_dft.h */; }; - E9EACC4F0B7D6883002F61CC /* ops_feature.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC050B7D6883002F61CC /* ops_feature.cpp */; }; - E9EACC500B7D6883002F61CC /* ops_feature.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC060B7D6883002F61CC /* ops_feature.h */; }; - E9EACC510B7D6883002F61CC /* ops_flt.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC070B7D6883002F61CC /* ops_flt.cpp */; }; - E9EACC520B7D6883002F61CC /* ops_flt.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC080B7D6883002F61CC /* ops_flt.h */; }; - E9EACC530B7D6883002F61CC /* ops_gate.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC090B7D6883002F61CC /* ops_gate.cpp */; }; - E9EACC540B7D6883002F61CC /* ops_gen.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC0A0B7D6883002F61CC /* ops_gen.cpp */; }; - E9EACC550B7D6883002F61CC /* ops_gen.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC0B0B7D6883002F61CC /* ops_gen.h */; }; - E9EACC560B7D6883002F61CC /* ops_qminmax.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC0C0B7D6883002F61CC /* ops_qminmax.cpp */; }; - E9EACC570B7D6883002F61CC /* ops_rearr.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC0D0B7D6883002F61CC /* ops_rearr.cpp */; }; - E9EACC580B7D6883002F61CC /* ops_rearr.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC0E0B7D6883002F61CC /* ops_rearr.h */; }; - E9EACC590B7D6883002F61CC /* ops_resmp.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC0F0B7D6883002F61CC /* ops_resmp.cpp */; }; - E9EACC5A0B7D6883002F61CC /* ops_resmp.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC100B7D6883002F61CC /* ops_resmp.h */; }; - E9EACC5B0B7D6883002F61CC /* ops_search.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC110B7D6883002F61CC /* ops_search.cpp */; }; - E9EACC5C0B7D6883002F61CC /* ops_search.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC120B7D6883002F61CC /* ops_search.h */; }; - E9EACC5D0B7D6883002F61CC /* ops_trnsc.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC130B7D6883002F61CC /* ops_trnsc.cpp */; }; - E9EACC5E0B7D6883002F61CC /* ops_trnsc.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC140B7D6883002F61CC /* ops_trnsc.h */; }; - E9EACC5F0B7D6883002F61CC /* ops_wnd.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC150B7D6883002F61CC /* ops_wnd.cpp */; }; - E9EACC600B7D6883002F61CC /* ops_wnd.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC160B7D6883002F61CC /* ops_wnd.h */; }; - E9EACC610B7D6883002F61CC /* ops.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC170B7D6883002F61CC /* ops.h */; }; - E9EACC620B7D6883002F61CC /* opvecs.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC180B7D6883002F61CC /* opvecs.cpp */; }; - E9EACC630B7D6883002F61CC /* rdx2fft.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC190B7D6883002F61CC /* rdx2fft.cpp */; }; - E9EACC640B7D6883002F61CC /* rvfft.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC1A0B7D6883002F61CC /* rvfft.cpp */; }; - E9EACC650B7D6883002F61CC /* util.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC1B0B7D6883002F61CC /* util.cpp */; }; - E9EACC660B7D6883002F61CC /* util.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC1C0B7D6883002F61CC /* util.h */; }; - E9EACC670B7D6883002F61CC /* vasp.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC1D0B7D6883002F61CC /* vasp.cpp */; }; - E9EACC680B7D6883002F61CC /* vasp.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC1E0B7D6883002F61CC /* vasp.h */; }; - E9EACC690B7D6883002F61CC /* vbuffer.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC1F0B7D6883002F61CC /* vbuffer.cpp */; }; - E9EACC6A0B7D6883002F61CC /* vbuffer.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC200B7D6883002F61CC /* vbuffer.h */; }; - E9EACC6B0B7D6883002F61CC /* vecblk.cpp in Sources */ = {isa = PBXBuildFile; fileRef = E9EACC210B7D6883002F61CC /* vecblk.cpp */; }; - E9EACC6C0B7D6883002F61CC /* vecblk.h in Headers */ = {isa = PBXBuildFile; fileRef = E9EACC220B7D6883002F61CC /* vecblk.h */; }; -/* End PBXBuildFile section */ - -/* Begin PBXFileReference section */ - D2AAC0630554660B00DB518D /* vasp.pd_darwin */ = {isa = PBXFileReference; explicitFileType = "compiled.mach-o.dylib"; includeInIndex = 0; path = vasp.pd_darwin; sourceTree = BUILT_PRODUCTS_DIR; }; - E9EACBD90B7D6883002F61CC /* arg.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = arg.cpp; path = source/arg.cpp; sourceTree = "<group>"; }; - E9EACBDA0B7D6883002F61CC /* arg.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = arg.h; path = source/arg.h; sourceTree = "<group>"; }; - E9EACBDB0B7D6883002F61CC /* buflib.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = buflib.cpp; path = source/buflib.cpp; sourceTree = "<group>"; }; - E9EACBDC0B7D6883002F61CC /* buflib.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = buflib.h; path = source/buflib.h; sourceTree = "<group>"; }; - E9EACBDD0B7D6883002F61CC /* classes.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = classes.cpp; path = source/classes.cpp; sourceTree = "<group>"; }; - E9EACBDE0B7D6883002F61CC /* classes.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = classes.h; path = source/classes.h; sourceTree = "<group>"; }; - E9EACBDF0B7D6883002F61CC /* env.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = env.cpp; path = source/env.cpp; sourceTree = "<group>"; }; - E9EACBE00B7D6883002F61CC /* env.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = env.h; path = source/env.h; sourceTree = "<group>"; }; - E9EACBE10B7D6883002F61CC /* main.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = main.cpp; path = source/main.cpp; sourceTree = "<group>"; }; - E9EACBE20B7D6883002F61CC /* main.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = main.h; path = source/main.h; sourceTree = "<group>"; }; - E9EACBE30B7D6883002F61CC /* mixfft.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = mixfft.cpp; path = source/mixfft.cpp; sourceTree = "<group>"; }; - E9EACBE40B7D6883002F61CC /* obj_chns.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_chns.cpp; path = source/obj_chns.cpp; sourceTree = "<group>"; }; - E9EACBE50B7D6883002F61CC /* obj_frames.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_frames.cpp; path = source/obj_frames.cpp; sourceTree = "<group>"; }; - E9EACBE60B7D6883002F61CC /* obj_imm.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_imm.cpp; path = source/obj_imm.cpp; sourceTree = "<group>"; }; - E9EACBE70B7D6883002F61CC /* obj_offs.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_offs.cpp; path = source/obj_offs.cpp; sourceTree = "<group>"; }; - E9EACBE80B7D6883002F61CC /* obj_part.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_part.cpp; path = source/obj_part.cpp; sourceTree = "<group>"; }; - E9EACBE90B7D6883002F61CC /* obj_peaks.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_peaks.cpp; path = source/obj_peaks.cpp; sourceTree = "<group>"; }; - E9EACBEA0B7D6883002F61CC /* obj_q.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_q.cpp; path = source/obj_q.cpp; sourceTree = "<group>"; }; - E9EACBEB0B7D6883002F61CC /* obj_radio.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_radio.cpp; path = source/obj_radio.cpp; sourceTree = "<group>"; }; - E9EACBEC0B7D6883002F61CC /* obj_size.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_size.cpp; path = source/obj_size.cpp; sourceTree = "<group>"; }; - E9EACBED0B7D6883002F61CC /* obj_split.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_split.cpp; path = source/obj_split.cpp; sourceTree = "<group>"; }; - E9EACBEE0B7D6883002F61CC /* obj_sync.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_sync.cpp; path = source/obj_sync.cpp; sourceTree = "<group>"; }; - E9EACBEF0B7D6883002F61CC /* obj_vasp.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_vasp.cpp; path = source/obj_vasp.cpp; sourceTree = "<group>"; }; - E9EACBF00B7D6883002F61CC /* obj_vecs.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = obj_vecs.cpp; path = source/obj_vecs.cpp; sourceTree = "<group>"; }; - E9EACBF10B7D6883002F61CC /* opbase.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = opbase.cpp; path = source/opbase.cpp; sourceTree = "<group>"; }; - E9EACBF20B7D6883002F61CC /* opbase.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = opbase.h; path = source/opbase.h; sourceTree = "<group>"; }; - E9EACBF30B7D6883002F61CC /* opdefs.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = opdefs.h; path = source/opdefs.h; sourceTree = "<group>"; }; - E9EACBF40B7D6883002F61CC /* opfuns.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = opfuns.h; path = source/opfuns.h; sourceTree = "<group>"; }; - E9EACBF50B7D6883002F61CC /* oploop.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = oploop.h; path = source/oploop.h; sourceTree = "<group>"; }; - E9EACBF60B7D6883002F61CC /* opparam.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = opparam.cpp; path = source/opparam.cpp; sourceTree = "<group>"; }; - E9EACBF70B7D6883002F61CC /* opparam.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = opparam.h; path = source/opparam.h; sourceTree = "<group>"; }; - E9EACBF80B7D6883002F61CC /* oppermute.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = oppermute.h; path = source/oppermute.h; sourceTree = "<group>"; }; - E9EACBF90B7D6883002F61CC /* ops_arith.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_arith.cpp; path = source/ops_arith.cpp; sourceTree = "<group>"; }; - E9EACBFA0B7D6883002F61CC /* ops_arith.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_arith.h; path = source/ops_arith.h; sourceTree = "<group>"; }; - E9EACBFB0B7D6883002F61CC /* ops_assign.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_assign.cpp; path = source/ops_assign.cpp; sourceTree = "<group>"; }; - E9EACBFC0B7D6883002F61CC /* ops_assign.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_assign.h; path = source/ops_assign.h; sourceTree = "<group>"; }; - E9EACBFD0B7D6883002F61CC /* ops_carith.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_carith.cpp; path = source/ops_carith.cpp; sourceTree = "<group>"; }; - E9EACBFE0B7D6883002F61CC /* ops_carith.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_carith.h; path = source/ops_carith.h; sourceTree = "<group>"; }; - E9EACBFF0B7D6883002F61CC /* ops_cmp.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_cmp.cpp; path = source/ops_cmp.cpp; sourceTree = "<group>"; }; - E9EACC000B7D6883002F61CC /* ops_cmp.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_cmp.h; path = source/ops_cmp.h; sourceTree = "<group>"; }; - E9EACC010B7D6883002F61CC /* ops_cplx.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_cplx.cpp; path = source/ops_cplx.cpp; sourceTree = "<group>"; }; - E9EACC020B7D6883002F61CC /* ops_cplx.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_cplx.h; path = source/ops_cplx.h; sourceTree = "<group>"; }; - E9EACC030B7D6883002F61CC /* ops_dft.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_dft.cpp; path = source/ops_dft.cpp; sourceTree = "<group>"; }; - E9EACC040B7D6883002F61CC /* ops_dft.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_dft.h; path = source/ops_dft.h; sourceTree = "<group>"; }; - E9EACC050B7D6883002F61CC /* ops_feature.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_feature.cpp; path = source/ops_feature.cpp; sourceTree = "<group>"; }; - E9EACC060B7D6883002F61CC /* ops_feature.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_feature.h; path = source/ops_feature.h; sourceTree = "<group>"; }; - E9EACC070B7D6883002F61CC /* ops_flt.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_flt.cpp; path = source/ops_flt.cpp; sourceTree = "<group>"; }; - E9EACC080B7D6883002F61CC /* ops_flt.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_flt.h; path = source/ops_flt.h; sourceTree = "<group>"; }; - E9EACC090B7D6883002F61CC /* ops_gate.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_gate.cpp; path = source/ops_gate.cpp; sourceTree = "<group>"; }; - E9EACC0A0B7D6883002F61CC /* ops_gen.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_gen.cpp; path = source/ops_gen.cpp; sourceTree = "<group>"; }; - E9EACC0B0B7D6883002F61CC /* ops_gen.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_gen.h; path = source/ops_gen.h; sourceTree = "<group>"; }; - E9EACC0C0B7D6883002F61CC /* ops_qminmax.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_qminmax.cpp; path = source/ops_qminmax.cpp; sourceTree = "<group>"; }; - E9EACC0D0B7D6883002F61CC /* ops_rearr.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_rearr.cpp; path = source/ops_rearr.cpp; sourceTree = "<group>"; }; - E9EACC0E0B7D6883002F61CC /* ops_rearr.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_rearr.h; path = source/ops_rearr.h; sourceTree = "<group>"; }; - E9EACC0F0B7D6883002F61CC /* ops_resmp.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_resmp.cpp; path = source/ops_resmp.cpp; sourceTree = "<group>"; }; - E9EACC100B7D6883002F61CC /* ops_resmp.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_resmp.h; path = source/ops_resmp.h; sourceTree = "<group>"; }; - E9EACC110B7D6883002F61CC /* ops_search.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_search.cpp; path = source/ops_search.cpp; sourceTree = "<group>"; }; - E9EACC120B7D6883002F61CC /* ops_search.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_search.h; path = source/ops_search.h; sourceTree = "<group>"; }; - E9EACC130B7D6883002F61CC /* ops_trnsc.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_trnsc.cpp; path = source/ops_trnsc.cpp; sourceTree = "<group>"; }; - E9EACC140B7D6883002F61CC /* ops_trnsc.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_trnsc.h; path = source/ops_trnsc.h; sourceTree = "<group>"; }; - E9EACC150B7D6883002F61CC /* ops_wnd.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = ops_wnd.cpp; path = source/ops_wnd.cpp; sourceTree = "<group>"; }; - E9EACC160B7D6883002F61CC /* ops_wnd.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops_wnd.h; path = source/ops_wnd.h; sourceTree = "<group>"; }; - E9EACC170B7D6883002F61CC /* ops.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = ops.h; path = source/ops.h; sourceTree = "<group>"; }; - E9EACC180B7D6883002F61CC /* opvecs.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = opvecs.cpp; path = source/opvecs.cpp; sourceTree = "<group>"; }; - E9EACC190B7D6883002F61CC /* rdx2fft.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = rdx2fft.cpp; path = source/rdx2fft.cpp; sourceTree = "<group>"; }; - E9EACC1A0B7D6883002F61CC /* rvfft.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = rvfft.cpp; path = source/rvfft.cpp; sourceTree = "<group>"; }; - E9EACC1B0B7D6883002F61CC /* util.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = util.cpp; path = source/util.cpp; sourceTree = "<group>"; }; - E9EACC1C0B7D6883002F61CC /* util.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = util.h; path = source/util.h; sourceTree = "<group>"; }; - E9EACC1D0B7D6883002F61CC /* vasp.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = vasp.cpp; path = source/vasp.cpp; sourceTree = "<group>"; }; - E9EACC1E0B7D6883002F61CC /* vasp.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = vasp.h; path = source/vasp.h; sourceTree = "<group>"; }; - E9EACC1F0B7D6883002F61CC /* vbuffer.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = vbuffer.cpp; path = source/vbuffer.cpp; sourceTree = "<group>"; }; - E9EACC200B7D6883002F61CC /* vbuffer.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = vbuffer.h; path = source/vbuffer.h; sourceTree = "<group>"; }; - E9EACC210B7D6883002F61CC /* vecblk.cpp */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.cpp.cpp; name = vecblk.cpp; path = source/vecblk.cpp; sourceTree = "<group>"; }; - E9EACC220B7D6883002F61CC /* vecblk.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = vecblk.h; path = source/vecblk.h; sourceTree = "<group>"; }; -/* End PBXFileReference section */ - -/* Begin PBXFrameworksBuildPhase section */ - D289988505E68E00004EDB86 /* Frameworks */ = { - isa = PBXFrameworksBuildPhase; - buildActionMask = 2147483647; - files = ( - ); - runOnlyForDeploymentPostprocessing = 0; - }; -/* End PBXFrameworksBuildPhase section */ - -/* Begin PBXGroup section */ - 08FB7794FE84155DC02AAC07 /* vasp */ = { - isa = PBXGroup; - children = ( - 08FB7795FE84155DC02AAC07 /* Source */, - 1AB674ADFE9D54B511CA2CBB /* Products */, - ); - name = vasp; - sourceTree = "<group>"; - }; - 08FB7795FE84155DC02AAC07 /* Source */ = { - isa = PBXGroup; - children = ( - E9EACBD90B7D6883002F61CC /* arg.cpp */, - E9EACBDA0B7D6883002F61CC /* arg.h */, - E9EACBDB0B7D6883002F61CC /* buflib.cpp */, - E9EACBDC0B7D6883002F61CC /* buflib.h */, - E9EACBDD0B7D6883002F61CC /* classes.cpp */, - E9EACBDE0B7D6883002F61CC /* classes.h */, - E9EACBDF0B7D6883002F61CC /* env.cpp */, - E9EACBE00B7D6883002F61CC /* env.h */, - E9EACBE10B7D6883002F61CC /* main.cpp */, - E9EACBE20B7D6883002F61CC /* main.h */, - E9EACBE30B7D6883002F61CC /* mixfft.cpp */, - E9EACBE40B7D6883002F61CC /* obj_chns.cpp */, - E9EACBE50B7D6883002F61CC /* obj_frames.cpp */, - E9EACBE60B7D6883002F61CC /* obj_imm.cpp */, - E9EACBE70B7D6883002F61CC /* obj_offs.cpp */, - E9EACBE80B7D6883002F61CC /* obj_part.cpp */, - E9EACBE90B7D6883002F61CC /* obj_peaks.cpp */, - E9EACBEA0B7D6883002F61CC /* obj_q.cpp */, - E9EACBEB0B7D6883002F61CC /* obj_radio.cpp */, - E9EACBEC0B7D6883002F61CC /* obj_size.cpp */, - E9EACBED0B7D6883002F61CC /* obj_split.cpp */, - E9EACBEE0B7D6883002F61CC /* obj_sync.cpp */, - E9EACBEF0B7D6883002F61CC /* obj_vasp.cpp */, - E9EACBF00B7D6883002F61CC /* obj_vecs.cpp */, - E9EACBF10B7D6883002F61CC /* opbase.cpp */, - E9EACBF20B7D6883002F61CC /* opbase.h */, - E9EACBF30B7D6883002F61CC /* opdefs.h */, - E9EACBF40B7D6883002F61CC /* opfuns.h */, - E9EACBF50B7D6883002F61CC /* oploop.h */, - E9EACBF60B7D6883002F61CC /* opparam.cpp */, - E9EACBF70B7D6883002F61CC /* opparam.h */, - E9EACBF80B7D6883002F61CC /* oppermute.h */, - E9EACBF90B7D6883002F61CC /* ops_arith.cpp */, - E9EACBFA0B7D6883002F61CC /* ops_arith.h */, - E9EACBFB0B7D6883002F61CC /* ops_assign.cpp */, - E9EACBFC0B7D6883002F61CC /* ops_assign.h */, - E9EACBFD0B7D6883002F61CC /* ops_carith.cpp */, - E9EACBFE0B7D6883002F61CC /* ops_carith.h */, - E9EACBFF0B7D6883002F61CC /* ops_cmp.cpp */, - E9EACC000B7D6883002F61CC /* ops_cmp.h */, - E9EACC010B7D6883002F61CC /* ops_cplx.cpp */, - E9EACC020B7D6883002F61CC /* ops_cplx.h */, - E9EACC030B7D6883002F61CC /* ops_dft.cpp */, - E9EACC040B7D6883002F61CC /* ops_dft.h */, - E9EACC050B7D6883002F61CC /* ops_feature.cpp */, - E9EACC060B7D6883002F61CC /* ops_feature.h */, - E9EACC070B7D6883002F61CC /* ops_flt.cpp */, - E9EACC080B7D6883002F61CC /* ops_flt.h */, - E9EACC090B7D6883002F61CC /* ops_gate.cpp */, - E9EACC0A0B7D6883002F61CC /* ops_gen.cpp */, - E9EACC0B0B7D6883002F61CC /* ops_gen.h */, - E9EACC0C0B7D6883002F61CC /* ops_qminmax.cpp */, - E9EACC0D0B7D6883002F61CC /* ops_rearr.cpp */, - E9EACC0E0B7D6883002F61CC /* ops_rearr.h */, - E9EACC0F0B7D6883002F61CC /* ops_resmp.cpp */, - E9EACC100B7D6883002F61CC /* ops_resmp.h */, - E9EACC110B7D6883002F61CC /* ops_search.cpp */, - E9EACC120B7D6883002F61CC /* ops_search.h */, - E9EACC130B7D6883002F61CC /* ops_trnsc.cpp */, - E9EACC140B7D6883002F61CC /* ops_trnsc.h */, - E9EACC150B7D6883002F61CC /* ops_wnd.cpp */, - E9EACC160B7D6883002F61CC /* ops_wnd.h */, - E9EACC170B7D6883002F61CC /* ops.h */, - E9EACC180B7D6883002F61CC /* opvecs.cpp */, - E9EACC190B7D6883002F61CC /* rdx2fft.cpp */, - E9EACC1A0B7D6883002F61CC /* rvfft.cpp */, - E9EACC1B0B7D6883002F61CC /* util.cpp */, - E9EACC1C0B7D6883002F61CC /* util.h */, - E9EACC1D0B7D6883002F61CC /* vasp.cpp */, - E9EACC1E0B7D6883002F61CC /* vasp.h */, - E9EACC1F0B7D6883002F61CC /* vbuffer.cpp */, - E9EACC200B7D6883002F61CC /* vbuffer.h */, - E9EACC210B7D6883002F61CC /* vecblk.cpp */, - E9EACC220B7D6883002F61CC /* vecblk.h */, - ); - name = Source; - sourceTree = "<group>"; - }; - 1AB674ADFE9D54B511CA2CBB /* Products */ = { - isa = PBXGroup; - children = ( - D2AAC0630554660B00DB518D /* vasp.pd_darwin */, - ); - name = Products; - sourceTree = "<group>"; - }; -/* End PBXGroup section */ - -/* Begin PBXHeadersBuildPhase section */ - D2AAC0600554660B00DB518D /* Headers */ = { - isa = PBXHeadersBuildPhase; - buildActionMask = 2147483647; - files = ( - E9EACC240B7D6883002F61CC /* arg.h in Headers */, - E9EACC260B7D6883002F61CC /* buflib.h in Headers */, - E9EACC280B7D6883002F61CC /* classes.h in Headers */, - E9EACC2A0B7D6883002F61CC /* env.h in Headers */, - E9EACC2C0B7D6883002F61CC /* main.h in Headers */, - E9EACC3C0B7D6883002F61CC /* opbase.h in Headers */, - E9EACC3D0B7D6883002F61CC /* opdefs.h in Headers */, - E9EACC3E0B7D6883002F61CC /* opfuns.h in Headers */, - E9EACC3F0B7D6883002F61CC /* oploop.h in Headers */, - E9EACC410B7D6883002F61CC /* opparam.h in Headers */, - E9EACC420B7D6883002F61CC /* oppermute.h in Headers */, - E9EACC440B7D6883002F61CC /* ops_arith.h in Headers */, - E9EACC460B7D6883002F61CC /* ops_assign.h in Headers */, - E9EACC480B7D6883002F61CC /* ops_carith.h in Headers */, - E9EACC4A0B7D6883002F61CC /* ops_cmp.h in Headers */, - E9EACC4C0B7D6883002F61CC /* ops_cplx.h in Headers */, - E9EACC4E0B7D6883002F61CC /* ops_dft.h in Headers */, - E9EACC500B7D6883002F61CC /* ops_feature.h in Headers */, - E9EACC520B7D6883002F61CC /* ops_flt.h in Headers */, - E9EACC550B7D6883002F61CC /* ops_gen.h in Headers */, - E9EACC580B7D6883002F61CC /* ops_rearr.h in Headers */, - E9EACC5A0B7D6883002F61CC /* ops_resmp.h in Headers */, - E9EACC5C0B7D6883002F61CC /* ops_search.h in Headers */, - E9EACC5E0B7D6883002F61CC /* ops_trnsc.h in Headers */, - E9EACC600B7D6883002F61CC /* ops_wnd.h in Headers */, - E9EACC610B7D6883002F61CC /* ops.h in Headers */, - E9EACC660B7D6883002F61CC /* util.h in Headers */, - E9EACC680B7D6883002F61CC /* vasp.h in Headers */, - E9EACC6A0B7D6883002F61CC /* vbuffer.h in Headers */, - E9EACC6C0B7D6883002F61CC /* vecblk.h in Headers */, - ); - runOnlyForDeploymentPostprocessing = 0; - }; -/* End PBXHeadersBuildPhase section */ - -/* Begin PBXNativeTarget section */ - D2AAC0620554660B00DB518D /* vasp */ = { - isa = PBXNativeTarget; - buildConfigurationList = 1DEB914A08733D8E0010E9CD /* Build configuration list for PBXNativeTarget "vasp" */; - buildPhases = ( - D2AAC0600554660B00DB518D /* Headers */, - D2AAC0610554660B00DB518D /* Sources */, - D289988505E68E00004EDB86 /* Frameworks */, - ); - buildRules = ( - ); - dependencies = ( - ); - name = vasp; - productName = vasp; - productReference = D2AAC0630554660B00DB518D /* vasp.pd_darwin */; - productType = "com.apple.product-type.library.dynamic"; - }; -/* End PBXNativeTarget section */ - -/* Begin PBXProject section */ - 08FB7793FE84155DC02AAC07 /* Project object */ = { - isa = PBXProject; - buildConfigurationList = 1DEB914E08733D8E0010E9CD /* Build configuration list for PBXProject "vasp" */; - hasScannedForEncodings = 1; - mainGroup = 08FB7794FE84155DC02AAC07 /* vasp */; - projectDirPath = ""; - targets = ( - D2AAC0620554660B00DB518D /* vasp */, - ); - }; -/* End PBXProject section */ - -/* Begin PBXSourcesBuildPhase section */ - D2AAC0610554660B00DB518D /* Sources */ = { - isa = PBXSourcesBuildPhase; - buildActionMask = 2147483647; - files = ( - E9EACC230B7D6883002F61CC /* arg.cpp in Sources */, - E9EACC250B7D6883002F61CC /* buflib.cpp in Sources */, - E9EACC270B7D6883002F61CC /* classes.cpp in Sources */, - E9EACC290B7D6883002F61CC /* env.cpp in Sources */, - E9EACC2B0B7D6883002F61CC /* main.cpp in Sources */, - E9EACC2D0B7D6883002F61CC /* mixfft.cpp in Sources */, - E9EACC2E0B7D6883002F61CC /* obj_chns.cpp in Sources */, - E9EACC2F0B7D6883002F61CC /* obj_frames.cpp in Sources */, - E9EACC300B7D6883002F61CC /* obj_imm.cpp in Sources */, - E9EACC310B7D6883002F61CC /* obj_offs.cpp in Sources */, - E9EACC320B7D6883002F61CC /* obj_part.cpp in Sources */, - E9EACC330B7D6883002F61CC /* obj_peaks.cpp in Sources */, - E9EACC340B7D6883002F61CC /* obj_q.cpp in Sources */, - E9EACC350B7D6883002F61CC /* obj_radio.cpp in Sources */, - E9EACC360B7D6883002F61CC /* obj_size.cpp in Sources */, - E9EACC370B7D6883002F61CC /* obj_split.cpp in Sources */, - E9EACC380B7D6883002F61CC /* obj_sync.cpp in Sources */, - E9EACC390B7D6883002F61CC /* obj_vasp.cpp in Sources */, - E9EACC3A0B7D6883002F61CC /* obj_vecs.cpp in Sources */, - E9EACC3B0B7D6883002F61CC /* opbase.cpp in Sources */, - E9EACC400B7D6883002F61CC /* opparam.cpp in Sources */, - E9EACC430B7D6883002F61CC /* ops_arith.cpp in Sources */, - E9EACC450B7D6883002F61CC /* ops_assign.cpp in Sources */, - E9EACC470B7D6883002F61CC /* ops_carith.cpp in Sources */, - E9EACC490B7D6883002F61CC /* ops_cmp.cpp in Sources */, - E9EACC4B0B7D6883002F61CC /* ops_cplx.cpp in Sources */, - E9EACC4D0B7D6883002F61CC /* ops_dft.cpp in Sources */, - E9EACC4F0B7D6883002F61CC /* ops_feature.cpp in Sources */, - E9EACC510B7D6883002F61CC /* ops_flt.cpp in Sources */, - E9EACC530B7D6883002F61CC /* ops_gate.cpp in Sources */, - E9EACC540B7D6883002F61CC /* ops_gen.cpp in Sources */, - E9EACC560B7D6883002F61CC /* ops_qminmax.cpp in Sources */, - E9EACC570B7D6883002F61CC /* ops_rearr.cpp in Sources */, - E9EACC590B7D6883002F61CC /* ops_resmp.cpp in Sources */, - E9EACC5B0B7D6883002F61CC /* ops_search.cpp in Sources */, - E9EACC5D0B7D6883002F61CC /* ops_trnsc.cpp in Sources */, - E9EACC5F0B7D6883002F61CC /* ops_wnd.cpp in Sources */, - E9EACC620B7D6883002F61CC /* opvecs.cpp in Sources */, - E9EACC630B7D6883002F61CC /* rdx2fft.cpp in Sources */, - E9EACC640B7D6883002F61CC /* rvfft.cpp in Sources */, - E9EACC650B7D6883002F61CC /* util.cpp in Sources */, - E9EACC670B7D6883002F61CC /* vasp.cpp in Sources */, - E9EACC690B7D6883002F61CC /* vbuffer.cpp in Sources */, - E9EACC6B0B7D6883002F61CC /* vecblk.cpp in Sources */, - ); - runOnlyForDeploymentPostprocessing = 0; - }; -/* End PBXSourcesBuildPhase section */ - -/* Begin XCBuildConfiguration section */ - 1DEB914B08733D8E0010E9CD /* Debug */ = { - isa = XCBuildConfiguration; - buildSettings = { - COPY_PHASE_STRIP = NO; - EXECUTABLE_EXTENSION = pd_darwin; - GCC_PREPROCESSOR_DEFINITIONS = ( - "$(inherited)", - "FLEXT_SYS=2", - FLEXT_THREADS, - ); - HEADER_SEARCH_PATHS = ( - "/Applications/Pd-0.40-2.app/Contents/Resources/src", - /usr/local/include/flext, - ); - INSTALL_PATH = /usr/local/lib; - LIBRARY_SEARCH_PATHS = /usr/local/lib; - OTHER_LDFLAGS = ( - "-lflext-pd_td", - "-undefined", - dynamic_lookup, - ); - PRODUCT_NAME = vasp; - ZERO_LINK = YES; - }; - name = Debug; - }; - 1DEB914C08733D8E0010E9CD /* Release */ = { - isa = XCBuildConfiguration; - buildSettings = { - EXECUTABLE_EXTENSION = pd_darwin; - GCC_PREPROCESSOR_DEFINITIONS = ( - "$(inherited)", - "FLEXT_SYS=2", - FLEXT_THREADS, - ); - HEADER_SEARCH_PATHS = ( - "/Applications/Pd-0.40-2.app/Contents/Resources/src", - /usr/local/include/flext, - ); - INSTALL_PATH = /usr/local/lib; - LIBRARY_SEARCH_PATHS = /usr/local/lib; - OTHER_LDFLAGS = ( - "-lflext-pd_t", - "-undefined", - dynamic_lookup, - ); - PRODUCT_NAME = vasp; - }; - name = Release; - }; - 1DEB914F08733D8E0010E9CD /* Debug */ = { - isa = XCBuildConfiguration; - buildSettings = { - GCC_OPTIMIZATION_LEVEL = 0; - GCC_PREPROCESSOR_DEFINITIONS = _DEBUG; - GCC_THREADSAFE_STATICS = YES; - GCC_WARN_ABOUT_RETURN_TYPE = YES; - GCC_WARN_UNUSED_VARIABLE = YES; - PREBINDING = NO; - SDKROOT = /Developer/SDKs/MacOSX10.4u.sdk; - }; - name = Debug; - }; - 1DEB915008733D8E0010E9CD /* Release */ = { - isa = XCBuildConfiguration; - buildSettings = { - ARCHS = ( - i386, - ppc, - ); - GCC_AUTO_VECTORIZATION = YES; - GCC_ENABLE_SSE3_EXTENSIONS = YES; - GCC_THREADSAFE_STATICS = YES; - GCC_WARN_ABOUT_RETURN_TYPE = YES; - GCC_WARN_UNUSED_VARIABLE = YES; - PREBINDING = NO; - SDKROOT = /Developer/SDKs/MacOSX10.4u.sdk; - }; - name = Release; - }; -/* End XCBuildConfiguration section */ - -/* Begin XCConfigurationList section */ - 1DEB914A08733D8E0010E9CD /* Build configuration list for PBXNativeTarget "vasp" */ = { - isa = XCConfigurationList; - buildConfigurations = ( - 1DEB914B08733D8E0010E9CD /* Debug */, - 1DEB914C08733D8E0010E9CD /* Release */, - ); - defaultConfigurationIsVisible = 0; - defaultConfigurationName = Release; - }; - 1DEB914E08733D8E0010E9CD /* Build configuration list for PBXProject "vasp" */ = { - isa = XCConfigurationList; - buildConfigurations = ( - 1DEB914F08733D8E0010E9CD /* Debug */, - 1DEB915008733D8E0010E9CD /* Release */, - ); - defaultConfigurationIsVisible = 0; - defaultConfigurationName = Release; - }; -/* End XCConfigurationList section */ - }; - rootObject = 08FB7793FE84155DC02AAC07 /* Project object */; -} |