kastdeur/bagpipe.ly
1
0
Fork 0
mirror of https://github.com/kastdeur/bagpipe.ly.git synced 2025-01-07 00:13:35 +01:00
Code Issues Releases Activity

Added and updated stuff.

Browse source
This commit is contained in:
Sven Axelsson 2009-02-15 13:55:36 +01:00
parent 2a36df9cba
commit 5a81521861
2 changed files with 48 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
_sets/medley_2008_strasbourg.ly
View file

@ -1,4 +1,4 @@

\header {
title = "2008 Medley for Strasbourg"

94
formatbook.ly
View file

@ -1,47 +1,47 @@
%{
Header formatting for bagpipe tunes. Customize to get your name in the tag line.
%}
\version "2.11.43"
% Bring in the time/date package. Set format to month day, year
#(use-modules (srfi srfi-19))
today = #(date->string (current-date) "~B ~d, ~Y")
\paper {
raggedbottom = ##t
tagline = \markup {
\line {
"Rev. " \today
#(ly:export (ly:wide-char->utf-8 #x2014)) % Em-dash
"P/S Sven Axelsson, MPD"
}
}
bookTitleMarkup = \markup {
\override #'(baseline-skip . 3.5)
\column {
\fill-line { \fromproperty #'header:dedication }
\override #'(baseline-skip . 3.5)
\column {
\huge \bigger \bold
\fill-line {
\bigger \fromproperty #'header:title
}
\fill-line {
\large \smaller \bold
\bigger \fromproperty #'header:subtitle
}
\fill-line {
\smaller
\line { "(" \fromproperty #'header:source ")" }
}
\fill-line {
\line { \fromproperty #'header:meter }
\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
}
\fill-line { " " } % Empty line
}
}
}
}
%{
Header formatting for bagpipe tunes. Customize to get your name in the tag line.
%}
\version "2.11.43"
% Bring in the time/date package. Set format to month day, year
#(use-modules (srfi srfi-19))
today = #(date->string (current-date) "~B ~d, ~Y")
\paper {
raggedbottom = ##t
tagline = \markup {
\line {
"Rev. " \today
#(ly:export (ly:wide-char->utf-8 #x2014)) % Em-dash
"P/S Sven Axelsson, MPD"
}
}
bookTitleMarkup = \markup {
\override #'(baseline-skip . 3.5)
\column {
\fill-line { \fromproperty #'header:dedication }
\override #'(baseline-skip . 3.5)
\column {
\huge \larger \bold
\fill-line {
\larger \fromproperty #'header:title
}
\fill-line {
\large \smaller \bold
\larger \fromproperty #'header:subtitle
}
\fill-line {
\smaller \bold
\line { "(" \fromproperty #'header:source ")" }
}
\fill-line {
\line { \fromproperty #'header:meter }
\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
}
}
}
}
}