Note8.hs

module Sharc.Instruments.TrumpetBach.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 391.995 55 "g4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 9015.88 23 1.59)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 2 3563.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-0.593) 2573.85
    ,Harmonic 2 (-2.233) 3563.0
    ,Harmonic 3 2.341 3439.9
    ,Harmonic 4 0.764 2796.58
    ,Harmonic 5 (-0.692) 2766.48
    ,Harmonic 6 (-2.591) 2184.95
    ,Harmonic 7 1.505 1390.41
    ,Harmonic 8 (-0.867) 1368.16
    ,Harmonic 9 (-2.464) 745.54
    ,Harmonic 10 2.109 319.58
    ,Harmonic 11 1.028 84.09
    ,Harmonic 12 (-0.603) 64.37
    ,Harmonic 13 (-2.911) 56.45
    ,Harmonic 14 1.682 81.74
    ,Harmonic 15 7.4e-2 73.56
    ,Harmonic 16 (-1.714) 62.31
    ,Harmonic 17 2.338 31.28
    ,Harmonic 18 (-0.585) 15.52
    ,Harmonic 19 (-2.635) 18.88
    ,Harmonic 20 1.8 30.42
    ,Harmonic 21 0.364 21.01
    ,Harmonic 22 (-0.729) 11.13
    ,Harmonic 23 2.867 1.59
    ,Harmonic 24 (-0.875) 4.41
    ,Harmonic 25 (-1.626) 9.16]