Note12.hs

module Sharc.Instruments.Viola.Note12 (note12) where

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 261.626 48 "c4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9680.16 37 8.29)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 8531.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 1.849 8531.0
    ,Harmonic 2 2.0 3012.87
    ,Harmonic 3 0.367 1271.51
    ,Harmonic 4 1.789 2745.79
    ,Harmonic 5 (-0.51) 3151.96
    ,Harmonic 6 1.135 1352.91
    ,Harmonic 7 (-0.506) 1502.43
    ,Harmonic 8 1.14 2921.29
    ,Harmonic 9 1.047 1124.29
    ,Harmonic 10 2.202 877.91
    ,Harmonic 11 0.174 690.14
    ,Harmonic 12 2.709 419.18
    ,Harmonic 13 1.354 182.35
    ,Harmonic 14 (-1.282) 123.15
    ,Harmonic 15 (-2.103) 252.51
    ,Harmonic 16 0.323 61.42
    ,Harmonic 17 (-1.764) 31.5
    ,Harmonic 18 2.673 103.55
    ,Harmonic 19 (-1.63) 34.69
    ,Harmonic 20 (-2.817) 37.4
    ,Harmonic 21 0.151 113.61
    ,Harmonic 22 1.302 35.3
    ,Harmonic 23 (-1.849) 10.51
    ,Harmonic 24 (-3.118) 29.38
    ,Harmonic 25 (-1.976) 82.57
    ,Harmonic 26 0.373 40.73
    ,Harmonic 27 1.839 21.6
    ,Harmonic 28 2.97 10.48
    ,Harmonic 29 (-1.094) 31.83
    ,Harmonic 30 0.83 40.33
    ,Harmonic 31 2.494 24.35
    ,Harmonic 32 1.974 9.01
    ,Harmonic 33 (-1.592) 18.85
    ,Harmonic 34 (-0.232) 17.17
    ,Harmonic 35 1.346 11.24
    ,Harmonic 36 (-2.491) 19.7
    ,Harmonic 37 1.197 8.29
    ,Harmonic 38 2.661 15.7]