Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 261.626 48 "c4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 8633.65 33 0.15)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 3177.0)
            (NoteRangeHarmonicFreq 37 9680.16)))
    [Harmonic 1 1.618 3177.0
    ,Harmonic 2 1.524 1020.0
    ,Harmonic 3 2.19 211.93
    ,Harmonic 4 (-1.67) 117.05
    ,Harmonic 5 1.401 34.72
    ,Harmonic 6 2.705 41.36
    ,Harmonic 7 (-0.887) 33.28
    ,Harmonic 8 (-2.16) 52.58
    ,Harmonic 9 (-2.626) 18.01
    ,Harmonic 10 (-3.12) 4.11
    ,Harmonic 11 (-2.666) 8.41
    ,Harmonic 12 1.48 4.19
    ,Harmonic 13 (-0.823) 4.56
    ,Harmonic 14 (-1.409) 1.89
    ,Harmonic 15 (-1.809) 3.09
    ,Harmonic 16 1.575 1.21
    ,Harmonic 17 2.866 1.42
    ,Harmonic 18 (-2.536) 0.29
    ,Harmonic 19 (-3.113) 0.54
    ,Harmonic 20 1.832 0.74
    ,Harmonic 21 (-3.141) 1.98
    ,Harmonic 22 0.795 0.33
    ,Harmonic 23 (-1.036) 1.28
    ,Harmonic 24 0.493 0.56
    ,Harmonic 25 2.75 1.07
    ,Harmonic 26 (-2.63) 0.42
    ,Harmonic 27 (-1.238) 2.09
    ,Harmonic 28 (-1.068) 2.78
    ,Harmonic 29 1.47 0.89
    ,Harmonic 30 (-3.013) 0.67
    ,Harmonic 31 (-1.68) 1.59
    ,Harmonic 32 (-1.173) 1.07
    ,Harmonic 33 1.389 0.15
    ,Harmonic 34 (-1.232) 0.92
    ,Harmonic 35 (-0.979) 0.47
    ,Harmonic 36 1.119 0.82
    ,Harmonic 37 (-3.017) 0.63]