Note15.hs

module Sharc.Instruments.ViolaMuted.Note15 (note15) where

import Sharc.Types

note15 :: Note
note15 = Note
    (Pitch 311.127 51 "d#4")
    16
    (Range
        (NoteRange
            (NoteRangeAmplitude 9022.68 29 4.59)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 4086.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-1.833) 4086.0
    ,Harmonic 2 0.126 2770.0
    ,Harmonic 3 (-2.333) 733.04
    ,Harmonic 4 2.483 1456.91
    ,Harmonic 5 (-2.314) 51.9
    ,Harmonic 6 (-2.625) 244.49
    ,Harmonic 7 (-1.341) 965.59
    ,Harmonic 8 0.809 595.12
    ,Harmonic 9 (-2.488) 152.71
    ,Harmonic 10 (-1.946) 396.97
    ,Harmonic 11 (-2.692) 364.14
    ,Harmonic 12 (-2.918) 33.57
    ,Harmonic 13 1.838 351.72
    ,Harmonic 14 0.886 80.65
    ,Harmonic 15 (-1.731) 79.87
    ,Harmonic 16 1.823 75.2
    ,Harmonic 17 (-1.806) 47.36
    ,Harmonic 18 (-2.069) 75.53
    ,Harmonic 19 (-2.466) 68.94
    ,Harmonic 20 2.006 20.02
    ,Harmonic 21 (-0.922) 28.08
    ,Harmonic 22 0.21 10.85
    ,Harmonic 23 (-1.672) 18.83
    ,Harmonic 24 (-1.295) 75.36
    ,Harmonic 25 1.183 13.06
    ,Harmonic 26 (-0.379) 17.5
    ,Harmonic 27 2.779 26.14
    ,Harmonic 28 1.763 23.34
    ,Harmonic 29 1.798 4.59
    ,Harmonic 30 (-0.488) 9.26
    ,Harmonic 31 0.155 21.03
    ,Harmonic 32 (-2.02) 15.3]