Mats Bengtsson wrote:
>
> > > If you want the same layout as given by \f, you should use
> > > ((dynamic) "e")m ((dynamic) "ff"), ((dynamic) "ppp")
> > > and so on.
> >
> > yes, but the reason i wanted to define some is because i find that the
> > default font-size for all dynamics is too big (matter of taste i guess)
>
> I guess you still want the same font, though?
>
> > so, i can i globally ask to reduce dynamic font size?
>
> Of course:
>
> \score{
> ...
> \paper{
> ...
> \translator{
> \ScoreContext
> DynamicText \override #'font-relative-size = #-1
> }
> }
> }
;; --
well, i tried, but it does the work only for those inserted following the
'normal syntax': \p \ppp ...
but in my case, i have
...
#(define ppp '((dynamic) "ppp"))
#(define p '((dynamic) "p"))
...
#(define 2ped '(italic "2 Péd."))
#(define 2ped2 `(lines ,ppp ,2ped))
...
b_#`,2ped2
in which case it does not 'listen' to the translator requests to reduce dynamic
font
;; --
also, if instead i try:
...
b_\ppp_#`,2ped
then it does not compute correctly position of elements
;; --
in lylipond 1.5.15, it was better positionning \decr, here it clashes with other
indications: can't it be automatic? do i have to 'manually' ask for \decr to be lower?
(and how)
thanks
david
\include "paper16.ly"
% shiftI = \property Voice.NoteColumn \override #'horizontal-shift = #0
% shiftII = \property Voice.NoteColumn \override #'horizontal-shift = #1
% shiftIII = \property Voice.NoteColumn \override #'horizontal-shift = #2
% shiftIV = \property Voice.NoteColumn \override #'horizontal-shift = #3
% shiftV = \property Voice.NoteColumn \override #'horizontal-shift = #4
#(define note '(columns
((font-relative-size . -1) (music "noteheads-2"
((font-relative-size . -3) (kern . -0.1) "flags-stem")))))
#(define eight-note `(columns ,note ((kern . -0.1)
(music ((raise . 10.0) "flags-u3")))))
#(define dotted-eight-note
`(columns ,eight-note (music "dots-dot")))
#(define text-flat '((font-relative-size . -2) (music "accidentals--1")))
#(define title-instr `("pour Piano et 2 Cl. en Si" ,text-flat))
#(define f '((bold italic) "f"))
#(define f3corde `(lines ,f \treCorde))
% #(define ppp '((dynamic) "ppp"))
% #(define p '((dynamic) "p"))
#(define ppp '((bold italic) "ppp"))
#(define p '((bold italic) "p"))
#(define 2ped-legend "(*) UC + Péd. droite")
#(define 2ped '(italic "2 Péd."))
#(define 2ped1 `(lines ,ppp ,2ped "(*)"))
#(define 2ped2 `(lines ,ppp ,2ped))
#(define pup '(italic "---/"))
#(define uc '(italic "UC"))
% #(define uc '\unaCorda)
#(define puc `(lines ,p ,uc))
#(define init `((lines "lent: sans réelle pulsation,"
(columns "simplement " ,note " $\\leq$ 42"))))
% #(define init `((lines "lent: sans réelle pulsation,"
% (columns "simplement " ,note " < ou = à 42"))))
\header {
title = "Prélogique"
subtitle = "à Leila Bouzalgha"
composer = "David PIROTTE"
opus = "Opus 1"
piece = "~"
poet = "~"
% instrument = `,title-instr
instrument = "pour Piano et 2 Cl. en Si \fetachar\fetaflat"
meter = "~"
arranger = "~"
% tagline = ""
footer = "prélogique"
}
\score {
\notes <
\context Staff = "Cl1" {
\property Staff.instrument = #`(lines "Cl. 1" (columns "(Si" ,text-flat ")"))
% \property Score.timing = ##f
% \property Staff.TimeSignature \override #'style = #'()
\time 12/4
\clef violin
{r2. r2. r2 r1
r2. r2. r2 r1
}
}
\context Staff = "Cl2" {
\property Staff.instrument = #`(lines "Cl. 2" (columns "(Si" ,text-flat ")"))
% \property Score.timing = ##f
% \property Staff.TimeSignature \override #'style = #'()
\time 12/4
\clef violin
{r2. r2. r2 r1
r2. r2. r2 r1
}
}
\context PianoStaff \notes <
\context Staff = up <
\property Staff.instrument = "Piano "
% \property PianoStaff.instrument = "Piano "
% \property Score.timing = ##f
% \property Staff.TimeSignature \override #'style = #'()
\time 12/4
\clef violin
{r2.^#`,init r2. fis'2_#`,ppp ~ fis'1^\fermata
r2. r2. r2 r1
}
>
\context Staff = mid <
% \property Score.timing = ##f
% \property Staff.TimeSignature \override #'style = #'()
\time 12/4
\clef bass
{ % s1 \break
r2. r2. r2 r1
r2. r2. r2 r1
}
>
\context Staff = down <
\time 12/4
% \property Score.timing = ##f
% \property Staff.TimeSignature \override #'style = #'()
\clef bass
\property Staff.clefOctavation = #-15
\property Staff.OctavateEight \set #'text = #"15"
\property Staff.centralCPosition = #13
% \property Staff.pedalSustainStrings = #'("-" "-P" "P")
\relative c,
{\stemDown
<a?2. b_#`,2ped2 c ais \decr> <a?2. \rced b_#`,pup c ais> a?2_#`,puc r1
<a?2. b_#`,2ped2 c ais \decr> <a?2. \rced b_#`,pup c ais> \stemUp a?2_#`,f ~
a1^\fermata
}
>
>
>
\paper {
% indent = 0.0
% \translator {
% \StaffContext
% BarLine \override #'transparent = ##t
% }
\translator{
\ScoreContext
DynamicText \override #'font-relative-size = #-1
}
\translator {
\HaraKiriStaffContext
}
}
}
% <a?2. \decr b_#`,ppp \sustainDown ^#`,2ped-legend c ais> <a?2. \rced b c ais>
a?2_#`,puc r1
