Note0.hs

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

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 261.626 48 "c4")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 9680.16 37 0.22)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 523.25 2 2957.0)
            (NoteRangeHarmonicFreq 37 9680.16)))
    [Harmonic 1 2.613 983.6
    ,Harmonic 2 (-0.878) 2957.0
    ,Harmonic 3 2.019 1419.21
    ,Harmonic 4 (-2.39) 790.14
    ,Harmonic 5 0.891 1128.71
    ,Harmonic 6 2.883 427.98
    ,Harmonic 7 (-2.134) 290.77
    ,Harmonic 8 0.139 486.62
    ,Harmonic 9 3.074 221.42
    ,Harmonic 10 3.047 75.69
    ,Harmonic 11 1.022 102.28
    ,Harmonic 12 (-1.293) 34.48
    ,Harmonic 13 (-2.222) 21.73
    ,Harmonic 14 (-0.322) 11.8
    ,Harmonic 15 2.75 8.98
    ,Harmonic 16 (-1.271) 9.9
    ,Harmonic 17 1.399 7.3
    ,Harmonic 18 (-2.865) 3.75
    ,Harmonic 19 (-0.296) 5.11
    ,Harmonic 20 1.888 10.63
    ,Harmonic 21 (-1.334) 4.51
    ,Harmonic 22 0.153 1.32
    ,Harmonic 23 1.794 1.57
    ,Harmonic 24 (-1.562) 3.24
    ,Harmonic 25 1.624 1.8
    ,Harmonic 26 (-1.613) 6.28
    ,Harmonic 27 1.401 3.66
    ,Harmonic 28 (-2.39) 5.5
    ,Harmonic 29 1.248 2.91
    ,Harmonic 30 (-0.461) 2.34
    ,Harmonic 31 (-2.357) 1.54
    ,Harmonic 32 0.375 0.62
    ,Harmonic 33 2.268 1.01
    ,Harmonic 34 (-2.992) 1.25
    ,Harmonic 35 (-0.58) 0.37
    ,Harmonic 36 2.888 1.13
    ,Harmonic 37 1.164 0.22]