-- crotale (rd, 2006-10-17) ; id
let crotale_data =
      ([35.45
       ,128.59
       ,346.97
       ,483.55
       ,1049.24
       ,1564.02
       ,1756.33
       ,3391.66
       ,3451.80
       ,3497.26
       ,3596.89
       ,3696.73
       ,3835.23
       ,3845.95
       ,4254.85
       ,4407.53
       ,4415.26
       ,4552.86
       ,5538.07
       ,5637.73
       ,5690.29
       ,5728.00
       ,5764.27
       ,5824.41
       ,6377.60
       ,6544.35
       ,6807.14
       ,6994.97
       ,7026.84
       ,7144.58
       ,7269.61
       ,7393.67
       ,7897.25
       ,8040.45
       ,8157.77
       ,8225.01
       ,9126.15
       ,9488.52
       ,9916.40
       ,10155.59
       ,11715.95
       ,12111.83
       ,12339.99
       ,12417.66
       ,12459.28
       ,12618.33
       ,13116.49
       ,13201.12
       ,13297.83
       ,13533.75]
      ,[0.001282
       ,0.000804
       ,0.017361
       ,0.004835
       ,0.004413
       ,0.004110
       ,0.000333
       ,0.003614
       ,0.006919
       ,0.000322
       ,0.000603
       ,0.066864
       ,0.000605
       ,0.003602
       ,0.000283
       ,0.015243
       ,0.020536
       ,0.016677
       ,0.000924
       ,0.202050
       ,0.001254
       ,0.012705
       ,0.000252
       ,0.000486
       ,0.000642
       ,0.000776
       ,0.208116
       ,0.002491
       ,0.001934
       ,0.005231
       ,0.006924
       ,0.001203
       ,0.205002
       ,0.040604
       ,0.003834
       ,0.002189
       ,0.180560
       ,0.002192
       ,0.006516
       ,0.009982
       ,0.004745
       ,0.046154
       ,0.000510
       ,0.001890
       ,0.001978
       ,0.006729
       ,0.002342
       ,0.002400
       ,0.035155
       ,0.001408]
      ,[5.203680
       ,1.703434
       ,40.165168
       ,27.282501
       ,0.895052
       ,42.847427
       ,2.660366
       ,15.767886
       ,6.848367
       ,3.232500
       ,1.734338
       ,2.020241
       ,4.727905
       ,9.400103
       ,0.710251
       ,37.494625
       ,36.248794
       ,29.172658
       ,3.891019
       ,4.757885
       ,3.851426
       ,20.907810
       ,3.732874
       ,2.383410
       ,10.443285
       ,8.795611
       ,20.985643
       ,18.011800
       ,25.297883
       ,14.819819
       ,42.391899
       ,2.948513
       ,11.043763
       ,49.551651
       ,29.882694
       ,10.527188
       ,23.557245
       ,26.555616
       ,45.099605
       ,22.550390
       ,36.461261
       ,11.826201
       ,16.818185
       ,14.903121
       ,32.811138
       ,43.138904
       ,12.289558
       ,11.498942
       ,10.465788
       ,24.931695])
    (cf,ca,cd) = crotale_data
    ps = mce [-12,-5,0,2,4,5,7,12]
    t = dust kr 3
    fs = select (tiRand 0 7 t) ps
    s = decay2 t 0.06 0.01 * pinkNoise ar * tRand 0 1 t
    ks = klankSpec_k cf ca (map recip cd)
    k = dynKlank s (midiRatio fs) (tRand 0 1 t) (tRand 2 7 t) ks
in pan2 k (tRand (-1) 1 t) 1

-- crotale (rd, 2006-10-17) ; id
let crotale_data =
      ([35.45
       ,128.59
       ,346.97
       ,483.55
       ,1049.24
       ,1564.02
       ,1756.33
       ,3391.66
       ,3451.80
       ,3497.26
       ,3596.89
       ,3696.73
       ,3835.23
       ,3845.95
       ,4254.85
       ,4407.53
       ,4415.26
       ,4552.86
       ,5538.07
       ,5637.73
       ,5690.29
       ,5728.00
       ,5764.27
       ,5824.41
       ,6377.60
       ,6544.35
       ,6807.14
       ,6994.97
       ,7026.84
       ,7144.58
       ,7269.61
       ,7393.67
       ,7897.25
       ,8040.45
       ,8157.77
       ,8225.01
       ,9126.15
       ,9488.52
       ,9916.40
       ,10155.59
       ,11715.95
       ,12111.83
       ,12339.99
       ,12417.66
       ,12459.28
       ,12618.33
       ,13116.49
       ,13201.12
       ,13297.83
       ,13533.75]
      ,[0.001282
       ,0.000804
       ,0.017361
       ,0.004835
       ,0.004413
       ,0.004110
       ,0.000333
       ,0.003614
       ,0.006919
       ,0.000322
       ,0.000603
       ,0.066864
       ,0.000605
       ,0.003602
       ,0.000283
       ,0.015243
       ,0.020536
       ,0.016677
       ,0.000924
       ,0.202050
       ,0.001254
       ,0.012705
       ,0.000252
       ,0.000486
       ,0.000642
       ,0.000776
       ,0.208116
       ,0.002491
       ,0.001934
       ,0.005231
       ,0.006924
       ,0.001203
       ,0.205002
       ,0.040604
       ,0.003834
       ,0.002189
       ,0.180560
       ,0.002192
       ,0.006516
       ,0.009982
       ,0.004745
       ,0.046154
       ,0.000510
       ,0.001890
       ,0.001978
       ,0.006729
       ,0.002342
       ,0.002400
       ,0.035155
       ,0.001408]
      ,[5.203680
       ,1.703434
       ,40.165168
       ,27.282501
       ,0.895052
       ,42.847427
       ,2.660366
       ,15.767886
       ,6.848367
       ,3.232500
       ,1.734338
       ,2.020241
       ,4.727905
       ,9.400103
       ,0.710251
       ,37.494625
       ,36.248794
       ,29.172658
       ,3.891019
       ,4.757885
       ,3.851426
       ,20.907810
       ,3.732874
       ,2.383410
       ,10.443285
       ,8.795611
       ,20.985643
       ,18.011800
       ,25.297883
       ,14.819819
       ,42.391899
       ,2.948513
       ,11.043763
       ,49.551651
       ,29.882694
       ,10.527188
       ,23.557245
       ,26.555616
       ,45.099605
       ,22.550390
       ,36.461261
       ,11.826201
       ,16.818185
       ,14.903121
       ,32.811138
       ,43.138904
       ,12.289558
       ,11.498942
       ,10.465788
       ,24.931695])
    (cf,ca,cd) = crotale_data
    ps = mce [-12,-5,0,2,4,5,7,12]
    n = pinkNoiseId 'α' ar
    t = dustId 'β' kr 3
    fs = select (tiRandId 'γ' 0 7 t) ps
    g = tRandId 'δ' 0 1 t
    fo = tRandId 'ε' 0 1 t
    ds = tRandId 'ζ' 2 7 t
    p = tRandId 'η' (-1) 1 t
    s = decay2 t 0.06 0.01 * n * g
    ks = klankSpec_k cf ca (map recip cd)
    k = dynKlank s (midiRatio fs) fo ds ks
in pan2 k p 1