Note24.hs

module Sharc.Instruments.ViolaMarteleBowing.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 554.365 61 "c#5")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 5543.65 10 60.95)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 554.36 1 16816.0)
            (NoteRangeHarmonicFreq 18 9978.57)))
    [Harmonic 1 1.654 16816.0
    ,Harmonic 2 (-2.884) 6095.37
    ,Harmonic 3 0.728 8475.37
    ,Harmonic 4 0.342 3434.01
    ,Harmonic 5 (-1.768) 2795.39
    ,Harmonic 6 2.704 981.22
    ,Harmonic 7 0.437 1372.09
    ,Harmonic 8 1.995 165.89
    ,Harmonic 9 2.446 159.92
    ,Harmonic 10 1.983 60.95
    ,Harmonic 11 (-1.954) 246.29
    ,Harmonic 12 2.405 122.07
    ,Harmonic 13 (-0.139) 134.55
    ,Harmonic 14 2.745 191.88
    ,Harmonic 15 (-0.521) 156.84
    ,Harmonic 16 (-0.59) 112.45
    ,Harmonic 17 (-1.3) 114.53
    ,Harmonic 18 (-2.314) 89.8]