Archiviertes Lilypond Forum (2017)

Moin,

ich hab schon mit \break und \nobreak experimentiert - aber das wird nur schlimmer

Wie bekomme ich so eine Ausgabe "komprimiert"?



Dank & Gruß
Joei

ZitatWie bekomme ich so eine Ausgabe "komprimiert"?

Was heißt komprimiert?

Mehr Takte pro Zeile?
Mehr Zeilen pro Seite?
Insgesamt kleinere Ausgabe?
Oder ...?

Welche Version?

-Harm

meine Version ist 2.16.2,
gerade auf der ersten (hier abgebildeten Seite) hätte ich gerne sowohl mehr Takte pro Zeile
als auch mehr Zeilen auf der Seite...  später im Werk siehts so aus (Anhang) - das gefällt mir deutlich besser...
beides aber so "automatisch" entstanden.

\version "2.16.2"

Hab jetzt versucht im Layoutblock folgendes unterzubringen:

\context {
      \Score
      \override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 2)
    }
aber egal, was ich an der ly:make-moment Länge ändere, es scheint keine Auswirkung zu haben

Hallo Joei,

den Versuch am SpacingSpanner rumzuschrauben würde ich mir für gaaaanz zuletzt aufheben.

1. Versuch es erst mal mit \paper-Variablen:
page-count
bzw evtl
system-count

2. Wenn das nicht hilft dann mit einer zweiten Stimme für \breaks
(ist wesentlich einfacher als andauernd \noBreak bzw \break in die Stimme zu schreiben)

Falls Du gänzlich auf manuelle breaks ausweichst so setze
\override NonMusicalPaperColumn #'line-break-permission = ##f
und falls Du die pageBreaks auch manuell machst
\override NonMusicalPaperColumn #'page-break-permission = ##f
in \layout.

3. Es gibt auch http://lsr.dsi.unimi.it/LSR/Item?u=1&id=838
Unter http://lilypond.1069038.n5.nabble.com/measures-per-system-td136878.html findest Du die soweit ich weiß neueste Fassung.
Dank an David Nalesnik.
Hierdurch wird das Schreiben einer zweiten Stimme überflüssig, vielmehr alles über einen engraver geregelt.

Im Beispiel-Code ist nur das unveränderte Original-Beispiel einkommentiert. Versuch doch mal stattdessen eine der anderen Möglichkeiten einzukommentieren und schau was passiert.

\version "2.16.1"

m =
\relative c' {
        \repeat unfold 50 { c4 e8 g c4 e8 g | c4 g8 e c4 g8 e | } \bar "|."
}

breakVoice = {
        \repeat unfold 33 { s1*3 \break }
}

groupOriginal =
<<
\new Staff \m
\new Staff \m
>>

groupBreakVoice =
<<
\new Staff << \m \breakVoice >>
\new Staff \m
>>

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%{
\score {
        \groupOriginal
}
%}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%{
\paper {
        page-count = 2 % This will return a warning, because the music doesn't fit on 2 pages
        % Sometimes alternatively:
        %system-count = 3
}

\score {
        \groupOriginal
}
%}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%{
\score {
        \groupBreakVoice
        \layout {
            \context {
              \Score
              % To insist on your manual \break
              \override NonMusicalPaperColumn #'line-break-permission = ##f
              % To insist on your manual \pageBreak
              %\override NonMusicalPaperColumn #'page-break-permission = ##f
            }
        }
}
%}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%{
#(define (expand-repetitions lst seed)
  (if (symbol? (car lst))
      (let* ((str (symbol->string (car lst)))
             (split (string-split str #\*))
             (split (map (lambda (elem) (string->number elem)) split)))
        (set! seed (append seed (make-list (cadr split) (car split)))))
      (set! seed (append seed (list (car lst)))))
  (if (null? (cdr lst))
      seed
      (expand-repetitions (cdr lst) seed)))

#(define (bars-per-line-systems-per-page-engraver lst)
  (let* ((working-copy
           (if (pair? (car lst))
               (map (lambda (sys) (expand-repetitions sys '()))
                    lst)
               (expand-repetitions lst '())))
         (bars-and-systems? (pair? (car lst)))
         (systems-per-page
           (if bars-and-systems?
               (car working-copy)
               #f))
         (total
           (if systems-per-page
               (1+ (car systems-per-page))
               (1+ (car working-copy))))
         (last-measure-seen 0))
  `((stop-translation-timestep
      . ,(lambda (trans)
          (let* ((context (ly:translator-context trans))
                 (internal-bar (ly:context-property context 'internalBarNumber))
                 (current-col (ly:context-property context 'currentCommandColumn)))
            ;; we are only interested in the first NonMusicalPaperColumn of
            ;; each measure
            (if (and (> internal-bar last-measure-seen)
                     (= (remainder internal-bar total) 0)
                     (pair? working-copy))
                (begin
                  (set! (ly:grob-property current-col 'line-break-permission) 'force)
                  (set! last-measure-seen internal-bar)
                  (if bars-and-systems?
                      (begin
                        (if (null? (cdr systems-per-page))
                            (begin
                              (set! (ly:grob-property current-col 'page-break-permission) 'force)
                              (if (pair? (cdr working-copy))
                                  (begin
                                    (set! working-copy (cdr working-copy))
                                    (set! systems-per-page (car working-copy)))
                                  (set! working-copy '())))
                            (set! systems-per-page (cdr systems-per-page)))
                        (set! total (+ total (car systems-per-page))))
                      (begin
                        (if (null? (cdr working-copy))
                            (set! working-copy lst)
                            (begin
                              (set! working-copy (cdr working-copy))))
                              (set! total (+ total (car working-copy)))))))))))))
       
\paper { ragged-last-bottom = ##f }

\score {
        \groupOriginal
        \layout {
          \context {
            \Score
            % To insist on your manual \break
            \override NonMusicalPaperColumn #'line-break-permission = ##f
            % To insist on your manual \pageBreak
            %\override NonMusicalPaperColumn #'page-break-permission = ##f
          }
          \context {
            \Staff
            %% The following override specifies measures per line only
            %\consists #(bars-per-line-systems-per-page-engraver '(5 7*5 1 3*3))
       
            %% The following line specifies measures per line and systems per page
            \consists #(bars-per-line-systems-per-page-engraver '((6*6) (6*6) (6*6)))
          }
        }
}
%}


HTH,
  Harm

P.S. Falls nichts für Dich passend ist können wir immer noch nach dem SpacingSpanner schauen.

Danke für Deine umfassende Antwort, werde ich mir mal in Ruhe zu Gemüte führen.

System-Count (bzw min-systems-per-page) hats gebracht - DANKE!