mirror of
https://github.com/kastdeur/pipeband-music.git
synced 2025-05-17 13:29:22 +02:00
February Save
This commit is contained in:
Eric Teunis de Boone
parent
792d8f563e
commit
6a49a218be
97 changed files with 2256 additions and 1158 deletions
3
lilydrum/.gitignore
vendored
3
lilydrum/.gitignore
vendored
|
|
@ -1,3 +0,0 @@
|
|||
*.pdf
|
||||
/pdf
|
||||
/tmp
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
# pipeband-drumming
|
||||
First trial with github, purpose is to set up a lilypond file in the same way as there is a bagpipe.ly (see github.com/svenax/bagpipemusic). Main focus is on pipeband snare drumming. Note that it would be best if they are compatible to create fullscores (see fullscore/ folder for first set up of Black Bear)
|
||||
|
||||
Somehow, the drums part in lilypond does not cover a notation with only right left. That is right is above the line and left is below it. In the same manner as the bagpipe.ly file, flams and drags are defined as a shortcut.
|
||||
|
||||
There has been a lilypond include file earlier made by Simon Froger (which includes all of the above). So first version is a shameless copy.
|
||||
This is meant to extend or translate some parts.
|
||||
|
||||
The original file can still be found at http://lsr.di.unimi.it/LSR/Snippet?id=970
|
||||
|
||||
|
||||
Currently, the most advanced scores are for Lady MacKenzie of Fairburn in strathspeys/lady_mackenzie_of_fairburn/*.ly
|
||||
These scores are used for most of the layout.
|
||||
The scores include a side, tenor, bass, pipes, fullscore for drums and a regular fullscore.
|
||||
|
|
@ -1,134 +0,0 @@
|
|||
|
||||
#(ly:set-option 'point-and-click #f)
|
||||
|
||||
% Choose a size
|
||||
#(set-global-staff-size 18)
|
||||
#(set-default-paper-size "a4" 'landscape)
|
||||
|
||||
\paper {
|
||||
indent = 0\mm
|
||||
ragged-right = ##t
|
||||
ragged-bottom = ##t
|
||||
}
|
||||
\layout {
|
||||
indent = 30\mm
|
||||
\context {
|
||||
\Score
|
||||
\override NonMusicalPaperColumn #'line-break-permission = ##f
|
||||
}
|
||||
}
|
||||
|
||||
\include "lilydrum.ly"
|
||||
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
\set Staff.instrumentName = "Plain notes"
|
||||
\drummode {
|
||||
d4 g \crossstick d \crossstick g \rimshot d \rimshot g \backstick d \backstick g
|
||||
}
|
||||
}
|
||||
\addlyrics {
|
||||
"d" "g" "\crossstick d" "\crossstick g" "\rimshot d" "\rimshot g" "\backstick d" "\backstick g"
|
||||
}
|
||||
}
|
||||
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
\set Staff.instrumentName = "Tenor Flourishing"
|
||||
\drummode {
|
||||
d^\splitTheFeather g^\cartWheel d^\up {d8 g8 d4} g d \flourish { d4 g d g }
|
||||
}
|
||||
}
|
||||
\addlyrics {
|
||||
"\splitTheFeather" "cartWheel" "up" "scoop d g d" "\flourish { }"
|
||||
}
|
||||
}
|
||||
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
\set Staff.instrumentName = "Embellishments"
|
||||
\time 2/4
|
||||
\drummode {
|
||||
\flam d \flam g
|
||||
\drag d \drag g
|
||||
\odrag d \odrag g
|
||||
\ruff d \ruff g
|
||||
\sruff d \sruff g
|
||||
}
|
||||
}
|
||||
\addlyrics {
|
||||
"\flam d" "\flam g"
|
||||
"\drag d" "\drag g"
|
||||
"\odrag d" "\odrag g"
|
||||
"\ruff d" "\ruff g"
|
||||
"\sruff d" "\sruff g"
|
||||
}
|
||||
}
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
\set Staff.instrumentName = \markup \column { \line{Forced hand} \line{embellishments}}
|
||||
\time 2/4
|
||||
\drummode {
|
||||
\flamg d \flamd g
|
||||
\dragg d \dragd g
|
||||
\odragg d \odragd g
|
||||
\ruffg d \ruffd g
|
||||
\sruffg d \sruffd g
|
||||
}
|
||||
}
|
||||
\addlyrics {
|
||||
"\flamg d" "\flamd g"
|
||||
"\dragg d" "\dragd g"
|
||||
"\odragg d" "\odragd g"
|
||||
"\ruffg d" "\ruffd g"
|
||||
"\sruffg d" "\sruffd g"
|
||||
}
|
||||
}
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
\set DrumStaff.drumStyleTable = #(alist->hash-table pipeband-style)
|
||||
\set Staff.instrumentName = "Rolls"
|
||||
\drummode {
|
||||
d4:32( d8:32)(-> g8) \flam d4 r8 d8:32( \dr |
|
||||
\triplet { g16) d g } \drag d16. g32 d32 g d g d16. g32-> d16. d32 \flam g4
|
||||
}
|
||||
}
|
||||
\addlyrics {
|
||||
\partial 8
|
||||
"d8:32(" "\\triplet " -- "\\flam d16." "g32" -- "\\drag g16" -- "\\triplet" "g:64" "d-> }"
|
||||
}
|
||||
}
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
\drummode {
|
||||
\time 6/8
|
||||
\repeat volta 2 {
|
||||
\partial 8 d8:32(_"7" |
|
||||
g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
|
||||
g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
|
||||
\flamddr d8. d16 g8 d4.:32(_"13" |
|
||||
d8.) g16 d8 \flamg g4 d8:32(_"7" \fr |
|
||||
\break
|
||||
g8.[) g16 \dragd d8] d8.[ d16 \dragg g8] |
|
||||
g8.[ \dragd d16 d8] d8.[ d16 \dragg g8] |
|
||||
\flamddr d8. d16:64(_"5" d8) \flamd d8. d16 \flamg g8 |
|
||||
d8.:32(_"5" d16) \flamg g8 \flamd d4 \fr |
|
||||
}
|
||||
}
|
||||
}
|
||||
\header {
|
||||
title = "And now for something completely standard"
|
||||
}
|
||||
}
|
||||
% # Writing parts
|
||||
% rolls
|
||||
% tuplets
|
||||
% tutti
|
||||
% accents ( > v ^)
|
||||
%
|
||||
|
||||
\header {
|
||||
title = "Cheat sheet for entering pipeband drumming music"
|
||||
subtitle = "Intended for Lilypond 2.18 or better"
|
||||
tagline = \markup { "Cpl ET de Boone, Seaforths of Holland" }
|
||||
}
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
\version "2.16.2"
|
||||
%{
|
||||
LilyPond file definitions for Pipeband drumming scores.
|
||||
Primarily focused on Snare drumming,
|
||||
occasional bass or tenor scores should be possible.
|
||||
|
||||
This file builds on work done by Simon Froger.
|
||||
|
||||
Substantial changes by ET de Boone, Seaforth Highlanders of Holland (seaforth.nl)
|
||||
Include by using :
|
||||
\include "[pathtothisfile]" e.g. "~/lilydrum.ly"
|
||||
|
||||
Music has to be put into :
|
||||
\new DrumStaff {
|
||||
\drummode {
|
||||
[musique]
|
||||
}
|
||||
}
|
||||
|
||||
%}
|
||||
|
||||
% Note name defs :
|
||||
% "d" for the right hand ("droite") and
|
||||
% "g" for the left hand ("gauche")
|
||||
%-----------------------------------------
|
||||
|
||||
#(ly:set-option 'point-and-click #f)
|
||||
#(ly:set-option 'relative-includes #t)
|
||||
|
||||
\include "lilydrum/layout_tweaks.ily"
|
||||
\include "lilydrum/musical_functions.ily"
|
||||
\include "lilydrum/embellishments.ily"
|
||||
\include "lilydrum/flourishing.ily"
|
||||
\include "lilydrum/special_sticking.ily"
|
||||
|
|
@ -1,109 +0,0 @@
|
|||
% ================================================= %
|
||||
% Flams, Drags & the sort %
|
||||
% ================================================= %
|
||||
drumgrace = #(define-music-function (parser location notes ) ( ly:music? ) #{
|
||||
% Set settings
|
||||
\stemUp
|
||||
\once \override Beam.positions = #'(2 . 2)
|
||||
\once \override DrumStaff.Stem.length = #5
|
||||
\override Flag.stroke-style = #"grace"
|
||||
\override Score.GraceSpacing #'spacing-increment = #0
|
||||
\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
|
||||
|
||||
% Print notes
|
||||
\small \grace $notes
|
||||
|
||||
% Revert back
|
||||
\revert Score.Stem #'beamlet-default-length
|
||||
\revert Flag.stroke-style
|
||||
\stemNeutral
|
||||
#})
|
||||
|
||||
|
||||
% Flams
|
||||
flamd = \drummode { \drumgrace { g8 } } % Flam right
|
||||
flamg = \drummode { \drumgrace { d8 } } % Flam left
|
||||
flamddr = \drummode { \drumgrace { g8\startGroup } } % Flam right with start repeat
|
||||
flamgdr = \drummode { \drumgrace { d8\startGroup } } % Flam left with start repeat
|
||||
|
||||
% Drags
|
||||
dragd = \drummode { \drumgrace { g16[ g] } } % Drag right
|
||||
dragg = \drummode { \drumgrace { d16[ d] } } % Drag left
|
||||
dragddr = \drummode { \drumgrace { g16[\startGroup g] } } % Drag right with start repeat
|
||||
draggdr = \drummode { \drumgrace { d16[\startGroup d] } } % Drag left with start repeat
|
||||
|
||||
% Open Drags
|
||||
odragd = \drummode { \drumgrace { g16[ s^"o" g] } } % Open Drag right
|
||||
odragg = \drummode { \drumgrace { d16[ s^"o" d] } } % Open Drag left
|
||||
odragddr = \drummode { \drumgrace { g16[\startGroup s^"o" g] } } % Open Drag right with start repeat
|
||||
odraggdr = \drummode { \drumgrace { d16[\startGroup s^"o" d] } } % Open Drag left with start repeat
|
||||
|
||||
% Ruff
|
||||
ruffg = \drummode { \drumgrace { g16[ d g] } } % Ruff right
|
||||
ruffd = \drummode { \drumgrace { d16[ g d] } } % Ruff left
|
||||
ruffgdr = \drummode { \drumgrace { g16[\startGroup d g] } } % Ruff right with start repeat
|
||||
ruffddr = \drummode { \drumgrace { d16[\startGroup g d] } } % Ruff left with start repeat
|
||||
|
||||
% Swiss Ruff
|
||||
sruffg = \drummode { \drumgrace { g16[ d d] } } % Swiss Ruff right
|
||||
sruffd = \drummode { \drumgrace { d16[ g g] } } % Swiss Ruff left
|
||||
sruffgdr = \drummode { \drumgrace { g16[\startGroup d d] } } % Swiss Ruff right with start repeat
|
||||
sruffddr = \drummode { \drumgrace { d16[\startGroup g g] } } % Swiss Ruff left with start repeat
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%% Embellishment functions, automatic left or right %%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
% Flam
|
||||
flam = #(define-music-function (parser location note) (ly:music?) #{
|
||||
% is note right-handed? then \flamd
|
||||
% if left, then \flamg
|
||||
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||
#{ \flamg #}
|
||||
#{ \flamd #})
|
||||
% print the note, else it won't show up
|
||||
$note
|
||||
#})
|
||||
|
||||
% Drag
|
||||
drag = #(define-music-function (parser location note) (ly:music?) #{
|
||||
% is note right-handed? then \flamd
|
||||
% if left, then \flamg
|
||||
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||
#{ \dragg #}
|
||||
#{ \dragd #})
|
||||
% print the note, else it won't show up
|
||||
$note
|
||||
#})
|
||||
% Open Drag
|
||||
odrag = #(define-music-function (parser location note) (ly:music?) #{
|
||||
% is note right-handed? then \flamd
|
||||
% if left, then \flamg
|
||||
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||
#{ \odragg #}
|
||||
#{ \odragd #})
|
||||
% print the note, else it won't show up
|
||||
$note
|
||||
#})
|
||||
|
||||
% Ruff
|
||||
ruff = #(define-music-function (parser location note) (ly:music?) #{
|
||||
% is note right-handed? then \flamd
|
||||
% if left, then \flamg
|
||||
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||
#{ \ruffg #}
|
||||
#{ \ruffd #})
|
||||
% print the note, else it won't show up
|
||||
$note
|
||||
#})
|
||||
|
||||
% Swiss Ruff
|
||||
sruff = #(define-music-function (parser location note) (ly:music?) #{
|
||||
% is note right-handed? then \flamd
|
||||
% if left, then \flamg
|
||||
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||
#{ \sruffg #}
|
||||
#{ \sruffd #})
|
||||
% print the note, else it won't show up
|
||||
$note
|
||||
#})
|
||||
|
|
@ -1,62 +0,0 @@
|
|||
%!PS-Adobe-3.0 EPSF-3.0
|
||||
%%Creator: GIMP PostScript file plugin V 1.17 by Peter Kirchgessner
|
||||
%%Title: butterfly.eps
|
||||
%%CreationDate: Tue Nov 3 18:58:20 2015
|
||||
%%DocumentData: Clean7Bit
|
||||
%%LanguageLevel: 2
|
||||
%%Pages: 1
|
||||
%%BoundingBox: 14 14 28 23
|
||||
%%EndComments
|
||||
%%BeginProlog
|
||||
% Use own dictionary to avoid conflicts
|
||||
10 dict begin
|
||||
%%EndProlog
|
||||
%%Page: 1 1
|
||||
% Translate for offset
|
||||
14.173228346456694 14.173228346456694 translate
|
||||
% Translate to begin of first scanline
|
||||
0 8 translate
|
||||
13 -8 scale
|
||||
% Image geometry
|
||||
13 8 8
|
||||
% Transformation matrix
|
||||
[ 13 0 0 8 0 0 ]
|
||||
% Strings to hold RGB-samples per scanline
|
||||
/rstr 13 string def
|
||||
/gstr 13 string def
|
||||
/bstr 13 string def
|
||||
{currentfile /ASCII85Decode filter /RunLengthDecode filter rstr readstring pop}
|
||||
{currentfile /ASCII85Decode filter /RunLengthDecode filter gstr readstring pop}
|
||||
{currentfile /ASCII85Decode filter /RunLengthDecode filter bstr readstring pop}
|
||||
true 3
|
||||
%%BeginData: 521 ASCII Bytes
|
||||
colorimage
|
||||
s8N,fqu$Hrp$r(^J,~>
|
||||
s8N,fqu$Hrp$r(^J,~>
|
||||
s8N,fqu$Hrp$r(^J,~>
|
||||
%,Fub,@p3Al">-rJFS-~>
|
||||
%,Fub,@p3Al">-rJFS-~>
|
||||
%,Fub,@p3Al">-rJFS-~>
|
||||
%!VFFnjYIn8*9jOooah~>
|
||||
%!VFFnjYIn8*9jOooah~>
|
||||
%!VFFnjYIn8*9jOooah~>
|
||||
!3Z>$"7e/Pci*kDS:C~>
|
||||
!3Z>$"7e/Pci*kDS:C~>
|
||||
!3Z>$"7e/Pci*kDS:C~>
|
||||
!4)S'".KO$rr2otR",~>
|
||||
!4)S'".KO$rr2otR",~>
|
||||
!4)S'".KO$rr2otR",~>
|
||||
%#Fo_s2eEn(3KNTjbJ?~>
|
||||
%#Fo_s2eEn(3KNTjbJ?~>
|
||||
%#Fo_s2eEn(3KNTjbJ?~>
|
||||
%,#f`D0l$Xfg[Vp@e"s~>
|
||||
%,#f`D0l$Xfg[Vp@e"s~>
|
||||
%,#f`D0l$Xfg[Vp@e"s~>
|
||||
s8N,`p\b$no^Mn\J,~>
|
||||
s8N,`p\b$no^Mn\J,~>
|
||||
s8N,`p\b$no^Mn\J,~>
|
||||
%%EndData
|
||||
showpage
|
||||
%%Trailer
|
||||
end
|
||||
%%EOF
|
||||
|
|
@ -1,107 +0,0 @@
|
|||
%!PS-Adobe-3.0 EPSF-3.0
|
||||
%%Creator: cairo 1.14.2 (http://cairographics.org)
|
||||
%%CreationDate: Wed Nov 4 14:58:05 2015
|
||||
%%Pages: 1
|
||||
%%DocumentData: Clean7Bit
|
||||
%%LanguageLevel: 3
|
||||
%%BoundingBox: 0 -1 21 19
|
||||
%%EndComments
|
||||
%%BeginProlog
|
||||
save
|
||||
50 dict begin
|
||||
/q { gsave } bind def
|
||||
/Q { grestore } bind def
|
||||
/cm { 6 array astore concat } bind def
|
||||
/w { setlinewidth } bind def
|
||||
/J { setlinecap } bind def
|
||||
/j { setlinejoin } bind def
|
||||
/M { setmiterlimit } bind def
|
||||
/d { setdash } bind def
|
||||
/m { moveto } bind def
|
||||
/l { lineto } bind def
|
||||
/c { curveto } bind def
|
||||
/h { closepath } bind def
|
||||
/re { exch dup neg 3 1 roll 5 3 roll moveto 0 rlineto
|
||||
0 exch rlineto 0 rlineto closepath } bind def
|
||||
/S { stroke } bind def
|
||||
/f { fill } bind def
|
||||
/f* { eofill } bind def
|
||||
/n { newpath } bind def
|
||||
/W { clip } bind def
|
||||
/W* { eoclip } bind def
|
||||
/BT { } bind def
|
||||
/ET { } bind def
|
||||
/pdfmark where { pop globaldict /?pdfmark /exec load put }
|
||||
{ globaldict begin /?pdfmark /pop load def /pdfmark
|
||||
/cleartomark load def end } ifelse
|
||||
/BDC { mark 3 1 roll /BDC pdfmark } bind def
|
||||
/EMC { mark /EMC pdfmark } bind def
|
||||
/cairo_store_point { /cairo_point_y exch def /cairo_point_x exch def } def
|
||||
/Tj { show currentpoint cairo_store_point } bind def
|
||||
/TJ {
|
||||
{
|
||||
dup
|
||||
type /stringtype eq
|
||||
{ show } { -0.001 mul 0 cairo_font_matrix dtransform rmoveto } ifelse
|
||||
} forall
|
||||
currentpoint cairo_store_point
|
||||
} bind def
|
||||
/cairo_selectfont { cairo_font_matrix aload pop pop pop 0 0 6 array astore
|
||||
cairo_font exch selectfont cairo_point_x cairo_point_y moveto } bind def
|
||||
/Tf { pop /cairo_font exch def /cairo_font_matrix where
|
||||
{ pop cairo_selectfont } if } bind def
|
||||
/Td { matrix translate cairo_font_matrix matrix concatmatrix dup
|
||||
/cairo_font_matrix exch def dup 4 get exch 5 get cairo_store_point
|
||||
/cairo_font where { pop cairo_selectfont } if } bind def
|
||||
/Tm { 2 copy 8 2 roll 6 array astore /cairo_font_matrix exch def
|
||||
cairo_store_point /cairo_font where { pop cairo_selectfont } if } bind def
|
||||
/g { setgray } bind def
|
||||
/rg { setrgbcolor } bind def
|
||||
/d1 { setcachedevice } bind def
|
||||
%%EndProlog
|
||||
%%BeginSetup
|
||||
%%EndSetup
|
||||
%%Page: 1 1
|
||||
%%BeginPageSetup
|
||||
%%PageBoundingBox: 0 -1 21 19
|
||||
%%EndPageSetup
|
||||
q 0 -1 21 20 rectclip q
|
||||
Q q
|
||||
0 18.4 20.801 -18.398 re W n
|
||||
q
|
||||
0 18.4 21 -19 re W n
|
||||
[ 0.8 0 0 0.8 0 -0.00000038147 ] concat
|
||||
/DeviceRGB setcolorspace
|
||||
8 dict dup begin
|
||||
/ImageType 1 def
|
||||
/Width 26 def
|
||||
/Height 23 def
|
||||
/Interpolate true def
|
||||
/BitsPerComponent 8 def
|
||||
/Decode [ 0 1 0 1 0 1 ] def
|
||||
/DataSource currentfile /ASCII85Decode filter /FlateDecode filter def
|
||||
/ImageMatrix [ 1 0 0 -1 0 23 ] def
|
||||
end
|
||||
image
|
||||
Gatm8gFo%9)#d/2gE[.Um;+hI3UEp%Xt3I?N/l1l9M:.%/M((/>\H_ta+]A=3YdQT;E&]$>p
|
||||
h8S*.'p^e?KM&*c:JEl*lPlhY]"?n,#8_kBl([IGWlCjo:D5oCKl;_loW%4<C]5Uh!k@@"!
|
||||
Ho%,9[sf4m-B6=G7H>[;3Kfk`i84XJ!hG'9ZZkmI]J8tcC:B[7P)8U^Qges79AqoD<S>2&"
|
||||
uOF+^U@A0C*>jgD>CAK/&lJ9j'uVEpg"s`+"o;18kr!ISt:+ZmI'BL"Th:]!.gj=q^_R@
|
||||
X]DJQ$u5H]4b7UU=0]#?@q2[Ge^[ZUEJ&\*aYl%8>[`^T1GeWU:;>iV9u%AT&p-1*.r99JP
|
||||
@%GUWrKf*?ai@Q._-:)H[E@o/:JKQ7L]d%@0Hh2Z.W<_Q7+NB"Dsb\.T!JW<%?&fO@G.<14
|
||||
RWqU/5`D!2En.g=c[pQ"ZSa])#]EAp.5+o("QE/hSbQ*:tO5,GV?I['$R7U:_JL91qo*-R[
|
||||
uH?9$s>q"VoB[\KV>aiWP:+r6*EZEeLiE$,pS6.O`E$X0%EG(m3STF.U<CubTkVbRIC$1[N
|
||||
hq>$[%*#sWE+S@)%aar5I.TL"I"DT6HaWU0*<62pi1c@6K`%ma^jCCHHYL.#+pi]VpMi0/=
|
||||
/R0o0hU+&=3a,W^+:nf*-78_W&F#ijXf\]IGeEbDG-hIM<f`<ZCmYCY#%'K`7:?uJ(=4pjb
|
||||
$qWsR[\SJGtogjWE-&cpp$o:C2/Xq+WfR9[C%li<Kp,;>;gh-V8=a]5VA0ihIgKEj`7X2PR
|
||||
]-`3?68Nh%B8Mo)ReV]RB%3^':PN(W$]j)KQAFAu)?B=)\l,9DBMS\qn\QSR?F?*ak[[6UO
|
||||
Uc(fHRFf\Fsj8uK!o;fUc($_un,Q4WseYD3Wq7Rpt%:.uWK*o=;.#s<5u#E+Lu*sDn-73Xj
|
||||
$mjn=:YHJJCr%'<)QH"lqiM"_.0[tnHm$*a+md=r?4\5brK!qE0ba97&eXiYuWgdUAPsCGS
|
||||
iUeN4IjIJuTL,)c==hP2jaV[oW1gH$ZDk+VCbh,sd2J*cEcMk">tF-*,B#?*i82/\4n9@l2
|
||||
JY#):A/5V5Q@+Tkl~>
|
||||
Q
|
||||
Q Q
|
||||
showpage
|
||||
%%Trailer
|
||||
end restore
|
||||
%%EOF
|
||||
|
|
@ -1,50 +0,0 @@
|
|||
%!PS-Adobe-3.0 EPSF-3.0
|
||||
%%Creator: GIMP PostScript file plugin V 1.17 by Peter Kirchgessner
|
||||
%%Title: stop.eps
|
||||
%%CreationDate: Wed Nov 4 21:02:56 2015
|
||||
%%DocumentData: Clean7Bit
|
||||
%%LanguageLevel: 2
|
||||
%%Pages: 1
|
||||
%%BoundingBox: 14 14 23 33
|
||||
%%EndComments
|
||||
%%BeginProlog
|
||||
% Use own dictionary to avoid conflicts
|
||||
10 dict begin
|
||||
%%EndProlog
|
||||
%%Page: 1 1
|
||||
% Translate for offset
|
||||
14.173228346456693 14.173228346456693 translate
|
||||
% Translate to begin of first scanline
|
||||
0 18.747656542932134 translate
|
||||
8.2488188976377952 -18.747656542932134 scale
|
||||
% Variable to keep one line of raster data
|
||||
/scanline 9 3 mul string def
|
||||
% Image geometry
|
||||
9 17 8
|
||||
% Transformation matrix
|
||||
[ 9 0 0 17 0 0 ]
|
||||
{ currentfile scanline readhexstring pop } false 3
|
||||
%%BeginData: 946 ASCII Bytes
|
||||
colorimage
|
||||
fffffff5f5f5fffffffffffffffffffffffffffffffffffffcfcfc
|
||||
fafafaffffff4e4e4e0000000000000000004e4e4effffffffffff
|
||||
ffffff4e4e4e000000ffffffffffffffffff0000004e4e4effffff
|
||||
ffffff000000ffffffffffffffffffffffffffffff000000ffffff
|
||||
ffffff000000ffffffffffffffffffffffffffffff000000ffffff
|
||||
ffffff000000ffffffffffffffffffffffffffffff000000ffffff
|
||||
ffffff4e4e4e000000ffffffffffffffffff0000004e4e4effffff
|
||||
ffffffffffff4e4e4e0000000000000000004e4e4efffffff5f5f5
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
ffffffffffffffffffffffff000000ffffffffffffffffffffffff
|
||||
000000000000000000000000000000000000000000000000000000
|
||||
%%EndData
|
||||
showpage
|
||||
%%Trailer
|
||||
end
|
||||
%%EOF
|
||||
|
|
@ -1,49 +0,0 @@
|
|||
% ================================================= %
|
||||
% Tenor Flourishing %
|
||||
% ================================================= %
|
||||
% Part of lilydrum
|
||||
splitTheFeather = \markup{ \musicglyph #"noteheads.s2xcircle"}
|
||||
cartWheel = \markup { \musicglyph #"timesig.neomensural94" }
|
||||
up = \markup {
|
||||
%\center-column {
|
||||
\combine
|
||||
\draw-line #'(0 . -2) % draw stick
|
||||
\arrow-head #Y #UP ##f
|
||||
%}
|
||||
}
|
||||
bfly = \markup {
|
||||
\epsfile #X #2 #"../lilydrum/flourish_symbols/butterfly.eps"
|
||||
}
|
||||
stop = \markup {
|
||||
\epsfile #X #2 #"../lilydrum/flourish_symbols/stop.eps"
|
||||
}
|
||||
scoop = \markup {
|
||||
\path #.2 #'( (moveto 0 0 )
|
||||
(lineto 3 1 )
|
||||
(lineto 6 0 )
|
||||
(lineto 7 1 )
|
||||
)
|
||||
}
|
||||
scoopo = #(define-music-function (parser location beg notes) (ly:music? ly:music?)
|
||||
#{
|
||||
%Set spanner from first to last note
|
||||
$beg
|
||||
\startGroup
|
||||
$notes
|
||||
\stopGroup
|
||||
#})
|
||||
flourish = #(define-music-function (parser location notes) (ly:music?)
|
||||
#{
|
||||
\temporary \override Staff.NoteHead.style = #'cross
|
||||
$notes
|
||||
\revert Staff.NoteHead.style
|
||||
#})
|
||||
sdcoop = #(define-music-function (parser location notes end) (ly:music? ly:music?)
|
||||
#{
|
||||
$notes
|
||||
$end
|
||||
#})
|
||||
|
||||
% stf = \splitTheFeather
|
||||
% cart = \cartWheel
|
||||
% fl = \flourish
|
||||
|
|
@ -1,114 +0,0 @@
|
|||
% =================================================== %
|
||||
% Layout tweaks for good defaults %
|
||||
% =================================================== %
|
||||
|
||||
% Note name defs :
|
||||
% "d" for the right hand ("droite") and
|
||||
% "g" for the left hand ("gauche")
|
||||
drumPitchNames =
|
||||
#(append '(
|
||||
(d . right-hand)
|
||||
(g . left-hand)
|
||||
(right . right-hand)
|
||||
(left . left-hand)
|
||||
)
|
||||
drumPitchNames
|
||||
)
|
||||
|
||||
% Position according to the line : right hand above and left hand below
|
||||
#(define pipeband-style '(
|
||||
(right-hand () #f 1)
|
||||
(left-hand () #f -1)
|
||||
)
|
||||
)
|
||||
\layout {
|
||||
\context {% add hands to note definitions
|
||||
\DrumStaff
|
||||
drumStyleTable = #(alist->hash-table pipeband-style)
|
||||
}
|
||||
}
|
||||
\layout {
|
||||
indent = 0.0
|
||||
\context {
|
||||
\DrumStaff
|
||||
\name PipeBandDrumStaff
|
||||
\alias DrumStaff
|
||||
|
||||
% one line per staff
|
||||
\override StaffSymbol.line-positions = #'(0)
|
||||
|
||||
% bar line height
|
||||
\override BarLine.bar-extent = #'(-2 . 2)
|
||||
|
||||
% stems
|
||||
\override Stem.direction = #DOWN % stems down
|
||||
\override Stem.length = #8.5 % unbeamed stems length
|
||||
\override Stem.stemlet-length = #1 % short stem length
|
||||
|
||||
% beams
|
||||
\override Beam.beam-thickness = #0.4 % beam-thickness
|
||||
\override Beam.positions = #'(-3.8 . -3.8) % fix beams on one height
|
||||
|
||||
% slurs and ties
|
||||
\override Slur.direction = #UP % Slurs on top
|
||||
\override Tie.direction = #UP % Ties on top
|
||||
|
||||
% dynamics up
|
||||
\dynamicUp
|
||||
|
||||
% slurs below rolls number
|
||||
%\override TextScript.outside-staff-priority = ##f
|
||||
%\override TextScript.side-axis = #0
|
||||
%\override TextScript.staff-padding = #3
|
||||
%\override TextScript.X-offset = #1 % padding to stems
|
||||
%\override TextScript.extra-offset = #'(-0.3 . 0)
|
||||
|
||||
% tremolos (rolls)
|
||||
\override StemTremolo.slope = #0.5 % slope
|
||||
\override StemTremolo.beam-width = #1.5 % beam-width
|
||||
\override StemTremolo.beam-thickness = #0.3 % beam-thickness
|
||||
\override StemTremolo.extra-offset = #'(0 . 0.3) % vertical pos. position
|
||||
|
||||
\override TupletBracket.bracket-visibility = #'if-no-beams
|
||||
|
||||
% unison brackets
|
||||
\consists "Horizontal_bracket_engraver"
|
||||
\override HorizontalBracket.staff-padding = #3.5 % staff-padding
|
||||
\override HorizontalBracket.direction = #UP % brackets above the staff
|
||||
\override HorizontalBracket.bracket-flare = #'(0 . 0) % vertical brackets
|
||||
|
||||
subdivideBeams = ##t
|
||||
strictBeatBeaming = ##t
|
||||
\numericTimeSignature
|
||||
|
||||
}
|
||||
\context {
|
||||
\Score
|
||||
\accepts "PipeBandDrumStaff"
|
||||
|
||||
\override RehearsalMark.break-align-symbols = #'(clef)
|
||||
\override RehearsalMark.padding = #3
|
||||
\override VoltaBracket.edge-height = #'(1.5 . 1.5)
|
||||
}
|
||||
\context {
|
||||
\StaffGroup
|
||||
\accepts "PipeBandDrumStaff"
|
||||
}
|
||||
}
|
||||
|
||||
% =================================================== %
|
||||
% *Shorts* for Naming %
|
||||
% =================================================== %
|
||||
|
||||
instrumentSide = "Side"
|
||||
instrumentTenor = "Tenor"
|
||||
instrumentBass = "Bass"
|
||||
instrumentPipes = "Pipes"
|
||||
shortInstrumentSide = "S.D."
|
||||
shortInstrumentTenor = "T.D."
|
||||
shortInstrumentBass = "B.D."
|
||||
shortInstrumentPipes = "P."
|
||||
composerSide = ""
|
||||
composerTenor = ""
|
||||
composerBass = ""
|
||||
composerPipes = ""
|
||||
|
|
@ -1,45 +0,0 @@
|
|||
% ================================================= %
|
||||
% Musical Functions %
|
||||
% ================================================= %
|
||||
% Part of lilydrum
|
||||
|
||||
eighthBeaming = {
|
||||
\set baseMoment = #(ly:make-moment 1/8)
|
||||
\set beatStructure = #'( 2 2 )
|
||||
}
|
||||
compoundEighthBeaming = {
|
||||
\set baseMoment = #(ly:make-moment 1/8)
|
||||
\set beatStructure = #'( 3 )
|
||||
}
|
||||
|
||||
% triplet
|
||||
triplet = #(define-music-function (parser location notes) (ly:music?) #{ \tuplet 3/2 { $notes } #})
|
||||
|
||||
% dynamics
|
||||
v = #(define-event-function (parser location) () #{ \upbow #})
|
||||
|
||||
% repeat brackets
|
||||
dr = #(define-event-function (parser location) () #{ \startGroup #})
|
||||
fr = #(define-event-function (parser location) () #{ \stopGroup #})
|
||||
|
||||
% dynamics with extended lines
|
||||
dynLine = #(define-music-function
|
||||
(parser location text)
|
||||
(markup?)
|
||||
#{
|
||||
\once \override TextSpanner.style = #'line
|
||||
\once \override TextSpanner.bound-details.left.text = \markup {
|
||||
\combine
|
||||
\draw-line #'(0 . -1)
|
||||
\draw-line #'(1 . 0)
|
||||
\dynamic #text
|
||||
}
|
||||
\once \override TextSpanner.bound-details.right.text = \markup { \draw-line #'(0 . -1) }
|
||||
#})
|
||||
|
||||
% still to add: a little 'u'
|
||||
tutti = #(define-event-function (parser location notes) (ly:music?) #{
|
||||
\startGroup
|
||||
$notes
|
||||
\stopGroup
|
||||
#})
|
||||
|
|
@ -1,21 +0,0 @@
|
|||
% ================================================= %
|
||||
% Side Sticking (modifies note, or adds mark) %
|
||||
% ================================================= %
|
||||
% Part of lilydrum
|
||||
backstick = #(define-music-function (parser location notes) (ly:music?)
|
||||
#{
|
||||
\temporary \override Staff.NoteHead.style = #'cross
|
||||
$notes
|
||||
\revert Staff.NoteHead.style
|
||||
#})
|
||||
crossstick = #(define-music-function (parser location notes) (ly:music?)
|
||||
#{
|
||||
\temporary \override Staff.NoteHead.style = #'xcircle
|
||||
$notes
|
||||
\revert Staff.NoteHead.style
|
||||
#})
|
||||
rimshot = #(define-music-function (parser location notes) (ly:music?)
|
||||
#{
|
||||
$notes
|
||||
|
||||
#})
|
||||
|
|
@ -1,256 +0,0 @@
|
|||
#!/usr/bin/python3.4
|
||||
|
||||
## Generate pdf form lilypond file
|
||||
## by using standard command
|
||||
##
|
||||
## Most of programming was done by Sven Axelsson, http://svenax.net/
|
||||
|
||||
import codecs, os
|
||||
from argparse import ArgumentParser
|
||||
|
||||
class MakeDrum:
|
||||
LILYPOND = 'lilypond'
|
||||
VERSION = '0.9.5'
|
||||
TMP_DIR = os.path.join(os.path.abspath(os.curdir),'tmp')
|
||||
TMP_PREFIX = 'tmp_'
|
||||
MASTER_DIR = os.path.dirname(os.path.abspath(__file__))
|
||||
RUN_DIR = os.path.abspath(os.curdir)
|
||||
|
||||
def __init__(self):
|
||||
parser = ArgumentParser(__file__)
|
||||
|
||||
parser.add_argument('--version', action='version', version=self.VERSION)
|
||||
parser.add_argument('--lilyversion',
|
||||
action='store_true', dest='show_lilyversion', default=False,
|
||||
help='show Lilypond version and exit')
|
||||
|
||||
# options for inclusion of files
|
||||
parser.add_argument('-x', '--drumfile',
|
||||
dest='lilydrum', default='lilydrum.ly',
|
||||
help='Use the specified file for drums')
|
||||
parser.add_argument('-c', '--pipefile',
|
||||
dest='lilypipe', default='bagpipe.ly',
|
||||
help='Use the specified file for pipes')
|
||||
parser.add_argument('-i', '--include',
|
||||
dest='includes', nargs='*', default=[],action='append',
|
||||
help='Include the specified file for compiling')
|
||||
|
||||
# options for lilypond
|
||||
parser.add_argument('-p', '--paper-size',
|
||||
dest='papersize', default='a4',
|
||||
help='Paper size. Default: A4')
|
||||
parser.add_argument('-o', '--orientation',
|
||||
dest='orientation', default='landscape',
|
||||
help='Paper orientation. Default: landscape')
|
||||
parser.add_argument('-s', '--staff-size',
|
||||
dest='staffsize', default='20',
|
||||
help='Staff size. Default: 20pt.')
|
||||
parser.add_argument('-w', '--view-spacing',
|
||||
action='store_const', dest='view_spacing', default='##f', const='##t',
|
||||
help='Turn on "Paper.annotatespacing".')
|
||||
parser.add_argument('-l', '--line-break',
|
||||
action='store_const', dest='line_break', default='##t', const='##f',
|
||||
help='Turn off explicit linebreaks".')
|
||||
|
||||
# options for generating and compiling
|
||||
parser.add_argument('-g','--generated',
|
||||
dest='gen_out', default=self.TMP_DIR,
|
||||
help='Put generated lilyfiles in $gen_out')
|
||||
parser.add_argument('--no-compile',
|
||||
action='store_false', dest='compile', default=True,
|
||||
help='Do not compile generated Lilypond files')
|
||||
parser.add_argument('--no-log',
|
||||
action='store_false', dest='log', default=True,
|
||||
help='Do not generate log files.')
|
||||
parser.add_argument('--no-cleanup',
|
||||
action='store_false', dest='clean', default=True,
|
||||
help='Leave all temporary files in place')
|
||||
parser.add_argument('-d', '--out_dir',
|
||||
dest='out_dir', default='pdf',
|
||||
help='Output dir for the lilypond process. If it doesn\'t exist, try to create it')
|
||||
|
||||
# the file(s) to process
|
||||
parser.add_argument('music_file',
|
||||
default='', nargs='*',
|
||||
help='file to process')
|
||||
parser.add_argument('-@', '--list_file',
|
||||
dest='list_file', default='',
|
||||
help='file containing the list of files to process')
|
||||
|
||||
self.args = parser.parse_args()
|
||||
|
||||
if self.args.show_lilyversion:
|
||||
print(os.system(self.LILYPOND+' --version'))
|
||||
return
|
||||
|
||||
# Input files
|
||||
if self.args.list_file != '':
|
||||
self.args.music_file.append(open(self.args.list_file, 'r').readlines())
|
||||
close(self.args.list_file)
|
||||
|
||||
# Check if there are any files
|
||||
if not self.args.music_file:
|
||||
parser.print_usage()
|
||||
return
|
||||
|
||||
# Check for inclusion options
|
||||
self.args.includes = [el for elements in self.args.includes for el in elements]
|
||||
|
||||
# Whether to clean up tmp_dir if possible
|
||||
self.remove_tmp_dir = self.args.clean
|
||||
|
||||
# are TMP_DIR, out_dir dirs?
|
||||
if not os.path.exists(self.TMP_DIR):
|
||||
try: os.makedirs(self.TMP_DIR)
|
||||
except:
|
||||
print('Seems like no temporary directory can be created')
|
||||
return
|
||||
if not os.path.exists(self.args.out_dir):
|
||||
try: os.makedirs(self.args.out_dir)
|
||||
except:
|
||||
print('Seems like no output directory can be created')
|
||||
return
|
||||
|
||||
# do the work!
|
||||
for file_path in self.args.music_file:
|
||||
self.process_it(file_path)
|
||||
|
||||
#if dir is empty:
|
||||
#os.rmdir(self.TMP_DIR)
|
||||
|
||||
def process_it(self, file):
|
||||
tmp_file = self.maketemplate(file)
|
||||
|
||||
if self.args.gen_out is not None and self.args.gen_out != self.TMP_DIR:
|
||||
new_tmp_file = os.path.basename(tmp_file).replace(self.TMP_PREFIX, '');
|
||||
print ('Moving ', tmp_file, ' to ', new_tmp_file, end=' ', flush=True)
|
||||
gen_dir = os.path.join(self.RUN_DIR, self.args.gen_out);
|
||||
# if not dir $gen_out, make it
|
||||
if not os.path.exists(gen_dir):
|
||||
try: os.makedirs(gen_dir)
|
||||
except:
|
||||
print('[Error]')
|
||||
print(' ! Seems like the {} directory cannot be created'.format(gen_dir))
|
||||
return
|
||||
# mv file to dir, remove self.TMP_PREFIX
|
||||
os.rename(tmp_file, os.path.join(gen_dir, new_tmp_file))
|
||||
tmp_file = new_tmp_file
|
||||
print('[OK]')
|
||||
|
||||
if self.args.compile:
|
||||
if self.args.log:
|
||||
logfile = os.path.join(self.TMP_DIR, os.path.relpath(file).replace(".ly", '').replace('/', '-')+'.log')
|
||||
log = ' > '+logfile+' 2>&1'
|
||||
else:
|
||||
log = ''
|
||||
|
||||
print ('Compiling ', file, end=' ', flush=True)
|
||||
if not self.args.log:
|
||||
print()
|
||||
lilyout = os.path.join(self.args.out_dir, os.path.basename(tmp_file).replace(self.TMP_PREFIX, '').replace(".ly", ''))
|
||||
print (lilyout)
|
||||
lilycmd = self.LILYPOND+' --pdf --output='+lilyout+' '+tmp_file+log
|
||||
|
||||
if os.system(lilycmd) != 0:
|
||||
self.remove_tmp_dir = False
|
||||
print ('[Error]')
|
||||
if self.args.log:
|
||||
print (' ! Did not compile, please see the log at ', logfile)
|
||||
else :
|
||||
print ('[OK]')
|
||||
|
||||
if self.args.clean:
|
||||
#remove files
|
||||
if self.args.log:
|
||||
os.remove(logfile)
|
||||
os.remove(tmp_file)
|
||||
|
||||
def maketemplate(self, file):
|
||||
lily_includes = ''
|
||||
include_drum_file = False
|
||||
include_pipe_file = False
|
||||
# find out whether drum, pipes, or full score
|
||||
for ext in ['full', 'side', 'tenor', 'bass', 'drum', 'snare']:
|
||||
if ext in file:
|
||||
include_drum_file = True
|
||||
break
|
||||
|
||||
for ext in ['full', 'pipes']:
|
||||
if ext in file:
|
||||
include_pipe_file = True
|
||||
break
|
||||
|
||||
if include_drum_file:
|
||||
self.args.includes.insert(0,self.args.lilydrum)
|
||||
|
||||
if include_pipe_file:
|
||||
self.args.includes.insert(0, self.args.lilypipe)
|
||||
|
||||
for f in self.args.includes:
|
||||
lily_includes = lily_includes + "\n\\include \"{}\"".format(f)
|
||||
|
||||
# Set up a tmp file with template and file combined
|
||||
tmp_file = self.TMP_PREFIX + os.path.relpath(file).replace('/', '-').replace('..', '').replace('//','').lstrip('-')
|
||||
tmp_file = os.path.join(self.TMP_DIR, tmp_file)
|
||||
out_file = codecs.open(tmp_file, 'w+', 'utf8')
|
||||
out_file.write(u'\ufeff')
|
||||
|
||||
# Write the file
|
||||
out_file.write(
|
||||
u"""% Generated from {filename} by {script} Version {version}
|
||||
\\version "2.18.0"
|
||||
|
||||
#(ly:set-option 'point-and-click #f)
|
||||
{lily_includes}
|
||||
|
||||
#(set-global-staff-size {staffsize})
|
||||
#(set-default-paper-size \"{papersize}\" '{orientation})
|
||||
|
||||
\\paper {{
|
||||
annotatespacing = {view_spacing}
|
||||
}}
|
||||
\layout {{
|
||||
\context {{
|
||||
\Score {{
|
||||
\override NonMusicalPaperColumn #'line-break-permission = {line_break}
|
||||
}}
|
||||
}}
|
||||
}}
|
||||
% The tune to generate.
|
||||
""".format(
|
||||
filename=file,
|
||||
script=__file__,
|
||||
version=self.VERSION,
|
||||
lily_includes=lily_includes,
|
||||
staffsize=self.args.staffsize,
|
||||
papersize=self.args.papersize,
|
||||
orientation=self.args.orientation,
|
||||
view_spacing=self.args.view_spacing,
|
||||
line_break=self.args.line_break
|
||||
)
|
||||
)
|
||||
|
||||
# Read lily file into tmp file
|
||||
music = codecs.open(file, 'r', 'utf8').read()
|
||||
if music.startswith(u'\ufeff'): music = music[1:]
|
||||
music = music.split(u'\n')
|
||||
printit = 1
|
||||
for line in music:
|
||||
if line.startswith(u'\\include'):
|
||||
if line.startswith(u'\\include "lilydrum.ly"'): continue
|
||||
if line.startswith(u'\\include "bagpipe.ly"'): continue
|
||||
|
||||
# Rewrite includes to absolute location of file
|
||||
incline = line.replace('\\include', '').strip('"\' ')
|
||||
if not incline.startswith('\\'): #already absolute
|
||||
incline = os.path.join(os.path.abspath(os.path.dirname(file)), incline)
|
||||
line = "\\include \""+incline+"\""
|
||||
if printit:
|
||||
out_file.write(line.replace('\r', '')+'\n')
|
||||
out_file.close()
|
||||
|
||||
# Return tmp_file_path
|
||||
return tmp_file
|
||||
|
||||
if __name__ == "__main__":
|
||||
MakeDrum();
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
TODO
|
||||
* show 8th and 16th beats in beaming, currently only 8ths: d32[[ g] d[ g]] d32[[ g] d[ g]]
|
||||
* Macro for tutti's (unisons)
|
||||
- on just one note
|
||||
- with open ending
|
||||
* Macro for "Part 2 of $n"
|
||||
* If 8/16/32/..th notes come before a flam, they have a flag instead of a beam (fixable by explicit beaming, but rather have a good autobeaming)
|
||||
* A tuplet beginning with a flam has a strange tuplet beam (slanted) (fixable by putting the flam outside of the tuplet .. However the flam function doesnt work that way (yet))
|
||||
* It's customary to have 4 bars per line for portrait and 8 for landscape...
|
||||
|
||||
* SIDE sticking
|
||||
rimshot default + cross
|
||||
|
||||
* FLOURISHING short long note above-note
|
||||
ups \up arrow-up
|
||||
scoop \scoop arrow-right-(diag-up then diag-down) [propably start on beginning of note and filter out the last one]
|
||||
(further EUSPBA symbols)
|
||||
Loading…
Add table
Add a link
Reference in a new issue