Note0.hs

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

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 195.998 43 "g3")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 9995.89 51 1.08)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 3813.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 (-8.3e-2) 173.02
    ,Harmonic 2 0.72 3813.0
    ,Harmonic 3 1.575 454.04
    ,Harmonic 4 2.304 1899.6
    ,Harmonic 5 (-0.804) 3417.4
    ,Harmonic 6 2.995 986.9
    ,Harmonic 7 (-2.61) 814.25
    ,Harmonic 8 (-2.291) 1862.38
    ,Harmonic 9 (-2.437) 898.19
    ,Harmonic 10 1.441 521.5
    ,Harmonic 11 (-1.743) 567.77
    ,Harmonic 12 1.368 397.94
    ,Harmonic 13 (-2.803) 584.15
    ,Harmonic 14 2.268 558.45
    ,Harmonic 15 2.383 324.64
    ,Harmonic 16 (-1.043) 393.41
    ,Harmonic 17 (-0.854) 53.85
    ,Harmonic 18 (-1.107) 182.05
    ,Harmonic 19 2.952 116.59
    ,Harmonic 20 0.778 99.54
    ,Harmonic 21 (-3.108) 41.28
    ,Harmonic 22 2.726 149.15
    ,Harmonic 23 0.183 147.38
    ,Harmonic 24 (-2.349) 112.62
    ,Harmonic 25 1.523 76.83
    ,Harmonic 26 0.967 34.51
    ,Harmonic 27 0.144 54.77
    ,Harmonic 28 0.437 23.94
    ,Harmonic 29 (-0.777) 61.97
    ,Harmonic 30 (-1.767) 48.0
    ,Harmonic 31 (-3.072) 34.61
    ,Harmonic 32 (-2.683) 2.82
    ,Harmonic 33 2.77 23.41
    ,Harmonic 34 1.324 19.62
    ,Harmonic 35 (-0.611) 7.48
    ,Harmonic 36 0.24 10.57
    ,Harmonic 37 1.497 5.43
    ,Harmonic 38 (-0.69) 7.9
    ,Harmonic 39 (-0.797) 4.91
    ,Harmonic 40 (-2.582) 11.79
    ,Harmonic 41 2.26 12.36
    ,Harmonic 42 0.97 6.67
    ,Harmonic 43 0.998 1.31
    ,Harmonic 44 (-2.272) 8.06
    ,Harmonic 45 0.55 11.18
    ,Harmonic 46 (-0.92) 2.44
    ,Harmonic 47 1.909 5.15
    ,Harmonic 48 0.122 8.49
    ,Harmonic 49 (-0.99) 4.99
    ,Harmonic 50 (-2.204) 6.0
    ,Harmonic 51 9.7e-2 1.08]