lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Barre de reprise avec deux traits en haut et en bas


From: NOreply
Subject: Re: Barre de reprise avec deux traits en haut et en bas
Date: Tue, 6 Feb 2018 14:16:45 -0700 (MST)

Ah oui, désolé Gegeours,
J'ai modifier mon code. Le problème me semble résolu. Voir ici:
http://lilybin.com/ruufv6/1

%%%%%% le code:
\version "2.18.2"

\header {
title = "création de 2 doubles slash"
}
%%%%%%
"2slash" =  \markup {                         
                  \center-align
                  \vcenter \combine
                  \beam #2.0 #0.5 #0.48
                  \raise #0.7 \beam #2.0 #0.5 #0.48
                } 
%%%%%  
 \markup { \vspace  #4 }

%{
>>>>>>  UTILISATION:
\slashHaut #"["  #n
#"[" =  doubleslash dirigé vers la droite
#"]" =  doubleslash dirigé vers la gauche
n = distance entre le double slash et la portée

%}

slashHaut = 
#(define-music-function 
  (parser location repeat-bar-type  repeat-bar-translate )
  (string? number? )
  (cond
   ((string=? repeat-bar-type "[")  
    #{     
      \once \override Staff.BarLine.stencil =
      #(lambda (grob)
         (ly:stencil-combine-at-edge
          (ly:bar-line::print grob)
          X RIGHT
          (grob-interpret-markup grob 
            #{ 
              \markup
              \translate #(cons 0 repeat-bar-translate) 
                \"2slash"              
            #})))
    #})
      ((string=? repeat-bar-type "]")  
    #{     
      \once \override Staff.BarLine.stencil =
      #(lambda (grob)
         (ly:stencil-combine-at-edge
          (ly:bar-line::print grob)
          X LEFT
          (grob-interpret-markup grob 
            #{ 
              \markup
              \translate #(cons 0 repeat-bar-translate) 
               \scale #'(-1 . 1 )  
               \"2slash"              
            #})))
    #})
   (else 
    #{
      \once \override Staff.BarLine.stencil = #ly:bar-line::print
    #})))

%%%%%%%%%%%%%%%%%
slashBas = 
#(define-music-function 
  (parser location repeat-bar-type  repeat-bar-translate  )
  (string? number? )
  (cond
   ((string=? repeat-bar-type "]")  
    #{
      \once \override Staff.BarLine.stencil =
      #(lambda (grob)
         (ly:stencil-combine-at-edge
          (ly:bar-line::print grob)
          X LEFT
          (grob-interpret-markup grob 
            #{ 
              \markup
              \translate #(cons 0 repeat-bar-translate)               
               \"2slash"              
            #})))
    #})
      ((string=? repeat-bar-type "[")  
    #{
      \once \override Staff.BarLine.stencil =
      #(lambda (grob)
         (ly:stencil-combine-at-edge
          (ly:bar-line::print grob)
          X RIGHT
          (grob-interpret-markup grob 
            #{ 
              \markup
              \translate #(cons 0 repeat-bar-translate)               
               \scale #'(1 . -1 )  
               \"2slash"              
            #})))
    #})
    (else 
    #{
      \once \override Staff.BarLine.stencil = #ly:bar-line::print
    #})))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new PianoStaff << { c'1 
      \bar ".|:" 
      \slashHaut #"["  #5 
   c' \slashHaut #"]" #5
   c' }
   { c' 
     \slashBas #"[" #-5
     c' 
     \bar ":|."
     \slashBas #"]"  #-5 c'
   }
>> 



--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]