Note0.hs

module Sharc.Instruments.AltoFlute.Note0 (note0) where

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 195.998 43 "g3")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 5291.94 27 2.91)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 6148.0)
            (NoteRangeHarmonicFreq 50 9799.9)))
    [Harmonic 1 (-2.581) 1380.34
    ,Harmonic 2 1.565 6148.0
    ,Harmonic 3 (-0.358) 4033.99
    ,Harmonic 4 (-2.04) 4032.32
    ,Harmonic 5 2.03 2979.07
    ,Harmonic 6 (-0.372) 1184.64
    ,Harmonic 7 1.908 271.56
    ,Harmonic 8 (-2.575) 84.42
    ,Harmonic 9 1.506 270.63
    ,Harmonic 10 (-1.377) 218.2
    ,Harmonic 11 2.662 123.02
    ,Harmonic 12 1.135 53.76
    ,Harmonic 13 9.2e-2 60.51
    ,Harmonic 14 (-1.576) 122.4
    ,Harmonic 15 2.189 113.49
    ,Harmonic 16 0.173 110.72
    ,Harmonic 17 (-2.021) 43.54
    ,Harmonic 18 0.564 31.69
    ,Harmonic 19 2.766 78.74
    ,Harmonic 20 0.548 57.6
    ,Harmonic 21 (-1.43) 73.16
    ,Harmonic 22 2.634 35.81
    ,Harmonic 23 (-0.576) 13.11
    ,Harmonic 24 2.422 12.67
    ,Harmonic 25 0.319 14.71
    ,Harmonic 26 (-2.602) 23.74
    ,Harmonic 27 (-2.56) 2.91
    ,Harmonic 28 (-0.11) 5.98
    ,Harmonic 29 (-1.91) 6.48
    ,Harmonic 30 (-2.111) 13.47
    ,Harmonic 31 1.984 3.53
    ,Harmonic 32 (-3.005) 5.48
    ,Harmonic 33 0.895 15.38
    ,Harmonic 34 (-2.804) 10.16
    ,Harmonic 35 2.968 11.89
    ,Harmonic 36 (-1.637) 9.68
    ,Harmonic 37 2.054 5.9
    ,Harmonic 38 (-1.022) 16.44
    ,Harmonic 39 0.539 3.62
    ,Harmonic 40 (-1.312) 5.62
    ,Harmonic 41 (-2.495) 9.12
    ,Harmonic 42 (-0.954) 4.57
    ,Harmonic 43 (-0.984) 13.36
    ,Harmonic 44 1.423 19.73
    ,Harmonic 45 (-1.624) 16.57
    ,Harmonic 46 1.768 16.16
    ,Harmonic 47 (-1.058) 9.11
    ,Harmonic 48 2.319 5.3
    ,Harmonic 49 (-2.538) 3.99
    ,Harmonic 50 (-2.88) 4.03]