Note24.hs

module Sharc.Instruments.TromboneMuted.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 329.628 52 "e4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 6592.56 20 0.35)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 659.25 2 3001.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-1.694) 1613.97
    ,Harmonic 2 (-1.918) 3001.0
    ,Harmonic 3 (-0.163) 244.88
    ,Harmonic 4 (-0.584) 83.22
    ,Harmonic 5 (-1.742) 1994.53
    ,Harmonic 6 0.435 516.86
    ,Harmonic 7 0.65 260.85
    ,Harmonic 8 1.329 131.61
    ,Harmonic 9 3.108 6.95
    ,Harmonic 10 (-0.238) 45.26
    ,Harmonic 11 (-0.213) 8.62
    ,Harmonic 12 (-0.761) 9.14
    ,Harmonic 13 0.925 10.79
    ,Harmonic 14 0.403 2.04
    ,Harmonic 15 (-2.929) 3.06
    ,Harmonic 16 0.237 2.72
    ,Harmonic 17 0.224 4.83
    ,Harmonic 18 1.88 3.29
    ,Harmonic 19 (-1.574) 1.46
    ,Harmonic 20 2.961 0.35
    ,Harmonic 21 0.427 2.36
    ,Harmonic 22 1.307 2.22
    ,Harmonic 23 2.948 1.58
    ,Harmonic 24 0.137 0.87
    ,Harmonic 25 (-1.047) 3.92
    ,Harmonic 26 2.058 0.88
    ,Harmonic 27 0.279 0.81
    ,Harmonic 28 0.219 1.18
    ,Harmonic 29 2.803 1.79
    ,Harmonic 30 (-2.611) 0.4]