filter out pitches higher/ or lower than a certain pitch

[Stefan Thomas]

Dear community,

I would like to achieve , in a certain example, that all pitches will get automatically an accent sign.

Like this:

Music = { \time 6/8 g 8  r a g c'-> r g d'-> r g e'-> r  }

MusikwithAccents  = { \time 6/8 g 8  r a g c->' r g d'-> r d e'-> r }

Can this be done with  lilypond?

Has someone an idea, how this can be implemented?

Thanks,

Stefan