Note23.hs

module Sharc.Instruments.Cello.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 246.942 47 "b3")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 9630.73 39 8.34)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 3940.0)
            (NoteRangeHarmonicFreq 41 10124.62)))
    [Harmonic 1 (-2.866) 3940.0
    ,Harmonic 2 (-1.914) 2824.96
    ,Harmonic 3 2.57 1195.03
    ,Harmonic 4 (-0.96) 771.02
    ,Harmonic 5 (-2.477) 411.81
    ,Harmonic 6 0.152 1335.76
    ,Harmonic 7 (-0.285) 2485.09
    ,Harmonic 8 0.323 1476.29
    ,Harmonic 9 (-1.9e-2) 720.71
    ,Harmonic 10 1.263 788.13
    ,Harmonic 11 (-1.509) 281.2
    ,Harmonic 12 (-0.623) 546.17
    ,Harmonic 13 (-2.119) 598.91
    ,Harmonic 14 2.064 400.35
    ,Harmonic 15 (-1.103) 193.36
    ,Harmonic 16 (-2.924) 144.88
    ,Harmonic 17 (-2.285) 137.19
    ,Harmonic 18 (-2.812) 256.01
    ,Harmonic 19 (-2.0e-2) 148.53
    ,Harmonic 20 (-1.008) 42.86
    ,Harmonic 21 0.253 47.67
    ,Harmonic 22 (-7.7e-2) 83.9
    ,Harmonic 23 2.221 21.98
    ,Harmonic 24 1.299 65.05
    ,Harmonic 25 0.336 116.26
    ,Harmonic 26 1.903 108.88
    ,Harmonic 27 (-2.548) 60.9
    ,Harmonic 28 (-1.902) 43.01
    ,Harmonic 29 8.4e-2 42.66
    ,Harmonic 30 (-1.363) 22.31
    ,Harmonic 31 (-0.314) 10.58
    ,Harmonic 32 (-4.7e-2) 16.31
    ,Harmonic 33 (-0.626) 28.36
    ,Harmonic 34 1.097 33.5
    ,Harmonic 35 (-2.642) 41.97
    ,Harmonic 36 (-1.511) 30.25
    ,Harmonic 37 0.427 28.23
    ,Harmonic 38 1.992 12.1
    ,Harmonic 39 (-2.699) 8.34
    ,Harmonic 40 (-0.277) 8.77
    ,Harmonic 41 (-0.328) 11.84]