Note14.hs

module Sharc.Instruments.Viola.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 293.665 50 "d4")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 9690.94 33 34.15)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 10821.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 2.574 10821.0
    ,Harmonic 2 1.88 4804.88
    ,Harmonic 3 0.134 1267.58
    ,Harmonic 4 (-2.87) 4013.97
    ,Harmonic 5 (-0.864) 9345.71
    ,Harmonic 6 (-0.936) 2702.97
    ,Harmonic 7 (-1.411) 7831.49
    ,Harmonic 8 (-1.893) 1602.29
    ,Harmonic 9 (-1.436) 3950.3
    ,Harmonic 10 2.72 1084.73
    ,Harmonic 11 (-1.471) 3043.56
    ,Harmonic 12 1.422 1978.05
    ,Harmonic 13 0.739 1129.55
    ,Harmonic 14 1.89 364.76
    ,Harmonic 15 (-1.321) 325.05
    ,Harmonic 16 (-3.084) 349.39
    ,Harmonic 17 2.667 124.81
    ,Harmonic 18 (-0.634) 126.91
    ,Harmonic 19 (-0.151) 118.67
    ,Harmonic 20 1.883 238.95
    ,Harmonic 21 1.172 276.89
    ,Harmonic 22 (-0.465) 56.24
    ,Harmonic 23 (-1.336) 51.5
    ,Harmonic 24 (-0.7) 60.27
    ,Harmonic 25 3.131 67.57
    ,Harmonic 26 2.36 78.05
    ,Harmonic 27 (-1.035) 79.9
    ,Harmonic 28 0.461 35.66
    ,Harmonic 29 1.261 41.59
    ,Harmonic 30 (-2.182) 37.44
    ,Harmonic 31 1.816 39.83
    ,Harmonic 32 (-1.923) 66.6
    ,Harmonic 33 0.394 34.15
    ,Harmonic 34 (-2.028) 55.28]