Note20.hs

module Sharc.Instruments.Trombone.Note20 (note20) where

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 261.626 48 "c4")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 6017.39 23 0.37)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 784.87 3 5142.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 2.583 3112.97
    ,Harmonic 2 1.735 5036.13
    ,Harmonic 3 0.58 5142.0
    ,Harmonic 4 (-0.876) 3250.13
    ,Harmonic 5 (-2.445) 2458.23
    ,Harmonic 6 2.29 1212.01
    ,Harmonic 7 1.397 522.2
    ,Harmonic 8 0.312 381.88
    ,Harmonic 9 (-0.834) 223.2
    ,Harmonic 10 (-2.116) 127.12
    ,Harmonic 11 2.917 69.74
    ,Harmonic 12 1.914 39.55
    ,Harmonic 13 1.046 25.51
    ,Harmonic 14 0.179 10.59
    ,Harmonic 15 (-1.36) 5.49
    ,Harmonic 16 (-2.952) 3.38
    ,Harmonic 17 2.602 1.29
    ,Harmonic 18 (-1.81) 2.52
    ,Harmonic 19 (-2.339) 6.26
    ,Harmonic 20 (-2.702) 8.3
    ,Harmonic 21 (-3.04) 6.58
    ,Harmonic 22 2.837 2.73
    ,Harmonic 23 1.004 0.37
    ,Harmonic 24 (-1.435) 1.99
    ,Harmonic 25 (-1.562) 2.23
    ,Harmonic 26 (-1.867) 3.29
    ,Harmonic 27 (-2.312) 3.59
    ,Harmonic 28 (-2.283) 4.6
    ,Harmonic 29 (-2.887) 4.84
    ,Harmonic 30 2.812 3.72
    ,Harmonic 31 2.307 5.42
    ,Harmonic 32 4.5e-2 2.91
    ,Harmonic 33 (-1.611) 0.98
    ,Harmonic 34 1.427 1.66
    ,Harmonic 35 0.252 3.45
    ,Harmonic 36 (-0.498) 2.57
    ,Harmonic 37 (-1.652) 1.68
    ,Harmonic 38 (-2.85) 2.61]