Note23.hs

module Sharc.Instruments.Bassoon.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 220.0 45 "a3")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 3740.0 17 0.19)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 440.0 2 5075.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-2.779) 549.49
    ,Harmonic 2 (-1.618) 5075.0
    ,Harmonic 3 (-0.211) 995.76
    ,Harmonic 4 2.11 241.03
    ,Harmonic 5 (-2.011) 632.86
    ,Harmonic 6 0.537 113.3
    ,Harmonic 7 (-2.07) 61.31
    ,Harmonic 8 (-2.468) 63.98
    ,Harmonic 9 (-0.735) 40.15
    ,Harmonic 10 0.941 8.36
    ,Harmonic 11 1.474 4.76
    ,Harmonic 12 (-8.9e-2) 4.57
    ,Harmonic 13 9.4e-2 6.65
    ,Harmonic 14 (-0.697) 7.67
    ,Harmonic 15 (-2.301) 1.22
    ,Harmonic 16 (-3.0) 3.59
    ,Harmonic 17 (-1.89) 0.19
    ,Harmonic 18 0.51 2.6
    ,Harmonic 19 0.492 2.86
    ,Harmonic 20 (-0.522) 4.9
    ,Harmonic 21 (-0.849) 3.05
    ,Harmonic 22 (-1.279) 1.78
    ,Harmonic 23 (-0.119) 2.78
    ,Harmonic 24 (-0.589) 1.15
    ,Harmonic 25 (-0.762) 2.85
    ,Harmonic 26 (-1.068) 0.96
    ,Harmonic 27 (-1.294) 2.56
    ,Harmonic 28 (-1.84) 0.69
    ,Harmonic 29 (-0.215) 1.86
    ,Harmonic 30 (-1.596) 0.55
    ,Harmonic 31 (-0.715) 0.67
    ,Harmonic 32 (-1.691) 0.32
    ,Harmonic 33 (-2.973) 0.2
    ,Harmonic 34 0.682 0.35
    ,Harmonic 35 (-0.925) 0.86
    ,Harmonic 36 (-0.654) 0.32
    ,Harmonic 37 (-1.132) 0.4
    ,Harmonic 38 2.495 0.49
    ,Harmonic 39 2.398 0.81
    ,Harmonic 40 (-2.1e-2) 0.29
    ,Harmonic 41 0.73 0.56
    ,Harmonic 42 0.435 0.47
    ,Harmonic 43 0.98 0.36
    ,Harmonic 44 0.57 0.59
    ,Harmonic 45 (-0.411) 0.38]