Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 233.082 46 "a#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 7924.78 34 0.14)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 466.16 2 2984.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-2.735) 1078.93
    ,Harmonic 2 (-1.451) 2984.0
    ,Harmonic 3 2.826 1355.44
    ,Harmonic 4 (-1.898) 439.09
    ,Harmonic 5 (-0.335) 802.4
    ,Harmonic 6 0.104 201.1
    ,Harmonic 7 (-0.616) 749.74
    ,Harmonic 8 (-0.62) 94.11
    ,Harmonic 9 (-0.627) 88.98
    ,Harmonic 10 (-0.282) 52.51
    ,Harmonic 11 0.296 17.48
    ,Harmonic 12 (-1.351) 9.02
    ,Harmonic 13 (-0.683) 4.1
    ,Harmonic 14 (-2.332) 7.07
    ,Harmonic 15 2.885 3.87
    ,Harmonic 16 (-1.02) 1.33
    ,Harmonic 17 1.273 2.5
    ,Harmonic 18 0.657 2.72
    ,Harmonic 19 (-1.061) 2.58
    ,Harmonic 20 (-1.414) 1.17
    ,Harmonic 21 (-2.604) 1.25
    ,Harmonic 22 1.789 1.97
    ,Harmonic 23 (-2.92) 1.52
    ,Harmonic 24 (-1.861) 1.24
    ,Harmonic 25 1.19 3.39
    ,Harmonic 26 1.74 4.33
    ,Harmonic 27 (-1.258) 0.82
    ,Harmonic 28 (-1.846) 0.43
    ,Harmonic 29 1.783 0.91
    ,Harmonic 30 (-0.649) 0.58
    ,Harmonic 31 1.546 0.96
    ,Harmonic 32 (-2.231) 2.01
    ,Harmonic 33 2.804 1.28
    ,Harmonic 34 (-1.357) 0.14
    ,Harmonic 35 (-1.981) 1.26
    ,Harmonic 36 1.76 0.75
    ,Harmonic 37 1.279 1.4
    ,Harmonic 38 1.098 0.14
    ,Harmonic 39 (-1.794) 0.74
    ,Harmonic 40 (-2.321) 0.66
    ,Harmonic 41 (-1.251) 0.5
    ,Harmonic 42 0.978 0.47]