Note19.hs

module Sharc.Instruments.Viola.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 391.995 55 "g4")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 7055.91 18 17.01)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 6129.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.608) 6129.0
    ,Harmonic 2 0.496 1388.75
    ,Harmonic 3 2.047 3283.16
    ,Harmonic 4 0.55 5569.24
    ,Harmonic 5 (-2.572) 3979.83
    ,Harmonic 6 (-8.1e-2) 1567.27
    ,Harmonic 7 2.402 1409.07
    ,Harmonic 8 1.185 1191.46
    ,Harmonic 9 (-0.114) 1156.36
    ,Harmonic 10 2.378 1098.84
    ,Harmonic 11 2.772 368.14
    ,Harmonic 12 (-2.575) 181.44
    ,Harmonic 13 2.832 250.63
    ,Harmonic 14 1.217 203.72
    ,Harmonic 15 (-1.132) 25.79
    ,Harmonic 16 2.966 68.67
    ,Harmonic 17 (-1.314) 102.22
    ,Harmonic 18 2.523 17.01
    ,Harmonic 19 0.474 113.16
    ,Harmonic 20 2.9e-2 55.76
    ,Harmonic 21 (-2.031) 69.82
    ,Harmonic 22 (-2.29) 27.5
    ,Harmonic 23 7.0e-2 52.9
    ,Harmonic 24 1.35 62.34
    ,Harmonic 25 (-2.16) 28.26]