Note30.hs

module Sharc.Instruments.ContrabassMarteleBowing.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 184.997 42 "f#3")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 8509.86 46 0.34)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 2 5280.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 2.288 3284.89
    ,Harmonic 2 1.114 5280.0
    ,Harmonic 3 (-2.711) 622.73
    ,Harmonic 4 1.038 443.79
    ,Harmonic 5 (-2.13) 863.36
    ,Harmonic 6 2.451 188.76
    ,Harmonic 7 (-1.246) 263.43
    ,Harmonic 8 (-2.162) 155.92
    ,Harmonic 9 (-1.837) 98.68
    ,Harmonic 10 2.555 52.11
    ,Harmonic 11 (-1.757) 128.6
    ,Harmonic 12 (-1.115) 50.49
    ,Harmonic 13 2.859 22.06
    ,Harmonic 14 (-2.441) 59.54
    ,Harmonic 15 1.962 49.81
    ,Harmonic 16 (-0.947) 9.36
    ,Harmonic 17 (-2.213) 48.01
    ,Harmonic 18 (-2.455) 8.34
    ,Harmonic 19 1.745 14.93
    ,Harmonic 20 (-0.108) 13.24
    ,Harmonic 21 (-0.417) 9.65
    ,Harmonic 22 1.302 10.07
    ,Harmonic 23 1.901 1.75
    ,Harmonic 24 (-1.911) 15.76
    ,Harmonic 25 3.13 5.21
    ,Harmonic 26 1.077 8.9
    ,Harmonic 27 (-0.254) 3.46
    ,Harmonic 28 0.833 2.21
    ,Harmonic 29 0.704 1.7
    ,Harmonic 30 2.779 6.5
    ,Harmonic 31 (-2.112) 2.17
    ,Harmonic 32 2.382 5.97
    ,Harmonic 33 (-1.017) 1.93
    ,Harmonic 34 (-2.93) 7.47
    ,Harmonic 35 2.306 2.02
    ,Harmonic 36 (-1.833) 1.86
    ,Harmonic 37 3.119 0.89
    ,Harmonic 38 1.592 1.8
    ,Harmonic 39 1.084 2.63
    ,Harmonic 40 1.776 3.47
    ,Harmonic 41 2.785 1.5
    ,Harmonic 42 2.886 0.42
    ,Harmonic 43 (-0.414) 0.35
    ,Harmonic 44 (-0.133) 0.56
    ,Harmonic 45 (-2.093) 0.69
    ,Harmonic 46 1.106 0.34
    ,Harmonic 47 (-2.221) 0.9
    ,Harmonic 48 (-1.899) 0.96
    ,Harmonic 49 1.581 0.35
    ,Harmonic 50 1.333 0.82
    ,Harmonic 51 (-4.9e-2) 0.46
    ,Harmonic 52 (-2.433) 0.51
    ,Harmonic 53 (-0.322) 0.37
    ,Harmonic 54 (-2.763) 1.13]