Note6.hs

module Sharc.Instruments.ViolaMarteleBowing.Note6 (note6) where

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 184.997 42 "f#3")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 6844.88 37 0.2)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 2 16602.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 (-2.25) 686.23
    ,Harmonic 2 1.442 16602.0
    ,Harmonic 3 1.797 2104.48
    ,Harmonic 4 0.152 2756.8
    ,Harmonic 5 (-2.392) 1365.05
    ,Harmonic 6 (-1.029) 411.34
    ,Harmonic 7 1.812 934.2
    ,Harmonic 8 1.593 386.81
    ,Harmonic 9 1.15 1379.87
    ,Harmonic 10 7.0e-2 689.66
    ,Harmonic 11 1.016 455.85
    ,Harmonic 12 (-2.176) 256.01
    ,Harmonic 13 (-0.425) 159.3
    ,Harmonic 14 (-2.803) 87.71
    ,Harmonic 15 (-2.878) 245.19
    ,Harmonic 16 (-2.75) 123.98
    ,Harmonic 17 (-2.583) 44.28
    ,Harmonic 18 (-0.467) 68.15
    ,Harmonic 19 0.635 47.0
    ,Harmonic 20 (-2.191) 62.51
    ,Harmonic 21 (-3.05) 36.56
    ,Harmonic 22 0.529 18.54
    ,Harmonic 23 (-1.134) 21.51
    ,Harmonic 24 1.598 14.55
    ,Harmonic 25 (-2.961) 16.28
    ,Harmonic 26 1.334 17.53
    ,Harmonic 27 (-1.02) 7.33
    ,Harmonic 28 0.689 2.99
    ,Harmonic 29 1.677 2.84
    ,Harmonic 30 (-2.696) 1.43
    ,Harmonic 31 1.989 8.42
    ,Harmonic 32 2.015 7.92
    ,Harmonic 33 1.579 1.34
    ,Harmonic 34 (-2.703) 1.78
    ,Harmonic 35 (-0.571) 0.55
    ,Harmonic 36 3.008 1.78
    ,Harmonic 37 2.182 0.2
    ,Harmonic 38 2.181 1.13
    ,Harmonic 39 3.049 2.4
    ,Harmonic 40 0.886 2.0
    ,Harmonic 41 1.222 2.15
    ,Harmonic 42 (-2.633) 2.15
    ,Harmonic 43 (-1.409) 1.81
    ,Harmonic 44 (-2.212) 2.17
    ,Harmonic 45 (-2.487) 1.84
    ,Harmonic 46 (-3.049) 1.46
    ,Harmonic 47 (-2.059) 1.62
    ,Harmonic 48 (-2.395) 2.23
    ,Harmonic 49 1.388 0.54
    ,Harmonic 50 0.597 0.46
    ,Harmonic 51 (-3.107) 3.44
    ,Harmonic 52 (-2.014) 2.79
    ,Harmonic 53 (-2.823) 2.15
    ,Harmonic 54 (-3.124) 4.07]