Note9.hs

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

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 415.305 56 "g#4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9136.71 22 6.37)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 1245.91 3 4592.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 2.921 3157.0
    ,Harmonic 2 (-1.424) 3837.24
    ,Harmonic 3 8.0e-2 4592.0
    ,Harmonic 4 2.26 3885.2
    ,Harmonic 5 (-1.27) 3301.01
    ,Harmonic 6 6.8e-2 4304.74
    ,Harmonic 7 1.471 4300.23
    ,Harmonic 8 2.656 2969.79
    ,Harmonic 9 (-1.778) 1320.1
    ,Harmonic 10 0.329 808.59
    ,Harmonic 11 2.468 507.49
    ,Harmonic 12 (-1.739) 290.63
    ,Harmonic 13 5.6e-2 227.86
    ,Harmonic 14 1.941 164.65
    ,Harmonic 15 (-2.178) 113.16
    ,Harmonic 16 (-0.248) 66.25
    ,Harmonic 17 1.969 60.41
    ,Harmonic 18 (-2.322) 44.79
    ,Harmonic 19 (-0.206) 44.62
    ,Harmonic 20 1.866 27.61
    ,Harmonic 21 (-2.764) 14.41
    ,Harmonic 22 (-1.257) 6.37
    ,Harmonic 23 1.857 8.96
    ,Harmonic 24 (-3.063) 16.03]