Note7.hs

module Sharc.Instruments.ClarinetEflat.Note7 (note7) where

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 293.665 50 "d4")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 8516.28 29 1.28)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 4676.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-2.114) 4676.0
    ,Harmonic 2 (-0.456) 41.94
    ,Harmonic 3 (-1.049) 1771.6
    ,Harmonic 4 (-0.322) 115.32
    ,Harmonic 5 (-1.897) 810.77
    ,Harmonic 6 (-1.976) 327.24
    ,Harmonic 7 (-1.186) 1122.27
    ,Harmonic 8 (-1.315) 292.99
    ,Harmonic 9 (-5.0e-2) 112.73
    ,Harmonic 10 0.288 142.13
    ,Harmonic 11 (-1.725) 406.84
    ,Harmonic 12 (-1.129) 304.11
    ,Harmonic 13 (-2.656) 35.87
    ,Harmonic 14 (-0.636) 105.75
    ,Harmonic 15 (-1.265) 41.73
    ,Harmonic 16 3.116 91.53
    ,Harmonic 17 1.55 24.04
    ,Harmonic 18 (-2.26) 12.62
    ,Harmonic 19 3.101 5.69
    ,Harmonic 20 0.791 19.31
    ,Harmonic 21 2.9 4.35
    ,Harmonic 22 0.18 21.7
    ,Harmonic 23 (-0.205) 12.33
    ,Harmonic 24 2.232 4.96
    ,Harmonic 25 1.109 22.86
    ,Harmonic 26 0.598 2.59
    ,Harmonic 27 (-3.009) 3.99
    ,Harmonic 28 2.098 3.77
    ,Harmonic 29 0.151 1.28
    ,Harmonic 30 0.93 1.92
    ,Harmonic 31 0.765 2.56
    ,Harmonic 32 (-1.085) 3.84
    ,Harmonic 33 1.943 1.38
    ,Harmonic 34 0.413 3.98]