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
110
111
112
113
114
115
116
117
118
119
120
121
122
|
declare version "2.77.2";
declare compile_options "-single -scal ../../build/bin/faust -I dsp -e dsp/harpe.dsp -o reference/harpe.box";
declare author "Grame";
declare filename "harpe.dsp";
declare name "Harpe";
ID_0 = hslider("hand[osc:/accxyz/1 -10 10]", 0.43f, 0.0f, 1.0f, 0.01f);
ID_1 = _, 0.1f;
ID_2 = ID_1 : *;
ID_3 = _, 0.9f;
ID_4 = (ID_3 : *);
ID_5 = + ~ ID_4;
ID_6 = ID_2 : ID_5;
ID_7 = ID_0 : ID_6;
ID_8 = (0.95454544f : sqrt);
ID_9 = _, ID_8;
ID_10 = (ID_9 : *);
ID_11 = (0.045454547f : sqrt);
ID_12 = _, ID_11;
ID_13 = (ID_12 : *);
ID_14 = ID_10, ID_13;
ID_15 = _ <: ID_14;
ID_16 = \(x2).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x2 : \(x3).((x3,(x3 : mem) : -),0.0f : >) : +~\(x4).(x4,((x4,0.0f : >),100.22727f : /) : -) : _,0.0f : >) : * : (+ : _,99.22727f : @)~(\(x5).((x5,(x5 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_15;
ID_17 = (\(x1).(((x1,(x1 : mem) : min),0.045454547f : <),(0.045454547f,(x1,(x1 : mem) : max) : <) : &) : ID_16);
ID_18 = (0.8636364f : sqrt);
ID_19 = _, ID_18;
ID_20 = (ID_19 : *);
ID_21 = (0.13636364f : sqrt);
ID_22 = _, ID_21;
ID_23 = (ID_22 : *);
ID_24 = ID_20, ID_23;
ID_25 = _ <: ID_24;
ID_26 = \(x7).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x7 : \(x8).((x8,(x8 : mem) : -),0.0f : >) : +~\(x9).(x9,((x9,0.0f : >),87.25291f : /) : -) : _,0.0f : >) : * : (+ : _,86.25291f : @)~(\(x10).((x10,(x10 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_25;
ID_27 = (\(x6).(((x6,(x6 : mem) : min),0.13636364f : <),(0.13636364f,(x6,(x6 : mem) : max) : <) : &) : ID_26);
ID_28 = (0.77272725f : sqrt);
ID_29 = _, ID_28;
ID_30 = (ID_29 : *);
ID_31 = (0.22727273f : sqrt);
ID_32 = _, ID_31;
ID_33 = (ID_32 : *);
ID_34 = ID_30, ID_33;
ID_35 = _ <: ID_34;
ID_36 = \(x12).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x12 : \(x13).((x13,(x13 : mem) : -),0.0f : >) : +~\(x14).(x14,((x14,0.0f : >),75.95807f : /) : -) : _,0.0f : >) : * : (+ : _,74.95807f : @)~(\(x15).((x15,(x15 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_35;
ID_37 = (\(x11).(((x11,(x11 : mem) : min),0.22727273f : <),(0.22727273f,(x11,(x11 : mem) : max) : <) : &) : ID_36);
ID_38 = (0.6818182f : sqrt);
ID_39 = _, ID_38;
ID_40 = (ID_39 : *);
ID_41 = (0.3181818f : sqrt);
ID_42 = _, ID_41;
ID_43 = (ID_42 : *);
ID_44 = ID_40, ID_43;
ID_45 = _ <: ID_44;
ID_46 = \(x17).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x17 : \(x18).((x18,(x18 : mem) : -),0.0f : >) : +~\(x19).(x19,((x19,0.0f : >),66.12534f : /) : -) : _,0.0f : >) : * : (+ : _,65.12534f : @)~(\(x20).((x20,(x20 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_45;
ID_47 = (\(x16).(((x16,(x16 : mem) : min),0.3181818f : <),(0.3181818f,(x16,(x16 : mem) : max) : <) : &) : ID_46);
ID_48 = (0.59090906f : sqrt);
ID_49 = _, ID_48;
ID_50 = (ID_49 : *);
ID_51 = (0.4090909f : sqrt);
ID_52 = _, ID_51;
ID_53 = (ID_52 : *);
ID_54 = ID_50, ID_53;
ID_55 = _ <: ID_54;
ID_56 = \(x22).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x22 : \(x23).((x23,(x23 : mem) : -),0.0f : >) : +~\(x24).(x24,((x24,0.0f : >),57.565453f : /) : -) : _,0.0f : >) : * : (+ : _,56.565453f : @)~(\(x25).((x25,(x25 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_55;
ID_57 = (\(x21).(((x21,(x21 : mem) : min),0.4090909f : <),(0.4090909f,(x21,(x21 : mem) : max) : <) : &) : ID_56);
ID_58 = (0.5f : sqrt);
ID_59 = _, ID_58;
ID_60 = (ID_59 : *);
ID_61 = ID_60, ID_60;
ID_62 = _ <: ID_61;
ID_63 = \(x27).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x27 : \(x28).((x28,(x28 : mem) : -),0.0f : >) : +~\(x29).(x29,((x29,0.0f : >),50.113636f : /) : -) : _,0.0f : >) : * : (+ : _,49.113636f : @)~(\(x30).((x30,(x30 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_62;
ID_64 = (\(x26).(((x26,(x26 : mem) : min),0.5f : <),(0.5f,(x26,(x26 : mem) : max) : <) : &) : ID_63);
ID_65 = (0.4090909f : sqrt);
ID_66 = _, ID_65;
ID_67 = (ID_66 : *);
ID_68 = (0.59090906f : sqrt);
ID_69 = _, ID_68;
ID_70 = (ID_69 : *);
ID_71 = ID_67, ID_70;
ID_72 = _ <: ID_71;
ID_73 = \(x32).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x32 : \(x33).((x33,(x33 : mem) : -),0.0f : >) : +~\(x34).(x34,((x34,0.0f : >),43.626453f : /) : -) : _,0.0f : >) : * : (+ : _,42.626453f : @)~(\(x35).((x35,(x35 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_72;
ID_74 = (\(x31).(((x31,(x31 : mem) : min),0.59090906f : <),(0.59090906f,(x31,(x31 : mem) : max) : <) : &) : ID_73);
ID_75 = (0.3181818f : sqrt);
ID_76 = _, ID_75;
ID_77 = (ID_76 : *);
ID_78 = (0.6818182f : sqrt);
ID_79 = _, ID_78;
ID_80 = (ID_79 : *);
ID_81 = ID_77, ID_80;
ID_82 = _ <: ID_81;
ID_83 = \(x37).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x37 : \(x38).((x38,(x38 : mem) : -),0.0f : >) : +~\(x39).(x39,((x39,0.0f : >),37.979034f : /) : -) : _,0.0f : >) : * : (+ : _,36.979034f : @)~(\(x40).((x40,(x40 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_82;
ID_84 = (\(x36).(((x36,(x36 : mem) : min),0.6818182f : <),(0.6818182f,(x36,(x36 : mem) : max) : <) : &) : ID_83);
ID_85 = (0.22727273f : sqrt);
ID_86 = _, ID_85;
ID_87 = (ID_86 : *);
ID_88 = ID_87, ID_30;
ID_89 = _ <: ID_88;
ID_90 = \(x42).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x42 : \(x43).((x43,(x43 : mem) : -),0.0f : >) : +~\(x44).(x44,((x44,0.0f : >),33.06267f : /) : -) : _,0.0f : >) : * : (+ : _,32.06267f : @)~(\(x45).((x45,(x45 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_89;
ID_91 = (\(x41).(((x41,(x41 : mem) : min),0.77272725f : <),(0.77272725f,(x41,(x41 : mem) : max) : <) : &) : ID_90);
ID_92 = ID_23, ID_20;
ID_93 = _ <: ID_92;
ID_94 = \(x47).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x47 : \(x48).((x48,(x48 : mem) : -),0.0f : >) : +~\(x49).(x49,((x49,0.0f : >),28.782726f : /) : -) : _,0.0f : >) : * : (+ : _,27.782726f : @)~(\(x50).((x50,(x50 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_93;
ID_95 = (\(x46).(((x46,(x46 : mem) : min),0.8636364f : <),(0.8636364f,(x46,(x46 : mem) : max) : <) : &) : ID_94);
ID_96 = (0.045454547f : sqrt);
ID_97 = _, ID_96;
ID_98 = (ID_97 : *);
ID_99 = ID_98, ID_10;
ID_100 = _ <: ID_99;
ID_101 = \(x52).(((_,12345 : +)~(_,1103515245 : *),2.1474836e+09f : /),(hslider("level [unit:f][osc:/accxyz/0 -10 10]", 0.5f, 0.0f, 1.0f, 0.01f),2 : pow) : * : _,(x52 : \(x53).((x53,(x53 : mem) : -),0.0f : >) : +~\(x54).(x54,((x54,0.0f : >),25.056818f : /) : -) : _,0.0f : >) : * : (+ : _,24.056818f : @)~(\(x55).((x55,(x55 : mem) : +),2 : /) : _,(1.0f,hslider("attenuation [osc:/1/fader3]", 0.0f, 0.0f, 0.01f, 0.001f) : -) : *)) : ID_100;
ID_102 = (\(x51).(((x51,(x51 : mem) : min),0.95454544f : <),(0.95454544f,(x51,(x51 : mem) : max) : <) : &) : ID_101);
ID_103 = ID_95, ID_102;
ID_104 = ID_91, ID_103;
ID_105 = ID_84, ID_104;
ID_106 = ID_74, ID_105;
ID_107 = ID_64, ID_106;
ID_108 = ID_57, ID_107;
ID_109 = ID_47, ID_108;
ID_110 = ID_37, ID_109;
ID_111 = ID_27, ID_110;
ID_112 = ID_17, ID_111;
ID_113 = _, _;
ID_114 = ID_112 :> ID_113;
ID_115 = ID_7 <: ID_114;
process = ID_115;
|
