Note12.hs

module Sharc.Instruments.ClarinetEflat.Note12 (note12) where

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 391.995 55 "g4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9799.87 25 1.7)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 5073.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 1.152 5073.0
    ,Harmonic 2 (-4.3e-2) 75.8
    ,Harmonic 3 2.176 1967.94
    ,Harmonic 4 0.439 53.21
    ,Harmonic 5 2.113 587.03
    ,Harmonic 6 2.447 131.96
    ,Harmonic 7 0.741 351.85
    ,Harmonic 8 2.308 31.57
    ,Harmonic 9 2.13 213.73
    ,Harmonic 10 1.086 23.06
    ,Harmonic 11 0.617 113.8
    ,Harmonic 12 2.748 81.19
    ,Harmonic 13 2.935 23.45
    ,Harmonic 14 1.584 7.38
    ,Harmonic 15 1.444 14.11
    ,Harmonic 16 0.886 22.59
    ,Harmonic 17 (-2.073) 12.93
    ,Harmonic 18 (-0.183) 31.32
    ,Harmonic 19 1.609 4.17
    ,Harmonic 20 0.887 42.8
    ,Harmonic 21 (-2.242) 8.52
    ,Harmonic 22 (-2.449) 9.22
    ,Harmonic 23 (-0.751) 7.45
    ,Harmonic 24 1.737 5.09
    ,Harmonic 25 (-3.028) 1.7]