Note14.hs

module Sharc.Instruments.TrumpetC.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 415.305 56 "g#4")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 9552.01 23 25.2)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 1245.91 3 3127.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-2.002) 2368.62
    ,Harmonic 2 2.011 1737.82
    ,Harmonic 3 (-0.427) 3127.0
    ,Harmonic 4 (-2.545) 1314.75
    ,Harmonic 5 1.599 664.89
    ,Harmonic 6 (-1.121) 1477.09
    ,Harmonic 7 2.358 1524.7
    ,Harmonic 8 (-0.469) 1048.9
    ,Harmonic 9 (-3.013) 665.82
    ,Harmonic 10 1.003 364.15
    ,Harmonic 11 (-1.419) 190.52
    ,Harmonic 12 2.59 147.94
    ,Harmonic 13 0.505 165.1
    ,Harmonic 14 (-1.812) 177.29
    ,Harmonic 15 1.995 159.51
    ,Harmonic 16 (-0.477) 115.42
    ,Harmonic 17 (-2.949) 92.32
    ,Harmonic 18 0.75 78.64
    ,Harmonic 19 (-1.609) 45.86
    ,Harmonic 20 2.717 34.04
    ,Harmonic 21 0.512 35.86
    ,Harmonic 22 (-1.872) 31.72
    ,Harmonic 23 1.87 25.2
    ,Harmonic 24 (-0.666) 25.28]