Note17.hs

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

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 349.228 53 "f4")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 8730.7 25 10.47)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 9001.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 (-0.76) 9001.0
    ,Harmonic 2 3.107 1108.5
    ,Harmonic 3 1.21 2633.15
    ,Harmonic 4 2.187 3968.97
    ,Harmonic 5 0.53 1287.12
    ,Harmonic 6 2.293 3185.73
    ,Harmonic 7 3.034 576.2
    ,Harmonic 8 0.954 1985.66
    ,Harmonic 9 (-1.948) 732.58
    ,Harmonic 10 (-2.871) 511.76
    ,Harmonic 11 (-1.803) 642.03
    ,Harmonic 12 (-1.061) 193.68
    ,Harmonic 13 2.58 124.51
    ,Harmonic 14 1.172 191.53
    ,Harmonic 15 (-0.65) 85.22
    ,Harmonic 16 (-2.275) 289.82
    ,Harmonic 17 (-2.944) 132.67
    ,Harmonic 18 1.906 106.65
    ,Harmonic 19 (-1.234) 102.74
    ,Harmonic 20 1.384 38.72
    ,Harmonic 21 (-2.974) 33.25
    ,Harmonic 22 2.513 41.59
    ,Harmonic 23 1.054 35.67
    ,Harmonic 24 (-2.215) 37.29
    ,Harmonic 25 0.827 10.47
    ,Harmonic 26 0.462 61.63
    ,Harmonic 27 0.139 43.86
    ,Harmonic 28 (-8.3e-2) 21.85]