Note8.hs

module Sharc.Instruments.ClarinetEflat.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 311.127 51 "d#4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 9956.06 32 2.99)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 4460.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 2.427 4460.0
    ,Harmonic 2 2.784 141.09
    ,Harmonic 3 (-2.7e-2) 4090.4
    ,Harmonic 4 (-1.264) 78.98
    ,Harmonic 5 1.36 1770.33
    ,Harmonic 6 (-2.571) 798.64
    ,Harmonic 7 (-1.948) 1525.01
    ,Harmonic 8 1.015 164.68
    ,Harmonic 9 1.745 141.89
    ,Harmonic 10 0.578 277.92
    ,Harmonic 11 1.349 485.17
    ,Harmonic 12 0.516 308.01
    ,Harmonic 13 (-2.365) 7.35
    ,Harmonic 14 (-3.064) 105.6
    ,Harmonic 15 1.569 55.09
    ,Harmonic 16 (-1.931) 105.37
    ,Harmonic 17 (-2.31) 10.39
    ,Harmonic 18 2.484 56.57
    ,Harmonic 19 4.0e-2 23.47
    ,Harmonic 20 1.831 52.51
    ,Harmonic 21 (-0.725) 77.94
    ,Harmonic 22 (-0.322) 55.79
    ,Harmonic 23 2.941 80.99
    ,Harmonic 24 (-1.614) 10.64
    ,Harmonic 25 2.08 38.52
    ,Harmonic 26 (-1.537) 18.52
    ,Harmonic 27 0.7 3.93
    ,Harmonic 28 (-1.655) 4.66
    ,Harmonic 29 1.975 4.05
    ,Harmonic 30 (-1.797) 16.1
    ,Harmonic 31 0.142 4.6
    ,Harmonic 32 (-2.114) 2.99]