module Sharc.Instruments.Viola.Note20 (note20) where

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 415.305 56 "g#4")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 7475.49 18 2.14)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 1245.91 3 6522.0)
            (NoteRangeHarmonicFreq 23 9552.01)))
    [Harmonic 1 (-0.97) 5184.39
    ,Harmonic 2 2.723 1538.56
    ,Harmonic 3 3.112 6522.0
    ,Harmonic 4 0.609 3871.29
    ,Harmonic 5 1.504 3033.58
    ,Harmonic 6 (-2.681) 1783.49
    ,Harmonic 7 (-2.638) 2625.95
    ,Harmonic 8 (-0.558) 232.59
    ,Harmonic 9 (-2.651) 1316.22
    ,Harmonic 10 1.743 309.75
    ,Harmonic 11 0.663 264.46
    ,Harmonic 12 (-2.361) 257.17
    ,Harmonic 13 (-0.202) 44.15
    ,Harmonic 14 2.825 184.83
    ,Harmonic 15 2.306 35.95
    ,Harmonic 16 2.125 57.46
    ,Harmonic 17 (-2.91) 32.95
    ,Harmonic 18 (-2.772) 2.14
    ,Harmonic 19 2.297 17.8
    ,Harmonic 20 (-1.166) 6.96
    ,Harmonic 21 0.995 14.45
    ,Harmonic 22 (-2.66) 10.58
    ,Harmonic 23 (-2.047) 10.57]