fix to major bug that was causing generation of different realizations with the same seed - this is the new definite version for the original seed
parent
19a23c83cb
commit
18253e6ba2
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,171 @@
|
||||
\version "2.19.83"
|
||||
|
||||
#(define (override-color-for-all-grobs color)
|
||||
(lambda (context)
|
||||
(let loop ((x all-grob-descriptions))
|
||||
(if (not (null? x))
|
||||
(let ((grob-name (caar x)))
|
||||
(ly:context-pushpop-property context grob-name 'color color)
|
||||
(loop (cdr x)))))))
|
||||
|
||||
#(define-markup-command (relMark layout props mus) (ly:music?)
|
||||
#:properties ((size -2))
|
||||
(interpret-markup layout props
|
||||
#{
|
||||
\markup {
|
||||
\score {
|
||||
\new Staff { $mus }
|
||||
\layout {
|
||||
\context {
|
||||
\Staff
|
||||
\remove Time_signature_engraver
|
||||
fontSize = #-2
|
||||
\hide Stem
|
||||
\override TextScript.outside-staff-priority = ##f
|
||||
\override StaffSymbol.staff-space = #(magstep -2)
|
||||
\override StaffSymbol.thickness = #(magstep -2)
|
||||
\override TextScript.self-alignment-X = #-0.4
|
||||
\override TextScript.staff-padding = #1
|
||||
}
|
||||
\context {
|
||||
\Score
|
||||
proportionalNotationDuration = #(ly:make-moment 1/16)
|
||||
\remove "Separating_line_group_engraver"
|
||||
\override SpacingSpanner.strict-note-spacing = ##t
|
||||
\override RehearsalMark.self-alignment-X = #-1
|
||||
\override RehearsalMark.Y-offset = #10
|
||||
\override RehearsalMark.X-offset = #10
|
||||
}
|
||||
\context {
|
||||
\Voice
|
||||
\consists "Horizontal_bracket_engraver"
|
||||
\override HorizontalBracket.direction = #UP
|
||||
}
|
||||
indent = 0
|
||||
line-width = 4\cm
|
||||
}
|
||||
}
|
||||
}
|
||||
#}))
|
||||
|
||||
|
||||
\paper {
|
||||
#(set-paper-size "a4" 'portrait)
|
||||
top-margin = 1 \cm
|
||||
bottom-margin = 1 \cm
|
||||
left-margin = 2 \cm
|
||||
ragged-bottom = ##t
|
||||
|
||||
top-system-spacing =
|
||||
#'((basic-distance . 15 )
|
||||
(minimum-distance . 15 )
|
||||
(padding . 0 )
|
||||
(stretchability . 0))
|
||||
|
||||
system-system-spacing =
|
||||
#'((basic-distance . 35 )
|
||||
(minimum-distance . 35 )
|
||||
(padding . 0 )
|
||||
(stretchability . 0))
|
||||
|
||||
last-bottom-spacing =
|
||||
#'((basic-distance . 10 )
|
||||
(minimum-distance . 10 )
|
||||
(padding . 0 )
|
||||
(stretchability . 0))
|
||||
|
||||
%systems-per-page = 8
|
||||
%max-systems-per-page = 8
|
||||
first-page-number = 1
|
||||
print-first-page-number = ##t
|
||||
|
||||
print-page-number = ##t
|
||||
oddHeaderMarkup = \markup { \fill-line { \line { \on-the-fly #not-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: 19800725)}}}}}}
|
||||
evenHeaderMarkup = \markup { \fill-line { \line { \on-the-fly #not-first-page {\pad-markup #2 { \concat {\italic {"to kill a monarch "} (seed: 19800725)}}}}}}
|
||||
oddFooterMarkup = \markup { \fill-line {
|
||||
\concat {
|
||||
"-"
|
||||
\fontsize #1.5
|
||||
\on-the-fly #print-page-number-check-first
|
||||
\fromproperty #'page:page-number-string
|
||||
"-"}}}
|
||||
evenFooterMarkup = \markup { \fill-line {
|
||||
\concat {
|
||||
"-"
|
||||
\fontsize #1.5
|
||||
\on-the-fly #print-page-number-check-first
|
||||
\fromproperty #'page:page-number-string
|
||||
"-"}}}
|
||||
}
|
||||
|
||||
\header {
|
||||
title = \markup { \italic {to kill a monarch}}
|
||||
composer = \markup \right-column {"michael winter" "(berlin, germany; 2021)"}
|
||||
poet = "seed: 19800725"
|
||||
tagline = ""
|
||||
}
|
||||
|
||||
#(set-global-staff-size 11)
|
||||
|
||||
\layout {
|
||||
indent = 0.0\cm
|
||||
line-width = 17.5\cm
|
||||
ragged-last = ##f
|
||||
ragged-right = ##f
|
||||
|
||||
\context {
|
||||
\Score
|
||||
\override BarNumber.stencil = #(make-stencil-circler 0.1 0.25 ly:text-interface::print)
|
||||
\override Stem.stemlet-length = #0.75
|
||||
proportionalNotationDuration = #(ly:make-moment 1/16)
|
||||
\remove "Separating_line_group_engraver"
|
||||
\override RehearsalMark.self-alignment-X = #-1
|
||||
\override RehearsalMark.Y-offset = #10
|
||||
\override RehearsalMark.X-offset = #-8
|
||||
%\override RehearsalMark.outside-staff-priority = #0
|
||||
}
|
||||
\context {
|
||||
\Staff
|
||||
|
||||
\override VerticalAxisGroup.staff-staff-spacing =
|
||||
#'((basic-distance . 20 )
|
||||
(minimum-distance . 20 )
|
||||
(padding . 0 )
|
||||
(stretchability . 0))
|
||||
|
||||
\override VerticalAxisGroup.default-staff-staff-spacing =
|
||||
#'((basic-distance . 20 )
|
||||
(minimum-distance . 20 )
|
||||
(padding . 0 )
|
||||
(stretchability . 0))
|
||||
\override TextScript.staff-padding = #2
|
||||
\override TextScript.self-alignment-X = #0
|
||||
}
|
||||
\context {
|
||||
\StaffGroup
|
||||
\name "SemiStaffGroup"
|
||||
\consists "Span_bar_engraver"
|
||||
\override SpanBar.stencil =
|
||||
#(lambda (grob)
|
||||
(if (string=? (ly:grob-property grob 'glyph-name) "|")
|
||||
(set! (ly:grob-property grob 'glyph-name) ""))
|
||||
(ly:span-bar::print grob))
|
||||
}
|
||||
\context {
|
||||
\Score
|
||||
\accepts SemiStaffGroup
|
||||
}
|
||||
}
|
||||
|
||||
\midi { }
|
||||
|
||||
|
||||
\score{
|
||||
\new Score
|
||||
<<
|
||||
\include "includes/part_star_8_systemsperpage.ly"
|
||||
>>
|
||||
|
||||
\layout{}
|
||||
\midi{}
|
||||
}
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue