Note21.hs

module Sharc.Instruments.CelloMarteleBowing.Note21 (note21) where

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 220.0 45 "a3")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 9900.0 45 0.38)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 3290.0)
            (NoteRangeHarmonicFreq 46 10120.0)))
    [Harmonic 1 (-2.012) 3290.0
    ,Harmonic 2 0.623 439.43
    ,Harmonic 3 0.375 338.71
    ,Harmonic 4 (-0.419) 175.57
    ,Harmonic 5 0.647 267.76
    ,Harmonic 6 (-2.456) 32.21
    ,Harmonic 7 2.375 394.52
    ,Harmonic 8 (-0.945) 559.59
    ,Harmonic 9 8.3e-2 348.56
    ,Harmonic 10 0.428 88.6
    ,Harmonic 11 1.0 148.88
    ,Harmonic 12 (-0.251) 92.57
    ,Harmonic 13 0.304 45.02
    ,Harmonic 14 0.133 23.99
    ,Harmonic 15 (-0.365) 69.57
    ,Harmonic 16 2.619 15.8
    ,Harmonic 17 0.188 33.79
    ,Harmonic 18 (-9.1e-2) 22.19
    ,Harmonic 19 (-2.968) 24.04
    ,Harmonic 20 (-0.333) 5.02
    ,Harmonic 21 (-1.684) 9.88
    ,Harmonic 22 (-2.55) 14.27
    ,Harmonic 23 (-2.478) 5.71
    ,Harmonic 24 0.647 3.63
    ,Harmonic 25 0.163 3.38
    ,Harmonic 26 0.301 2.19
    ,Harmonic 27 (-0.266) 1.0
    ,Harmonic 28 (-1.389) 6.3
    ,Harmonic 29 2.302 1.58
    ,Harmonic 30 0.712 2.09
    ,Harmonic 31 0.222 1.59
    ,Harmonic 32 1.869 2.25
    ,Harmonic 33 (-1.975) 4.29
    ,Harmonic 34 (-2.469) 0.53
    ,Harmonic 35 0.641 1.84
    ,Harmonic 36 (-0.892) 0.77
    ,Harmonic 37 0.277 2.81
    ,Harmonic 38 (-1.441) 2.39
    ,Harmonic 39 (-2.092) 0.96
    ,Harmonic 40 1.606 1.65
    ,Harmonic 41 2.557 2.4
    ,Harmonic 42 1.64 1.67
    ,Harmonic 43 (-2.557) 1.01
    ,Harmonic 44 (-0.406) 1.08
    ,Harmonic 45 1.594 0.38
    ,Harmonic 46 (-0.342) 0.52]