module Sharc.Instruments.Bassoon.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 246.942 47 "b3")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 8889.91 36 0.31)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 5146.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 1.184 2113.87
    ,Harmonic 2 1.563 5146.0
    ,Harmonic 3 1.266 694.19
    ,Harmonic 4 1.455 1134.29
    ,Harmonic 5 (-1.96) 550.02
    ,Harmonic 6 0.319 58.1
    ,Harmonic 7 1.491 99.31
    ,Harmonic 8 (-1.754) 45.29
    ,Harmonic 9 2.433 40.5
    ,Harmonic 10 (-2.528) 10.16
    ,Harmonic 11 2.793 6.83
    ,Harmonic 12 (-0.552) 4.72
    ,Harmonic 13 2.536 4.13
    ,Harmonic 14 (-1.913) 3.72
    ,Harmonic 15 1.111 0.8
    ,Harmonic 16 (-1.172) 10.11
    ,Harmonic 17 1.372 3.31
    ,Harmonic 18 (-2.033) 6.2
    ,Harmonic 19 (-0.132) 4.26
    ,Harmonic 20 (-2.269) 5.35
    ,Harmonic 21 (-0.456) 1.83
    ,Harmonic 22 (-2.238) 2.76
    ,Harmonic 23 (-1.449) 0.88
    ,Harmonic 24 (-1.552) 3.55
    ,Harmonic 25 (-2.395) 1.87
    ,Harmonic 26 (-3.027) 0.89
    ,Harmonic 27 2.139 1.0
    ,Harmonic 28 1.623 0.32
    ,Harmonic 29 (-1.425) 0.91
    ,Harmonic 30 2.153 2.02
    ,Harmonic 31 0.646 2.6
    ,Harmonic 32 2.166 0.41
    ,Harmonic 33 2.465 2.72
    ,Harmonic 34 (-0.937) 0.91
    ,Harmonic 35 2.856 1.25
    ,Harmonic 36 0.606 0.31
    ,Harmonic 37 3.0 1.36
    ,Harmonic 38 (-2.596) 0.55
    ,Harmonic 39 (-2.774) 0.38
    ,Harmonic 40 1.258 0.38]