Note0.hs

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

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 195.998 43 "g3")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 9995.89 51 4.32)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 15043.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 (-0.385) 1053.41
    ,Harmonic 2 (-1.663) 15043.0
    ,Harmonic 3 2.53 4708.62
    ,Harmonic 4 (-3.078) 4600.28
    ,Harmonic 5 2.867 2549.29
    ,Harmonic 6 1.182 612.21
    ,Harmonic 7 (-1.823) 2488.85
    ,Harmonic 8 0.746 4539.98
    ,Harmonic 9 (-0.915) 1994.89
    ,Harmonic 10 (-0.49) 9008.15
    ,Harmonic 11 (-2.913) 6054.15
    ,Harmonic 12 (-1.734) 1333.56
    ,Harmonic 13 0.842 733.47
    ,Harmonic 14 (-2.938) 789.17
    ,Harmonic 15 (-2.777) 404.53
    ,Harmonic 16 1.166 626.22
    ,Harmonic 17 (-1.014) 1089.54
    ,Harmonic 18 1.369 550.58
    ,Harmonic 19 1.489 686.78
    ,Harmonic 20 (-0.645) 667.55
    ,Harmonic 21 (-0.13) 116.79
    ,Harmonic 22 (-0.704) 1023.07
    ,Harmonic 23 (-0.311) 165.84
    ,Harmonic 24 0.711 284.08
    ,Harmonic 25 (-1.529) 413.28
    ,Harmonic 26 (-1.757) 112.44
    ,Harmonic 27 2.245 139.21
    ,Harmonic 28 1.658 144.19
    ,Harmonic 29 (-2.505) 141.83
    ,Harmonic 30 (-2.256) 177.0
    ,Harmonic 31 2.068 23.4
    ,Harmonic 32 0.391 203.0
    ,Harmonic 33 (-1.416) 57.3
    ,Harmonic 34 1.529 25.08
    ,Harmonic 35 1.473 34.31
    ,Harmonic 36 0.241 40.58
    ,Harmonic 37 (-1.857) 26.76
    ,Harmonic 38 (-2.682) 27.05
    ,Harmonic 39 (-1.493) 14.53
    ,Harmonic 40 (-0.548) 44.07
    ,Harmonic 41 1.297 7.41
    ,Harmonic 42 0.5 33.6
    ,Harmonic 43 (-0.968) 13.92
    ,Harmonic 44 (-1.009) 23.66
    ,Harmonic 45 1.249 20.72
    ,Harmonic 46 0.792 10.25
    ,Harmonic 47 (-2.204) 23.23
    ,Harmonic 48 (-0.617) 17.77
    ,Harmonic 49 (-2.043) 27.65
    ,Harmonic 50 (-1.93) 8.41
    ,Harmonic 51 (-2.597) 4.32]