Note0.hs

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

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 195.998 43 "g3")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 8819.91 45 6.0e-2)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 5181.0)
            (NoteRangeHarmonicFreq 50 9799.9)))
    [Harmonic 1 (-1.259) 304.98
    ,Harmonic 2 1.576 5181.0
    ,Harmonic 3 2.195 947.11
    ,Harmonic 4 (-0.585) 254.47
    ,Harmonic 5 1.827 65.48
    ,Harmonic 6 (-2.434) 242.67
    ,Harmonic 7 (-0.641) 371.86
    ,Harmonic 8 (-0.488) 25.57
    ,Harmonic 9 3.07 11.18
    ,Harmonic 10 (-2.487) 75.63
    ,Harmonic 11 0.528 4.36
    ,Harmonic 12 0.296 42.66
    ,Harmonic 13 (-0.859) 3.21
    ,Harmonic 14 (-2.406) 13.62
    ,Harmonic 15 (-2.902) 3.68
    ,Harmonic 16 (-0.945) 5.71
    ,Harmonic 17 (-2.609) 6.07
    ,Harmonic 18 (-3.03) 3.37
    ,Harmonic 19 1.588 3.4
    ,Harmonic 20 (-0.101) 6.75
    ,Harmonic 21 1.317 4.01
    ,Harmonic 22 2.22 3.68
    ,Harmonic 23 (-1.06) 1.75
    ,Harmonic 24 (-2.462) 2.06
    ,Harmonic 25 1.32 3.99
    ,Harmonic 26 (-1.053) 0.24
    ,Harmonic 27 (-3.0e-3) 3.76
    ,Harmonic 28 1.596 2.41
    ,Harmonic 29 1.556 0.34
    ,Harmonic 30 0.201 1.1
    ,Harmonic 31 (-2.086) 0.72
    ,Harmonic 32 (-1.087) 1.05
    ,Harmonic 33 2.355 0.44
    ,Harmonic 34 2.608 0.34
    ,Harmonic 35 0.407 0.29
    ,Harmonic 36 1.293 0.3
    ,Harmonic 37 (-2.727) 0.27
    ,Harmonic 38 2.564 0.12
    ,Harmonic 39 (-1.164) 0.13
    ,Harmonic 40 (-1.728) 0.11
    ,Harmonic 41 2.84 0.71
    ,Harmonic 42 1.229 0.23
    ,Harmonic 43 (-1.176) 0.45
    ,Harmonic 44 (-2.457) 0.27
    ,Harmonic 45 0.288 6.0e-2
    ,Harmonic 46 2.625 0.32
    ,Harmonic 47 2.243 0.28
    ,Harmonic 48 1.857 0.13
    ,Harmonic 49 2.607 0.28
    ,Harmonic 50 (-0.18) 0.31]