Note2.hs

module Sharc.Instruments.EnglishHorn.Note2 (note2) where

import Sharc.Types

note2 :: Note
note2 = Note
    (Pitch 184.997 42 "f#3")
    3
    (Range
        (NoteRange
            (NoteRangeAmplitude 9619.84 52 1.4)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 924.98 5 5654.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 0.495 1280.91
    ,Harmonic 2 1.929 949.98
    ,Harmonic 3 (-1.532) 1373.14
    ,Harmonic 4 0.951 1599.81
    ,Harmonic 5 1.681 5654.0
    ,Harmonic 6 1.22 1760.84
    ,Harmonic 7 0.103 64.15
    ,Harmonic 8 1.779 184.43
    ,Harmonic 9 (-1.243) 289.36
    ,Harmonic 10 0.387 315.91
    ,Harmonic 11 2.161 114.46
    ,Harmonic 12 (-2.476) 16.3
    ,Harmonic 13 2.009 3.94
    ,Harmonic 14 (-0.973) 49.07
    ,Harmonic 15 1.971 39.78
    ,Harmonic 16 (-0.648) 34.61
    ,Harmonic 17 1.58 56.39
    ,Harmonic 18 (-2.53) 54.4
    ,Harmonic 19 (-0.185) 40.71
    ,Harmonic 20 1.398 2.58
    ,Harmonic 21 (-2.933) 11.36
    ,Harmonic 22 (-0.82) 13.02
    ,Harmonic 23 1.178 15.58
    ,Harmonic 24 (-3.031) 8.36
    ,Harmonic 25 1.387 11.4
    ,Harmonic 26 (-1.316) 7.93
    ,Harmonic 27 (-0.995) 3.06
    ,Harmonic 28 0.453 13.24
    ,Harmonic 29 (-3.12) 7.46
    ,Harmonic 30 1.45 8.36
    ,Harmonic 31 0.641 33.26
    ,Harmonic 32 2.211 7.76
    ,Harmonic 33 1.912 6.04
    ,Harmonic 34 (-1.483) 2.84
    ,Harmonic 35 2.051 3.72
    ,Harmonic 36 0.829 1.6
    ,Harmonic 37 (-1.832) 4.27
    ,Harmonic 38 2.077 6.47
    ,Harmonic 39 (-1.644) 3.95
    ,Harmonic 40 (-1.389) 5.88
    ,Harmonic 41 2.25 3.38
    ,Harmonic 42 1.343 5.26
    ,Harmonic 43 (-1.216) 4.84
    ,Harmonic 44 3.013 4.97
    ,Harmonic 45 1.368 4.33
    ,Harmonic 46 (-1.88) 6.18
    ,Harmonic 47 2.641 3.03
    ,Harmonic 48 0.952 1.72
    ,Harmonic 49 (-2.451) 4.45
    ,Harmonic 50 2.212 2.45
    ,Harmonic 51 (-1.385) 2.16
    ,Harmonic 52 (-2.0) 1.4
    ,Harmonic 53 1.743 4.53
    ,Harmonic 54 (-0.5) 3.55]