Taktanzahl pro Zeile vorgeben in Version 2.18.2

[Webfox]

Hallo,

ich habe in einem älteren Code eine Lösung gefunden, wie ich die Anzahl der Takte pro Zeile begrenzen kann: \repeat unfold 10 { s1*3 \break}

Da der Beitrag über 120 Tage alt ist, habe ich ein neues Thema gestartet, da ich nicht weiß, ob die Lösung so noch funktioniert und ich es nicht hinbekomme.

Wie kann ich bei Schlagzeugnoten die Taktanzahl auf max. 4 pro Zeile definieren?

Beispielsweise in diesem Code:

Code: [Auswählen]

\version "2.18.2"

\new DrumStaff
  \with {
    \consists "Parenthesis_engraver"
    drumStyleTable = #(alist->hash-table drumset)
    instrumentName = #"1"
    \numericTimeSignature   
  }
  \new DrumVoice
    \with {
      \stemUp
      \override Script.direction = #UP
      \override Script.outside-staff-priority = #451
      \override TextScript.padding = 2
    }
    \drummode {
      \time 4/4
      \tempo 4=120
       
     
      %%\once \textLengthOn
       
     
      %%\once \override TextScript.X-offset = #-0.4


%---------------Hier beginnt der eigentliche Noten Code----------------------------------
sn4 ^"L"-> sn^"L" <\parenthesize sn>^"L" \acciaccatura sn^"R" sn^"L"
<bd hh>8 hh8 <sn hh>8 hh8 <bd hh>8 <bd hh>8 <bd hh>8 hh16 <\parenthesize sn>16
<bd sn>8^"L" sn^"R"-> <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R" 
<bd sn>8^"L" sn^"R" <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R"
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" \break
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" \break
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
%---------------Hier endet der eigentliche Noten Code------------------------------------
}
Kann dabei die oben erwähnte Lösung benutzt werden? Wenn ja, wie genau baue ich diese ein?

[trulli]

Hi Webfox,

ja, die Lösung funktioniert noch, denn man kann sie in jeden beliebigen Kontext einbauen.
Hier zwei Möglichkeiten, wie du zum Ziel kommen kannst:

1. Eine temporäre 2. Stimme erzeugen:

Code: [Auswählen]

\version "2.18.2"

\new DrumStaff
  \with {
    \consists "Parenthesis_engraver"
   % drumStyleTable = #(alist->hash-table drumset)
    instrumentName = #"1"
    \numericTimeSignature   
  }
  \new DrumVoice
    \with {
      \stemUp
      \override Script.direction = #UP
      \override Script.outside-staff-priority = #451
      \override TextScript.padding = 2
    }
    \drummode {
      \time 4/4
      \tempo 4=120
       
     
      %%\once \textLengthOn
       
     
      %%\once \override TextScript.X-offset = #-0.4


%---------------Hier beginnt der eigentliche Noten Code----------------------------------
<<

\repeat unfold 40 { sn4 ^"L"-> sn^"R" sn^"L" sn^"R"}

\\

\repeat unfold 10 { s1*4 \break}

>>
%---------------Hier endet der eigentliche Noten Code------------------------------------
}
2. Eine "count"-Stimme erzeugen. Dann brauchst du eine \score-Umgebung. Diese Lösung finde ich persönlich am besten:

Code: [Auswählen]

\version "2.18.2"


drum =   
\drummode {

\repeat unfold 40 { sn4 ^"L" sn^"R" sn^"L" sn^"R"}

}

count = \repeat unfold 10 { s1*4 \break}



\score {
   <<
      \new DrumStaff
      \with {
    \consists "Parenthesis_engraver"
   % drumStyleTable = #(alist->hash-table drumset)
    instrumentName = #"1"
    \numericTimeSignature   
  }
 
  <<
        \context DrumVoice = "drum" \drum
        \context DrumVoice = "count" \count
      >>
  >>
         }
LG Trulli

[harm6]

Einfacher geht es mit
http://lsr.di.unimi.it/LSR/Item?id=838
imho

Gruß,
  Harm

[Webfox]

Ich muss gestehen, dass ist mir (noch) alles viel zu kompliziert, denn ich war bisher reiner Anwender und habe mich nie mit Programmierung befasst. Wenn ich den fertigen, funktionierenden Code sehe und mir dazu alle möglichen Anleitungen durchlese, beginne ich, den Code zu verstehen.

Aber ich habe es nicht hinbekommen, was ich wo einbauen muss, damit ich in meinem oben geposteten Beispiel 4 Takte pro Zeile hin bekomme. Könntet Ihr eine Eurer Lösungen vielleicht in meinen geposteten Code einbauen? Dann begreife ich das besser - weil visuell erkennbar...

[infranator]

Hi Webfox,

mit Programmierung musst Du dich auch nicht befassen, copy paste reicht vollkommen aus. Einfach die kryptische Code-Wurst und den layout-Block in deine Datei kopieren:

Code: [Auswählen]

\version "2.18.2"

#(define ((bars-per-line-engraver bar-list) context)
   (let* ((working-copy bar-list)
          (total (1+ (car working-copy))))
     `((acknowledgers
        (paper-column-interface
         . ,(lambda (engraver grob source-engraver)
              (let ((internal-bar (ly:context-property context 'internalBarNumber)))
                (if (and (pair? working-copy)
                         (= (remainder internal-bar total) 0)
                         (eq? #t (ly:grob-property grob 'non-musical)))
                    (begin
                     (set! (ly:grob-property grob 'line-break-permission) 'force)
                     (if (null? (cdr working-copy))
                         (set! working-copy bar-list)
                         (begin
                          (set! working-copy (cdr working-copy))))
                     (set! total (+ total (car working-copy))))))))))))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EXAMPLE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new DrumStaff
  \with {
    \consists "Parenthesis_engraver"
    drumStyleTable = #(alist->hash-table drumset)
    instrumentName = #"1"
    \numericTimeSignature   
  }
  \new DrumVoice
    \with {
      \stemUp
      \override Script.direction = #UP
      \override Script.outside-staff-priority = #451
      \override TextScript.padding = 2
    }
    \drummode {
      \time 4/4
      \tempo 4=120
       
     
      %%\once \textLengthOn
       
     
      %%\once \override TextScript.X-offset = #-0.4


%---------------Hier beginnt der eigentliche Noten Code----------------------------------
sn4 ^"L"-> sn^"L" <\parenthesize sn>^"L" \acciaccatura sn^"R" sn^"L"
<bd hh>8 hh8 <sn hh>8 hh8 <bd hh>8 <bd hh>8 <bd hh>8 hh16 <\parenthesize sn>16
<bd sn>8^"L" sn^"R"-> <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R" 
<bd sn>8^"L" sn^"R" <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R"
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" \break
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" \break
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
%---------------Hier endet der eigentliche Noten Code------------------------------------
}

\layout {
  \context {
    \Score
    %use the line below to insist on your layout
    %\override NonMusicalPaperColumn.line-break-permission = ##f
    \consists #(bars-per-line-engraver '(4))
  }
}


Das hier wäre die "klassische Methode":

Code: [Auswählen]

\version "2.18.2"

count = {
  \repeat unfold 4 {
    s1*4 \break
  }
}

schlagzeug = \new DrumVoice
\with {
  \stemUp
  \override Script.direction = #UP
  \override Script.outside-staff-priority = #451
  \override TextScript.padding = 2
}
\drummode {
  \time 4/4
  \tempo 4=120
 
 
  %%\once \textLengthOn
 
 
  %%\once \override TextScript.X-offset = #-0.4


  %---------------Hier beginnt der eigentliche Noten Code----------------------------------
  sn4 ^"L"-> sn^"L" <\parenthesize sn>^"L" \acciaccatura sn^"R" sn^"L"
  <bd hh>8 hh8 <sn hh>8 hh8 <bd hh>8 <bd hh>8 <bd hh>8 hh16 <\parenthesize sn>16
  <bd sn>8^"L" sn^"R"-> <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R" 
  <bd sn>8^"L" sn^"R" <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R"
  <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
  <bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" \break
  <bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
  <bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
  <bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
  <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
  <bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" \break
  <bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
  <bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
  <bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
  %---------------Hier endet der eigentliche Noten Code------------------------------------
}

\new DrumStaff
\with {
  \consists "Parenthesis_engraver"
  drumStyleTable = #(alist->hash-table drumset)
  instrumentName = #"1"
  \numericTimeSignature   
} <<
  \schlagzeug
  \count
>>

Übrigens: In keinem der beiden Beispiele sind tatsächlich vier Takte in einer Zeile, dazu stehen da zu viele Noten. Darum baut Lilypond noch zusätzliche Umbrüche ein.
vg,
infranator

[harm6]

Hat nichts mit programmieren zu tun, einfach copy'n paste:

Code: [Auswählen]

\version "2.18.2"

%#(set-default-paper-size "a4" 'landscape)

\layout {
    \context {
      \Score
      %% To insists on your breaking, otherwise LilyPond will sometimes add
      %% additional ones
      \override NonMusicalPaperColumn #'line-break-permission = ##f
    }
}

\new DrumStaff
  \with {
    \consists "Parenthesis_engraver"
%    drumStyleTable = #(alist->hash-table drumset)
    instrumentName = #"1"
    \numericTimeSignature   
  }
  <<
  \new DrumVoice
    \with {
      \stemUp
      \override Script.direction = #UP
      \override Script.outside-staff-priority = #451
      \override TextScript.padding = 2
    }
    \drummode {
      \time 4/4
      \tempo 4=120
       
     
      %%\once \textLengthOn
       
     
      %%\once \override TextScript.X-offset = #-0.4


%---------------Hier beginnt der eigentliche Noten Code----------------------------------
sn4 ^"L"-> sn^"L" <\parenthesize sn>^"L" \acciaccatura sn^"R" sn^"L"
<bd hh>8 hh8 <sn hh>8 hh8 <bd hh>8 <bd hh>8 <bd hh>8 hh16 <\parenthesize sn>16
<bd sn>8^"L" sn^"R"-> <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R" 
<bd sn>8^"L" sn^"R" <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R"
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
%---------------Hier endet der eigentliche Noten Code------------------------------------
}
\new DrumVoice
  \repeat unfold 3 { s1*4 \break}

>>

bzw:

Code: [Auswählen]

\version "2.18.2"

#(define ((bars-per-line-engraver bar-list) context)
  (let* ((working-copy bar-list)
         (total (1+ (car working-copy))))
    `((acknowledgers
       (paper-column-interface
        . ,(lambda (engraver grob source-engraver)
             (let ((internal-bar (ly:context-property context 'internalBarNumber)))
               (if (and (pair? working-copy)
                        (= (remainder internal-bar total) 0)
                        (eq? #t (ly:grob-property grob 'non-musical)))
                   (begin
                     (set! (ly:grob-property grob 'line-break-permission) 'force)
                     (if (null? (cdr working-copy))
                         (set! working-copy bar-list)
                         (begin
                           (set! working-copy (cdr working-copy))))
                           (set! total (+ total (car working-copy))))))))))))
                           
#(set-default-paper-size "a4" 'landscape)

\score {
  \new DrumStaff
    \with {
      \consists "Parenthesis_engraver"
      %drumStyleTable = #(alist->hash-table drumset)
      instrumentName = #"1"
      \numericTimeSignature   
    }
  \new DrumVoice
    \with {
      \stemUp
      \override Script.direction = #UP
      \override Script.outside-staff-priority = #451
      \override TextScript.padding = 2
    }
    \drummode {
      \time 4/4
      \tempo 4=120
       
     
      %%\once \textLengthOn
       
     
      %%\once \override TextScript.X-offset = #-0.4


%---------------Hier beginnt der eigentliche Noten Code----------------------------------
sn4 ^"L"-> sn^"L" <\parenthesize sn>^"L" \acciaccatura sn^"R" sn^"L"
<bd hh>8 hh8 <sn hh>8 hh8 <bd hh>8 <bd hh>8 <bd hh>8 hh16 <\parenthesize sn>16
<bd sn>8^"L" sn^"R"-> <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R" 
<bd sn>8^"L" sn^"R" <bd sn hhp>^"L" sn^"R" <bd sn>^"L" sn^"R" <bd sn hhp>^"L" sn^"R"
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
<bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R"
<bd sn>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd sn hhp>8^"L" sn^"R" <bd sn>16^"L" sn^"R" sn^"L" sn^"R" <bd sn hhp>32^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R" sn^"L" sn^"R"
<bd sn>4^"L" <bd tomh hhp>8^"L" tomh^"R" <bd tomml>16^"L" tomml^"R" tomml^"L" tomml^"R" <bd toml hhp>32^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R" toml^"L" toml^"R"
<bd hh>8 hh <sn hh> hh <bd hh> <bd hh> <sn>16 bd <hh sn hh>8
%---------------Hier endet der eigentliche Noten Code------------------------------------
}   
  \layout {
    \context {
      \Score
      %use the line below to insist on your layout
      \override NonMusicalPaperColumn.line-break-permission = ##f
      \consists #(bars-per-line-engraver '(4))
    }
  }
}

Die Zeile:
drumStyleTable = #(alist->hash-table drumset)
gibt einen Fehler aus, da drumset (hier) nicht definiert ist.
Bitte teste Deine snippets bevor Du sie postest.
Im übrigen ist es stilistisch besser, wenn Du pro Zeile nicht mehr als 80 Anschläge tippst.


Gruß,
  Harm

EDIT:

Im übrigen ist es stilistisch besser, wenn Du pro Zeile nicht mehr als 80 Anschläge tippst.

!!!!
Deine eigenen \breaks am Zeilenende hatte ich zunächst übersehen.

[Webfox]

Vielen Dank. Ich werde mich jetzt ausführlich mit den Lösungen beschäftigen. Copy/Paste funktioniert auch nur dann, wenn man genau weiß, was man tut 

Es funktioniert nun und mir ist klar, was ich wo einbinden muss. Ebenso macht das Umschalten auf Querformat bei vier Takten pro Zeile Sinn  Vielen Dank.