Konterfei/score

Zur Navigation springen Zur Suche springen

Lilypond Score

\version "2.20.0"
\language "deutsch"
myTitel = "Konterfei"
mycomp=\markup { "Richard Winkler" }
[[:Vorlage:LayoutAkko]]
Bassi = \chordmode {
  \set Staff.shortInstrumentName = \markup \caps "Bass"
  \set Staff.instrumentName = \markup \caps "Bass"
}

Bassii = { }

dm = < d f a >8
dt = {
  d,8 \dm \repeat unfold 3 { r q }
  d,8 \dm r q r q c,[ q]
}

xm = < f as c >
xt = {
  f,8 \xm \repeat unfold 3 { r q8 }
}
xu = {
  f,8 \xm r q8 r q-.
}

bt = {
  f,8 \xm r q8 r q < f b d > \xm
}

gd = < g h d >8
gdv = < g h d >4
ad = < a cis e >8
adv = < a cis e >4
em = < e g h >8

BaC = {
  \repeat unfold 3 {
    \gdv \em \gd ~ q8 \em r4
    \gdv \em \gd ~ q8 \ad r4
  }
  \gdv \em \gd ~ q8 \em r4
  \gdv \em \gd ~ q8 \ad ~ q4
}

BaB = {
  \xt
  \xu c8[ \xm]
  \xt
  \xu f,[ \xm]
  \xt
  \xu < b d f, >[ \xm]
  \xt
  \xu < b d f, >[ \xm]
}

BaA = {
  \repeat unfold 3 { \dt }
  d,8 \dm \repeat unfold 3 { r q }
  d,8 \dm r \dm c4 c
}

Bassm = {
  \set Staff.shortInstrumentName = \markup \caps "Bass"
  \set Staff.instrumentName = \markup \caps "Bass"
  \clef bass
  \repeat unfold 4 { \dt }
  \BaA
  \BaB
  \repeat unfold 2 \dt
  \BaC
  h,8 h, d a, h, h, h, r
%%% Teil D
  \repeat volta 2 {
    \repeat unfold 4 { e4 r cis h, }
  }
  \dt \dt
  %% Teil B
  \xt
  \xu c,8[ \xm]
  \xt
  \xu f,8[ \xm]
  \dt \dt
  \BaC
  \dt \dt
  c8-. d-. d4 c8-. d-. d4
  c8-. d-. f4 c8-. d-. d4
}

temaiA = \relative c'' {
  d16 e f8-. e ( d) f-. d-.
}

AkkiA = \relative c'' {
  \set Timing.beatStructure = #'(1 1 1 1)
  \temaiA r4
  \temaiA < d f a >8 r
  \temaiA r4
  d16 e f8-. e ( d) d' ( a)-. g ( f)-.
}

AkkiB = \relative c'' {
  \set Timing.beatStructure = #'(2 2)
  f8 f es c b-. as-. c4
  f8 f es c b-. as-. f4
  as8 f b b b[ as] b r
  as8 f b b b[ as] f r
}

AkkiC = \relative c'' {
  < d h >4 e,8 < h' d >~ q e, r4
  < d' h >4 e,8 < h' d >~ q < e cis a > r4
  < d h >4 e,8 < h' d >~ q e, r4
  < d' h >4 e,8 < h' d >~ q < e cis > r4
  \set Timing.beatStructure = #'(1 1 1 1)
  r8 < h g >8 q q q < a fis > r4
  r8 < h g >8 q q q < a cis > r4
  r8 < h g >8 q q q < a fis > r4
  r8 < h g >8 q q q < a cis > ~ q4

}

AkkiD = \relative c' {
  \set Timing.beatStructure = #'(2 2)
  \repeat volta 2 {
    \repeat unfold 2 {
      \repeat unfold 3 { e8 cis' h gis }
      e[ cis'] h r
    }
  }
}

AkkI= \relative c'' {
  \myStaff "1"
  \key c \major
  \repeat unfold 16 { r8 < a f > }
  d2 e h e4 c
  d2 c h e4 c
  \AkkiA
  R1 * 4
  \AkkiB
  \repeat unfold 2 {
    \repeat unfold 7 { r8 <as f > }
    < b f > < as f >
  }
  \AkkiA
  \AkkiC < h dis >1
  \AkkiD
  \AkkiA
  \AkkiB
  \AkkiA
  \AkkiC
  \repeat volta 2 { \AkkiA }
  c8-. d-. d4 c8-. d-. d4
  c8-. d-. f4 d8-. d-. d4
}

AkkiiB = \relative c'' {
  \repeat unfold 2 { c8 c b as f-. f-. f4 }
  c8 c f f ~ f[ f] f r
  c8 c f f ~ f[ f] c r
}

AkkiiC = \relative c'' {
  \repeat unfold 2 {
    g4 e8 g ~ g e r4
    g e8 g ~ g a r4
  }
  r8 e e e e d r4
  r8 e e e e e r4
  r8 e e e e d r4
  r8 e e e e e ~ e4
}

AkkII= \relative c' {
  \myStaff "2"
  \repeat unfold 16 { r8 d }
  d2 e f g4 a
  d,2 e f g4 a
  \transpose c c, \AkkiA
  R1 * 4
  \AkkiiB
  \repeat unfold 7 { r8 c, } d[ c]
  \repeat unfold 7 { r8 c' } d[ c]
  \transpose c c, \AkkiA
  \AkkiiC
  < fis, h, >1
  \AkkiD
  \transpose c c, \AkkiA
  \AkkiiB
  \transpose c c, \AkkiA
  \AkkiiC
  \repeat volta 2 { \transpose c c, \AkkiA }
  g8-. a-. a4 g8-. a-. a4
  g8-. a-. c4 a8-. a-. a4
}

AkkiiiB = \relative c' {
  \repeat unfold 2 { f4 r c c }
  \repeat unfold 2 { f4 r es es }
}

AkkiiiC = \relative c'' {
  \repeat unfold 31 { g8 r } a r
}

AkkIII= \relative c'' {
  \myStaff "3"
  R1 * 4
  \repeat unfold 2 { d2 c h e4 c }
  R1 * 4
  d2 c h e4 c
  d c8 d e4 d e d c b
  \AkkiiiB
  \repeat unfold 2 {
    f4 r f8[ g] f r
    f4 r f8 g f f
  }
  R1 * 4
  \AkkiiiC h1
  \repeat volta 2 {
    \repeat unfold 4 { gis4 r fis e }
  }
  R1 * 4
  \AkkiiiB
  R1 * 4
  \AkkiiiC
  \repeat volta 2 { \repeat unfold 16 { a8 r } }
  e8-. f-. f4 e8-. f-. f4
  e8-. f-. a4 e8-. e-. e4
}

AkkiiiiB = \relative c' {
  \repeat unfold 4 { c4 r c c }
}

AkkIV= \relative c' {
  \myStaff "4"
  R1 * 4
  d2 e f g4 a
  d,2 e f g4 a
  R1 * 4
  d,2 e f g4 a
  g f e d c d e e
  \AkkiiiiB
  \repeat unfold 2 { c4 r as8 r c r c4 r as8 r b r }
  R1 * 4
  \AkkiiiC h'1
  \repeat volta 2 {
    \repeat unfold 4 { e,4 r cis h }
  }
  R1 * 4
  \AkkiiiiB
  R1 * 4
  \AkkiiiC
  \repeat volta 2 { \repeat unfold 16 { f'8 r } }
  c8-. d-. d4 c8-. d-. d4
  c8-. d-. f4 d8-. d-. d4
}

Struktur = {
  %\override Score.SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
  \override Score.NonMusicalPaperColumn.line-break-permission = ##f
  \mark \markup Intro
  s1 * 4 \break
  s1 * 4 \break
  \bar "||"
  \mark \markup \box A
  s1 * 4 \break
  s1 * 4 \break
  \bar "||"
  \mark \markup \box B
  s1 * 4 \break
  s1 * 4 \break
  \bar "||"
  \mark \markup \box A
  s1 * 4 \break
  \bar "||"
  \mark \markup \box C
  s1 * 4 \break
  s1 * 5 \break
  \bar ".|:-||"
  \mark \markup \box D
  s1 * 4 \break
  \mark \markup \box A
  s1 * 4 \break
  \bar "||"
  \mark \markup \box B
  s1 * 4 \break
  \bar "||"
  \mark \markup \box A
  s1 * 4 \break
  \mark \markup \box C
  s1 * 4 \break
  s1 * 4 \break
  \bar ".|:-||"
  \mark \markup \box A
  s1 * 3 \break s1
  \mark \markup Fine
  s1 s
  \bar "|."
}

#(set! paper-alist (cons '("mein Format" . (cons 290 330)) paper-alist))

\paper {
  #(include-special-characters)
  #(define fonts
     (set-global-fonts
      #:music "Ross"
      #:brace "emmentaler"
      #:roman "Century Schoolbook L"
      #:sans "sans-serif"
      #:typewriter "monospace"
      ))
}

aa= \paper
{
  %#(set-paper-size "a3")
  #(set-paper-size "mein Format")
  top-markup-spacing.basic-distance = #1
  %%system-system-spacing.basic-distance = #16
  %markup-system-spacing.basic-distance = 16
  %markup-system-spacing.padding = 4
  oddHeaderMarkup = ##f
  evenHeaderMarkup = ##f
  oddFooterMarkup = ##f
  evenFooterMarkup = ##f
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  top-margin = 0
  bottom-margin = 0
  left-margin = 15\mm
  %line-width = 260\mm
  right-margin = #left-margin
  page-breaking = #ly:one-page-breaking
  annotate-spacing = ##f

}

cc=\paper {
  line-width = 170\mm
  top-margin = 10\mm
  bottom-margin = 10\mm
  annotate-spacing = ##f
  %   evenFooterMarkup = ##f
  %   oddFooterMarkup = ##f
  evenHeaderMarkup = ##f
  oddHeaderMarkup = ##f
  evenFooterMarkup = \markup {
    \fill-line {
      \number  \fromproperty #'page:page-number-string
      \null
      "Konterfei"
    }
  }
  oddFooterMarkup = \markup {
    \fill-line {
      "Konterfei"
      \null
      \number \fromproperty #'page:page-number-string
    }
  }
  tagline = ##f
  print-first-page-number = ##f
  ragged-bottom = ##t
  indent = 20\mm
  page-breaking = #ly:minimal-breaking
}

xx=\paper {
  line-width = 175\mm
  top-margin = 10\mm
  bottom-margin = 5\mm
  annotate-spacing = ##f
  evenFooterMarkup = ##f
  oddFooterMarkup = ##f
  evenHeaderMarkup = ##f
  oddHeaderMarkup = ##f
}

%\aa   %% Ausgabe auf einer Seite
\cc   %% Ausgabe im A4-Format

kopf=\header {
  title = \markup \line
  {
    %\fontsize #-3
    %\number \score-sequence #sequence-number
    #myTitel
  }
  subtitle = ##f
  subsubtitle = ##f
  poet = ##f
  composer = \markup { #mycomp }
  piece = ##f
  opus = ##f
}

%dd=
\bookpart {
  \paper {
    %system-system-spacing.padding = #8
  }
  \kopf
  \score {
    \new StaffGroup
    <<
      \new Staff=melodie
      <<
        %\override StaffGroup.StaffGrouper.staff-staff-spacing.minimum-distance = #8
        %\override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/1)
        \new Voice \AkkI
        \new NullVoice \Struktur
      >>
      \new Staff \new Voice \AkkII
      \new Staff \new Voice \AkkIII
      \new Staff \new Voice \AkkIV
      \new Staff \new Voice \Bassm
      %       \new ChordNames=oben \Bassi
      %       \new RhythmicStaff
      %       \firstNote \Bassi
      %       \new SecondChords \Bassii
    >>
  }
}