crotale-sine (rd)

> import Sound.SC3.ID

> main =
>     let { crotale = ( [ 35.45676040649414
>                       , 128.59849548339844
>                       , 346.9721984863281
>                       , 483.5544128417969
>                       , 1049.2449951171875
>                       , 1564.0279541015625
>                       , 1756.3399658203125
>                       , 3391.666015625
>                       , 3451.802001953125
>                       , 3497.261962890625
>                       , 3596.89794921875
>                       , 3696.739013671875
>                       , 3835.235107421875
>                       , 3845.955078125
>                       , 4254.85107421875
>                       , 4407.533203125
>                       , 4415.26416015625
>                       , 4552.865234375
>                       , 5538.076171875
>                       , 5637.73681640625
>                       , 5690.2978515625
>                       , 5728.0068359375
>                       , 5764.27685546875
>                       , 5824.4189453125
>                       , 6377.60498046875
>                       , 6544.35009765625
>                       , 6807.14404296875
>                       , 6994.97021484375
>                       , 7026.84619140625
>                       , 7144.5859375
>                       , 7269.61279296875
>                       , 7393.6708984375
>                       , 7897.259765625
>                       , 8040.4580078125
>                       , 8157.77099609375
>                       , 8225.01953125
>                       , 9126.150390625
>                       , 9488.529296875
>                       , 9916.408203125
>                       , 10155.599609375
>                       , 11715.9599609375
>                       , 12111.830078125
>                       , 12339.990234375
>                       , 12417.669921875
>                       , 12459.2802734375
>                       , 12618.330078125
>                       , 13116.490234375
>                       , 13201.1298828125
>                       , 13297.830078125
>                       , 13533.75 ]
>                     , [ 0.0012827360769733787
>                       , 0.0008040848188102245
>                       , 0.017361238598823547
>                       , 0.004835359752178192
>                       , 0.004413491114974022
>                       , 0.004110544919967651
>                       , 0.0003338181704748422
>                       , 0.0036140112206339836
>                       , 0.006919348146766424
>                       , 0.0003224937245249748
>                       , 0.0006031467346474528
>                       , 0.06686479598283768
>                       , 0.000605064386036247
>                       , 0.003602313343435526
>                       , 0.0002835785271599889
>                       , 0.015243238769471645
>                       , 0.020536603406071663
>                       , 0.016677580773830414
>                       , 0.0009245267719961703
>                       , 0.20205098390579224
>                       , 0.0012542791664600372
>                       , 0.012705927714705467
>                       , 0.0002523190632928163
>                       , 0.0004866079252678901
>                       , 0.0006429700297303498
>                       , 0.0007763264584355056
>                       , 0.2081160992383957
>                       , 0.0024918108247220516
>                       , 0.00193469924852252
>                       , 0.005231771152466536
>                       , 0.0069242212921381
>                       , 0.001203975174576044
>                       , 0.2050020843744278
>                       , 0.04060448706150055
>                       , 0.0038344631902873516
>                       , 0.002189427148550749
>                       , 0.18056060373783112
>                       , 0.002192433224990964
>                       , 0.006516554858535528
>                       , 0.009982921183109283
>                       , 0.004745401442050934
>                       , 0.046154771000146866
>                       , 0.000510294979903847
>                       , 0.0018905038014054298
>                       , 0.0019782145973294973
>                       , 0.006729386281222105
>                       , 0.0023426134139299393
>                       , 0.0024002245627343655
>                       , 0.03515550494194031
>                       , 0.0014084168942645192 ]
>                     , [ 5.203680992126465
>                       , 1.7034343481063843
>                       , 40.16516876220703
>                       , 27.282501220703125
>                       , 0.8950523138046265
>                       , 42.84742736816406
>                       , 2.6603667736053467
>                       , 15.7678861618042
>                       , 6.848367214202881
>                       , 3.2325007915496826
>                       , 1.7343382835388184
>                       , 2.0202419757843018
>                       , 4.7279052734375
>                       , 9.400103569030762
>                       , 0.7102512717247009
>                       , 37.494625091552734
>                       , 36.24879455566406
>                       , 29.172658920288086
>                       , 3.891019344329834
>                       , 4.757885456085205
>                       , 3.851426124572754
>                       , 20.90781021118164
>                       , 3.732874870300293
>                       , 2.3834102153778076
>                       , 10.443285942077637
>                       , 8.795611381530762
>                       , 20.98564338684082
>                       , 18.01180076599121
>                       , 25.297883987426758
>                       , 14.819819450378418
>                       , 42.39189910888672
>                       , 2.9485135078430176
>                       , 11.043763160705566
>                       , 49.55165100097656
>                       , 29.882694244384766
>                       , 10.527188301086426
>                       , 23.5572452545166
>                       , 26.55561637878418
>                       , 45.099605560302734
>                       , 22.550390243530273
>                       , 36.46126174926758
>                       , 11.826201438903809
>                       , 16.818185806274414
>                       , 14.903121948242188
>                       , 32.81113815307617
>                       , 43.1389045715332
>                       , 12.289558410644531
>                       , 11.498942375183105
>                       , 10.465788841247559
>                       , 24.93169593811035 ] )
>         ; (cf, ca, _) = crotale
>         ; fn m f a = let { r0 = rand (f+0) 0 (2 * pi)
>                          ; r1 = rand (f+1) 0.1 0.3
>                          ; r2 = rand (f+2) 0.025 0.1
>                          ; r3 = rand (f+3) 0 (2 * pi)
>                          ; o = sinOsc AR (f * midiRatio m) r0
>                          ; a' = a * sinOsc KR r1 0 }
>                      in pan2 o (sinOsc KR r2 r3) a'
>         ; oo = let { x = control KR "m" 1 }
>                in out 0 (sum (zipWith (fn x) cf ca) * 0.1)
>         }
>   in withSC3 (\fd -> do { _ <- async fd (d_recv (synthdef "c" oo))
>                         ; send fd (s_new "c" (-1) AddToTail 1 [("m",-12)])
>                         ; send fd (s_new "c" (-1) AddToTail 1 [("m",-9)])
>                         })