[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user
Subject:    =?UTF-8?B?4oCcU3ViZGl2aWRlQmVhbXPigJ0gcHJvYmxlbQ==?=
From:       Николай Аничк� <anichkov.zagrebin () gmail ! co
Date:       2021-10-31 17:05:21
Message-ID: CANeJYs5sYkHovSUAKfqMPyNELR1EiWd+uvjDKhHQdD_ehR-NxA () mail ! gmail ! com
[Download RAW message or body]

[Attachment #2 (multipart/related)]

[Attachment #4 (multipart/alternative)]


Greetings! Please help me fix beams. From the third line, I need to
separate the group of 32nd notes, but leave them under the same beam with
the previous notes. These errors appear in other cases as well. There are
also problems with grouping in the 17th and 18th bars. This cannot be
corrected even by the command (subdivide beams).Meanwhile, in some cases,
the command works correctly
[image: image.png]

[Attachment #7 (text/html)]

<div dir="ltr">Greetings! Please help me fix beams. From the third line, I need to \
separate the group of 32nd notes, but leave them under the same beam with the \
previous notes. These errors appear in other cases as well. There are also problems \
with grouping in the 17th and 18th bars. This cannot be corrected even by the command \
(subdivide beams).Meanwhile, in some cases, the command works correctly

<br><div><img src="cid:ii_kvfhfkw00" alt="image.png" width="375" height="452" \
style="margin-right: 0px;"><br></div></div>


["image.png" (image/png)]
["Crossing the Minch.ly" (text/lilypond-source)]

\version "2.20.0"

%{
  LilyPond file definitions for Highland snare drum scores.
  Version 2.0
  Originally contributed by Simon Froger, with help from
  Pierre Perol-Schneider and Gilles Thibault.
  
  Please save the following definitions as scottish-drums.ily
  and add this line to your score:
  \include "[path]/scottish-drums.ily"
  
  Music should then be written inside
  \new DrumStaff {
    \drummode {
     [music]
    }
  }
  or by using the \drums { [music] } shortcut.

QUICK GUIDE:

d: (`droit') right hand stroke
g: (`gauche') left hand stroke

->: accent
\v: strong accent
  
FLA and DRAG are to be inserted *before* the note.

RA takes the following note as an argument,
optionally preceded by a number to be
printed as the tremolo count.

%}

% note names definition:
% d for the right hand, g for the left one.
drumPitchNames =
#(append
  '((d . main-droite)
    (g . main-gauche))
  drumPitchNames)

% right hand should be printed above the staff line,
% left hand below.
#(define mysnaredrums
   '((main-droite  default  #f  1)
     (main-gauche  default  #f  -1)))

% marges internes :
\paper {
  markup-system-spacing.basic-distance = #15
  system-system-spacing.basic-distance = #15
}

\layout {
  indent = 0
  % Stems need to make some room for RA count numbers.
  % If actual ordinary markups are required, these will
  % need to be preceded with \textLengthOff
  \textLengthOn
  \dynamicUp
  \set DrumStaff.drumStyleTable = #(alist->hash-table mysnaredrums)
  \context {
    \DrumStaff
    % one-line staff
    \override StaffSymbol.line-positions = #'(0)
    % bar lines
    \override BarLine.bar-extent = #'(-2 . 2)
    % stems
    \override Stem.direction = #-1
    \override Stem.length = #11
    \override Stem.stemlet-length = #1.5
    % horizontal beams
    \override Beam.positions = #'(-5.5 . -5.5)
    % RA count numbers below the curves
    \override TextScript.outside-staff-priority = ##f
    \override TextScript.side-axis = #0
    \override TextScript.staff-padding = #3
    \override TextScript.X-offset = #2
    \override TextScript.extra-offset = #'(-0.3 . 0)
    % tremolos (RA)
    \override StemTremolo.slope = #0.5
    \override StemTremolo.beam-width = #1.5
    \override StemTremolo.beam-thickness = #0.3
    \override StemTremolo.extra-offset = #'(0 . 0.6)
    %\override StemTremolo.Y-offset = #-3.3
    % Repeat brackets:
    \consists "Horizontal_bracket_engraver"
    \override HorizontalBracket.staff-padding = #8
    \override HorizontalBracket.direction = #DOWN
    \override HorizontalBracket.bracket-flare = #'(0 . 0)
  }
  \context {
    \Score
    \override RehearsalMark.break-align-symbols = #'(clef)
    \override RehearsalMark.padding = #3
    \override VoltaBracket.edge-height = #'(1.5 . 1.5)
  }
}

% grace notes :
startGraceMusic = {
  \stemUp
  \tiny
  \override Flag.stroke-style = #"grace"    % slashed stems
  \once \override Beam.positions = #'(3 . 3)  % beam position for drag notes
  \once \override DrumStaff.Stem.length = #7  % end beam position
}
stopGraceMusic =  {
  %\override Beam.positions = #'(-6 . -6)
  \revert Flag.stroke-style
  %\revert DrumStaff.Stem.length
  \normalsize
  \stemNeutral
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%      SPECIAL FUNCTIONS:      %%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% TRIPLETS & QUINTUPLETS:

triplet =
#(define-music-function (parser location myMusic) (ly:music?)
   #{ \drummode { \tuplet 3/2 { #myMusic } } #})

quintuplet =
#(define-music-function (parser location myMusic) (ly:music?)
   #{ \drummode { \tuplet 5/4 { #myMusic } } #})


% DYNAMICS:
v =
#(define-event-function (parser location) ()
   #{ \upbow #})

% DYNAMICS WITH EXTENDERS:
dynLine =
#(define-music-function (parser location text) (markup?)
   #{
     \once \override TextSpanner.style = #'line
     \once \override TextSpanner.bound-details.left.text = \markup {
       \combine
       \draw-line #'(0 . -1)
       \draw-line #'(1 . 0)
       \dynamic #text
     }
     \once \override TextSpanner.bound-details.right.text = \markup {
       \draw-line #'(0 . -1)
     }
   #})


% REPEAT BRACKETS:
% Beginning:
dr =
#(define-event-function (parser location) ()
   #{ \startGroup #})
% Ending :
fr =
#(define-event-function (parser location) ()
   #{ \stopGroup #})

% On one single note :
rn = \markup \lower #4 \halign #1 {
  \path #0.1 #'((moveto 0 0)
                (lineto 0 -1)
                (lineto 2 -1)
                (lineto 2 0))
}



% FLAS and DRAGS:
fla =
#(define-music-function (parser location myNote) (ly:music?)
   (define test
     (filter
      (lambda (m)
        (= (ly:music-property m 'span-direction 0) -1))
      (extract-named-music myNote '(NoteGroupingEvent))))
   (if (not (null? test))
       (music-filter
        (lambda (event)
          (not (member
                (ly:music-property event 'name)
                '(NoteGroupingEvent))))
        myNote))
   (if (eq? (ly:music-property myNote 'drum-type) 'main-droite)
       (if (null? test)
           #{ \drummode { \grace g8 #myNote } #}  
           #{ \drummode { \grace g8\startGroup #myNote } #}
           )
       (if (null? test)
           #{ \drummode { \grace d8 #myNote } #}
           #{ \drummode { \grace d8\startGroup #myNote } #}
           )))

drag =
#(define-music-function (parser location myNote) (ly:music?)
   (define test
     (filter
      (lambda (m)
        (= (ly:music-property m 'span-direction 0) -1))
      (extract-named-music myNote '(NoteGroupingEvent))))
   (if (not (null? test))
       (music-filter
        (lambda (event)
          (not (member
                (ly:music-property event 'name)
                '(NoteGroupingEvent))))
        myNote))
   (if (eq? (ly:music-property myNote 'drum-type) 'main-droite)
       (if (null? test)
           #{ \drummode { \grace { g16[ g] } #myNote } #}
           #{ \drummode { \grace { g16[\startGroup g] } #myNote } #}
           )
       (if (null? test)
           #{ \drummode { \grace { d16[ d] } #myNote } #}
           #{ \drummode { \grace { d16[\startGroup d] } #myNote } #}
           )))


% RA:
ra =
#(define-music-function (parser location myRa myNote) ((integer?) ly:music?)
   (define myCoef (ly:duration-log (ly:music-property myNote 'duration)))
   (set! (ly:music-property myNote 'articulations)
         (cons
          (make-music 'TremoloEvent 'tremolo-type 
            (* (if (> 8 myRa) 4 8) (expt 2 (if (= 1 myCoef) 2 myCoef)))
            )
          (ly:music-property myNote 'articulations)))
   (if (and (not (null? myRa))
            (< 0 myRa))
       (set! (ly:music-property myNote 'articulations)
             (cons
              (make-music 'TextScriptEvent 'direction -1 'text
                (number->string myRa))
              (ly:music-property myNote 'articulations))))
   myNote)

% BEAM SUBDIVISIONS:
divLig =
{
  \set subdivideBeams = ##t
  \set baseMoment = #(ly:make-moment 1 8)
  \set beatStructure = #'(2 2 2 2 2)
}

% FLA & DRAG COMBINATIONS:
flad = \drummode { \grace { g8 } }                      % right Fla
fladdr = \drummode { \grace { g8\startGroup } }         % with start repeat
flag = \drummode { \grace { d8 } }                      % left Fla
flagdr = \drummode { \grace { d8\startGroup } }         % with start repeat
dragd = \drummode { \grace{ g16[ g] }}                  % right Drag
dragddr = \drummode { \grace{ g16[\startGroup g] }}     % with start repeat
dragg = \drummode { \grace{ d16[ d] }}                  % left Drag
draggdr = \drummode { \grace{ d16[\startGroup d] }}     % with start repeat
\paper {
    print-all-headers = ##t
}
\score{
    \new DrumStaff {
    \drummode {
       \omit TupletBracket 
      \set subdivideBeams = ##t
      \time 2/4
      \partial 8 \bar ".|:" d16. g32 \fla d16 \ra5 d (\tuplet 3/2 {d16) g d} \ra5 \
g8->(\tuplet 3/2 {d16) g d} \fla g16 \ra5 d (\tuplet 3/2 {d16) g d} \fla g8 d16. g32 \
\fla d16 \ra5 d (\tuplet 3/2 {d16) g d} \ra5 g8->(\tuplet 3/2 {d16) g d} g16. g32 \
\ra9 d8.-> (\ra9 g8.->) (\break)    d16 \ra5 d (\tuplet 3/2 {d16) g d} \ra5 \
g8->(\tuplet 3/2 {d16) g d} \fla g16 \ra5 d (\tuplet 3/2 {d16) g d} \fla g8 d16. g32 \
\fla d16. \ra5 d32 (d16.) g32 \tuplet 3/2 {\fla d16 g d} g16. \fla d32  g16. \fla g32 \
\ra7 d8 (g8) \bar ":|.|:" \break d16. g32    \set baseMoment = # (ly:make-moment 1/8)
    \fla d 16. g32 d g d g d16. g32  \ra7 d8 (g16.) g32 d g d g d8 d16. g32 \fla d16 \
\ra5 d (\tuplet 3/2 {d16) g d} \ra5 g8->(\tuplet 3/2 {d16) g d} g16. g32 \ra9 d8.-> \
(\ra9 g8.->) (\break)  d 16. g32 d g d g d16. g32  \ra7 d8 (g16.) g32 d g d g d8 d16. \
g32 \fla d16. \ra5 d32 (d16.) g32 \tuplet 3/2 {\fla d16 g d} g16. \fla d32  g16. \fla \
g32 \ra7 d8 (g8) s8  \bar ":|.|:" \break  \drag d16. d32 \drag g16. g32 d g d g d16. \
g32 d 16. \drag d32 d g d g d8 d16. g32 \fla d16 \ra5 d (\tuplet 3/2 {d16) g d} \ra5 \
g8->(\tuplet 3/2 {d16) g d} g16. g32 \ra9 d8.-> (\ra9 g8.->) (\break)  d 16. g32   \
\drag d16. d32 g 16. \drag d32 d g d g d16 \ra5 d (\tuplet 3/2 {d16) g d} \fla g8 \
d16. g32 \fla d16. \ra5 d32 (d16.) g32 \tuplet 3/2 {\fla d16 g d} g16. \fla d32  g16. \
\fla g32 \ra7 d8 (g8)\bar ":|.|:" \break d16. g32    \ra5 d8-> (g32) d g d \ra5 \
g8->(\tuplet 3/2 {d16) g d} \tuplet 3/2 {g d g} \ra5 d8-> (g32) d g d \ra5 g8-> (\ra5 \
d8->) (g32) d g d \ra5 g8->(\tuplet 3/2 {d16) g d} g16. g32 \ra9 d8.-> (\ra9 g8.->) \
(\break)    d8-> (g32) d g d \ra5 g8->(\tuplet 3/2 {d16) g d} g16. g32 \ra5 d8-> (g8) \
d16. g32 \fla d16. \ra5 d32 (d16.) g32 \tuplet 3/2 {\fla d16 g d} g16. \fla d32  g16. \
\fla g32 \ra7 d8 (g8) s8  \bar ":|."  }
    }
}



[prev in list] [next in list] [prev in thread] [next in thread]