Note21.hs

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

import Sharc.Types

note21 :: Note
note21 = Note
    (Pitch 220.0 45 "a3")
    22
    (Range
        (NoteRange
            (NoteRangeAmplitude 4840.0 22 0.62)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 4196.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-1.621) 4196.0
    ,Harmonic 2 (-1.241) 341.9
    ,Harmonic 3 (-1.929) 574.69
    ,Harmonic 4 0.33 797.88
    ,Harmonic 5 1.385 276.6
    ,Harmonic 6 (-1.063) 265.71
    ,Harmonic 7 (-1.01) 434.77
    ,Harmonic 8 (-2.183) 1098.02
    ,Harmonic 9 (-3.022) 1105.42
    ,Harmonic 10 1.51 57.73
    ,Harmonic 11 1.057 351.12
    ,Harmonic 12 1.127 214.46
    ,Harmonic 13 (-1.172) 114.55
    ,Harmonic 14 0.442 81.2
    ,Harmonic 15 (-2.9e-2) 156.24
    ,Harmonic 16 1.501 114.18
    ,Harmonic 17 0.933 103.75
    ,Harmonic 18 (-2.624) 13.95
    ,Harmonic 19 1.134 51.31
    ,Harmonic 20 0.789 64.62
    ,Harmonic 21 (-1.061) 2.57
    ,Harmonic 22 2.159 0.62
    ,Harmonic 23 0.66 50.88
    ,Harmonic 24 (-0.541) 26.76
    ,Harmonic 25 (-0.528) 21.12
    ,Harmonic 26 (-2.79) 6.56
    ,Harmonic 27 (-2.197) 35.15
    ,Harmonic 28 (-2.534) 33.12
    ,Harmonic 29 (-1.523) 31.2
    ,Harmonic 30 (-0.536) 4.21
    ,Harmonic 31 (-2.92) 3.13
    ,Harmonic 32 (-0.645) 9.81
    ,Harmonic 33 (-2.286) 1.48
    ,Harmonic 34 2.3e-2 3.11
    ,Harmonic 35 1.595 10.8
    ,Harmonic 36 1.094 9.09
    ,Harmonic 37 2.074 8.94
    ,Harmonic 38 3.114 4.59
    ,Harmonic 39 (-1.118) 4.26
    ,Harmonic 40 (-0.149) 2.52
    ,Harmonic 41 (-2.34) 2.52
    ,Harmonic 42 (-1.102) 3.22
    ,Harmonic 43 1.728 3.98
    ,Harmonic 44 (-3.066) 7.74
    ,Harmonic 45 (-1.128) 1.59]