Note6.hs

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

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 369.994 54 "f#4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9619.84 26 1.31)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 4336.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 2.315 4336.0
    ,Harmonic 2 (-0.511) 4223.74
    ,Harmonic 3 1.232 578.52
    ,Harmonic 4 2.526 935.1
    ,Harmonic 5 0.335 310.03
    ,Harmonic 6 1.942 130.91
    ,Harmonic 7 (-2.751) 126.87
    ,Harmonic 8 (-0.501) 94.7
    ,Harmonic 9 1.018 53.16
    ,Harmonic 10 (-2.718) 44.84
    ,Harmonic 11 (-0.218) 25.54
    ,Harmonic 12 1.779 12.33
    ,Harmonic 13 (-2.459) 8.55
    ,Harmonic 14 (-0.772) 10.14
    ,Harmonic 15 1.911 7.54
    ,Harmonic 16 (-1.646) 4.91
    ,Harmonic 17 1.674 5.62
    ,Harmonic 18 (-2.238) 6.36
    ,Harmonic 19 (-0.405) 6.0
    ,Harmonic 20 2.788 3.61
    ,Harmonic 21 (-1.395) 6.75
    ,Harmonic 22 2.338 3.24
    ,Harmonic 23 1.862 7.68
    ,Harmonic 24 (-0.22) 5.73
    ,Harmonic 25 2.501 4.17
    ,Harmonic 26 (-0.767) 1.31]