Note20.hs

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

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 233.082 46 "a#3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 38 0.73)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 1165.4 5 6418.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 1.658 2376.89
    ,Harmonic 2 (-0.77) 4546.15
    ,Harmonic 3 (-2.536) 3351.87
    ,Harmonic 4 2.868 4885.26
    ,Harmonic 5 (-0.485) 6418.0
    ,Harmonic 6 (-3.075) 5735.0
    ,Harmonic 7 0.501 3609.16
    ,Harmonic 8 (-1.169) 2811.67
    ,Harmonic 9 2.611 2408.85
    ,Harmonic 10 0.242 1850.35
    ,Harmonic 11 (-1.957) 869.25
    ,Harmonic 12 2.134 232.15
    ,Harmonic 13 0.234 465.47
    ,Harmonic 14 (-2.093) 341.14
    ,Harmonic 15 2.511 159.62
    ,Harmonic 16 1.214 115.34
    ,Harmonic 17 (-1.363) 204.15
    ,Harmonic 18 2.582 148.19
    ,Harmonic 19 0.251 123.34
    ,Harmonic 20 (-1.439) 73.1
    ,Harmonic 21 2.377 67.79
    ,Harmonic 22 0.375 65.67
    ,Harmonic 23 (-2.143) 46.79
    ,Harmonic 24 2.608 40.07
    ,Harmonic 25 (-2.0e-2) 27.25
    ,Harmonic 26 (-2.347) 19.12
    ,Harmonic 27 2.033 13.06
    ,Harmonic 28 (-0.337) 11.28
    ,Harmonic 29 (-1.977) 4.69
    ,Harmonic 30 1.527 5.08
    ,Harmonic 31 (-2.7e-2) 4.45
    ,Harmonic 32 (-1.611) 2.54
    ,Harmonic 33 2.532 1.48
    ,Harmonic 34 0.887 3.04
    ,Harmonic 35 (-0.943) 1.71
    ,Harmonic 36 1.175 0.75
    ,Harmonic 37 (-0.313) 0.94
    ,Harmonic 38 (-1.972) 0.73
    ,Harmonic 39 1.728 1.48
    ,Harmonic 40 (-0.537) 0.77
    ,Harmonic 41 (-0.256) 1.35
    ,Harmonic 42 (-0.437) 1.11]