Note6.hs

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

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 261.626 48 "c4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9680.16 37 0.65)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 1046.5 4 2553.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-2.672) 487.51
    ,Harmonic 2 (-0.919) 1062.0
    ,Harmonic 3 2.169 1821.74
    ,Harmonic 4 (-1.059) 2553.0
    ,Harmonic 5 1.919 1335.99
    ,Harmonic 6 (-1.785) 2380.39
    ,Harmonic 7 1.235 1482.82
    ,Harmonic 8 (-1.93) 1063.16
    ,Harmonic 9 0.265 867.02
    ,Harmonic 10 2.579 1028.57
    ,Harmonic 11 (-1.002) 1163.05
    ,Harmonic 12 1.092 668.25
    ,Harmonic 13 (-2.753) 428.8
    ,Harmonic 14 0.482 272.2
    ,Harmonic 15 (-2.957) 154.34
    ,Harmonic 16 (-0.371) 138.75
    ,Harmonic 17 2.753 133.13
    ,Harmonic 18 (-0.808) 111.22
    ,Harmonic 19 1.809 73.54
    ,Harmonic 20 (-2.019) 90.57
    ,Harmonic 21 0.992 80.38
    ,Harmonic 22 (-2.517) 39.68
    ,Harmonic 23 (-7.7e-2) 51.42
    ,Harmonic 24 2.845 41.23
    ,Harmonic 25 (-0.396) 25.7
    ,Harmonic 26 2.251 17.48
    ,Harmonic 27 (-1.189) 16.12
    ,Harmonic 28 1.366 8.51
    ,Harmonic 29 (-2.134) 9.21
    ,Harmonic 30 1.8e-2 17.59
    ,Harmonic 31 (-3.127) 19.22
    ,Harmonic 32 7.6e-2 9.79
    ,Harmonic 33 2.642 9.31
    ,Harmonic 34 (-0.803) 8.91
    ,Harmonic 35 2.389 3.64
    ,Harmonic 36 (-1.074) 1.71
    ,Harmonic 37 1.37 0.65
    ,Harmonic 38 (-0.317) 1.02]