-- | A whisper of the wind.
module Main where

import Csound.Base

-------------------------------------------------------------
-- orchestra

-- | An instrument that implements a wind sound.
wind (amp, bandRise, bandDec, freqRise, freqDec, pan, winds) = 
    fmap fromRnd $ rand (sig $ amp / 400)
    where
        valu1 = 100
        valu2 = 50
        winde = 1 - winds
        ramp a b = linseg [a, idur, b]
        fromRnd a = (sig pan * aout, (1 - sig pan) * aout )
            where
                a2 = butbp a  (ramp freqRise freqDec) (ramp bandRise bandDec) 
                a3 = butbp a2 (ramp (freqRise - valu1) (freqDec + valu2))
                              (ramp (bandRise + valu1) (bandDec - valu2))
                
                aout = (a2 + a3) * linseg [0, idur * winds, 1, idur * winde, 0]

-------------------------------------------------------------
-- scores

-- | This example shows the flexibility of the Haskell. Here we can
-- write the scores in the manner of the native Csound style.
i21 t0 dt amp bandRise bandDec freqRise freqDec pan winds = 
    del t0 $ dt *| temp (amp, bandRise, bandDec, freqRise, freqDec, pan, winds)

windRes :: Sco (Mix Sig2)
windRes = sco (onArg wind) $ har
    [ i21  0    12   60   500  0    555  111  0     0.2
    , i21  4    8    70   400  0    444  111  0.3   0.6
    , i21  6    8    75   300  0    333  111  0.7   0.7
    , i21  8.5  7    77   300  0    222  111  0.9   0.9

    , i21  12   12   70   500  0    666  444  0.1   0.4
    , i21  15   15   76   600  0    333  333  0.5   0.7
    , i21  17   7    73   500  0    444  333  0.7   0.7
    , i21  18   7    70   400  0    333  333  0.9   0.8

    , i21  20   12   72   500  0    555  333  0.0   0.4
    , i21  24   8    74   600  0    444  333  0.1   0.6
    , i21  28   6    71   500  0    333  333  0.5   0.7
    , i21  28.5 7    70   71   500  666  333  0.9   0.7

    , i21  32   12   76   500  0    666  222  0.1   0.6
    , i21  35   15   72   500  0    333  333  0.5   0.7
    , i21  37   7    74   600  0    444  333  0.7   0.7
    , i21  38   7    72   300  0    333  333  0.9   0.8

    , i21  40   15   70   500  0    555  111  0     0.4
    , i21  44   10   74   600  0    444  111  0.5   0.6
    , i21  48   8    77   500  0    333  111  0.7   0.7
    , i21  48.5 9    76   500  0    222  111  0.9   0.9 

    , i21  50   12   72   500  0    666  222  0.1   0.6
    , i21  55   15   74   500  0    333  333  0.5   0.7
    , i21  58   8    73   600  0    444  333  0.7   0.7
    , i21  65   9    72   300  0    333  333  0.9   0.8

    , i21  58   12   74   500  0    666  222  0.1   0.6
    , i21  61   15   76   500  0    333  333  0.5   0.7
    , i21  63   12   73   600  0    444  333  0.7   0.7
    , i21  64   12   72   300  0    333  333  0.9   0.8
    ]

-- | Let's repeat everything 4 times and add the sustain for 2 seconds per note.
main = dac $ mix $ sustain 2 $ loopBy 4 windRes