module Sharc.Instruments.TrumpetC.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 293.665 50 "d4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 9103.61 31 8.87)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 1174.66 4 2892.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 0.804 1098.7
    ,Harmonic 2 1.281 821.86
    ,Harmonic 3 1.272 1161.06
    ,Harmonic 4 1.144 2892.0
    ,Harmonic 5 1.45 2407.18
    ,Harmonic 6 1.546 1489.08
    ,Harmonic 7 1.634 432.22
    ,Harmonic 8 1.478 792.68
    ,Harmonic 9 1.25 1018.45
    ,Harmonic 10 1.445 1134.38
    ,Harmonic 11 1.491 621.7
    ,Harmonic 12 1.477 371.61
    ,Harmonic 13 1.441 286.59
    ,Harmonic 14 1.587 243.57
    ,Harmonic 15 1.913 217.16
    ,Harmonic 16 2.176 155.39
    ,Harmonic 17 2.423 87.92
    ,Harmonic 18 2.367 101.31
    ,Harmonic 19 2.542 83.38
    ,Harmonic 20 3.057 77.06
    ,Harmonic 21 3.037 54.9
    ,Harmonic 22 2.971 35.69
    ,Harmonic 23 2.944 47.37
    ,Harmonic 24 (-3.004) 48.77
    ,Harmonic 25 (-2.619) 37.12
    ,Harmonic 26 (-2.452) 29.19
    ,Harmonic 27 (-2.485) 18.93
    ,Harmonic 28 (-2.332) 14.12
    ,Harmonic 29 (-2.427) 11.48
    ,Harmonic 30 (-2.204) 12.42
    ,Harmonic 31 (-2.146) 8.87
    ,Harmonic 32 (-2.609) 8.92
    ,Harmonic 33 (-2.139) 10.72
    ,Harmonic 34 (-1.692) 12.49]