Note26.hs

module Sharc.Instruments.ViolaPizzicato.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 587.33 62 "d5")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 9397.28 16 1.18)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 1174.66 2 1030.0)
            (NoteRangeHarmonicFreq 16 9397.28)))
    [Harmonic 1 1.132 591.46
    ,Harmonic 2 0.618 1030.0
    ,Harmonic 3 1.428 436.33
    ,Harmonic 4 5.6e-2 276.57
    ,Harmonic 5 (-1.534) 62.34
    ,Harmonic 6 (-0.114) 70.1
    ,Harmonic 7 0.572 22.76
    ,Harmonic 8 (-2.294) 96.2
    ,Harmonic 9 4.3e-2 19.83
    ,Harmonic 10 1.752 13.03
    ,Harmonic 11 (-2.326) 3.86
    ,Harmonic 12 (-0.96) 3.53
    ,Harmonic 13 2.113 5.97
    ,Harmonic 14 (-2.77) 2.51
    ,Harmonic 15 (-1.689) 3.16
    ,Harmonic 16 (-2.333) 1.18]