Note27.hs

module Sharc.Instruments.Bassoon.Note27 (note27) where

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 277.183 49 "c#4")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 9701.4 35 0.47)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 554.36 2 4305.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 (-3.131) 2257.91
    ,Harmonic 2 (-1.232) 4305.0
    ,Harmonic 3 0.179 723.51
    ,Harmonic 4 (-0.838) 142.03
    ,Harmonic 5 (-2.51) 265.78
    ,Harmonic 6 (-2.638) 42.38
    ,Harmonic 7 (-2.501) 6.81
    ,Harmonic 8 2.327 28.75
    ,Harmonic 9 (-0.654) 7.83
    ,Harmonic 10 0.822 5.65
    ,Harmonic 11 3.0e-3 13.54
    ,Harmonic 12 (-2.194) 9.67
    ,Harmonic 13 (-0.985) 11.08
    ,Harmonic 14 0.518 1.94
    ,Harmonic 15 1.137 12.12
    ,Harmonic 16 (-2.828) 3.04
    ,Harmonic 17 1.666 5.13
    ,Harmonic 18 (-0.76) 0.76
    ,Harmonic 19 (-1.988) 3.64
    ,Harmonic 20 (-0.435) 8.14
    ,Harmonic 21 (-0.429) 1.59
    ,Harmonic 22 (-1.082) 0.66
    ,Harmonic 23 (-1.643) 1.36
    ,Harmonic 24 1.896 2.72
    ,Harmonic 25 (-1.732) 1.93
    ,Harmonic 26 (-2.319) 2.35
    ,Harmonic 27 1.128 0.95
    ,Harmonic 28 0.874 0.57
    ,Harmonic 29 (-0.321) 1.3
    ,Harmonic 30 (-0.731) 0.96
    ,Harmonic 31 0.11 0.82
    ,Harmonic 32 0.595 0.83
    ,Harmonic 33 (-1.738) 1.59
    ,Harmonic 34 (-0.234) 0.88
    ,Harmonic 35 2.038 0.47
    ,Harmonic 36 (-1.573) 0.66]