module Csound.Catalog.Wave.Woodwind
( flute
, bassClarinet
, frenchHorn
, sheng
, hulusi
, dizi
) where
import Csound.Base hiding (fromSpec)
import Csound.Catalog.Wave.WoodwindAlg
totalDur :: (D, D, D) -> D
totalDur (att, sus, dec) = att + sus + dec
flute :: D -> D -> D -> D -> D -> D -> D -> Sig
flute = woodwind $ WoodwindSpec
{ woodwindRange = fromSpec fluteRangeSpec
, woodwindVibratoDur = totalDur
, woodwindFreqDeviation = ((0.03, 0), (0, 0.003), (0.0015, 0), (0, 0.012))
}
fluteRangeSpec :: [RangeSpec]
fluteRangeSpec =
[ RangeSpec
{ rangeFreq = 427.28
, rangeNorm = 3949
, rangeHarms =
[ HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0, 0.002, 0.045, 0.146, 0.272, 0.072, 0.043]
, ampSustain = [0.043, 0.230, 0.000, 0.118, 0.923]
, ampDecay = [0.923, 1.191, 0.794, 0.418, 0.172, 0.053, 0]
}
, harmWave = [2000, 489, 74, 219, 125, 9, 33, 5, 5]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0, 0.009, 0.022, 0.049, 0.120, 0.297, 1.890]
, ampSustain = [1.890, 1.543, 0.000, 0.546, 0.690]
, ampDecay = [0.690, 0.318, 0.326, 0.116, 0.035, 0.020, 0]
}
, harmWave = [2729, 1926, 346, 662, 537, 110, 61, 29, 7]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0, 0.005, 0.026, 0.023, 0.133, 0.060, 1.245]
, ampSustain = [1.245, 0.760, 1.000, 0.360, 0.526]
, ampDecay = [0.526, 0.165, 0.184, 0.060, 0.010, 0.013, 0]
}
, harmWave = [2558, 2012, 390, 361, 534, 139, 53, 22, 10, 13, 10]
}
]
}
, RangeSpec
{ rangeFreq = 608.22
, rangeNorm = 27668.2
, rangeHarms =
[ HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0.000, 0.000, 0.005, 0.000, 0.030, 0.198, 0.664]
, ampSustain = [0.664, 1.451, 1.782, 1.316, 0.817]
, ampDecay = [0.817, 0.284, 0.171, 0.082, 0.037, 0.012, 0]
}
, harmWave = [12318, 8844, 1841, 1636, 256, 150, 60, 46, 11]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,0.320,0.882,1.863,4.175,4.355]
, ampSustain = [4.355,5.329,8.303,1.480,0.472]
, ampDecay = [0.472,1.819,0.135,0.082,0.170,0.065,0]
}
, harmWave = [1229, 16, 34, 57, 32]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,1.000,0.520,0.303,0.059,4.103,6.784]
, ampSustain = [6.784,7.006,11,12.495,0.562]
, ampDecay = [0.562,4.946,0.587,0.440,0.174,0.027,0]
}
, harmWave = [163, 31, 1, 50, 31]
}
]
}
, RangeSpec
{ rangeFreq = 1013.7
, rangeNorm = 3775
, rangeHarms =
[ HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.005,0.000,0.082,0.36,0.581,0.416]
, ampSustain = [0.416,1.073,0.000,0.356,0.86]
, ampDecay = [0.86,0.532,0.162,0.076,0.064,0.031,0]
}
, harmWave = [4128, 883, 354, 79, 59, 23]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.005,0.000,0.205,0.284,0.208,0.326]
, ampSustain = [0.326,0.401,1.540,0.589,0.486]
, ampDecay = [0.486,0.016,0.141,0.105,0.003,0.023,0]
}
, harmWave = [1924, 930, 251, 50, 25, 14]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.722,1.500,3.697,0.080,2.327,0.684]
, ampSustain = [0.684,2.638,0.000,1.347,0.485]
, ampDecay = [0.485,0.419,0.700,0.278,0.167,0.059,0]
}
, harmWave = [94, 6, 22, 8]
}
]
}
, RangeSpec
{ rangeFreq = 22000
, rangeNorm = 4909.05
, rangeHarms =
[ HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,0.000,0.211,0.526,0.989,1.216]
, ampSustain = [1.216,1.727,1.881,1.462,1.28]
, ampDecay = [1.28,0.75,0.34,0.154,0.122,0.028,0]
}
, harmWave = [2661, 87, 33, 18]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.500,0.000,0.181,0.859,0.205,0.430]
, ampSustain = [0.430,0.725,0.544,0.436,0.109]
, ampDecay = [0.109,0.03,0.022,0.046,0.071,0.019,0]
}
, harmWave = [174, 12]
}
, HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,1.000,0.426,0.222,0.175,0.153]
, ampSustain = [0.153,0.355,0.175,0.16,0.246]
, ampDecay = [0.246,0.045,0.072,0.057,0.024,0.002,0]
}
, harmWave = [314, 13]
}
]
}
]
bassClarinet :: D -> D -> D -> D -> D -> D -> D -> Sig
bassClarinet = woodwind $ WoodwindSpec
{ woodwindRange = fromSpec bassClarinetRangeSpec
, woodwindVibratoDur = totalDur
, woodwindFreqDeviation = ((0, 0.015), (0.005, 0), (0, 0.003), (0, 0.017))
}
bassClarinetRangeSpec :: [RangeSpec]
bassClarinetRangeSpec =
[RangeSpec
{ rangeFreq = 67.13
, rangeNorm = 29786.7
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.012,0.000,0.494,0.717,1.005,1.396]
, ampSustain = [1.396,1.838,1.616,1.579,1.343]
, ampDecay = [1.343,1.231,0.958,0.581,0.000,0.089,0]
}
, harmWave = [5321,43,5458,112,7869,166,2338,211,5575,104,3280,127,1184,296,1290,742,419,238,248,481,605,585,619,691,93,242,762,826,831,830,440,62,286,310,409,200,422,101,170,51,177,44,114,93,27,26,48,80,98,61,69,45,31,13,7,11,33,0,38,21,11]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.301,1.000,0.891,0.753,0.499,0.333]
, ampSustain = [0.333,0.065,0.125,0.166,0.002]
, ampDecay = [0.002,0.023,0.018,0.029,0.000,0.389,0]
}
, harmWave = [2390,251,2895,266,1251,148,358,146,300,93,81,65,50,20,28,3,19,2,8,12,60,38,39,61,9,34,25,42,37,6]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.009,0.000,0.166,0.298,0.446,0.837]
, ampSustain = [0.837,0.945,0.644,0.573,0.341]
, ampDecay = [0.341,0.254,0.047,0.405,1.000,0.486,0]
}
, harmWave = [4231,54,3544,101,4989,146,1459,122,3251,157,1310,147,779,6,1326,396,720,235,238,260,516,123,519,45,36,112,320,112,253,83,216,62,107,52,94,126,32,49,33,35,32,32,15,14]
}]
}
,RangeSpec
{ rangeFreq = 95.56
, rangeNorm = 23524.2
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.023,0.062,0.140,0.605,0.902,1.302]
, ampSustain = [1.302,1.355,1.355,1.202,0.934]
, ampDecay = [0.934,0.891,0.654,0.225,0.000,0.012,0]
}
, harmWave = [6317,51,6402,115,4155,81,1130,67,609,372,1333,427,1708,490,1817,798,2287,553,1410,385,421,208,448,70,347,146,753,482,572,119,222,101,158,216,75,155,67,14,27,38,74,3,61,105,109,71,34,12,14,27,15,23,28,46,24,35,13,10,27,7,42,33,44,24,56,50,53,13]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.035,0.230,0.637,0.410,0.279,0.240]
, ampSustain = [0.240,0.259,0.248,0.086,0.090]
, ampDecay = [0.090,0.109,0.074,0.037,0.000,0.016,0]
}
, harmWave = [3464,54,4267,457,84,217,49,29,21,48,38,27,16,21,65,34,224,461,312,102]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.070,0.144,0.167,0.230,0.350,0.500]
, ampSustain = [0.500,0.650,0.435,0.083,0.009]
, ampDecay = [0.009,0.030,0.485,1.477,1.000,0.278,0]
}
, harmWave = [1516,179,890,59,566,60,257,17,94,39,172,44,40,41,77,10]
}]
}
,RangeSpec
{ rangeFreq = 135.16
, rangeNorm = 19174.7
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.023,0.062,0.140,0.605,0.902,1.302]
, ampSustain = [1.302,1.355,1.355,1.202,0.934]
, ampDecay = [0.934,0.891,0.654,0.225,0.000,0.012,0]
}
, harmWave = [10317,51,3402,115,3855,81,2130,67,1009,872,1233,427,1208,490,1217,398,1187,153,710,285,261,28,278,10,277,26,153,92,82,9,22,11,28,26,15,25,7]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.035,0.230,0.637,0.410,0.279,0.240]
, ampSustain = [0.240,0.259,0.248,0.086,0.090]
, ampDecay = [0.090,0.109,0.074,0.037,0.000,0.016,0]
}
, harmWave = [3464,54,2267,257,44,117,29,29,21]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.070,0.144,0.167,0.230,0.350,0.500]
, ampSustain = [0.500,0.650,0.435,0.083,0.009]
, ampDecay = [0.009,0.030,0.485,1.477,1.000,0.278,0]
}
, harmWave = [1516,179,990,59,266,60,157,17,94,39]
}]
}
,RangeSpec
{ rangeFreq = 191.11
, rangeNorm = 27370.2
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.015,0.000,0.504,0.294,0.334,0.000]
, ampSustain = [0.000,0.580,1.166,1.017,0.996]
, ampDecay = [0.996,1.015,0.308,0.002,0.010,0.005,0]
}
, harmWave = [14794,31,882,197,3524,218,3723,61,2540,1574,1262,333,689,395,602,165,85,265,147,22,119,149,28,61,17,69,100,26,143,46,118,65,12]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.115,1.000,0.567,0.275,0.427,0.000]
, ampSustain = [0.000,1.425,1.222,0.760,0.270]
, ampDecay = [0.270,0.026,1.483,1.819,0.549,0.188,0]
}
, harmWave = [3278,18,70,4,39,10,16,5,12,57,7,13,11,12,9]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.002,0.000,0.020,0.519,0.743,1.000]
, ampSustain = [1.000,0.853,0.365,0.371,0.110]
, ampDecay = [0.110,0.004,0.185,0.011,0.001,0.003,0]
}
, harmWave = [16146,44,1093,292,4965,1047,6341,28,4423,760,1292,1316,659,1498,421,535,116,482,103,38,134,274,265,47,65,59,142,15,75,84,70,78,12]
}]
}
,RangeSpec
{ rangeFreq = 22000
, rangeNorm = 22329.4
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.015,0.000,0.504,0.294,0.334,0.000]
, ampSustain = [0.000,0.580,1.166,1.017,0.996]
, ampDecay = [0.996,1.015,0.308,0.002,0.010,0.005,0]
}
, harmWave = [14794,31,882,197,3524,218,1823,61,1540,774,662,233,289,195,152,65,45,12]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.115,1.000,0.567,0.275,0.427,0.000]
, ampSustain = [0.000,1.425,1.222,0.760,0.270]
, ampDecay = [0.270,0.026,1.483,1.819,0.549,0.188,0]
}
, harmWave = [3278,18,70,4,39,10]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.002,0.000,0.020,0.519,0.743,1.000]
, ampSustain = [1.000,0.853,0.365,0.371,0.110]
, ampDecay = [0.110,0.004,0.185,0.011,0.001,0.003,0]
}
, harmWave = [16146,44,1093,292,2965,1047,3341,128,2423,760,392,316,159,148,61,45,26]
}]
}]
frenchHorn :: D -> D -> D -> D -> D -> D -> D -> Sig
frenchHorn = woodwind $ WoodwindSpec
{ woodwindRange = fromSpec frenchHornRangeSpec
, woodwindVibratoDur = totalDur
, woodwindFreqDeviation = ((0.012, 0), (0, 0.005), (0.005, 0), (0, 0.009))
}
frenchHornRangeSpec :: [RangeSpec]
frenchHornRangeSpec =
[RangeSpec
{ rangeFreq = 113.26
, rangeNorm = 5137
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,0.000,0.298,1.478,1.901,2.154]
, ampSustain = [2.154,2.477,2.495,2.489,1.980]
, ampDecay = [1.980,1.759,1.506,1.000,0.465,0.006,0]
}
, harmWave = [478,1277,2340,4533,2413,873,682,532,332,364,188,258,256,114,80,68,36]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,1.000,2.127,0.694,0.599,1.807]
, ampSustain = [1.807,2.485,2.125,2.670,0.798]
, ampDecay = [0.798,0.056,0.038,0.000,0.781,0.133,0]
}
, harmWave = [414,906,831,507,268,36]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,1.000,0.000,4.131,6.188,1.422,1.704]
, ampSustain = [1.704,6.362,3.042,5.736,0.188]
, ampDecay = [0.188,2.558,2.409,0.000,1.736,0.167,0]
}
, harmWave = [74,50,68,156,50,48,52,66]
}]
}
,RangeSpec
{ rangeFreq = 152.055
, rangeNorm = 35685
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,0.000,0.000,0.308,0.926,1.370]
, ampSustain = [1.370,3.400,3.205,3.083,2.722]
, ampDecay = [2.722,2.239,2.174,1.767,1.098,0.252,0]
}
, harmWave = [677,2663,4420,1597,1236,780,581,325,415,201,212,202,156,26]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.478,1.000,0.000,4.648,1.843,5.242]
, ampSustain = [5.242,0.853,0.722,0.860,0.547]
, ampDecay = [0.547,0.462,0.380,0.387,0.355,0.250,0]
}
, harmWave = [648,1635,828,149,89,41]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.107,0.000,1.000,0.570,0.681,1.097]
, ampSustain = [1.097,1.495,0.152,0.461,0.231]
, ampDecay = [0.231,0.228,0.256,0.152,0.087,0.042,0]
}
, harmWave = [1419,3414,901,503,204,146]
}]
}
,RangeSpec
{ rangeFreq = 202.74
, rangeNorm = 39632
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.039,0.000,0.000,0.230,0.216,0.647]
, ampSustain = [0.647,1.764,1.961,1.573,1.408]
, ampDecay = [1.408,1.312,1.125,0.802,0.328,0.061,0]
}
, harmWave = [1722,14359,5103,1398,2062,696,652,266,264,176,164,75]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,1.142,1.000,0.000,1.181,3.005,1.916]
, ampSustain = [1.916,2.325,3.249,2.154,1.766]
, ampDecay = [1.766,2.147,1.305,0.115,0.374,0.162,0]
}
, harmWave = [1237,2287,237,72]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.361,0.000,1.000,1.369,1.865,1.101]
, ampSustain = [1.101,0.677,0.833,0.437,0.456]
, ampDecay = [0.456,0.465,0.395,0.144,0.061,0.012,0]
}
, harmWave = [2345,7796,1182,266,255,193,85]
}]
}
,RangeSpec
{ rangeFreq = 270.32
, rangeNorm = 26576.1
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,0.147,0.200,0.453,0.522,0.000]
, ampSustain = [0.000,2.164,1.594,2.463,1.506]
, ampDecay = [1.506,1.283,0.618,0.222,0.047,0.006,0]
}
, harmWave = [9834,16064,2259,1625,1353,344,356,621,195,155,77,98]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,1.000,16.034,24.359,12.399,3.148,0.000]
, ampSustain = [0.000,8.986,2.516,13.268,0.541]
, ampDecay = [0.541,2.107,11.221,14.179,7.152,5.327,0]
}
, harmWave = [377,193,41]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.000,0.318,0.181,0.861,1.340,1.000]
, ampSustain = [1.000,1.669,0.669,2.208,0.709]
, ampDecay = [0.709,0.388,0.641,1.101,0.817,0.018,0]
}
, harmWave = [8905,10946,1180,1013,506,125,48]
}]
}
,RangeSpec
{ rangeFreq = 360.43
, rangeNorm = 26866.7
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,2.298,2.017,2.099,1.624,0.536,1.979]
, ampSustain = [1.979,2.465,4.449,4.176,1.518]
, ampDecay = [1.518,0.593,0.000,0.384,0.386,0.256,0]
}
, harmWave = [16460,4337,1419,1255,43,205,81,73,60,38]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,1.498,1.342,0.983,0.402,0.572,0.948]
, ampSustain = [0.948,4.490,6.433,5.822,1.845]
, ampDecay = [1.845,0.618,0.000,0.345,0.295,0.164,0]
}
, harmWave = [16569,5563,1838,1852,134,340,129,159,162,99]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.320,0.179,0.551,0.410,0.417,0.028]
, ampSustain = [0.028,1.517,1.523,1.057,0.883]
, ampDecay = [0.883,1.273,1.000,0.660,0.271,0.026,0]
}
, harmWave = [10383,4175,858,502,241,165]
}]
}
,RangeSpec
{ rangeFreq = 480.29
, rangeNorm = 31013.2
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,6.711,4.998,3.792,0.554,1.261,5.584]
, ampSustain = [5.584,4.633,0.384,0.555,0.810]
, ampDecay = [0.810,0.112,0.962,1.567,0.881,0.347,0]
}
, harmWave = [15341,5092,1554,640,101]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,5.829,4.106,3.135,1.868,1.957,6.851]
, ampSustain = [6.851,5.135,0.097,0.718,1.679]
, ampDecay = [1.679,0.881,0.009,0.927,0.544,0.225,0]
}
, harmWave = [16995,6133,1950,788,136]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.220,0.177,0.333,0.302,0.071,0.563]
, ampSustain = [0.563,0.338,1.214,0.840,0.103]
, ampDecay = [0.103,0.003,0.114,0.049,0.031,0.017,0]
}
, harmWave = [22560,9285,4691,1837,342,294,307,222,288,103]
}]
}
,RangeSpec
{ rangeFreq = 22000
, rangeNorm = 26633.5
, rangeHarms = [HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.046,0.000,0.127,0.686,1.000,1.171]
, ampSustain = [1.171,0.000,0.667,0.969,1.077]
, ampDecay = [1.077,1.267,1.111,0.964,0.330,0.047,0]
}
, harmWave = [19417,5904,1666,913,266,55,81,46]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.262,1.000,1.026,0.419,0.000,0.172]
, ampSustain = [0.172,0.000,0.764,0.547,0.448]
, ampDecay = [0.448,0.461,0.199,0.015,0.432,0.120,0]
}
, harmWave = [11940,1211,111,38]
}
,HarmSpec
{ harmAmp = AmpSpec
{ ampAttack = [0,0.014,0.000,0.102,0.006,0.000,0.016]
, ampSustain = [0.016,1.000,0.753,0.367,0.163]
, ampDecay = [0.163,0.030,0.118,0.207,0.103,0.007,0]
}
, harmWave = [25132,6780,2886,1949,507,505,466,488,336,121]
}]
}]
sheng :: D -> D -> D -> D -> D -> D -> D -> Sig
sheng = woodwind $ WoodwindSpec
{ woodwindRange = shengRange
, woodwindVibratoDur = const 0.625
, woodwindFreqDeviation = ((0.03, 0), (0, 0.003), (0.0015, 0), (0, 0.012))
}
shengRange :: (D, D, D) -> D -> ([(Sig, Tab)], D)
shengRange (iattack, isustain, idecay) ifreq = ([(amp1, iwt1), (amp2, iwt2), (amp3, iwt3)], inorm)
where
amp1 = ar $ linseg
[ 0, 0.20*iattack, 2000, 0.40*iattack, 2050, 0.4*iattack, 2250, 0.18*isustain, 2500
, 0.78*isustain, 2300, 0.04*isustain, 2000, 1.0*idecay, 0, 1, 0]
amp2 = ar $ linseg
[ 0, 0.11*iattack, 100, 0.12*iattack, 5000, 0.12*iattack, 7500, 0.3*iattack, 9500
, 0.35*iattack, 10500, 0.18*isustain, 12000, 0.3*isustain, 11000, 0.48*isustain, 10000
, 0.04*isustain, 9000, 0.23*idecay, 7000, 0.67*idecay, 0, 1, 0]
amp3 = ar $ linseg
[ 0, 0.18*iattack, 10, 0.15*iattack, 1250, 0.2*iattack, 1800, 0.24*iattack, 1900
, 0.23*iattack, 2200, 0.03*isustain, 2600, 0.2*isustain, 2900, 0.35*isustain, 2700
, 0.23*isustain, 2400, 0.15*isustain, 2000, 0.04*isustain, 1800, 0.23*idecay, 1200
, 0.42*idecay, 20, 0.15*idecay, 0, 1, 0]
inorm = byRange [ 34991, 32586, 35331, 37480 ]
iwt1 = f11
iwt2 = ifB (ifreq `lessThan` 1025) f31 f35
iwt3 = byRange [f32, f33, f34, f36]
f11 = sine
f31 = skipNorm $ sines2 [(2, 1), (3, 0.16), (4, 1.16), (5, 0.45), (6, 0.33)]
f32 = skipNorm $ sines2
[ (7, 1), (8, 0.83), (9, 0.85), (10, 0.16), (11, 0.5), (12, 0.38)
, (13, 0.05), (14, 0.26), (15, 0.16), (16, 0.13), (17, 0.12), (18, 0.05), (19, 0.11)]
f33 = skipNorm $ sines2 [ (7, 0.21), (8, 0.33), (9, 0.36), (10, 0.3), (11, 0.76), (12, 0.38), (13, 0.5), (14, 0.07)]
f34 = skipNorm $ sines2 [ (7, 0.43), (8, 1.2), (9, 0.4), (10, 0.3), (11, 0.1) ]
f35 = skipNorm $ sines2 [ (2, 0.58), (3, 0.83), (4, 0.83) ]
f36 = skipNorm $ sines2 [ (5, 2.1), (6, 1.2), (7, 0.4) ]
byRange :: Tuple a => [a] -> a
byRange = byFreq ifreq . zip freqs
freqs = [538, 760, 1025, 22000]
hulusi :: D -> D -> D -> D -> D -> D -> D -> Sig
hulusi = woodwind $ WoodwindSpec
{ woodwindRange = hulusiRange
, woodwindVibratoDur = const 20
, woodwindFreqDeviation = ((0.03, 0), (0, 0.003), (0.0015, 0), (0, 0.012))
}
hulusiRange :: (D, D, D) -> D -> ([(Sig, Tab)], D)
hulusiRange (iattack, isustain, idecay) ifreq =
( [ (amp1, iwt1), (amp2, iwt2), (amp3, iwt3) ]
, inorm
)
where
byRange :: Tuple a => [a] -> a
byRange = byFreq ifreq . zip [320, 427, 680, 22000]
amp1 = byRange [amp1_0, amp1_1, amp1_2, amp1_3]
amp2 = byRange [amp2_0, amp2_1, amp2_2, amp2_3]
amp3 = byRange [amp3_0, amp3_1, amp3_2, amp3_3]
iwt1 = byRange [iwt1_0, iwt1_1, iwt1_2, iwt1_3]
iwt2 = byRange [iwt2_0, iwt2_1, iwt2_2, iwt2_3]
iwt3 = byRange [iwt3_0, iwt3_1, iwt3_2, iwt3_3]
inorm = byRange [ inorm_0, inorm_1, inorm_2, inorm_3 ]
amp1_0 = ar $ linseg
[ 0, 0.33*iattack, 750, 0.17*iattack, 2000, 0.17*iattack
, 5000, 0.16*iattack, 13000, 0.17*iattack, 15000, 0.03*isustain
, 16000, 0.47*isustain, 15000, 0.5*isustain, 13500, 0.2*idecay
, 13000, 0.2*idecay, 11000, 0.2*idecay, 6000, 0.2*idecay, 150, 0.2*idecay, 0
]
amp2_0 = ar $ linseg
[ 0, 0.67*iattack, 30, 0.33*iattack, 9000, 0.05*isustain
, 11000, 0.05*isustain, 12000, 0.4*isustain, 9500, 0.5*isustain
, 7200, 0.2*idecay, 5600, 0.2*idecay, 3200, 0.2*idecay
, 1000, 0.2*idecay, 50, 0.1*idecay, 0, 0.1*idecay, 0
]
amp3_0 = ar $ linseg
[ 0, 0.33*iattack, 0, 0.4*iattack, 30, 0.27*iattack
, 3600, 0.07*isustain, 2000, 0.43*isustain, 2800, 0.5*isustain
, 3000, 0.2*idecay, 2700, 0.2*idecay, 1500, 0.2*idecay, 150
, 0.2*idecay, 50, 0.08*idecay, 0, 0.12*idecay, 0]
iwt1_0 = f11
iwt2_0 = f31
iwt3_0 = f32
inorm_0 = 26985
amp1_1 = ar $ linseg
[ 0, 0.43*iattack, 1600, 0.27*iattack, 9000, 0.3*iattack
, 5400, 0.5*isustain, 5500, 0.5*isustain, 5300, 0.2*idecay
, 4200, 0.2*idecay, 3000, 0.2*idecay, 1000, 0.2*idecay
, 100, 0.2*idecay, 0
]
amp2_1 = ar $ linseg
[ 0, 0.43*iattack, 20, 0.13*iattack, 700, 0.30*iattack
, 6300, 0.14*iattack, 7500, 0.03*isustain, 9000, 0.14*isustain
, 9200, 0.65*isustain, 7000, 0.14*isustain, 6000, 0.04*isustain
, 5000, 0.2*idecay, 4600, 0.2*idecay, 3600, 0.2*idecay, 2400, 0.2*idecay
, 600, 0.15*idecay, 0, 0.05*idecay, 0
]
amp3_1 = ar $ linseg
[ 0, 0.52*iattack, 10, 0.26*iattack, 1500, 0.22*iattack
, 7000, 0.03*isustain, 9000, 0.02*isustain, 10500, 0.15*isustain
, 9700, 0.65*isustain, 8000, 0.15*isustain, 6400, 0.2*idecay
, 4600, 0.2*idecay, 2600, 0.2*idecay, 800, 0.2*idecay
, 10, 0.1*idecay, 0, 0.1*idecay, 0 ]
iwt1_1 = f11
iwt2_1 = f33
iwt3_1 = f34
inorm_1 = 36133
amp1_2 = ar $ linseg
[ 0, 0.27*iattack, 1500, 0.22*iattack, 8000, 0.51*iattack
, 9000, 0.02*isustain, 11000, 0.04*isustain, 10600, 0.81*isustain
, 10000, 0.09*isustain, 9000, 0.04*isustain, 7000, 0.2*idecay
, 6000, 0.2*idecay, 4000, 0.2*idecay, 2000, 0.2*idecay, 600, 0.2*idecay, 0
]
amp2_2 = ar $ linseg
[ 0, 0.38*iattack, 20, 0.17*iattack, 3800, 0.45*iattack, 5500, 0.02*isustain
, 6000, 0.5*isustain, 3800, 0.35*isustain, 3300, 0.09*isustain
, 1000, 0.04*isustain, 750, 0.2*idecay, 600, 0.2*idecay, 350, 0.2*idecay
, 150, 0.2*idecay, 40, 0.2*idecay, 0
]
amp3_2 = ar $ linseg
[ 0, 0.44*iattack, 20, 0.1*iattack, 1300, 0.08*iattack, 750, 0.38*iattack
, 600, 0.5*isustain, 800, 0.35*isustain, 750, 0.1*isustain, 550, 0.05*isustain
, 50, 0.2*idecay, 30, 0.2*idecay, 15, 0.2*idecay, 7, 0.2*idecay, 0, 0.2*idecay, 0
]
iwt1_2 = f35
iwt2_2 = f36
iwt3_2 = f37
inorm_2 = 27905
amp1_3 = ar $ linseg
[ 0, 0.15*iattack, 300, 0.15*iattack, 1100, 0.15*iattack
, 4000, 0.15*iattack, 9000, 0.15*iattack, 20000, 0.15*iattack
, 27000, 0.10*iattack, 29000, 0.12*isustain, 26000, 0.56*isustain
, 27000, 0.32*isustain, 24000, 0.33*idecay, 23000, 0.33*idecay
, 6000, 0.17*idecay, 1000, 0.16*idecay, 0 ]
amp2_3 = ar $ linseg
[ 0, 0.45*iattack, 15, 0.15*iattack, 250, 0.15*iattack, 850, 0.15*iattack
, 1800, 0.1*iattack, 2100, 0.03*isustain, 2250, 0.07*isustain, 2000
, 0.25*isustain, 2100, 0.4*isustain, 2000, 0.15*isustain, 1400, 0.1*isustain
, 800, 0.45*idecay, 170, 0.22*idecay, 120, 0.11*idecay, 40, 0.11*idecay
, 15, 0.11*idecay, 0
]
amp3_3 = ar $ linseg
[ 0, 0.52*iattack, 15, 0.15*iattack, 400, 0.22*iattack
, 2050, 0.11*iattack, 2200, 0.06*isustain, 1000, 0.15*isustain
, 1500, 0.13*isustain, 1250, 0.5*isustain, 2500, 0.04*isustain
, 2300, 0.12*isustain, 2000, 0.2*idecay, 1600, 0.2*idecay
, 900, 0.2*idecay, 150, 0.2*idecay, 20, 0.1*idecay, 0, 0.1*idecay, 0
]
iwt1_3 = f11
iwt2_3 = f12
iwt3_3 = f13
inorm_3 = 27507
f11 = sine
f12 = skipNorm $ sines2 [(2, 1)]
f13 = skipNorm $ sines2 [(3, 1)]
f31 = skipNorm $ sines2 [(2, 0.46), (3, 1), (5, 0.31), (6, 0.17), (9, 0.12)]
f32 = skipNorm $ sines2 [(4, 1), (7, 0.34), (8, 0.25), (10, 0.19), (11, 0.25)]
f33 = skipNorm $ sines2 [(2, 1), (7, 0.33), (10, 0.23), (11, 0.07)]
f34 = skipNorm $ sines2 [(3, 0.77), (4, 0.29), (5, 1), (6, 0.5), (8, 0.2), (9, 0.07)]
f35 = skipNorm $ sines2 [(1, 1), (2, 0.36), (3, 1.1), (4, 0.3)]
f36 = skipNorm $ sines2 [(5, 1), (6, 0.22)]
f37 = skipNorm $ sines2 [(7, 1), (8, 0.42), (9, 0.17), (10, 0.35), (11, 0.2)]
dizi :: D -> D -> D -> D -> D -> D -> D -> Sig
dizi = woodwind $ WoodwindSpec
{ woodwindRange = diziRange
, woodwindVibratoDur = const 0.625
, woodwindFreqDeviation = ((0.03, 0), (0, 0.003), (0.0015, 0), (0, 0.012))
}
diziRange :: (D, D, D) -> D -> ([(Sig, Tab)], D)
diziRange (iattack, isustain, idecay) ifreq =
( [ (amp1, iwt1), (amp2, iwt2), (amp3, iwt3) ]
, inorm
)
where
byRange :: Tuple a => [a] -> a
byRange = byFreq ifreq . zip [320, 480, 680, 905, 1280, 1710, 22000]
amp1 = byRange [amp1_1, amp1_2, amp1_3, amp1_4, amp1_5, amp1_6, amp1_7]
amp2 = byRange [amp2_1, amp2_2, amp2_3, amp2_4, amp2_5, amp2_6, amp2_7]
amp3 = byRange [amp3_1, amp3_2, amp3_3, amp3_4, amp3_5, amp3_6, amp3_7]
iwt1 = byRange [iwt1_1, iwt1_2, iwt1_3, iwt1_4, iwt1_5, iwt1_6, iwt1_7]
iwt2 = byRange [iwt2_1, iwt2_2, iwt2_3, iwt2_4, iwt2_5, iwt2_6, iwt2_7]
iwt3 = byRange [iwt3_1, iwt3_2, iwt3_3, iwt3_4, iwt3_5, iwt3_6, iwt3_7]
inorm = byRange [inorm_1, inorm_2, inorm_3, inorm_4, inorm_5, inorm_6, inorm_7 ]
iatt = iattack / 6
isus = isustain / 4
idec = iattack / 6
amp1_1 = ar $ linseg
[ 0, 0.4*iattack, 1500, 0.6*iattack, 10000, 0.5*isustain, 11000
, 0.5*isustain, 9000, 0.4*idecay, 8000, 0.3*idecay, 1500, 0.3*idecay, 0
]
amp2_1 = ar $ linseg
[ 0, 0.4*iattack, 200, 0.1*iattack, 1000, 0.5*iattack, 6000
, 0.1*isustain, 11000, 0.3*isustain, 13000, 0.6*isustain, 12000
, 0.6*idecay, 1500, 0.4*idecay, 0 ]
amp3_1 = ar $ linseg
[ 0, 0.5*iattack, 30, 0.5*iattack, 500, 0.1*isustain, 1200
, 0.7*isustain, 2200, 0.2*isustain, 1750, 0.5*idecay, 250
, 0.2*idecay, 0, 1, 0 ]
iwt1_1 = f11
iwt2_1 = f20
iwt3_1 = f21
inorm_1 = 32875
amp1_2 = ar $ linseg
[ 0, 0.4*iattack, 2000, 0.3*iattack, 6000, 0.3*iattack, 25000
, 0.5*isustain, 24000, 0.5*isustain, 20000, 0.4*idecay, 5000
, 0.3*idecay, 1500, 0.3*idecay, 0 ]
amp2_2 = ar $ linseg
[ 0, 0.5*iattack, 100, 0.5*iattack, 3000, 0.1*isustain, 4500
, 0.4*isustain, 2000, 0.4*isustain, 2200, 0.1*isustain, 500
, 0.5*idecay, 150, 0.5*idecay, 0 ]
amp3_2 = ar $ linseg
[ 0, 0.5*iattack, 30, 0.5*iattack, 500, 0.1*isustain, 1200
, 0.7*isustain, 2200, 0.2*isustain, 1750, 0.5*idecay, 250, 0.2*idecay, 0, 1, 0 ]
iwt1_2 = f11
iwt2_2 = f22
iwt3_2 = f23
inorm_2 = 26080
amp1_3 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.219, iatt, 0.500, iatt, 0.889, iatt, 1.035
, iatt, 0.963, isus, 0.424, isus, 0.135, isus, 0.108, isus, 0.204
, idec, 0.445, idec, 0.531, idec, 0.513, idec, 0.365, idec, 0.053, idec, 0
]
amp2_3 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.106, iatt, 0.112, iatt, 0.187, iatt
, 0.091, iatt, 0.056, isus, 0.558, isus, 0.901, isus, 0.904, isus
, 0.729, idec, 0.303, idec, 0.057, idec, 0.016, idec, 0.076, idec, 0.016, idec, 0
]
amp3_3 = ar $ linseg
[ 0, iatt, 1.000, iatt, 0.607, iatt, 0.116, iatt, 0.205, iatt, 0.530, iatt
, 0.195, isus, 0.601, isus, 0.478, isus, 0.371, isus, 0.916, idec
, 0.782, idec, 0.107, idec, 0.811, idec, 0.189, idec, 0.036, idec, 0
]
iwt1_3 = f24
iwt2_3 = f25
iwt3_3 = f26
inorm_3 = 24364
amp1_4 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.049, iatt, 0.027, iatt, 0.005, iatt
, 0.020, iatt, 0.378, isus, 0.925, isus, 1.032, isus, 1.106, isus
, 0.915, idec, 0.858, idec, 0.722, idec, 0.250, idec, 0.002, idec
, 0.004, idec, 0
]
amp2_4 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.182, iatt, 0.029, iatt, 0.397, iatt
, 2.065, iatt, 3.136, isus, 0.250, isus, 0.685, isus, 1.369, isus
, 1.176, idec, 1.023, idec, 0.212, idec, 0.810, idec, 0.469, idec
, 0.018, idec, 0
]
amp3_4 = ar $ linseg
[ 0, iatt, 1.000, iatt, 0.007, iatt, 1.039, iatt, 0.466, iatt
, 0.627, iatt, 4.181, isus, 2.481, isus, 2.529, isus
, 4.838, isus, 0.137, idec, 2.823, idec, 1.899, idec
, 4.910, idec, 0.319, idec, 0.039, idec, 0
]
iwt1_4 = f27
iwt2_4 = f28
iwt3_4 = f29
inorm_4 = 27832
amp1_5 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.000, iatt, 0.018, iatt, 0.000, iatt
, 0.450, iatt, 1.130, isus, 1.475, isus, 1.682, isus, 1.533, isus
, 1.243, idec, 0.945, idec, 0.681, idec, 0.210, idec, 0.046, idec
, 0.004, idec, 0
]
amp2_5 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.102, iatt, 0.196, iatt, 1.000, iatt
, 1.108, iatt, 0.024, isus, 1.557, isus, 2.443, isus
, 1.553, isus, 0.979, idec, 0.268, idec, 0.271, idec
, 0.015, idec, 0.017, idec, 0.108, idec, 0
]
amp3_5 = ar $ linseg
[ 0, iatt, 1.000, iatt, 0.423, iatt, 0.287, iatt, 0.000, iatt
, 0.987, iatt, 0.621, isus, 3.030, isus, 2.349, isus, 3.075, isus
, 0.331, idec, 0.994, idec, 1.319, idec, 0.378, idec, 0.000, idec
, 0.023, idec, 0
]
iwt1_5 = f30
iwt2_5 = f31
iwt3_5 = f32
inorm_5 = 27918
amp1_6 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.322, iatt, 0.115, iatt, 0.090, iatt
, 0.148, iatt, 1.743, isus, 2.079, isus, 0.844, isus
, 0.889, isus, 1.914, idec, 0.718, idec, 0.206, idec
, 0.361, idec, 0.278, idec, 0.272, idec, 0
]
amp2_6 = ar $ linseg
[ 0, iatt, 1.000, iatt, 2.675, iatt, 1.579, iatt, 0.879, iatt
, 4.025, iatt, 9.342, isus, 4.570, isus, 3.372, isus
, 2.904, isus, 0.755, idec, 5.796, idec, 3.764, idec
, 2.193, idec, 0.718, idec, 1.029, idec, 0 ]
amp3_6 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.334, iatt, 0.108, iatt, 0.028, iatt
, 0.765, iatt, 0.874, isus, 1.222, isus, 0.236, isus
, 0.187, isus, 1.036, idec, 0.276, idec, 0.532, idec
, 0.204, idec, 0.311, idec, 0.283, idec, 0 ]
iwt1_6 = f33
iwt2_6 = f34
iwt3_6 = f35
inorm_6 = 23538
amp1_7 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.071, iatt, 0.017, iatt, 0.134, iatt
, 0.068, iatt, 0.192, isus, 1.375, isus, 1.875, isus, 1.463, isus
, 1.446, idec, 0.932, idec, 0.561, idec, 0.100, idec, 0.036, idec
, 0.000, idec, 0
]
amp2_7 = ar $ linseg
[ 0, iatt, 1.000, iatt, 3.541, iatt, 3.665, iatt, 0.651, iatt
, 1.017, iatt, 1.331, isus, 4.611, isus, 2.534, isus, 4.241, isus
, 2.738, idec, 0.609, idec, 1.065, idec, 1.122, idec, 0.605, idec
, 0.093, idec, 0 ]
amp3_7 = ar $ linseg
[ 0, iatt, 0.000, iatt, 0.061, iatt, 0.093, iatt, 0.323, iatt
, 1.011, iatt, 0.819, isus, 0.162, isus, 0.152, isus, 0.080, isus
, 0.139, idec, 0.051, idec, 0.054, idec, 0.019, idec, 0.013, idec
, 0.003, idec, 0 ]
iwt1_7 = f36
iwt2_7 = f37
iwt3_7 = f38
inorm_7 = 30675
f11 = sine
f20 = skipNorm $ sines [ 0, 1, 0.21 ]
f21 = skipNorm $ sines [ 0, 0, 0, 1, 1.3, 0.66, 0.9, 0.5, 0.8, 0.6, 1.2, 0.5, 0.8, 0.6, 0.75, 0.6, 0.9, 1.2, 0.9, 1.1, 0.85, 0.9, 0.4, 0.3, 0.45, 0.3, 0.25, 0.15 ]
f22 = skipNorm $ sines [ 0, 1, 0, 0.33 ]
f23 = skipNorm $ sines [ 0, 0, 0.75, 0, 0.28, 0.45, 0.36, 1, 0.54, 0.5, 0.81, 1, 0.95, 0.9, 0.08, 0.24, 0.45, 0.41, 0.25, 0.07 ]
f24 = skipNorm $ sines [ 20742, 2870, 929, 899, 1567, 958, 318, 1168, 838, 781, 192 ]
f25 = skipNorm $ sines [ 18419, 4615, 1255, 689, 3851, 1889, 498, 3127, 3041, 2262, 422, 136 ]
f26 = skipNorm $ sines [ 1700, 331, 615, 259, 188, 164, 79, 393, 191, 108 ]
f27 = skipNorm $ sines [ 17040, 1836, 3609, 4228, 3600, 1910, 9599, 3722, 925, 862, 1292, 227 ]
f28 = skipNorm $ sines [ 4206, 283, 125, 465, 341, 168, 201, 196, 199, 140 ]
f29 = skipNorm $ sines [ 24, 22, 129, 209, 54, 127 ]
f30 = skipNorm $ sines [ 13283, 1588, 2948, 337, 9009, 1040, 2175, 222 ]
f31 = skipNorm $ sines [ 3831, 572, 332, 252, 209, 243, 91 ]
f32 = skipNorm $ sines [ 61, 59, 120, 196, 26 ]
f33 = skipNorm $ sines [ 22605, 2267, 3470, 1604, 2849, 86 ]
f34 = skipNorm $ sines [ 97, 92, 113, 75, 63 ]
f35 = skipNorm $ sines [ 21615, 1982, 3912, 1422, 2987 ]
f36 = skipNorm $ sines [ 17863, 3388, 257 ]
f37 = skipNorm $ sines [ 97, 136, 50 ]
f38 = skipNorm $ sines [ 28207, 1745, 499 ]