[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: How to produce this articulation mark?
From: |
Thomas Morley |
Subject: |
Re: How to produce this articulation mark? |
Date: |
Sat, 3 Mar 2012 23:15:42 +0100 |
Hi Jonas,
2012/3/2 Jonas Olson <address@hidden>:
> Hi,
>
> I've come a cross an articulation mark that I don't find a way to
> produce with Lilypond. In the attached image, they occur on "me" and
> "long". It can be heard 13 seconds into
> <http://manhattantransfer.net/wp-content/uploads/2011/02/03-Operator.mp3>.
>
> How do I do it?
>
> Regards
> Jonas
some possibilities:
\version "2.14.2"
rotSc = #(define-music-function (parser location arg) (ly:music?)
(set! (ly:music-property arg 'tweaks)
(acons 'rotation '(25 0 0)
(ly:music-property arg 'tweaks)))
arg)
rotTen = #(let ((m (make-music 'ArticulationEvent
'articulation-type "tenuto")))
(set! (ly:music-property m 'tweaks)
(acons 'rotation '(25 0 0)
(ly:music-property m 'tweaks)))
m)
rot = \once \override Script #'rotation = #'(25 0 0)
%---Test
upper = \relative c' {
\key ees\major
<ees g>
<g bes>
\breathe
<g bes>
<g bes>\rotTen |
<f bes>8-\rotSc --
\rot
<f bes>--
<ees aes>4\fermata
s
}
lower = \relative c {
\key ees\major
\clef bass
<bes bes'>4
<c ees'>\fermata
\breathe
<ees ees'>
\xy
<ees ees'>\tenuto |
<aes, c'>2.\fermata
}
\score {
\new PianoStaff <<
\new Staff \upper
\new Staff \lower
>>
}
HTH,
Harm