Note15.hs

module Sharc.Instruments.ClarinetEflat.Note15 (note15) where

import Sharc.Types

note15 :: Note
note15 = Note
    (Pitch 466.164 58 "a#4")
    16
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 19 1.91)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 466.16 1 3174.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 1.289 3174.0
    ,Harmonic 2 1.23 116.21
    ,Harmonic 3 (-3.031) 587.41
    ,Harmonic 4 2.196 195.65
    ,Harmonic 5 1.791 437.95
    ,Harmonic 6 1.43 97.13
    ,Harmonic 7 1.923 144.39
    ,Harmonic 8 0.837 218.67
    ,Harmonic 9 (-0.909) 189.75
    ,Harmonic 10 2.683 87.79
    ,Harmonic 11 0.884 108.72
    ,Harmonic 12 0.208 22.05
    ,Harmonic 13 (-0.547) 46.15
    ,Harmonic 14 (-0.618) 30.4
    ,Harmonic 15 0.711 31.52
    ,Harmonic 16 (-0.707) 9.8
    ,Harmonic 17 0.0 23.74
    ,Harmonic 18 (-3.127) 8.59
    ,Harmonic 19 (-1.256) 1.91
    ,Harmonic 20 (-1.828) 4.65
    ,Harmonic 21 (-0.571) 7.72]