Note16.hs

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

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 329.628 52 "e4")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 9888.84 30 1.77)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 4927.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-2.031) 4927.0
    ,Harmonic 2 (-1.41) 3582.75
    ,Harmonic 3 1.839 272.98
    ,Harmonic 4 (-0.742) 982.88
    ,Harmonic 5 (-0.452) 377.11
    ,Harmonic 6 (-0.176) 498.8
    ,Harmonic 7 0.818 430.64
    ,Harmonic 8 2.634 684.32
    ,Harmonic 9 (-2.305) 301.45
    ,Harmonic 10 (-2.778) 209.03
    ,Harmonic 11 (-1.588) 270.33
    ,Harmonic 12 2.024 314.95
    ,Harmonic 13 (-0.981) 95.31
    ,Harmonic 14 2.898 42.15
    ,Harmonic 15 1.015 145.59
    ,Harmonic 16 (-2.302) 125.76
    ,Harmonic 17 (-0.273) 158.99
    ,Harmonic 18 2.691 90.04
    ,Harmonic 19 2.031 25.11
    ,Harmonic 20 2.233 20.94
    ,Harmonic 21 2.447 44.9
    ,Harmonic 22 (-0.675) 65.45
    ,Harmonic 23 (-2.914) 7.07
    ,Harmonic 24 (-0.721) 11.31
    ,Harmonic 25 1.618 4.89
    ,Harmonic 26 (-0.282) 18.85
    ,Harmonic 27 (-0.664) 30.85
    ,Harmonic 28 (-2.005) 25.74
    ,Harmonic 29 1.117 15.62
    ,Harmonic 30 (-0.337) 1.77]