kastdeur/bagpipe.ly
1
0
Fork 0
mirror of https://github.com/kastdeur/bagpipe.ly.git synced 2024-10-31 17:43:33 +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 { \header {
title = "2008 Medley for Strasbourg" 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. Header formatting for bagpipe tunes. Customize to get your name in the tag line.
%} %}
\version "2.11.43" \version "2.11.43"
% Bring in the time/date package. Set format to month day, year % Bring in the time/date package. Set format to month day, year
#(use-modules (srfi srfi-19)) #(use-modules (srfi srfi-19))
today = #(date->string (current-date) "~B ~d, ~Y") today = #(date->string (current-date) "~B ~d, ~Y")
\paper { \paper {
raggedbottom = ##t raggedbottom = ##t
tagline = \markup { tagline = \markup {
\line { \line {
"Rev. " \today "Rev. " \today
#(ly:export (ly:wide-char->utf-8 #x2014)) % Em-dash #(ly:export (ly:wide-char->utf-8 #x2014)) % Em-dash
"P/S Sven Axelsson, MPD" "P/S Sven Axelsson, MPD"
} }
} }
bookTitleMarkup = \markup { bookTitleMarkup = \markup {
\override #'(baseline-skip . 3.5) \override #'(baseline-skip . 3.5)
\column { \column {
\fill-line { \fromproperty #'header:dedication } \fill-line { \fromproperty #'header:dedication }
\override #'(baseline-skip . 3.5) \override #'(baseline-skip . 3.5)
\column { \column {
\huge \bigger \bold \huge \larger \bold
\fill-line { \fill-line {
\bigger \fromproperty #'header:title \larger \fromproperty #'header:title
} }
\fill-line { \fill-line {
\large \smaller \bold \large \smaller \bold
\bigger \fromproperty #'header:subtitle \larger \fromproperty #'header:subtitle
} }
\fill-line { \fill-line {
\smaller \smaller \bold
\line { "(" \fromproperty #'header:source ")" } \line { "(" \fromproperty #'header:source ")" }
} }
\fill-line { \fill-line {
\line { \fromproperty #'header:meter } \line { \fromproperty #'header:meter }
\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger } \line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
} }
\fill-line { " " } % Empty line }
} }
} }
}
} }