Note18.hs

module Sharc.Instruments.ViolaMuted.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 369.994 54 "f#4")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 8509.86 23 10.53)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 3993.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 1.152 3993.0
    ,Harmonic 2 (-2.388) 2444.7
    ,Harmonic 3 1.192 506.03
    ,Harmonic 4 3.135 834.7
    ,Harmonic 5 1.455 625.92
    ,Harmonic 6 0.481 1844.27
    ,Harmonic 7 2.2 77.11
    ,Harmonic 8 (-1.635) 163.32
    ,Harmonic 9 (-2.879) 395.11
    ,Harmonic 10 0.673 453.02
    ,Harmonic 11 (-2.784) 288.33
    ,Harmonic 12 0.233 191.76
    ,Harmonic 13 3.5e-2 50.0
    ,Harmonic 14 (-2.888) 104.92
    ,Harmonic 15 (-0.249) 95.21
    ,Harmonic 16 (-1.673) 176.97
    ,Harmonic 17 1.268 31.44
    ,Harmonic 18 0.461 13.35
    ,Harmonic 19 2.377 33.68
    ,Harmonic 20 (-0.107) 122.4
    ,Harmonic 21 2.689 31.41
    ,Harmonic 22 (-1.243) 17.11
    ,Harmonic 23 2.642 10.53
    ,Harmonic 24 0.669 12.09
    ,Harmonic 25 (-1.313) 20.4
    ,Harmonic 26 6.2e-2 30.22]