Note10.hs

module Sharc.Instruments.Viola.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 233.082 46 "a#3")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 38 1.77)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 15064.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 (-1.72) 15064.0
    ,Harmonic 2 (-1.697) 12962.84
    ,Harmonic 3 0.138 1493.03
    ,Harmonic 4 (-1.125) 1242.65
    ,Harmonic 5 (-3.138) 2215.9
    ,Harmonic 6 (-2.179) 4530.49
    ,Harmonic 7 0.176 3934.23
    ,Harmonic 8 (-2.1) 3321.89
    ,Harmonic 9 0.913 1790.0
    ,Harmonic 10 1.695 211.64
    ,Harmonic 11 3.098 422.0
    ,Harmonic 12 (-1.878) 1223.09
    ,Harmonic 13 1.182 568.0
    ,Harmonic 14 7.0e-3 369.81
    ,Harmonic 15 (-2.719) 568.37
    ,Harmonic 16 (-1.545) 654.24
    ,Harmonic 17 (-1.014) 176.28
    ,Harmonic 18 (-0.481) 225.2
    ,Harmonic 19 (-2.813) 86.54
    ,Harmonic 20 2.375 54.56
    ,Harmonic 21 (-2.336) 60.06
    ,Harmonic 22 (-8.4e-2) 241.36
    ,Harmonic 23 2.346 79.96
    ,Harmonic 24 (-1.732) 124.84
    ,Harmonic 25 (-1.628) 106.1
    ,Harmonic 26 6.9e-2 86.04
    ,Harmonic 27 2.781 26.52
    ,Harmonic 28 (-2.044) 4.35
    ,Harmonic 29 (-0.779) 39.12
    ,Harmonic 30 2.438 16.66
    ,Harmonic 31 (-0.913) 72.25
    ,Harmonic 32 2.894 5.28
    ,Harmonic 33 (-0.194) 73.23
    ,Harmonic 34 1.798 49.6
    ,Harmonic 35 (-1.486) 5.85
    ,Harmonic 36 0.208 12.53
    ,Harmonic 37 1.193 10.71
    ,Harmonic 38 (-0.856) 1.77
    ,Harmonic 39 (-3.074) 7.25
    ,Harmonic 40 0.335 13.43
    ,Harmonic 41 1.714 13.2
    ,Harmonic 42 (-1.742) 12.93
    ,Harmonic 43 0.868 6.53]