Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 277.183 49 "c#4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9978.58 36 0.55)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 554.36 2 7752.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 0.634 5903.33
    ,Harmonic 2 1.664 7752.0
    ,Harmonic 3 (-0.504) 1237.75
    ,Harmonic 4 2.583 3513.76
    ,Harmonic 5 2.391 429.43
    ,Harmonic 6 (-0.139) 643.66
    ,Harmonic 7 (-2.356) 1103.68
    ,Harmonic 8 1.165 433.68
    ,Harmonic 9 1.174 266.11
    ,Harmonic 10 1.274 464.2
    ,Harmonic 11 (-2.267) 88.8
    ,Harmonic 12 (-1.194) 312.32
    ,Harmonic 13 (-1.796) 84.07
    ,Harmonic 14 0.853 10.43
    ,Harmonic 15 (-2.97) 8.3
    ,Harmonic 16 (-1.789) 24.85
    ,Harmonic 17 (-2.187) 17.62
    ,Harmonic 18 0.635 16.44
    ,Harmonic 19 2.0e-2 11.41
    ,Harmonic 20 (-0.583) 3.2
    ,Harmonic 21 1.816 5.08
    ,Harmonic 22 (-1.072) 8.47
    ,Harmonic 23 (-2.752) 3.89
    ,Harmonic 24 (-1.17) 1.85
    ,Harmonic 25 (-2.4) 12.0
    ,Harmonic 26 (-1.971) 3.02
    ,Harmonic 27 1.457 4.81
    ,Harmonic 28 2.53 5.08
    ,Harmonic 29 (-5.0e-2) 8.02
    ,Harmonic 30 (-0.624) 8.86
    ,Harmonic 31 1.698 3.88
    ,Harmonic 32 (-2.742) 1.79
    ,Harmonic 33 0.558 1.82
    ,Harmonic 34 0.276 0.58
    ,Harmonic 35 (-3.086) 2.08
    ,Harmonic 36 (-1.715) 0.55]