Note14.hs

module Sharc.Instruments.Clarinet.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 329.628 52 "e4")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 9888.84 30 0.6)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 1648.14 5 1791.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 1.631 1253.59
    ,Harmonic 2 1.274 60.12
    ,Harmonic 3 2.483 1154.11
    ,Harmonic 4 0.669 403.22
    ,Harmonic 5 0.661 1791.0
    ,Harmonic 6 0.781 64.14
    ,Harmonic 7 (-2.386) 526.62
    ,Harmonic 8 (-1.513) 235.53
    ,Harmonic 9 2.242 171.61
    ,Harmonic 10 (-2.717) 149.91
    ,Harmonic 11 (-0.762) 126.34
    ,Harmonic 12 1.057 219.11
    ,Harmonic 13 (-0.115) 57.9
    ,Harmonic 14 (-1.719) 119.37
    ,Harmonic 15 3.1e-2 63.78
    ,Harmonic 16 2.968 10.97
    ,Harmonic 17 (-1.88) 65.98
    ,Harmonic 18 (-1.613) 10.66
    ,Harmonic 19 1.181 24.21
    ,Harmonic 20 (-1.798) 1.11
    ,Harmonic 21 (-0.655) 6.43
    ,Harmonic 22 (-0.827) 6.52
    ,Harmonic 23 2.184 5.91
    ,Harmonic 24 1.107 4.07
    ,Harmonic 25 2.081 3.57
    ,Harmonic 26 1.318 1.86
    ,Harmonic 27 (-1.116) 1.85
    ,Harmonic 28 (-1.841) 2.23
    ,Harmonic 29 2.932 0.86
    ,Harmonic 30 (-2.002) 0.6]