Note11.hs

module Sharc.Instruments.ViolinsEnsemble.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 369.994 54 "f#4")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 9619.84 26 7.81)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 26432.0)
            (NoteRangeHarmonicFreq 27 9989.83)))
    [Harmonic 1 1.375 26432.0
    ,Harmonic 2 (-2.68) 7676.08
    ,Harmonic 3 (-1.605) 3130.68
    ,Harmonic 4 (-0.419) 9703.07
    ,Harmonic 5 2.782 6109.77
    ,Harmonic 6 1.731 6313.64
    ,Harmonic 7 0.549 669.39
    ,Harmonic 8 0.891 1888.88
    ,Harmonic 9 0.263 3369.03
    ,Harmonic 10 1.047 863.59
    ,Harmonic 11 8.7e-2 1915.64
    ,Harmonic 12 1.546 87.12
    ,Harmonic 13 (-1.784) 373.02
    ,Harmonic 14 0.476 149.59
    ,Harmonic 15 1.583 153.73
    ,Harmonic 16 (-0.657) 94.27
    ,Harmonic 17 (-2.439) 114.81
    ,Harmonic 18 (-2.666) 70.69
    ,Harmonic 19 (-2.583) 17.47
    ,Harmonic 20 2.322 89.73
    ,Harmonic 21 (-2.537) 137.84
    ,Harmonic 22 2.12 72.86
    ,Harmonic 23 3.098 32.2
    ,Harmonic 24 1.712 16.72
    ,Harmonic 25 2.476 19.5
    ,Harmonic 26 (-2.82) 7.81
    ,Harmonic 27 (-2.451) 13.71]