Note9.hs

module Sharc.Instruments.ClarinetEflat.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 329.628 52 "e4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9559.21 29 0.89)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 5292.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-1.938) 5292.0
    ,Harmonic 2 (-0.796) 101.52
    ,Harmonic 3 (-0.534) 3009.7
    ,Harmonic 4 0.676 139.9
    ,Harmonic 5 (-2.509) 702.77
    ,Harmonic 6 1.555 331.63
    ,Harmonic 7 (-2.831) 766.68
    ,Harmonic 8 1.743 174.19
    ,Harmonic 9 (-1.028) 505.89
    ,Harmonic 10 (-0.298) 238.86
    ,Harmonic 11 2.806 77.95
    ,Harmonic 12 2.705 30.73
    ,Harmonic 13 2.434 40.8
    ,Harmonic 14 3.028 152.3
    ,Harmonic 15 1.801 62.84
    ,Harmonic 16 1.795 25.29
    ,Harmonic 17 (-2.619) 8.55
    ,Harmonic 18 1.008 21.05
    ,Harmonic 19 2.012 2.01
    ,Harmonic 20 (-1.105) 33.78
    ,Harmonic 21 (-2.502) 8.44
    ,Harmonic 22 (-0.725) 16.31
    ,Harmonic 23 0.57 6.46
    ,Harmonic 24 (-8.5e-2) 5.23
    ,Harmonic 25 0.538 7.67
    ,Harmonic 26 0.226 3.98
    ,Harmonic 27 (-1.141) 8.92
    ,Harmonic 28 (-2.845) 6.07
    ,Harmonic 29 2.612 0.89
    ,Harmonic 30 (-0.18) 3.5]