Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 391.995 55 "g4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.88 24 7.16)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 2351.97 6 3392.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 2.76 3314.62
    ,Harmonic 2 (-1.422) 3148.08
    ,Harmonic 3 0.212 691.68
    ,Harmonic 4 2.087 1502.82
    ,Harmonic 5 (-3.4e-2) 2371.46
    ,Harmonic 6 1.2 3392.0
    ,Harmonic 7 1.775 1137.76
    ,Harmonic 8 0.702 1909.0
    ,Harmonic 9 2.631 1189.75
    ,Harmonic 10 (-3.11) 234.23
    ,Harmonic 11 0.869 88.19
    ,Harmonic 12 1.632 164.42
    ,Harmonic 13 0.987 40.51
    ,Harmonic 14 (-1.167) 16.51
    ,Harmonic 15 (-0.273) 57.91
    ,Harmonic 16 (-1.337) 109.27
    ,Harmonic 17 (-0.159) 30.81
    ,Harmonic 18 (-2.348) 64.93
    ,Harmonic 19 2.328 20.23
    ,Harmonic 20 (-3.074) 58.48
    ,Harmonic 21 0.525 12.16
    ,Harmonic 22 (-0.928) 20.12
    ,Harmonic 23 (-1.334) 19.95
    ,Harmonic 24 (-1.395) 7.16
    ,Harmonic 25 (-0.856) 8.55]