Note25.hs

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

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 554.365 61 "c#5")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.2 17 13.77)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 1663.09 3 3873.0)
            (NoteRangeHarmonicFreq 18 9978.57)))
    [Harmonic 1 1.988 914.19
    ,Harmonic 2 (-2.412) 1805.84
    ,Harmonic 3 (-1.24) 3873.0
    ,Harmonic 4 (-2.407) 1980.98
    ,Harmonic 5 (-2.193) 2383.19
    ,Harmonic 6 1.517 616.16
    ,Harmonic 7 (-0.539) 1337.55
    ,Harmonic 8 (-3.103) 634.16
    ,Harmonic 9 0.452 605.15
    ,Harmonic 10 0.506 214.27
    ,Harmonic 11 2.23 233.94
    ,Harmonic 12 (-1.72) 90.11
    ,Harmonic 13 1.852 142.24
    ,Harmonic 14 (-0.481) 195.77
    ,Harmonic 15 (-0.584) 18.93
    ,Harmonic 16 2.335 105.44
    ,Harmonic 17 (-2.869) 13.77
    ,Harmonic 18 1.171 130.05]