Note3.hs

module Sharc.Instruments.AltoFlute.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 233.082 46 "a#3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 4894.72 21 2.63)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 466.16 2 5347.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-0.596) 2511.36
    ,Harmonic 2 (-1.913) 5347.0
    ,Harmonic 3 (-1.094) 3533.52
    ,Harmonic 4 (-1.993) 3098.77
    ,Harmonic 5 2.943 2071.96
    ,Harmonic 6 0.565 566.93
    ,Harmonic 7 (-1.442) 222.02
    ,Harmonic 8 (-2.463) 231.7
    ,Harmonic 9 2.588 275.29
    ,Harmonic 10 1.3 223.11
    ,Harmonic 11 0.36 122.56
    ,Harmonic 12 (-0.509) 70.96
    ,Harmonic 13 (-2.394) 39.42
    ,Harmonic 14 1.916 52.88
    ,Harmonic 15 1.516 56.21
    ,Harmonic 16 0.558 44.26
    ,Harmonic 17 1.103 26.12
    ,Harmonic 18 (-1.37) 24.86
    ,Harmonic 19 (-1.054) 4.5
    ,Harmonic 20 2.893 15.81
    ,Harmonic 21 2.432 2.63
    ,Harmonic 22 (-2.736) 4.52
    ,Harmonic 23 2.221 6.24
    ,Harmonic 24 1.016 15.08
    ,Harmonic 25 (-9.0e-3) 6.45
    ,Harmonic 26 (-1.071) 9.86
    ,Harmonic 27 (-2.195) 9.03
    ,Harmonic 28 2.668 6.46
    ,Harmonic 29 2.283 10.24
    ,Harmonic 30 0.448 11.52
    ,Harmonic 31 0.359 21.05
    ,Harmonic 32 (-0.302) 3.27
    ,Harmonic 33 (-2.389) 6.24
    ,Harmonic 34 (-2.134) 5.11
    ,Harmonic 35 (-3.055) 9.69
    ,Harmonic 36 2.439 17.39
    ,Harmonic 37 1.069 15.4
    ,Harmonic 38 (-0.555) 8.61
    ,Harmonic 39 (-1.441) 27.56
    ,Harmonic 40 2.965 9.16
    ,Harmonic 41 0.801 11.92
    ,Harmonic 42 0.336 2.75]