blob: d8aa8a6521e27520204e68cfb28bac8ab9a0d2a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
/*
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
|
