Note31.hs

module Sharc.Instruments.ViolaMarteleBowing.Note31 (note31) where

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 830.609 68 "g#5")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 9136.69 11 38.39)
            (NoteRangeHarmonicFreq 1 830.6))
        (NoteRange
            (NoteRangeAmplitude 1661.21 2 9620.0)
            (NoteRangeHarmonicFreq 12 9967.3)))
    [Harmonic 1 1.286 9044.96
    ,Harmonic 2 1.92 9620.0
    ,Harmonic 3 0.137 5254.54
    ,Harmonic 4 0.753 2224.84
    ,Harmonic 5 (-2.352) 515.7
    ,Harmonic 6 (-1.601) 90.12
    ,Harmonic 7 (-2.6e-2) 226.24
    ,Harmonic 8 (-2.789) 320.46
    ,Harmonic 9 (-1.726) 416.7
    ,Harmonic 10 (-1.281) 63.84
    ,Harmonic 11 (-2.083) 38.39
    ,Harmonic 12 1.532 69.35]