Note4.hs

module Sharc.Instruments.EnglishHorn.Note4 (note4) where

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 207.652 44 "g#3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 7683.12 37 0.4)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 830.6 4 4877.0)
            (NoteRangeHarmonicFreq 47 9759.64)))
    [Harmonic 1 (-1.214) 1613.14
    ,Harmonic 2 (-1.627) 2233.23
    ,Harmonic 3 (-1.832) 2983.69
    ,Harmonic 4 (-1.797) 4877.0
    ,Harmonic 5 0.958 4379.49
    ,Harmonic 6 (-2.476) 604.07
    ,Harmonic 7 (-2.404) 186.11
    ,Harmonic 8 (-3.023) 85.86
    ,Harmonic 9 2.754 444.82
    ,Harmonic 10 2.83 199.68
    ,Harmonic 11 (-2.661) 132.66
    ,Harmonic 12 (-2.76) 168.91
    ,Harmonic 13 (-2.498) 156.98
    ,Harmonic 14 (-2.308) 61.13
    ,Harmonic 15 0.268 112.65
    ,Harmonic 16 3.4e-2 135.26
    ,Harmonic 17 (-1.741) 98.61
    ,Harmonic 18 (-2.29) 95.4
    ,Harmonic 19 (-2.061) 85.32
    ,Harmonic 20 (-2.217) 19.36
    ,Harmonic 21 2.311 23.31
    ,Harmonic 22 3.046 51.57
    ,Harmonic 23 2.454 5.77
    ,Harmonic 24 (-2.208) 6.98
    ,Harmonic 25 0.743 7.04
    ,Harmonic 26 2.137 2.41
    ,Harmonic 27 (-1.734) 8.93
    ,Harmonic 28 (-0.16) 15.43
    ,Harmonic 29 2.556 1.0
    ,Harmonic 30 3.139 12.15
    ,Harmonic 31 (-0.604) 9.07
    ,Harmonic 32 1.25 14.06
    ,Harmonic 33 (-3.063) 4.75
    ,Harmonic 34 (-1.074) 2.29
    ,Harmonic 35 0.295 2.99
    ,Harmonic 36 1.353 4.1
    ,Harmonic 37 2.586 0.4
    ,Harmonic 38 (-0.331) 4.14
    ,Harmonic 39 1.391 2.04
    ,Harmonic 40 (-3.11) 2.13
    ,Harmonic 41 (-0.622) 10.82
    ,Harmonic 42 0.559 7.34
    ,Harmonic 43 2.528 3.68
    ,Harmonic 44 (-1.071) 4.48
    ,Harmonic 45 0.278 11.38
    ,Harmonic 46 0.957 2.81
    ,Harmonic 47 (-2.654) 3.99]