Note25.hs

module Sharc.Instruments.ViolaMuted.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 554.365 61 "c#5")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 8869.84 16 28.36)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 2217.46 4 2334.0)
            (NoteRangeHarmonicFreq 17 9424.2)))
    [Harmonic 1 (-0.766) 2288.26
    ,Harmonic 2 2.111 1659.16
    ,Harmonic 3 (-2.604) 1813.81
    ,Harmonic 4 (-1.752) 2334.0
    ,Harmonic 5 (-2.938) 370.28
    ,Harmonic 6 (-2.611) 486.38
    ,Harmonic 7 1.965 1017.73
    ,Harmonic 8 (-0.889) 1023.98
    ,Harmonic 9 0.924 332.35
    ,Harmonic 10 (-1.933) 292.44
    ,Harmonic 11 (-0.313) 230.23
    ,Harmonic 12 (-0.753) 210.97
    ,Harmonic 13 (-1.299) 274.3
    ,Harmonic 14 1.467 418.87
    ,Harmonic 15 (-3.105) 113.67
    ,Harmonic 16 2.517 28.36
    ,Harmonic 17 3.086 195.62]