aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/flext/tutorial/stk2/main.cpp
blob: 5d6cb72c7cc4054f90ae39a568d290496b850535 (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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
/* 
flext tutorial - stk 2

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.  

-------------------------------------------------------------------------

This is an example of an external using the STK ("synthesis toolkit") library.
For STK see http://ccrma-www.stanford.edu/software/stk

STK needs C++ exceptions switched on.

The STK tutorial examples assume that a static stk library exists which contains all the
source files (except rt*.cpp) of the stk/src directory.
The library should be compiled multithreaded and with the appropriate compiler flags for 
the respective platform (e.g. __OS_WINDOWS__ and __LITTLE_ENDIAN__ for Windows)

*/

#include <flstk.h>

#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 401)
#error You need at least flext version 0.4.1
#endif

#include "PitShift.h"


class stk2:
	public flext_stk
{
	FLEXT_HEADER_S(stk2,flext_stk,Setup)

public:
	stk2();

	void m_sh1(float f) { if(inst[0]) inst[0]->setShift(f); }
	void m_sh2(float f) { if(inst[1]) inst[1]->setShift(f); }

	// these are obligatory!
	virtual bool NewObjs(); // create STK instruments
	virtual void FreeObjs(); // destroy STK instruments
	virtual void ProcessObjs(int n);  // do DSP processing

	PitShift *inst[2];

private:
	static void Setup(t_class *c);

	FLEXT_CALLBACK_F(m_sh1)
	FLEXT_CALLBACK_F(m_sh2)
};

FLEXT_NEW_DSP("stk2~",stk2)
 

stk2::stk2()
{ 
	AddInSignal();
	AddOutSignal(2);  

	inst[0] = inst[1] = NULL;
}

void stk2::Setup(t_class *c)
{
	FLEXT_CADDMETHOD_F(c,0,"shL",m_sh1);
	FLEXT_CADDMETHOD_F(c,0,"shR",m_sh2);
}


// create STK instruments
bool stk2::NewObjs()
{
	bool ok = true;

	// set up objects
	try {
		for(int i = 0; i < 2; ++i)
			inst[i] = new PitShift;
	}
	catch (StkError &) {
		post("%s - Noise() setup failed!",thisName());
		ok = false;
	}
	return ok;
}


// destroy the STK instruments
void stk2::FreeObjs()
{
	for(int i = 0; i < 2; ++i)
		if(inst[i]) delete inst[i];
}

// this is called on every DSP block
void stk2::ProcessObjs(int n)
{
	while(n--) {
		MY_FLOAT f = Inlet(0).tick();
		for(int i = 0; i < 2; ++i)
			Outlet(i).tick(inst[i]->tick(f));
	}
}