Note8.hs

module Sharc.Instruments.Viola.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 207.652 44 "g#3")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 9967.29 48 3.88)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 1453.56 7 9195.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-1.91) 2981.66
    ,Harmonic 2 2.629 6517.51
    ,Harmonic 3 (-2.933) 3444.14
    ,Harmonic 4 (-1.555) 6146.84
    ,Harmonic 5 0.235 3706.13
    ,Harmonic 6 (-2.698) 5602.03
    ,Harmonic 7 (-1.471) 9195.0
    ,Harmonic 8 (-0.668) 7525.02
    ,Harmonic 9 1.632 2311.11
    ,Harmonic 10 (-2.442) 2455.59
    ,Harmonic 11 2.718 1749.65
    ,Harmonic 12 1.534 615.81
    ,Harmonic 13 (-2.313) 639.75
    ,Harmonic 14 2.83 1476.63
    ,Harmonic 15 (-1.424) 1640.57
    ,Harmonic 16 (-2.623) 991.31
    ,Harmonic 17 0.113 1298.03
    ,Harmonic 18 (-0.474) 1150.64
    ,Harmonic 19 (-0.932) 941.21
    ,Harmonic 20 (-1.192) 627.89
    ,Harmonic 21 (-2.337) 214.84
    ,Harmonic 22 (-0.774) 65.46
    ,Harmonic 23 0.788 394.73
    ,Harmonic 24 0.358 412.56
    ,Harmonic 25 1.594 364.58
    ,Harmonic 26 2.654 325.41
    ,Harmonic 27 (-1.939) 419.93
    ,Harmonic 28 1.914 38.99
    ,Harmonic 29 2.239 98.38
    ,Harmonic 30 (-2.887) 119.1
    ,Harmonic 31 1.86 52.33
    ,Harmonic 32 (-2.239) 87.74
    ,Harmonic 33 (-0.3) 82.17
    ,Harmonic 34 1.551 78.01
    ,Harmonic 35 (-3.002) 151.71
    ,Harmonic 36 (-1.889) 103.22
    ,Harmonic 37 0.474 34.53
    ,Harmonic 38 2.89 28.58
    ,Harmonic 39 (-2.413) 41.98
    ,Harmonic 40 0.918 37.48
    ,Harmonic 41 1.324 49.38
    ,Harmonic 42 (-1.95) 22.87
    ,Harmonic 43 (-0.728) 21.03
    ,Harmonic 44 (-0.421) 32.72
    ,Harmonic 45 (-0.251) 19.23
    ,Harmonic 46 (-0.489) 16.55
    ,Harmonic 47 1.5 12.1
    ,Harmonic 48 (-2.864) 3.88]