Note5.hs

module Sharc.Instruments.ViolinMuted.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 261.626 48 "c4")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 8895.28 34 0.81)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 5230.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 1.439 5230.0
    ,Harmonic 2 1.99 1264.98
    ,Harmonic 3 (-1.637) 2321.19
    ,Harmonic 4 1.411 559.28
    ,Harmonic 5 1.219 1306.34
    ,Harmonic 6 1.385 318.09
    ,Harmonic 7 2.894 220.04
    ,Harmonic 8 1.522 124.0
    ,Harmonic 9 1.196 246.55
    ,Harmonic 10 (-0.646) 89.15
    ,Harmonic 11 (-2.375) 75.61
    ,Harmonic 12 1.214 76.99
    ,Harmonic 13 0.172 22.02
    ,Harmonic 14 0.527 16.82
    ,Harmonic 15 0.18 21.43
    ,Harmonic 16 0.534 25.69
    ,Harmonic 17 0.747 10.07
    ,Harmonic 18 (-1.568) 11.61
    ,Harmonic 19 0.999 10.6
    ,Harmonic 20 1.07 6.33
    ,Harmonic 21 0.38 1.71
    ,Harmonic 22 (-1.173) 5.02
    ,Harmonic 23 2.246 3.71
    ,Harmonic 24 1.906 8.44
    ,Harmonic 25 (-2.87) 2.12
    ,Harmonic 26 (-3.081) 2.81
    ,Harmonic 27 (-2.625) 3.0
    ,Harmonic 28 (-0.788) 3.69
    ,Harmonic 29 0.809 3.09
    ,Harmonic 30 (-2.125) 5.54
    ,Harmonic 31 (-0.235) 5.35
    ,Harmonic 32 0.81 4.06
    ,Harmonic 33 2.621 1.86
    ,Harmonic 34 2.558 0.81
    ,Harmonic 35 1.333 2.0
    ,Harmonic 36 7.3e-2 1.48
    ,Harmonic 37 7.0e-2 2.26
    ,Harmonic 38 1.251 2.49]