Note3.hs

module Sharc.Instruments.TrumpetMutedC.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 220.0 45 "a3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 4400.0 20 21.25)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 6600.0 30 1499.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-1.387) 1333.33
    ,Harmonic 2 (-0.912) 707.0
    ,Harmonic 3 0.515 489.9
    ,Harmonic 4 1.436 166.13
    ,Harmonic 5 1.465 150.78
    ,Harmonic 6 (-2.501) 58.53
    ,Harmonic 7 (-1.088) 130.14
    ,Harmonic 8 (-0.565) 1317.82
    ,Harmonic 9 (-1.032) 185.37
    ,Harmonic 10 (-0.856) 142.66
    ,Harmonic 11 (-1.217) 27.28
    ,Harmonic 12 (-3.141) 166.95
    ,Harmonic 13 (-2.983) 376.1
    ,Harmonic 14 (-3.058) 297.39
    ,Harmonic 15 (-2.719) 694.91
    ,Harmonic 16 (-2.796) 280.39
    ,Harmonic 17 (-2.068) 453.68
    ,Harmonic 18 (-1.615) 175.85
    ,Harmonic 19 (-1.03) 89.69
    ,Harmonic 20 0.307 21.25
    ,Harmonic 21 2.742 118.15
    ,Harmonic 22 3.072 611.49
    ,Harmonic 23 (-2.838) 1308.2
    ,Harmonic 24 1.596 1112.15
    ,Harmonic 25 2.012 240.5
    ,Harmonic 26 (-0.746) 116.28
    ,Harmonic 27 (-1.051) 596.42
    ,Harmonic 28 0.204 582.34
    ,Harmonic 29 9.8e-2 546.81
    ,Harmonic 30 0.15 1499.0
    ,Harmonic 31 (-0.193) 308.79
    ,Harmonic 32 1.807 796.94
    ,Harmonic 33 1.826 793.39
    ,Harmonic 34 2.263 848.9
    ,Harmonic 35 2.037 1024.46
    ,Harmonic 36 1.727 336.75
    ,Harmonic 37 (-2.337) 435.99
    ,Harmonic 38 (-2.894) 340.46
    ,Harmonic 39 (-3.11) 273.52
    ,Harmonic 40 (-2.225) 210.96
    ,Harmonic 41 (-2.24) 238.3
    ,Harmonic 42 (-2.901) 451.7
    ,Harmonic 43 2.385 257.46
    ,Harmonic 44 (-2.958) 393.64
    ,Harmonic 45 (-2.891) 278.08]