Re: not too bad for a beginner ... but i need help

[David Pirotte]

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