-
Notifications
You must be signed in to change notification settings - Fork 3
/
ftables.inc
88 lines (72 loc) · 4.55 KB
/
ftables.inc
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
; Copyright 2014 Oeyvind Brandtsegg and Axel Tidemann
;
; This file is part of [self.]
;
; [self.] is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License version 3
; as published by the Free Software Foundation.
;
; [self.] 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 [self.]. If not, see <http://www.gnu.org/licenses/>.
; pvs ftables
gifftsize = 1024
chnset gifftsize, "fftsize"
giFftTabSize = (gifftsize / 2)+1
gifna ftgen 1 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis
gifnf ftgen 2 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis
gifnaSelf ftgen 4 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis of my own output
gifnfSelf ftgen 5 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis of my own output
gifnaResyn ftgen 7 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs resynthesis
gifnfResyn ftgen 8 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs resynthesis
gifnaIn ftgen 0 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis of input (self output suppression)
gifnaOut ftgen 0 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis of output (self output suppression)
giNoiseFloor ftgen 0, 0, 8192, 2, 0 ; just init, to be used as noise gate
gifnaNoiseIn ftgen 0 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis of bacground noise
gifnaNoise ftgen 0 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for pvs analysis of bacground noise
gifnaEq_test ftgen 0 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for audio system Eq profiling
gifnaEqProfile ftgen 0 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; init audio system Eq profile
gifnaEq ftgen 0 ,0 ,giFftTabSize, 7, 0, giFftTabSize, 0 ; for audio system Eq application
giAudioTemp ftgen 0, 0, 2097152, 2, 0 ; 47 second temporary buffer for recording segments before writing to file
;giMarkerTemp ftgen 0, 0, 32, 2, 0 ; for writing valid segment start times (in one sentence)
; chnset giMarkerTemp, "giMarkerTemp"
giPitchTemp ftgen 0, 0, 32768, 2, 0 ; for writing temporary pitch data, just as for audio recording
; classic waveforms
giSine ftgen 0, 0, 65536, 10, 1 ; sine wave
giCosine ftgen 0, 0, 8192, 9, 1, 1, 90 ; cosine wave
giTri ftgen 0, 0, 8192, 7, 0, 2048, 1, 4096, -1, 2048, 0 ; triangle wave
; grain envelope tables
giSampleposGate ftgen 0, 0, 8193, 7, 1, 8190, 2, 0 ; gate at end
giHanning ftgen 0, 0, 8193, 20, 2, 1 ; Hanning
giSigmoRise ftgen 0, 0, 8193, 19, 0.5, 1, 270, 1 ; rising sigmoid
giSigmoFall ftgen 0, 0, 8193, 19, 0.5, 1, 90, 1 ; falling sigmoid
giExpFall ftgen 0, 0, 8193, 5, 1, 8193, 0.00001 ; exponential decay
giTriangleWin ftgen 0, 0, 8193, 7, 0, 4096, 1, 4096, 0 ; triangular window
; default init (silent) ambient background tables (STATIC TABLE NUMS 91-98)
iAmbInitSize = 262144
giAmbient1 ftgen 91, 0, iAmbInitSize, 2, 0 ; empty buffer
giAmbient2 ftgen 92, 0, iAmbInitSize, 2, 0 ; empty buffer
giAmbient3 ftgen 93, 0, iAmbInitSize, 2, 0 ; empty buffer
giAmbient4 ftgen 94, 0, iAmbInitSize, 2, 0 ; empty buffer
giAmbientTabNum = 0
;giAmbientTabs ftgen 0, 0, 4, -2, giAmbient1,giAmbient2,giAmbient3,giAmbient4
; panalyzer tables
giPanalyzeTemp0 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp1 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp2 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp3 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp4 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp5 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp6 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp7 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp8 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp9 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTemp10 ftgen 0, 0, 1024, 2, 0 ; empty buffer
giPanalyzeTempRef ftgen 0, 0, 1024, 2, 0 ; empty buffer
gkPanalyzeArr[] init 11
; secondary synth, keep track of tables currently in use
giTablesInUseSecondary ftgen 0, 0, 1024, 2, 0 ; init empty