Come diavolo si fa a processare due files senza perdere il titolo e le varie
intestazioni?
Grazie
--
oiram/bin/selom
cofon ={\cadenzaOff \bar "|"\cadenzaOn}
cofn ={\cadenzaOff \bar "|"\cadenzaOn}
snu = { \set stringNumberOrientations = #'(up) }
snd = { \set stringNumberOrientations = #'(down) }
snl = { \set stringNumberOrientations = #'(left) }
snr = { \set stringNumberOrientations = #'(right)}
fou = { \set fingeringOrientations = #'(up) }
fod = { \set fingeringOrientations = #'(down) }
fol = { \set fingeringOrientations = #'(left) }
for = { \set fingeringOrientations = #'(right) }
gt = \override Glissando #'breakable = ##T
gl = \glissando
gT = \override Glissando #'thickness = #2
ignore = \override NoteColumn #'ignore-collision = ##t
\version "2.12.1"
\paper{
#(set-paper-size "a4")
bottom-margin = 1.2\cm
top-margin = 0.4\cm
ragged-last-bottom = ##f
ragged-bottom = ##f
between-system-space = 5\cm
%{between-system-padding = #5%}
}
\header {
% meter = \markup {\override #'(font-name . "URW Palladio L italic"){"(Potenza, 7 sep. 1973)"}}
% poet = \markup {\override #'(font-name . "URW Palladio L "){"Diteggiatura di Mario Moles"}}
title = \markup {\override #'(font-name . "URW Palladio L bold"){\fontsize #2 "Danza francese" }}
% dedication = \markup {\override #'(font-name . "URW Palladio L italic"){"Ad Andrés Segovia"}}
composer = \markup {\override #'(font-name . "URW Palladio L "){ "Anonimo" }}
% arranger = \markup {\override #'(font-name . "URW Palladio L italic"){ "(Grottkau, 12 oct. 1686 - Dresde, 16 oct. 1750)"}}
% tagline = \markup {\override #'(font-name . "URW Palladio L"){ "Music engraving by LilyPond 2.12.2âwww.lilypond.org"}}
}
\layout {
indent = 0.5\cm
}
#(set-global-staff-size 18)
#(define (calc-custom-stroke-text grob)
(let ((text (ly:event-property (event-cause grob) 'text)))
(if (string? text)
(markup #:center-column (#:lower 2.5 "^" text))
(stroke-finger::calc-text grob))))
#(define (make-stroke-finger location finger)
(apply make-music
(append
(list
'StrokeFingerEvent
'origin location)
(if (string? finger)
(list 'text finger)
(list 'digit finger)))))
da = #(define-music-function (parser location) ()
(make-stroke-finger location "a"))
dm = #(define-music-function (parser location) ()
(make-stroke-finger location "m"))
di = #(define-music-function (parser location) ()
(make-stroke-finger location "i"))
dp = #(define-music-function (parser location) ()
(make-stroke-finger location "p"))
dan = #(define-music-function (parser location) ()
(make-stroke-finger location 4))
dmn = #(define-music-function (parser location) ()
(make-stroke-finger location 3))
din = #(define-music-function (parser location) ()
(make-stroke-finger location 2))
dpn = #(define-music-function (parser location) ()
(make-stroke-finger location 1))
\new Staff <<
\new Voice
% \relative c,
{ \clef "G_8"
\key a \minor
\time 4/4
\set strokeFingerOrientations = #'(up)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StrokeFinger #'text = #calc-custom-stroke-text
%{ \once \override Staff.TimeSignature #'stencil = ##f%}
\override StringNumber #'staff-padding = #'()
\fol \snd
\voiceOne
\override Slur #'height-limit = #4
% \set Score.defaultBarType = #"empty"
%1 rigo
a,8 <a-3 c'-1> <e-2> a, e, <gis-1 b> e e, |a,8 <a-3 c'-1> <e-2> a, e, <gis-1 b> e e, |
a,8 <a-3 c'-1> <e-2> a, e, <gis-1 b> e e, |a,8 <a-3 c'-1> <e-2> a, e, <gis-1 b> e e, |
a,8 <a-3 c'-1> <e-2> a, g, <g b> d g, |gis,8 <gis-3 b-1> <e-2> g, a, <a c'> e a, |
f,8 <f-4 a-2> <c-3> f, e, <gis b> d e, |a,8 <a-3 c'-1> <e-2> a, <g,-3> <g b> b, g, |
gis,8 <b-4 d'-2> <e-1> g, a, <f-4 a> <c-3> <f,-1> |e, <gis-1 b> d e, a, <a c'> a,4 \bar":|"
}
\new Voice
% \relative c,
{ \clef "G_8"
\key a \minor
\time 4/4
\voiceTwo
\set strokeFingerOrientations = #'(down)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StrokeFinger #'text = #calc-custom-stroke-text
\fol
%note
%1 rigo
<a,-\dpn>4. a,8 e,4. e,8| a,4. a,8 e,4. e,8| a,4. a,8 e,4. e,8| a,4. a,8 e,4. e,8|
a,4. a,8 g,4. g,8| gis,4. gis,8 a,4. a,8| f,4. f,8 e,4. e,8| a,4. a,8 g,4. g,8|
gis,4. gis,8 a,4. f,8| e,4. e,8 a,4 a,|
}
\new Voice
% \relative c,
{ \clef "G_8"
\key a \minor
\time 4/4
\voiceThree
\set strokeFingerOrientations = #'(up)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StrokeFinger #'text = #calc-custom-stroke-text
}
>>cofon ={\cadenzaOff \bar "|"\cadenzaOn}
cofn ={\cadenzaOff \bar "|"\cadenzaOn}
snu = { \set stringNumberOrientations = #'(up) }
snd = { \set stringNumberOrientations = #'(down) }
snl = { \set stringNumberOrientations = #'(left) }
snr = { \set stringNumberOrientations = #'(right)}
fou = { \set fingeringOrientations = #'(up) }
fod = { \set fingeringOrientations = #'(down) }
fol = { \set fingeringOrientations = #'(left) }
for = { \set fingeringOrientations = #'(right) }
gt = \override Glissando #'breakable = ##T
gl = \glissando
gT = \override Glissando #'thickness = #2
ignore = \override NoteColumn #'ignore-collision = ##t
\version "2.12.1"
\paper{
#(set-paper-size "a4")
bottom-margin = 1.2\cm
top-margin = 0.4\cm
ragged-last-bottom = ##f
ragged-bottom = ##f
between-system-space = 5\cm
%{between-system-padding = #5%}
}
\header {
% meter = \markup {\override #'(font-name . "URW Palladio L italic"){"(Potenza, 7 sep. 1973)"}}
% poet = \markup {\override #'(font-name . "URW Palladio L "){"Diteggiatura di Mario Moles"}}
title = \markup {\override #'(font-name . "URW Palladio L bold"){\fontsize #2 "La piccola quaglia" }}
% dedication = \markup {\override #'(font-name . "URW Palladio L italic"){"Ad Andrés Segovia"}}
composer = \markup {\override #'(font-name . "URW Palladio L "){ "Tradizionale - Russia" }}
% arranger = \markup {\override #'(font-name . "URW Palladio L italic"){ "(Grottkau, 12 oct. 1686 - Dresde, 16 oct. 1750)"}}
% tagline = \markup {\override #'(font-name . "URW Palladio L"){ "Music engraving by LilyPond 2.12.2âwww.lilypond.org"}}
}
\layout {
indent = 0.5\cm
}
#(set-global-staff-size 18)
#(define (calc-custom-stroke-text grob)
(let ((text (ly:event-property (event-cause grob) 'text)))
(if (string? text)
(markup #:center-column (#:lower 2.5 "^" text))
(stroke-finger::calc-text grob))))
#(define (make-stroke-finger location finger)
(apply make-music
(append
(list
'StrokeFingerEvent
'origin location)
(if (string? finger)
(list 'text finger)
(list 'digit finger)))))
da = #(define-music-function (parser location) ()
(make-stroke-finger location "a"))
dm = #(define-music-function (parser location) ()
(make-stroke-finger location "m"))
di = #(define-music-function (parser location) ()
(make-stroke-finger location "i"))
dp = #(define-music-function (parser location) ()
(make-stroke-finger location "p"))
dan = #(define-music-function (parser location) ()
(make-stroke-finger location 4))
dmn = #(define-music-function (parser location) ()
(make-stroke-finger location 3))
din = #(define-music-function (parser location) ()
(make-stroke-finger location 2))
dpn = #(define-music-function (parser location) ()
(make-stroke-finger location 1))
\new Staff <<
\new Voice
% \relative c,
{ \clef "G_8"
\key d \minor
\time 2/4
\set strokeFingerOrientations = #'(up)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StrokeFinger #'text = #calc-custom-stroke-text
%{ \once \override Staff.TimeSignature #'stencil = ##f%}
\override StringNumber #'staff-padding = #'()
\fol \snd
\voiceOne
\override Slur #'height-limit = #4
% \set Score.defaultBarType = #"empty"
%1 rigo
\repeat volta 2 {d8 <a-2 d'-4 f'-1> a, <a d' f'> bes, <gis d' e'> e <gis d' e'> a, <g cis' e'> e <g cis' e'>
d8 <a d' f'> a, <a d' f'> a, <g cis' e'> <a d' f'>4 a,8 <g cis' e'> <a d' f'>4 <bes d' f'>
a,8 <g cis' e'>} \alternative {{d <a d' f'> d4} {d8 <a d' f'> a4}}\bar"|."
}
\new Voice
% \relative c,
{ \clef "G_8"
\key d \minor
\time 2/4
\voiceTwo
\set strokeFingerOrientations = #'(down)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StrokeFinger #'text = #calc-custom-stroke-text
\fol
%note
%1 rigo
<d-\dpn>4 a, bes, e a, e d a, a, d a, d g, a, d d d2
}
\new Voice
% \relative c,
{ \clef "G_8"
\key d \minor
\time 2/4
\voiceThree
\set strokeFingerOrientations = #'(up)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StrokeFinger #'text = #calc-custom-stroke-text
}
>>\include "Lapiccolaquaglia.ly"
\include "Danzafrancese.ly"
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
