Note4.hs

module Sharc.Instruments.AltoFlute.Note4 (note4) where

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 246.942 47 "b3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 6420.49 26 0.83)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 740.82 3 6334.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-2.748) 1680.15
    ,Harmonic 2 (-0.612) 5285.26
    ,Harmonic 3 (-2.043) 6334.0
    ,Harmonic 4 0.409 2587.1
    ,Harmonic 5 (-3.038) 2452.83
    ,Harmonic 6 2.176 345.2
    ,Harmonic 7 0.413 491.19
    ,Harmonic 8 1.318 239.97
    ,Harmonic 9 (-1.369) 410.71
    ,Harmonic 10 1.531 57.88
    ,Harmonic 11 (-2.188) 163.1
    ,Harmonic 12 0.743 69.0
    ,Harmonic 13 2.189 127.7
    ,Harmonic 14 (-0.994) 149.59
    ,Harmonic 15 1.492 59.78
    ,Harmonic 16 (-1.855) 88.8
    ,Harmonic 17 0.761 14.18
    ,Harmonic 18 (-2.725) 17.63
    ,Harmonic 19 (-1.026) 25.33
    ,Harmonic 20 2.779 24.65
    ,Harmonic 21 (-0.9) 18.31
    ,Harmonic 22 2.822 9.6
    ,Harmonic 23 (-1.911) 10.2
    ,Harmonic 24 (-1.446) 11.11
    ,Harmonic 25 (-2.508) 10.62
    ,Harmonic 26 (-1.686) 0.83
    ,Harmonic 27 2.996 9.05
    ,Harmonic 28 (-2.719) 2.8
    ,Harmonic 29 2.784 3.74
    ,Harmonic 30 (-2.342) 6.39
    ,Harmonic 31 1.094 6.51
    ,Harmonic 32 2.157 10.79
    ,Harmonic 33 0.893 9.38
    ,Harmonic 34 (-0.954) 4.74
    ,Harmonic 35 (-1.645) 28.34
    ,Harmonic 36 2.58 6.01
    ,Harmonic 37 2.461 16.47
    ,Harmonic 38 (-1.431) 4.29
    ,Harmonic 39 1.117 4.2
    ,Harmonic 40 (-2.654) 5.25]