module Sharc.Instruments.TrumpetC.Note4 (note4) where

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 233.082 46 "a#3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 9789.44 42 3.93)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 699.24 3 1871.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 4.6e-2 656.07
    ,Harmonic 2 0.238 1081.96
    ,Harmonic 3 1.308 1871.0
    ,Harmonic 4 1.105 1314.94
    ,Harmonic 5 1.321 1497.17
    ,Harmonic 6 1.661 1636.13
    ,Harmonic 7 1.248 1009.59
    ,Harmonic 8 1.537 960.55
    ,Harmonic 9 2.183 660.78
    ,Harmonic 10 1.432 416.24
    ,Harmonic 11 1.525 705.44
    ,Harmonic 12 1.808 432.14
    ,Harmonic 13 1.027 499.14
    ,Harmonic 14 0.87 366.94
    ,Harmonic 15 0.84 156.2
    ,Harmonic 16 0.898 133.48
    ,Harmonic 17 1.19 77.05
    ,Harmonic 18 0.872 52.21
    ,Harmonic 19 1.298 60.16
    ,Harmonic 20 1.773 50.69
    ,Harmonic 21 1.445 42.32
    ,Harmonic 22 1.877 44.75
    ,Harmonic 23 2.026 27.48
    ,Harmonic 24 1.927 22.94
    ,Harmonic 25 2.103 19.04
    ,Harmonic 26 1.854 16.27
    ,Harmonic 27 1.894 20.75
    ,Harmonic 28 2.06 14.57
    ,Harmonic 29 1.823 11.25
    ,Harmonic 30 2.377 10.34
    ,Harmonic 31 2.481 8.26
    ,Harmonic 32 2.292 8.09
    ,Harmonic 33 2.73 7.79
    ,Harmonic 34 2.42 5.26
    ,Harmonic 35 2.628 6.09
    ,Harmonic 36 2.951 4.1
    ,Harmonic 37 2.528 5.39
    ,Harmonic 38 2.354 5.37
    ,Harmonic 39 2.947 5.17
    ,Harmonic 40 2.669 4.62
    ,Harmonic 41 2.976 4.23
    ,Harmonic 42 3.128 3.93]