Note29.hs

module Sharc.Instruments.Bassoon.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 311.127 51 "d#4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 8089.3 26 0.57)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 2574.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-1.159) 2574.0
    ,Harmonic 2 (-1.861) 1154.48
    ,Harmonic 3 2.45 304.21
    ,Harmonic 4 (-1.941) 1312.13
    ,Harmonic 5 2.749 128.84
    ,Harmonic 6 (-0.375) 115.74
    ,Harmonic 7 (-2.671) 27.25
    ,Harmonic 8 (-1.145) 24.92
    ,Harmonic 9 (-6.1e-2) 11.11
    ,Harmonic 10 1.181 17.83
    ,Harmonic 11 2.062 8.14
    ,Harmonic 12 2.437 12.6
    ,Harmonic 13 1.69 13.1
    ,Harmonic 14 (-1.011) 1.87
    ,Harmonic 15 1.881 7.45
    ,Harmonic 16 (-1.091) 2.17
    ,Harmonic 17 (-2.473) 8.36
    ,Harmonic 18 0.448 2.4
    ,Harmonic 19 (-0.177) 2.7
    ,Harmonic 20 2.498 1.04
    ,Harmonic 21 (-2.505) 0.58
    ,Harmonic 22 2.315 2.1
    ,Harmonic 23 (-0.903) 2.26
    ,Harmonic 24 (-0.586) 2.12
    ,Harmonic 25 1.284 0.91
    ,Harmonic 26 1.561 0.57
    ,Harmonic 27 2.864 0.69
    ,Harmonic 28 (-2.36) 0.77
    ,Harmonic 29 (-0.58) 0.59
    ,Harmonic 30 1.731 1.77
    ,Harmonic 31 (-0.316) 2.53
    ,Harmonic 32 (-8.6e-2) 1.32]