Note7.hs

module Sharc.Instruments.EnglishHorn.Note7 (note7) where

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 246.942 47 "b3")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 7902.14 32 0.91)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 987.76 4 5330.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 0.994 2809.31
    ,Harmonic 2 2.487 3104.42
    ,Harmonic 3 (-0.19) 3635.4
    ,Harmonic 4 2.582 5330.0
    ,Harmonic 5 8.2e-2 4017.38
    ,Harmonic 6 1.441 199.24
    ,Harmonic 7 2.359 1126.03
    ,Harmonic 8 (-1.542) 109.31
    ,Harmonic 9 (-0.306) 218.23
    ,Harmonic 10 1.694 616.49
    ,Harmonic 11 (-1.545) 183.48
    ,Harmonic 12 2.11 288.5
    ,Harmonic 13 1.629 145.37
    ,Harmonic 14 (-1.997) 113.09
    ,Harmonic 15 0.251 283.87
    ,Harmonic 16 (-0.176) 207.01
    ,Harmonic 17 2.082 186.86
    ,Harmonic 18 (-2.136) 6.89
    ,Harmonic 19 (-1.287) 54.55
    ,Harmonic 20 (-0.363) 19.89
    ,Harmonic 21 2.578 5.3
    ,Harmonic 22 0.515 37.4
    ,Harmonic 23 6.8e-2 21.87
    ,Harmonic 24 2.477 27.13
    ,Harmonic 25 (-0.982) 9.62
    ,Harmonic 26 (-3.009) 18.19
    ,Harmonic 27 1.444 11.49
    ,Harmonic 28 0.32 2.18
    ,Harmonic 29 1.154 12.27
    ,Harmonic 30 (-1.576) 6.6
    ,Harmonic 31 2.743 8.82
    ,Harmonic 32 0.75 0.91
    ,Harmonic 33 (-1.252) 5.46
    ,Harmonic 34 2.475 7.89
    ,Harmonic 35 7.9e-2 7.52
    ,Harmonic 36 (-2.08) 9.8
    ,Harmonic 37 1.717 6.54
    ,Harmonic 38 (-1.168) 9.18
    ,Harmonic 39 2.51 5.49
    ,Harmonic 40 (-0.809) 4.65]