Note27.hs

module Sharc.Instruments.FrenchHornMuted.Note27 (note27) where

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 349.228 53 "f4")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 9778.38 28 1.47)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 1047.68 3 6103.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 (-1.611) 3637.54
    ,Harmonic 2 (-0.249) 4274.48
    ,Harmonic 3 1.31 6103.0
    ,Harmonic 4 1.662 4740.1
    ,Harmonic 5 2.523 2075.61
    ,Harmonic 6 (-2.961) 1600.52
    ,Harmonic 7 (-2.419) 891.66
    ,Harmonic 8 (-1.148) 198.44
    ,Harmonic 9 0.367 265.27
    ,Harmonic 10 1.404 80.85
    ,Harmonic 11 2.944 69.57
    ,Harmonic 12 (-2.142) 36.8
    ,Harmonic 13 (-0.664) 15.51
    ,Harmonic 14 0.263 35.21
    ,Harmonic 15 0.653 37.72
    ,Harmonic 16 2.1 21.15
    ,Harmonic 17 2.452 24.81
    ,Harmonic 18 (-2.506) 14.01
    ,Harmonic 19 (-1.736) 4.4
    ,Harmonic 20 1.006 3.49
    ,Harmonic 21 2.304 6.76
    ,Harmonic 22 (-2.957) 5.91
    ,Harmonic 23 (-2.312) 2.54
    ,Harmonic 24 (-0.487) 3.05
    ,Harmonic 25 1.531 5.17
    ,Harmonic 26 2.371 6.29
    ,Harmonic 27 (-2.737) 1.71
    ,Harmonic 28 2.469 1.47]