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
|
/*
import("stdfaust.lib");
process = (c : *(200) : os.osc)
with {
clk1 = ba.pulse(ma.SR * tempo / 1000);
clk2 = ba.pulse(ma.SR * 2 * tempo / 1000);
c1 = ba.counter(clk1) % 2;
c2 = ba.counter(clk2) % 2;
c = 1 + c1 + (2 * c2);
tempo = 500;
};
*/
declare version "2.44.4";
declare compile_options "-single -scal -e dsp/priority.dsp -o priority_exp.dsp";
declare library_path0 "/usr/local/share/faust/stdfaust.lib";
declare library_path1 "/usr/local/share/faust/basics.lib";
declare library_path2 "/usr/local/share/faust/maths.lib";
declare library_path3 "/usr/local/share/faust/platform.lib";
declare library_path4 "/usr/local/share/faust/oscillators.lib";
declare basics_lib_counter_author "Stephane Letz";
declare basics_lib_name "Faust Basic Element Library";
declare basics_lib_version "0.8";
declare filename "priority.dsp";
declare maths_lib_author "GRAME";
declare maths_lib_copyright "GRAME";
declare maths_lib_license "LGPL with exception";
declare maths_lib_name "Faust Math Library";
declare maths_lib_version "2.5";
declare name "priority";
declare oscillators_lib_name "Faust Oscillator Library";
declare oscillators_lib_version "0.3";
declare platform_lib_name "Generic Platform Library";
declare platform_lib_version "0.2";
ID_0 = fconstant(int fSamplingFreq, <math.h>);
ID_1 = 1.0f, ID_0;
ID_2 = (ID_1 : max);
ID_3 = 192000.0f, ID_2;
ID_4 = (ID_3 : min);
ID_5 = ID_4, 500;
ID_6 = (ID_5 : *);
ID_7 = ID_6, 1000;
ID_8 = ID_7 : /;
ID_9 = (ID_8 : int);
ID_10 = _, ID_9;
ID_11 = (ID_10 : %);
ID_12 = (1 : mem);
ID_13 = _, ID_12;
ID_14 = (ID_13 : +);
ID_15 = ID_11 ~ ID_14;
ID_16 = (ID_15 : \(x5).(x5,(x5 : mem) : <=));
ID_17 = (ID_16 : mem);
ID_18 = ID_16, ID_17;
ID_19 = ID_18 : >;
ID_20 = + ~ _;
ID_21 = (ID_19 : ID_20);
ID_22 = ID_21, 2;
ID_23 = (ID_22 : %);
ID_24 = 1, ID_23;
ID_25 = (ID_24 : +);
ID_26 = ID_4, 2;
ID_27 = (ID_26 : *);
ID_28 = ID_27, 500;
ID_29 = (ID_28 : *);
ID_30 = ID_29, 1000;
ID_31 = ID_30 : /;
ID_32 = (ID_31 : int);
ID_33 = _, ID_32;
ID_34 = (ID_33 : %);
ID_35 = ID_34 ~ ID_14;
ID_36 = (ID_35 : \(x6).(x6,(x6 : mem) : <=));
ID_37 = (ID_36 : mem);
ID_38 = ID_36, ID_37;
ID_39 = ID_38 : >;
ID_40 = (ID_39 : ID_20);
ID_41 = ID_40, 2;
ID_42 = (ID_41 : %);
ID_43 = 2, ID_42;
ID_44 = (ID_43 : *);
ID_45 = ID_25, ID_44;
ID_46 = ID_45 : +;
ID_47 = _, 200;
ID_48 = ID_47 : *;
ID_49 = ID_48 : \(x7).(65536,((((_,(65536 : int) : %)~(_,(1 : mem) : +) : float),6.2831853071795862f : *),(65536 : float) : / : sin),((0,(_,(x7,(192000.0f,(1.0f,fconstant(int fSamplingFreq, <math.h>) : max) : min) : /) : +),0 : select2 : \(x8).(x8,(x8 : floor) : -))~_ : _,(65536 : float) : * : int) : rdtable);
ID_50 = ID_46 : ID_49;
process = ID_50;
|
