Note1.hs

module Sharc.Instruments.ViolinMuted.Note1 (note1) where

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 207.652 44 "g#3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 9967.29 48 0.65)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 830.6 4 2129.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 3.09 263.42
    ,Harmonic 2 1.403 1855.55
    ,Harmonic 3 2.941 653.21
    ,Harmonic 4 (-2.187) 2129.0
    ,Harmonic 5 (-1.133) 726.48
    ,Harmonic 6 (-1.518) 2055.84
    ,Harmonic 7 (-0.526) 448.43
    ,Harmonic 8 (-0.384) 335.97
    ,Harmonic 9 2.887 100.06
    ,Harmonic 10 (-2.154) 180.9
    ,Harmonic 11 (-0.395) 261.53
    ,Harmonic 12 (-1.121) 101.06
    ,Harmonic 13 (-0.115) 113.72
    ,Harmonic 14 1.215 45.31
    ,Harmonic 15 2.352 15.33
    ,Harmonic 16 1.02 73.54
    ,Harmonic 17 (-0.302) 27.12
    ,Harmonic 18 0.825 24.04
    ,Harmonic 19 (-3.019) 37.64
    ,Harmonic 20 (-1.564) 8.38
    ,Harmonic 21 (-0.228) 36.87
    ,Harmonic 22 1.511 18.5
    ,Harmonic 23 2.588 25.14
    ,Harmonic 24 (-1.658) 5.14
    ,Harmonic 25 0.779 5.37
    ,Harmonic 26 0.651 6.92
    ,Harmonic 27 1.994 7.45
    ,Harmonic 28 (-2.124) 15.89
    ,Harmonic 29 0.275 14.65
    ,Harmonic 30 1.523 11.73
    ,Harmonic 31 (-1.723) 2.94
    ,Harmonic 32 1.849 0.67
    ,Harmonic 33 (-0.404) 4.64
    ,Harmonic 34 3.025 2.25
    ,Harmonic 35 (-2.441) 18.06
    ,Harmonic 36 0.467 13.53
    ,Harmonic 37 2.342 15.22
    ,Harmonic 38 (-1.55) 12.15
    ,Harmonic 39 0.466 15.24
    ,Harmonic 40 1.05 3.18
    ,Harmonic 41 2.023 1.86
    ,Harmonic 42 (-1.123) 9.35
    ,Harmonic 43 0.911 5.45
    ,Harmonic 44 (-2.588) 3.89
    ,Harmonic 45 0.875 3.18
    ,Harmonic 46 (-2.65) 0.73
    ,Harmonic 47 1.355 1.99
    ,Harmonic 48 (-1.96) 0.65]