Note11.hs

module Sharc.Instruments.Viola.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 246.942 47 "b3")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 9383.79 38 1.4)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 7831.0)
            (NoteRangeHarmonicFreq 41 10124.62)))
    [Harmonic 1 (-1.098) 6459.96
    ,Harmonic 2 (-3.3e-2) 7831.0
    ,Harmonic 3 (-2.743) 2405.56
    ,Harmonic 4 3.03 3284.59
    ,Harmonic 5 2.541 4562.92
    ,Harmonic 6 (-1.471) 4359.22
    ,Harmonic 7 (-1.313) 1611.04
    ,Harmonic 8 2.864 2198.42
    ,Harmonic 9 (-1.511) 2577.71
    ,Harmonic 10 1.496 273.86
    ,Harmonic 11 2.579 1141.0
    ,Harmonic 12 2.049 482.26
    ,Harmonic 13 1.876 432.4
    ,Harmonic 14 1.471 332.35
    ,Harmonic 15 0.735 72.02
    ,Harmonic 16 1.704 735.64
    ,Harmonic 17 (-1.02) 267.59
    ,Harmonic 18 (-2.385) 35.89
    ,Harmonic 19 (-4.0e-3) 138.29
    ,Harmonic 20 (-2.497) 89.98
    ,Harmonic 21 0.512 67.61
    ,Harmonic 22 0.329 47.6
    ,Harmonic 23 (-0.364) 54.8
    ,Harmonic 24 2.445 53.82
    ,Harmonic 25 0.513 79.34
    ,Harmonic 26 2.426 31.3
    ,Harmonic 27 0.967 67.46
    ,Harmonic 28 (-2.244) 42.2
    ,Harmonic 29 0.22 32.63
    ,Harmonic 30 (-2.334) 41.18
    ,Harmonic 31 (-0.111) 35.55
    ,Harmonic 32 (-0.736) 34.27
    ,Harmonic 33 2.576 35.69
    ,Harmonic 34 (-0.317) 17.55
    ,Harmonic 35 (-1.074) 7.92
    ,Harmonic 36 (-3.008) 11.29
    ,Harmonic 37 0.9 9.91
    ,Harmonic 38 (-1.425) 1.4
    ,Harmonic 39 0.14 13.53
    ,Harmonic 40 (-1.879) 8.55
    ,Harmonic 41 1.827 11.9]