Note17.hs

module Sharc.Instruments.FrenchHorn.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 195.998 43 "g3")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.9 48 0.16)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 5233.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 2.721 1862.27
    ,Harmonic 2 1.806 5233.0
    ,Harmonic 3 0.11 4153.21
    ,Harmonic 4 (-1.288) 2522.43
    ,Harmonic 5 (-2.573) 1659.27
    ,Harmonic 6 2.299 1036.81
    ,Harmonic 7 1.3 592.88
    ,Harmonic 8 4.5e-2 369.48
    ,Harmonic 9 (-1.38) 168.17
    ,Harmonic 10 (-2.488) 53.23
    ,Harmonic 11 (-2.295) 17.1
    ,Harmonic 12 2.65 16.25
    ,Harmonic 13 2.334 10.78
    ,Harmonic 14 1.513 9.74
    ,Harmonic 15 0.411 5.97
    ,Harmonic 16 (-0.783) 3.6
    ,Harmonic 17 (-1.843) 3.4
    ,Harmonic 18 (-3.077) 4.86
    ,Harmonic 19 3.067 3.79
    ,Harmonic 20 1.934 3.66
    ,Harmonic 21 0.298 1.22
    ,Harmonic 22 (-0.992) 2.2
    ,Harmonic 23 (-1.983) 2.15
    ,Harmonic 24 (-2.983) 2.05
    ,Harmonic 25 (-2.733) 0.5
    ,Harmonic 26 2.456 0.19
    ,Harmonic 27 (-2.206) 0.95
    ,Harmonic 28 3.135 0.68
    ,Harmonic 29 2.434 0.65
    ,Harmonic 30 0.855 0.27
    ,Harmonic 31 0.178 1.12
    ,Harmonic 32 (-0.745) 1.12
    ,Harmonic 33 (-1.388) 1.23
    ,Harmonic 34 (-1.012) 0.52
    ,Harmonic 35 (-1.806) 0.38
    ,Harmonic 36 (-2.007) 0.73
    ,Harmonic 37 (-2.509) 0.63
    ,Harmonic 38 (-2.656) 0.66
    ,Harmonic 39 (-2.243) 0.38
    ,Harmonic 40 2.182 0.31
    ,Harmonic 41 (-1.558) 0.7
    ,Harmonic 42 (-2.093) 0.45
    ,Harmonic 43 (-3.07) 0.16
    ,Harmonic 44 (-2.92) 0.55
    ,Harmonic 45 3.076 0.66
    ,Harmonic 46 2.025 0.49
    ,Harmonic 47 (-1.212) 0.27
    ,Harmonic 48 (-2.574) 0.16
    ,Harmonic 49 0.701 0.26
    ,Harmonic 50 (-1.178) 0.36
    ,Harmonic 51 (-1.766) 0.41]