Note17.hs

module Sharc.Instruments.ViolinsEnsemble.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 523.251 60 "c5")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9941.76 19 33.65)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 523.25 1 25823.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 (-1.633) 25823.0
    ,Harmonic 2 1.728 1261.33
    ,Harmonic 3 (-2.49) 1507.27
    ,Harmonic 4 2.771 3191.32
    ,Harmonic 5 (-1.278) 1512.55
    ,Harmonic 6 (-1.593) 3502.56
    ,Harmonic 7 1.607 798.17
    ,Harmonic 8 1.142 1152.05
    ,Harmonic 9 (-1.475) 207.71
    ,Harmonic 10 (-1.409) 653.81
    ,Harmonic 11 1.539 166.53
    ,Harmonic 12 (-0.522) 52.78
    ,Harmonic 13 (-2.309) 461.12
    ,Harmonic 14 (-0.538) 73.37
    ,Harmonic 15 0.945 96.99
    ,Harmonic 16 2.165 95.13
    ,Harmonic 17 (-0.567) 103.74
    ,Harmonic 18 (-2.985) 59.4
    ,Harmonic 19 1.247 33.65]