Opus/2023.04.05-Labyrinth-Rocritonic/Rocritonic.ly
2026-07-04 09:09:13 -07:00

121 lines
2.4 KiB
Plaintext
Executable File

\version "2.18.2"
date = #(strftime "%Y %b %d %H:%M" (localtime (current-time)))
revision = \markup {
\fill-line {
\null
\null
\tiny \concat { \teeny "Revision: " \date }
}
}
%#(set-default-paper-size "letter")
%#(set! paper-alist (cons '("letter" . (cons (* 60 in) (* 6 in))) paper-alist))
\paper {
% #(set-paper-size "letter")
print-page-number = ##t
%print-first-page-number = ##t
oddHeaderMarkup = \markup {
\fill-line {
\on-the-fly # not-first-page {
\concat { \fromproperty #'header:title " - " \fromproperty #'page:page-number-string }
}
}p
}
evenHeaderMarkup = \oddHeaderMarkup
oddFooterMarkup = \revision
evenFooterMarkup = \oddFooterMarkup
}
\header {
title = \markup \override #'(font-name . "MasonSerif") \fontsize #+2 { "Canonic Mandala" }
subtitle = \markup \override #'(font-name . "MasonSerif") \fontsize #+3 { "In the Rocritonic Mode" }
composer = \markup \override #'(font-name . "Caudex") { "William Zeitler"}
copyright = \markup { "Copyright " \char ##x00A9 " 2019 William Zeitler" }
%poet="Duration: c.1'30\""
tagline = \date
}
myTrebleClef = {
\clef treble
%\clef "mensural-g"
}
#(set-default-paper-size "letter")
#(set! paper-alist (cons '("adobe" . (cons (* 15 in) (* 6 in))) paper-alist))
\paper {
#(set-paper-size "letter")
top-margin = 0.6\in
bottom-margin = 0.6\in
left-margin = 0.6\in
right-margin = 0.6\in
}
global = {
\override Staff.NoteHead.style = #'harmonic-mixed
\override Beam.breakable = ##t
\clef "mensural-g"
\bar ""
%\key ees \major
% \novemberOn
}
dux = {
f'4 c'' aes'2
bes'4 f'' ees''2
f'4 c'' bes' f''
ees''2 c''
r2 ees''4 f''
ees''2 c''2
r2 ees''4 f''
aes'' bes'' aes'' f''
as'' f'' ees'' f''
ees'' c'' bes' aes'
c''2 r2
}
%scale = { bes, c d ees f g a }
partR = {
% \key d \minor
\key f \minor
\time 4/4
\clef treble
\absolute {\dux }
\bar "||"
\absolute {\dux }
}
partL = {
% \key d \minor
\key f \minor
\time 4/4
\clef bass
\absolute { \transpose c c, {r1 r1 r1 \dux } }
% \bar "||"
}
\score {
<<
\new Staff {
\set midiInstrument = #"flute"
\partR
}
\new Staff {
\set midiInstrument = #"bassoon"
\partL
}
>>
% \midi {
% \context {
% \Score
% midiChannelMapping = #'staff
% }
% }
}