Note6.hs

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

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 277.183 49 "c#4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 6098.02 22 0.86)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 554.36 2 7095.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 (-2.244) 5923.35
    ,Harmonic 2 1.592 7095.0
    ,Harmonic 3 (-0.102) 6448.97
    ,Harmonic 4 3.128 2630.15
    ,Harmonic 5 (-0.482) 102.9
    ,Harmonic 6 1.212 326.64
    ,Harmonic 7 (-0.768) 443.77
    ,Harmonic 8 2.606 172.24
    ,Harmonic 9 (-2.43) 68.54
    ,Harmonic 10 1.798 126.08
    ,Harmonic 11 (-0.583) 94.47
    ,Harmonic 12 2.926 40.64
    ,Harmonic 13 (-1.068) 28.04
    ,Harmonic 14 2.413 17.89
    ,Harmonic 15 (-0.451) 23.41
    ,Harmonic 16 2.451 13.13
    ,Harmonic 17 0.594 15.85
    ,Harmonic 18 2.54 12.56
    ,Harmonic 19 (-0.293) 7.12
    ,Harmonic 20 2.94 13.41
    ,Harmonic 21 1.59 8.5
    ,Harmonic 22 2.461 0.86
    ,Harmonic 23 (-1.576) 1.77
    ,Harmonic 24 (-2.067) 12.4
    ,Harmonic 25 1.946 14.27
    ,Harmonic 26 (-1.35) 4.37
    ,Harmonic 27 0.717 10.73
    ,Harmonic 28 (-1.132) 3.46
    ,Harmonic 29 (-2.239) 7.3
    ,Harmonic 30 1.51 7.72
    ,Harmonic 31 (-2.718) 5.63
    ,Harmonic 32 0.596 29.85
    ,Harmonic 33 (-2.125) 8.35
    ,Harmonic 34 (-1.72) 4.36
    ,Harmonic 35 3.134 3.92
    ,Harmonic 36 1.809 5.51]