Note0.hs

module Sharc.Instruments.ViolinMarteleBowing.Note0 (note0) where

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 195.998 43 "g3")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 7643.92 39 0.4)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 3619.0)
            (NoteRangeHarmonicFreq 50 9799.9)))
    [Harmonic 1 (-0.532) 70.44
    ,Harmonic 2 (-1.817) 3619.0
    ,Harmonic 3 (-0.723) 662.02
    ,Harmonic 4 2.9e-2 1802.39
    ,Harmonic 5 (-1.212) 1356.15
    ,Harmonic 6 (-2.668) 2793.65
    ,Harmonic 7 (-0.694) 2154.19
    ,Harmonic 8 (-2.742) 1701.75
    ,Harmonic 9 1.346 1135.98
    ,Harmonic 10 (-2.004) 1600.34
    ,Harmonic 11 2.218 1395.38
    ,Harmonic 12 (-2.284) 191.19
    ,Harmonic 13 (-0.258) 30.69
    ,Harmonic 14 0.683 152.92
    ,Harmonic 15 (-0.932) 42.65
    ,Harmonic 16 (-0.18) 99.29
    ,Harmonic 17 (-2.315) 156.23
    ,Harmonic 18 0.992 43.65
    ,Harmonic 19 (-1.343) 80.21
    ,Harmonic 20 2.255 14.83
    ,Harmonic 21 1.316 40.93
    ,Harmonic 22 0.739 62.83
    ,Harmonic 23 2.796 10.95
    ,Harmonic 24 3.039 15.19
    ,Harmonic 25 0.0 11.43
    ,Harmonic 26 2.846 4.49
    ,Harmonic 27 (-2.656) 10.43
    ,Harmonic 28 (-1.471) 8.07
    ,Harmonic 29 (-1.119) 21.13
    ,Harmonic 30 (-1.9) 15.53
    ,Harmonic 31 (-2.376) 4.52
    ,Harmonic 32 1.403 5.3
    ,Harmonic 33 (-2.853) 2.46
    ,Harmonic 34 (-0.322) 0.86
    ,Harmonic 35 2.156 1.96
    ,Harmonic 36 1.403 5.29
    ,Harmonic 37 1.974 4.32
    ,Harmonic 38 (-1.281) 1.5
    ,Harmonic 39 1.719 0.4
    ,Harmonic 40 3.015 2.01
    ,Harmonic 41 (-1.367) 2.86
    ,Harmonic 42 (-0.598) 0.9
    ,Harmonic 43 (-1.317) 1.66
    ,Harmonic 44 3.3e-2 3.57
    ,Harmonic 45 0.882 1.6
    ,Harmonic 46 (-1.583) 1.5
    ,Harmonic 47 (-1.097) 2.09
    ,Harmonic 48 3.1 2.17
    ,Harmonic 49 (-0.319) 2.18
    ,Harmonic 50 (-0.937) 5.04]