Note17.hs

module Sharc.Instruments.TromboneMuted.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 220.0 45 "a3")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 6820.0 31 8.0e-2)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 660.0 3 2699.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-2.155) 729.68
    ,Harmonic 2 (-0.535) 1758.98
    ,Harmonic 3 (-2.272) 2699.0
    ,Harmonic 4 (-0.118) 420.07
    ,Harmonic 5 0.433 84.22
    ,Harmonic 6 3.029 56.71
    ,Harmonic 7 (-1.587) 274.29
    ,Harmonic 8 2.889 205.27
    ,Harmonic 9 (-1.625) 200.14
    ,Harmonic 10 (-1.169) 54.28
    ,Harmonic 11 (-0.976) 37.35
    ,Harmonic 12 (-0.12) 27.93
    ,Harmonic 13 0.689 3.6
    ,Harmonic 14 (-1.126) 4.8
    ,Harmonic 15 (-2.268) 10.89
    ,Harmonic 16 (-2.74) 4.69
    ,Harmonic 17 (-1.28) 4.75
    ,Harmonic 18 2.026 1.84
    ,Harmonic 19 1.357 2.65
    ,Harmonic 20 0.618 4.57
    ,Harmonic 21 1.348 1.34
    ,Harmonic 22 0.783 0.91
    ,Harmonic 23 1.276 0.55
    ,Harmonic 24 (-0.627) 1.09
    ,Harmonic 25 (-0.874) 3.91
    ,Harmonic 26 (-1.045) 1.48
    ,Harmonic 27 1.9 3.68
    ,Harmonic 28 2.317 2.87
    ,Harmonic 29 (-0.671) 2.71
    ,Harmonic 30 0.297 0.4
    ,Harmonic 31 3.116 8.0e-2
    ,Harmonic 32 1.304 0.29
    ,Harmonic 33 (-1.102) 0.15
    ,Harmonic 34 (-3.101) 0.23
    ,Harmonic 35 1.573 0.16
    ,Harmonic 36 (-0.976) 0.66
    ,Harmonic 37 (-0.164) 1.01
    ,Harmonic 38 1.483 0.17
    ,Harmonic 39 0.686 1.35
    ,Harmonic 40 0.481 1.35
    ,Harmonic 41 1.246 0.64
    ,Harmonic 42 (-0.389) 0.21
    ,Harmonic 43 (-0.623) 0.73
    ,Harmonic 44 1.031 0.91
    ,Harmonic 45 (-2.348) 0.23]