Note18.hs

module Sharc.Instruments.Clarinet.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 415.305 56 "g#4")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 9136.71 22 0.49)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 1245.91 3 1437.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-1.876) 1034.86
    ,Harmonic 2 (-3.106) 56.88
    ,Harmonic 3 (-0.959) 1437.0
    ,Harmonic 4 (-2.785) 1101.8
    ,Harmonic 5 (-1.588) 637.57
    ,Harmonic 6 0.295 159.35
    ,Harmonic 7 1.884 217.9
    ,Harmonic 8 (-2.516) 113.28
    ,Harmonic 9 (-1.805) 213.92
    ,Harmonic 10 0.418 112.93
    ,Harmonic 11 2.047 48.68
    ,Harmonic 12 (-2.336) 59.0
    ,Harmonic 13 (-1.321) 41.83
    ,Harmonic 14 0.759 44.78
    ,Harmonic 15 0.78 6.83
    ,Harmonic 16 (-2.454) 2.7
    ,Harmonic 17 0.704 1.72
    ,Harmonic 18 (-0.489) 8.35
    ,Harmonic 19 (-2.166) 2.69
    ,Harmonic 20 1.185 3.99
    ,Harmonic 21 (-2.782) 1.74
    ,Harmonic 22 1.35 0.49
    ,Harmonic 23 1.285 2.18
    ,Harmonic 24 0.156 1.38]