Note5.hs

module Sharc.Instruments.AltoFlute.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 261.626 48 "c4")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 7848.77 30 1.66)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 784.87 3 7572.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 1.745 5351.6
    ,Harmonic 2 3.138 7269.23
    ,Harmonic 3 (-0.39) 7572.0
    ,Harmonic 4 1.262 6820.63
    ,Harmonic 5 1.484 1036.8
    ,Harmonic 6 0.969 177.58
    ,Harmonic 7 2.116 512.99
    ,Harmonic 8 (-2.51) 466.52
    ,Harmonic 9 (-0.898) 181.51
    ,Harmonic 10 (-2.619) 49.46
    ,Harmonic 11 (-0.733) 143.12
    ,Harmonic 12 1.438 151.37
    ,Harmonic 13 2.786 82.06
    ,Harmonic 14 2.897 28.09
    ,Harmonic 15 (-2.573) 80.33
    ,Harmonic 16 (-0.883) 62.86
    ,Harmonic 17 0.416 57.73
    ,Harmonic 18 1.779 45.01
    ,Harmonic 19 2.301 56.43
    ,Harmonic 20 (-2.455) 30.17
    ,Harmonic 21 (-0.626) 35.81
    ,Harmonic 22 0.113 21.45
    ,Harmonic 23 1.538 16.88
    ,Harmonic 24 (-2.803) 28.08
    ,Harmonic 25 (-2.136) 7.88
    ,Harmonic 26 (-0.19) 21.16
    ,Harmonic 27 0.771 15.8
    ,Harmonic 28 1.288 17.48
    ,Harmonic 29 (-2.473) 12.37
    ,Harmonic 30 0.374 1.66
    ,Harmonic 31 (-0.264) 10.43
    ,Harmonic 32 1.023 36.42
    ,Harmonic 33 2.729 31.18
    ,Harmonic 34 (-2.932) 25.72
    ,Harmonic 35 (-3.087) 4.6
    ,Harmonic 36 2.97 6.58
    ,Harmonic 37 (-2.877) 2.81
    ,Harmonic 38 2.601 3.66]