Note16.hs

module Sharc.Instruments.Viola.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 329.628 52 "e4")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 8899.95 27 19.31)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 7162.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-2.05) 7162.0
    ,Harmonic 2 (-0.209) 2500.43
    ,Harmonic 3 (-1.619) 1935.05
    ,Harmonic 4 (-2.366) 6058.87
    ,Harmonic 5 (-0.66) 3178.81
    ,Harmonic 6 1.627 2100.45
    ,Harmonic 7 2.314 2368.58
    ,Harmonic 8 (-1.668) 1808.14
    ,Harmonic 9 (-2.395) 854.49
    ,Harmonic 10 (-0.277) 348.2
    ,Harmonic 11 (-1.573) 1206.81
    ,Harmonic 12 (-1.127) 1271.52
    ,Harmonic 13 (-2.64) 423.32
    ,Harmonic 14 9.4e-2 425.97
    ,Harmonic 15 (-1.896) 27.31
    ,Harmonic 16 (-0.195) 221.32
    ,Harmonic 17 (-2.246) 515.39
    ,Harmonic 18 0.333 195.46
    ,Harmonic 19 2.627 128.13
    ,Harmonic 20 (-0.354) 130.72
    ,Harmonic 21 (-2.616) 113.99
    ,Harmonic 22 3.059 51.09
    ,Harmonic 23 (-2.336) 86.23
    ,Harmonic 24 1.601 141.64
    ,Harmonic 25 (-0.649) 51.95
    ,Harmonic 26 1.258 57.75
    ,Harmonic 27 (-2.891) 19.31
    ,Harmonic 28 (-2.647) 22.58
    ,Harmonic 29 1.842 148.45
    ,Harmonic 30 (-0.669) 39.78]