Note6.hs

module Sharc.Instruments.ClarinetEflat.Note6 (note6) where

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 277.183 49 "c#4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.22 34 0.51)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 4980.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 (-1.948) 4980.0
    ,Harmonic 2 (-0.486) 26.48
    ,Harmonic 3 (-1.453) 2486.44
    ,Harmonic 4 (-0.562) 114.56
    ,Harmonic 5 (-1.146) 1140.18
    ,Harmonic 6 (-1.28) 251.61
    ,Harmonic 7 1.55 798.8
    ,Harmonic 8 0.683 184.81
    ,Harmonic 9 (-2.691) 506.57
    ,Harmonic 10 (-2.662) 5.56
    ,Harmonic 11 (-4.9e-2) 243.18
    ,Harmonic 12 1.904 201.33
    ,Harmonic 13 (-0.749) 148.63
    ,Harmonic 14 0.865 127.69
    ,Harmonic 15 (-0.759) 76.04
    ,Harmonic 16 2.0e-2 81.03
    ,Harmonic 17 (-1.245) 65.71
    ,Harmonic 18 (-1.111) 122.3
    ,Harmonic 19 (-1.864) 21.98
    ,Harmonic 20 1.274 32.9
    ,Harmonic 21 (-0.372) 61.53
    ,Harmonic 22 (-1.61) 55.96
    ,Harmonic 23 2.702 8.16
    ,Harmonic 24 1.357 37.35
    ,Harmonic 25 0.492 18.92
    ,Harmonic 26 (-1.647) 25.48
    ,Harmonic 27 (-2.153) 15.64
    ,Harmonic 28 1.233 8.07
    ,Harmonic 29 (-2.2e-2) 10.75
    ,Harmonic 30 (-1.686) 6.01
    ,Harmonic 31 2.079 2.26
    ,Harmonic 32 (-0.235) 2.83
    ,Harmonic 33 (-0.591) 4.48
    ,Harmonic 34 1.9e-2 0.51
    ,Harmonic 35 3.119 3.43
    ,Harmonic 36 (-5.3e-2) 2.77]