Note20.hs

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

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 261.626 48 "c4")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 9941.78 38 0.31)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 523.25 2 4954.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 2.802 841.33
    ,Harmonic 2 1.418 4954.0
    ,Harmonic 3 (-1.577) 219.22
    ,Harmonic 4 1.031 22.54
    ,Harmonic 5 (-5.2e-2) 73.7
    ,Harmonic 6 (-1.494) 472.66
    ,Harmonic 7 1.441 218.1
    ,Harmonic 8 0.864 185.14
    ,Harmonic 9 (-0.407) 155.84
    ,Harmonic 10 (-1.453) 96.16
    ,Harmonic 11 (-2.46) 18.77
    ,Harmonic 12 (-0.249) 28.21
    ,Harmonic 13 (-3.113) 85.19
    ,Harmonic 14 2.145 56.09
    ,Harmonic 15 (-0.243) 22.2
    ,Harmonic 16 1.871 9.27
    ,Harmonic 17 (-1.628) 16.56
    ,Harmonic 18 2.11 7.24
    ,Harmonic 19 2.284 0.97
    ,Harmonic 20 1.04 1.99
    ,Harmonic 21 (-2.967) 4.02
    ,Harmonic 22 (-2.491) 2.17
    ,Harmonic 23 0.954 3.01
    ,Harmonic 24 (-1.027) 1.94
    ,Harmonic 25 (-1.302) 1.09
    ,Harmonic 26 (-0.144) 0.38
    ,Harmonic 27 (-3.139) 1.38
    ,Harmonic 28 2.42 0.41
    ,Harmonic 29 2.603 0.59
    ,Harmonic 30 1.824 0.46
    ,Harmonic 31 (-1.635) 0.52
    ,Harmonic 32 2.17 0.83
    ,Harmonic 33 0.265 0.53
    ,Harmonic 34 (-1.138) 0.75
    ,Harmonic 35 (-1.097) 1.1
    ,Harmonic 36 (-1.389) 0.58
    ,Harmonic 37 2.682 0.47
    ,Harmonic 38 1.439 0.31]