Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 391.995 55 "g4")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 8623.89 22 3.44)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 7371.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.695) 7371.0
    ,Harmonic 2 0.464 2064.15
    ,Harmonic 3 (-2.85) 2148.6
    ,Harmonic 4 (-1.894) 1206.58
    ,Harmonic 5 (-1.841) 315.43
    ,Harmonic 6 (-1.291) 608.93
    ,Harmonic 7 2.532 67.47
    ,Harmonic 8 (-0.377) 29.03
    ,Harmonic 9 1.56 289.41
    ,Harmonic 10 0.506 127.84
    ,Harmonic 11 (-1.245) 104.12
    ,Harmonic 12 2.407 117.96
    ,Harmonic 13 1.21 24.71
    ,Harmonic 14 (-1.282) 30.01
    ,Harmonic 15 1.777 22.72
    ,Harmonic 16 2.58 16.5
    ,Harmonic 17 (-3.02) 40.01
    ,Harmonic 18 (-2.762) 30.03
    ,Harmonic 19 2.749 17.47
    ,Harmonic 20 (-1.937) 6.24
    ,Harmonic 21 2.536 10.52
    ,Harmonic 22 0.948 3.44
    ,Harmonic 23 0.453 9.61
    ,Harmonic 24 1.551 5.01
    ,Harmonic 25 1.968 3.46]