-\version "1.7.18" %% or actually: 1.7.1 ...
-% FIXME: doesn't work with 1.7.19. Check with more recent version.
+\version "1.7.18
+
\header {
texidoc= "@cindex Add Stacato
m))
#(define (add-script m x)
- (if (equal? (ly:get-mus-property m 'name) 'RequestChord)
- (ly:set-mus-property! m 'elements
- (cons (make-script x)
- (ly:get-mus-property m 'elements)))
-
- (let ((es (ly:get-mus-property m 'elements))
- (e (ly:get-mus-property m 'element)) )
- (map (lambda (y) (add-script y x)) es)
- (if (ly:music? e)
- (add-script e x))))
+ (if
+ (equal? (ly:get-mus-property m 'name) 'EventChord)
+ (ly:set-mus-property! m 'elements
+ (cons (make-script x)
+ (ly:get-mus-property m 'elements))))
m)
#(define (add-staccato m)
\score {
\notes\relative c'' {
- a b \apply #add-staccato { c c }
- a b \apply #add-staccato { c c }
+ a b \apply #(lambda (x) (music-map add-staccato x)) { c c }
}
- \paper{ raggedright = ##t }
+ \paper{ raggedright = ##t }
}
\version "1.7.18"
-% We have other examples of partcombine. Candidate for delete. -gp
-% leave it for now; I need to check some things.
-% FIXMEsoon -gp
-%{
-Jan:
-> Why remove this? Do we have another hymn with part-combiner? Maybe
-> move to template?
-%}
-\header { texidoc = "@cindex Hymn
-You can combine two parts on the same staff. " }
+\header { texidoc = "
+
+You can combine two parts on the same staff using the part
+combiner. For vocal scores (hymns), there is no need to add solo/a2
+texts, so they should be switched off.
+
+" }
\score{
\context Staff <
\version "1.7.18"
-\header { texidoc = "@cindex Improv
-Noteheads for improvisation have a different shape. " }
+\header {
-%{ TODO: the construct with separet SquashVoice context is a little
- gory. FIXME. %}
+texidoc =
+
+
+"@cindex improvisation
+
+
+Noteheads for improvisation have a different shape.
+
+
+" }
improOn = \notes {\translator Voice = impro }
\name SquashVoice
\alias Voice
\consists Pitch_squash_engraver
- \consists "Accidental_engraver"
squashedPosition = #0
NoteHead \override #'style = #'slash
- Accidental \override #'transparent = ##t
}
+
\translator {
\VoiceContext
\alias SquashVoice
- \consists "Accidental_engraver"
- }
- \translator {
- \ScoreContext
- \accepts SquashVoice
}
+
\translator {
\StaffContext
\remove "Accidental_engraver"
\accepts "StaffCombineStaff"
skipBars = ##t
- %%FIXME barScriptPadding = #2.0 % dimension \pt
RehearsalMark \override #'padding = #4
BarNumber \override #'padding = #3
- %% URG: this changes dynamics too
- %%textStyle = #"italic"
TimeSignature \override #'style = #'C
RestCollision \set #'maximum-rest-count = #1
}
\version "1.7.18"
\header {
texidoc = "@cindex Rests
-Rests in various styles."
+
+Rests in various styles.
+
+"
}
% FIXME: Currently, this file produces "warning: flag `d-3' not found"
\score {
\context Staff \notes\relative c {
+ \property Score.timing = ##f
\property Staff.Rest \set #'style = #'mensural
r\maxima^"Rest style = \#'mensural"
r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128
\property Staff.Rest \set #'style = #'neo_mensural
r\maxima^"Rest style = \#'neo\\_mensural"
r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128
- \break
+ \bar empty \break
\property Staff.Rest \set #'style = #'classical
r\maxima^"Rest style = \#'classical"
r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128
- \break
+\break
\property Staff.Rest \set #'style = #'default
r\maxima^"Rest style = \#'default"
r\longa r\breve r1 r2 r4 r8 r16 r32 r64 r128 r128
\break
}
- \paper {
- \translator {
- \StaffContext
- %%%% FIXME: The following looks good, but produces
- %%%% lots of warnings:
- % \remove Bar_engraver
- }
- \translator {
- \ScoreContext
- \remove Bar_number_engraver
- }
- }
}
+
+% this chart is used in the manual too.
+
\version "1.7.18"
-% FIXMEsoon: check if test/ is the right place.
\header { texidoc = "@cindex Script Abbreviations
-Some scripts may be entered using an abbreviation. "
+
+Some scripts may be entered using an abbreviation.
+
+"
+
}
\score {
\version "1.7.18"
-% FIXMEsoon: check if test/ is the best place.
+
+% this chart is used in the manual too.
+
\header {
texidoc ="@cindex Feta scripts
-A chart showing all feta scripts. "
+
+A chart showing all feta scripts.
+
+"
}
\score {
indent = 0.0
raggedright = ##t
%
-% FIXME: ragged-right alignment is currently broken
- % I don't think it is any more. -gp
-% width = 12.0 \cm
-% gourlay_maxmeasures = 30.
+% FIXME: packed alignment is currently broken
%
\translator {
\remove Bar_engraver
\consists Custos_engraver
StaffSymbol \set #'line-count = #4
-% StaffSymbol \set #'width = #60.0 % FIXME: how to get same as \linewidth?
TimeSignature \set #'transparent = ##t
KeySignature \set #'style = #'vaticana
Accidental \set #'style = #'vaticana