Note9.hs

module Sharc.Instruments.TrumpetC.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 311.127 51 "d#4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9644.93 31 7.13)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 1555.63 5 3069.0)
            (NoteRangeHarmonicFreq 31 9644.93)))
    [Harmonic 1 (-2.444) 846.7
    ,Harmonic 2 1.482 1152.67
    ,Harmonic 3 (-1.627) 1937.37
    ,Harmonic 4 1.524 2430.54
    ,Harmonic 5 (-1.199) 3069.0
    ,Harmonic 6 2.48 1819.47
    ,Harmonic 7 (-0.756) 1653.06
    ,Harmonic 8 2.604 1313.61
    ,Harmonic 9 (-0.392) 1339.96
    ,Harmonic 10 2.463 878.26
    ,Harmonic 11 (-0.739) 723.39
    ,Harmonic 12 2.706 538.99
    ,Harmonic 13 7.2e-2 402.68
    ,Harmonic 14 (-2.743) 289.78
    ,Harmonic 15 0.68 219.03
    ,Harmonic 16 (-2.175) 148.76
    ,Harmonic 17 1.14 153.94
    ,Harmonic 18 (-1.729) 149.06
    ,Harmonic 19 1.822 117.67
    ,Harmonic 20 (-0.864) 102.26
    ,Harmonic 21 2.419 62.18
    ,Harmonic 22 (-0.538) 44.82
    ,Harmonic 23 2.622 44.38
    ,Harmonic 24 (-0.221) 41.86
    ,Harmonic 25 (-2.892) 47.71
    ,Harmonic 26 0.831 37.78
    ,Harmonic 27 (-1.954) 25.1
    ,Harmonic 28 1.447 13.71
    ,Harmonic 29 (-1.36) 9.27
    ,Harmonic 30 1.263 8.36
    ,Harmonic 31 (-1.519) 7.13]