Note19.hs

module Sharc.Instruments.FrenchHorn.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 220.0 45 "a3")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 5940.0 27 0.93)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 440.0 2 6043.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 2.939 2318.2
    ,Harmonic 2 2.008 6043.0
    ,Harmonic 3 0.794 4737.52
    ,Harmonic 4 (-0.222) 2826.74
    ,Harmonic 5 (-1.351) 1777.88
    ,Harmonic 6 (-2.345) 875.25
    ,Harmonic 7 3.012 684.26
    ,Harmonic 8 1.887 340.92
    ,Harmonic 9 0.676 131.64
    ,Harmonic 10 1.115 46.57
    ,Harmonic 11 0.594 32.58
    ,Harmonic 12 4.3e-2 36.6
    ,Harmonic 13 (-1.147) 23.78
    ,Harmonic 14 (-2.009) 12.58
    ,Harmonic 15 (-2.986) 10.73
    ,Harmonic 16 2.574 6.5
    ,Harmonic 17 2.234 4.16
    ,Harmonic 18 1.038 2.03
    ,Harmonic 19 0.219 2.44
    ,Harmonic 20 (-0.193) 2.48
    ,Harmonic 21 (-1.2) 1.36
    ,Harmonic 22 (-1.707) 1.52
    ,Harmonic 23 (-2.391) 2.23
    ,Harmonic 24 (-2.464) 2.16
    ,Harmonic 25 (-2.991) 2.92
    ,Harmonic 26 2.537 1.79
    ,Harmonic 27 1.998 0.93
    ,Harmonic 28 1.891 1.98
    ,Harmonic 29 1.558 1.45
    ,Harmonic 30 0.413 1.24
    ,Harmonic 31 (-0.973) 1.57
    ,Harmonic 32 (-2.208) 1.58
    ,Harmonic 33 (-2.545) 1.87
    ,Harmonic 34 (-3.083) 3.0
    ,Harmonic 35 2.447 2.54
    ,Harmonic 36 2.007 1.69
    ,Harmonic 37 1.999 2.17
    ,Harmonic 38 1.294 2.19
    ,Harmonic 39 0.455 2.14
    ,Harmonic 40 (-0.249) 1.97
    ,Harmonic 41 (-1.071) 1.71
    ,Harmonic 42 (-1.816) 1.7
    ,Harmonic 43 (-2.664) 1.63
    ,Harmonic 44 3.076 1.18
    ,Harmonic 45 2.264 1.81]