Note19.hs

module Sharc.Instruments.Trombone.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 246.942 47 "b3")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 7655.2 31 0.95)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 5286.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 0.693 2897.57
    ,Harmonic 2 (-1.823) 5286.0
    ,Harmonic 3 1.65 5024.93
    ,Harmonic 4 (-2.076) 2717.42
    ,Harmonic 5 0.893 2435.71
    ,Harmonic 6 (-2.341) 1222.01
    ,Harmonic 7 0.764 804.78
    ,Harmonic 8 (-2.138) 501.31
    ,Harmonic 9 1.143 314.04
    ,Harmonic 10 (-1.876) 200.32
    ,Harmonic 11 1.354 113.93
    ,Harmonic 12 (-1.681) 73.92
    ,Harmonic 13 1.873 48.94
    ,Harmonic 14 (-0.872) 32.49
    ,Harmonic 15 2.583 19.18
    ,Harmonic 16 (-0.31) 11.87
    ,Harmonic 17 (-2.888) 7.63
    ,Harmonic 18 0.593 5.3
    ,Harmonic 19 (-1.848) 3.96
    ,Harmonic 20 1.822 3.37
    ,Harmonic 21 (-0.479) 2.74
    ,Harmonic 22 (-1.931) 3.02
    ,Harmonic 23 (-2.578) 1.7
    ,Harmonic 24 2.118 1.29
    ,Harmonic 25 2.027 1.12
    ,Harmonic 26 (-0.57) 1.78
    ,Harmonic 27 (-2.67) 2.48
    ,Harmonic 28 1.713 2.36
    ,Harmonic 29 (-0.498) 1.65
    ,Harmonic 30 2.722 1.26
    ,Harmonic 31 (-0.266) 0.95
    ,Harmonic 32 2.402 1.05
    ,Harmonic 33 (-0.791) 3.73
    ,Harmonic 34 (-3.075) 2.07
    ,Harmonic 35 0.723 2.78
    ,Harmonic 36 (-1.715) 2.87
    ,Harmonic 37 1.889 1.64
    ,Harmonic 38 (-2.275) 2.11
    ,Harmonic 39 1.59 3.21
    ,Harmonic 40 (-0.885) 2.83]