Note17.hs

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

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 493.883 59 "b4")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.66 20 1.97)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 1481.64 3 2915.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 2.53 1055.16
    ,Harmonic 2 (-0.992) 1844.87
    ,Harmonic 3 1.335 2915.0
    ,Harmonic 4 (-2.634) 1491.9
    ,Harmonic 5 (-0.252) 958.54
    ,Harmonic 6 1.212 871.1
    ,Harmonic 7 (-3.014) 258.47
    ,Harmonic 8 (-6.2e-2) 153.5
    ,Harmonic 9 2.122 115.48
    ,Harmonic 10 (-2.243) 63.42
    ,Harmonic 11 0.725 48.27
    ,Harmonic 12 2.707 35.27
    ,Harmonic 13 (-1.316) 12.7
    ,Harmonic 14 0.942 6.88
    ,Harmonic 15 3.094 10.31
    ,Harmonic 16 (-0.601) 7.86
    ,Harmonic 17 3.041 3.96
    ,Harmonic 18 0.135 2.69
    ,Harmonic 19 (-2.719) 3.58
    ,Harmonic 20 1.195 1.97]