Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 233.082 46 "a#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 8390.95 36 0.66)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 466.16 2 6356.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-0.653) 3726.55
    ,Harmonic 2 2.513 6356.0
    ,Harmonic 3 (-1.427) 5811.64
    ,Harmonic 4 0.441 3707.04
    ,Harmonic 5 2.628 3025.17
    ,Harmonic 6 (-1.582) 2118.69
    ,Harmonic 7 0.421 1191.48
    ,Harmonic 8 2.935 649.36
    ,Harmonic 9 (-1.007) 399.54
    ,Harmonic 10 1.282 242.91
    ,Harmonic 11 (-2.812) 156.97
    ,Harmonic 12 (-0.487) 111.52
    ,Harmonic 13 1.888 73.11
    ,Harmonic 14 (-1.842) 38.67
    ,Harmonic 15 0.674 22.62
    ,Harmonic 16 3.014 15.58
    ,Harmonic 17 (-0.773) 14.32
    ,Harmonic 18 2.013 10.11
    ,Harmonic 19 (-1.046) 9.3
    ,Harmonic 20 1.717 6.43
    ,Harmonic 21 (-1.509) 2.86
    ,Harmonic 22 0.965 1.75
    ,Harmonic 23 (-1.144) 1.26
    ,Harmonic 24 (-1.769) 1.09
    ,Harmonic 25 1.319 4.2
    ,Harmonic 26 (-1.044) 7.08
    ,Harmonic 27 1.922 5.28
    ,Harmonic 28 (-1.128) 4.13
    ,Harmonic 29 1.536 2.78
    ,Harmonic 30 (-1.017) 2.21
    ,Harmonic 31 1.976 1.42
    ,Harmonic 32 (-1.733) 1.48
    ,Harmonic 33 (-0.504) 2.39
    ,Harmonic 34 1.974 1.66
    ,Harmonic 35 2.237 2.76
    ,Harmonic 36 1.103 0.66
    ,Harmonic 37 (-2.805) 3.32
    ,Harmonic 38 (-1.006) 1.55
    ,Harmonic 39 (-8.0e-2) 3.6
    ,Harmonic 40 2.858 3.7
    ,Harmonic 41 (-0.554) 3.28
    ,Harmonic 42 2.034 1.14]