Note30.hs

module Sharc.Instruments.TromboneMuted.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 466.164 58 "a#4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 7924.78 17 0.34)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 466.16 1 4517.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 (-1.623) 4517.0
    ,Harmonic 2 (-2.995) 1187.57
    ,Harmonic 3 (-1.8e-2) 1085.25
    ,Harmonic 4 (-0.978) 289.15
    ,Harmonic 5 (-0.508) 232.87
    ,Harmonic 6 (-1.78) 72.11
    ,Harmonic 7 2.887 72.01
    ,Harmonic 8 2.108 54.81
    ,Harmonic 9 2.134 37.4
    ,Harmonic 10 0.403 20.14
    ,Harmonic 11 (-1.837) 26.63
    ,Harmonic 12 (-1.507) 37.43
    ,Harmonic 13 (-1.331) 6.94
    ,Harmonic 14 (-0.162) 1.83
    ,Harmonic 15 2.331 1.71
    ,Harmonic 16 2.425 2.2
    ,Harmonic 17 1.726 0.34
    ,Harmonic 18 (-0.168) 1.23
    ,Harmonic 19 1.426 1.12
    ,Harmonic 20 2.606 2.15
    ,Harmonic 21 (-0.641) 0.87]