@itemize @bullet
-@item @uref{http://www.freetype.org/,Freetype} (version 2).
+@item @uref{http://www.freetype.org/,Freetype} (version 2.1.10 or newer).
@item @uref{http://www.freetype.org/,FontConfig} (version 2.2).
@item @uref{http://www.pango.org/,Pango} (version 1.12 or newer).
@item @uref{http://www.gnu.org/software/guile/guile.html,GUILE}
Improvisation is sometimes denoted with slashed note heads. Such note
heads can be created by adding a @internalsref{Pitch_squash_engraver}
-to the @internalsref{Staff} or @internalsref{Voice} context. Then, the
+to the @internalsref{Voice} context. Then, the
following command
@example
the following example
@lilypond[verbatim,ragged-right,quote]
-\new Staff \with {
+\new Voice \with {
\consists Pitch_squash_engraver
} \transpose c c' {
e8 e g a a16(bes)(a8) g \improvisationOn
STEPMAKE_PANGO_FT2(pangoft2, REQUIRED, 1.6.0)
#STEPMAKE_PANGO(pango, REQUIRED, 1.6.0)
STEPMAKE_FONTCONFIG(fontconfig, REQUIRED, 2.2.0)
-STEPMAKE_FREETYPE2(freetype2, REQUIRED, 0)
+STEPMAKE_FREETYPE2(freetype2, REQUIRED, 2.1.10)
STEPMAKE_WINDOWS
depth = ../../
-SUBDIRS = ancient chords connecting contemporary education expressive guitar parts pitches repeats spacing staff text vocal scheme other
+SUBDIRS = ancient chords connecting contemporary education expressive
+SUBDIRS += guitar parts pitch repeats spacing staff text vocal scheme other
STEPMAKE_TEMPLATES=documentation texinfo tex
LOCALSTEPMAKE_TEMPLATES=lilypond ly lysdoc
@strong{@uref{parts/collated-files.html,Preparing parts}}
-@strong{@uref{pitches/collated-files.html,Pitches}}
+@strong{@uref{pitch/collated-files.html,Pitch}}
@strong{@uref{repeats/collated-files.html,Repeats}}
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+Some dynamics may involve text indications (such as \"più forte\",
+\"piano subito\", etc.). They can be produced using a \markup bloc.
+" }
+
+\layout{ragged-right = ##t}
+
+piuf = \markup { \italic "molto" \dynamic "f" }
+
+\relative c''{
+ c-\piuf
+ c
+ c2\< c2\!
+
+ c2\< c2\!
+}
+
\set shapeNoteStyles = ##(do re mi fa #f la ti)
\fragment
}
+
+% temporary change help LSR integration -gp
%{
\transpose c d
\relative {
\fragment
}
%}
+
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+%% +.ly: Be the first .ly file for lys-to-tely.py.
+%% Better to make lys-to-tely.py include "introduction.texi" or
+%% other .texi documents too?
+
+\header{
+texidoc = #(string-append "
+@unnumbered Introduction
+
+This document shows examples from the
+@uref{http://lsr@/.dsi@/.unimi@/.it,LilyPond Snippet Repository}.
+
+In the web version of this document, you can click on the file name
+or figure for each example to see the corresponding input file.
+
+This document is for LilyPond version
+" (lilypond-version) "." )
+}
+
+% make sure .png is generated.
+\lyrics { " " }
--- /dev/null
+depth = ../../../
+
+STEPMAKE_TEMPLATES=documentation texinfo tex
+LOCALSTEPMAKE_TEMPLATES=lilypond ly lysdoc
+
+## Hmm, would this work? No -- if we really want examples, move
+## to other dir (input/) comes to mind.
+## examples = font20 ancient-font
+## LOCALSTEPMAKE_TEMPLATES += ly mutopia
+
+EXTRA_DIST_FILES=
+
+include $(depth)/make/stepmake.make
+
+TITLE=Advanced snippets
--- /dev/null
+# -*-python-*-
+
+Import ('env', 'collate')
+collate (title = 'Advanced snippets')
+++ /dev/null
-%% Do not edit this file; it is auto-generated from LSR!
-\version "2.11.23"
-%% +.ly: Be the first .ly file for lys-to-tely.py.
-%% Better to make lys-to-tely.py include "introduction.texi" or
-%% other .texi documents too?
-
-\header{
-texidoc = #(string-append "
-@unnumbered Introduction
-
-This document shows examples from the
-@uref{http://lsr@/.dsi@/.unimi@/.it,LilyPond Snippet Repository}.
-
-In the web version of this document, you can click on the file name
-or figure for each example to see the corresponding input file.
-
-This document is for LilyPond version
-" (lilypond-version) "." )
-}
-
-% make sure .png is generated.
-\lyrics { " " }
+++ /dev/null
-depth = ../../../
-
-STEPMAKE_TEMPLATES=documentation texinfo tex
-LOCALSTEPMAKE_TEMPLATES=lilypond ly lysdoc
-
-## Hmm, would this work? No -- if we really want examples, move
-## to other dir (input/) comes to mind.
-## examples = font20 ancient-font
-## LOCALSTEPMAKE_TEMPLATES += ly mutopia
-
-EXTRA_DIST_FILES=
-
-include $(depth)/make/stepmake.make
-
-TITLE=Advanced snippets
+++ /dev/null
-# -*-python-*-
-
-Import ('env', 'collate')
-collate (title = 'Advanced snippets')
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+Thanks to its implementation of GUILE, LilyPond makes high level
+functionalities relatively easy to accomplish.
+
+In this example, the title will mention the current version (i.e. the
+version the snippet was compiled with, regardless which \version was
+originally used).
+" }
+
+#(if (not (defined? 'pieceTagLine))
+ (define pieceTagLine (string-append "You are running version " (lilypond-version))))
+
+\header{
+ title = \pieceTagLine
+}
+
+{ c'4 }
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+Staffs can be nested in various combinations. Here, @code{StaffGroup}
+and @code{ChoirStaff} produce similar straight brackets, whereas
+@code{GrandStaff} produces curly brackets. In @code{InnerStaffGroup}
+and @code{InnerChoirStaff}, the brackets are shifted leftwards.
+
+
+
+" }
+
+\score {
+<<
+ \new StaffGroup <<
+ \new Staff {c' d' e' f'}
+ \new InnerStaffGroup <<
+ \new Staff {c' d' e' f'}
+ \new GrandStaff <<
+ \new Staff {c' d' e' f'}
+ \new Staff {c' d' e' f'}
+ >>
+ \new Staff {c' d' e' f'}
+ >>
+ \new ChoirStaff <<
+ \new Staff {c' d' e' f'}
+ \new InnerStaffGroup <<
+ \new Staff {c' d' e' f'}
+ >>
+ \new Staff {c' d' e' f'}
+ >>
+ >>
+ \new ChoirStaff <<
+ \new Staff {c' d' e' f'}
+ \new InnerChoirStaff <<
+ \new Staff {c' d' e' f'}
+ \new Staff {c' d' e' f'}
+ >>
+ \new Staff {c' d' e' f'}
+ >>
+
+>>
+
+ \layout { raggedright = ##t}
+}
+
+
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+he command \postscript allows you to insert PostScript code directly
+inside a \markup bloc.
+
+(Beware: PostScript is a registred trademark by Adobe Systems Inc.
+LilyPond actually uses GNU/GhostScript to handle it.)
+" }
+
+\layout {
+ line-width = 70 * 5 \pt
+}
+
+\relative c'' {
+ a-\markup { \postscript #"3 4 moveto 5 3 rlineto stroke" }
+ -\markup { \postscript #"[ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke " }
+
+ b-\markup { \postscript #"3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke" }
+ s2
+ a'1
+}
--- /dev/null
+\version "2.10.0"
+
+\header{
+texidoc = "
+@unnumbered Introduction
+
+This document shows examples from the
+@uref{http://lsr@/.dsi@/.unimi@/.it,LilyPond Snippet Repository}.
+
+In the web version of this document, you can click on the file name
+or figure for each example to see the corresponding input file."
+}
+
+% make sure .png is generated.
+\markup{ "This document is for LilyPond version" #(ly:export(lilypond-version)) }
+
--- /dev/null
+\version "2.10.0"
+%% +.ly: Be the first .ly file for lys-to-tely.py.
+%% Better to make lys-to-tely.py include "introduction.texi" or
+%% other .texi documents too?
+
+\header{
+texidoc = #(string-append "
+@unnumbered Introduction
+
+This document shows examples from the
+@uref{http://lsr@/.dsi@/.unimi@/.it,LilyPond Snippet Repository}.
+
+In the web version of this document, you can click on the file name
+or figure for each example to see the corresponding input file.
+
+This document is for LilyPond version
+" (lilypond-version) "." )
+}
+
+% make sure .png is generated.
+\lyrics { " " }
--- /dev/null
+depth = ../../../
+
+STEPMAKE_TEMPLATES=documentation texinfo tex
+LOCALSTEPMAKE_TEMPLATES=lilypond ly lysdoc
+
+## Hmm, would this work? No -- if we really want examples, move
+## to other dir (input/) comes to mind.
+## examples = font20 ancient-font
+## LOCALSTEPMAKE_TEMPLATES += ly mutopia
+
+EXTRA_DIST_FILES=
+
+include $(depth)/make/stepmake.make
+
+TITLE=Advanced snippets
--- /dev/null
+# -*-python-*-
+
+Import ('env', 'collate')
+collate (title = 'Advanced snippets')
--- /dev/null
+\header {
+
+ texidoc = "Makam is Turkish type of melody that uses 1/9 tone
+ microtonal alterations."
+
+}
+
+
+\version "2.11.6"
+
+%{
+
+Define 1/9 alterations.
+
+%}
+
+
+#(define-public KOMA 1/9)
+#(define-public BAKIYE 4/9)
+#(define-public KUCUK 5/9)
+#(define-public BUYUKMUCENNEB 8/9)
+
+%{
+
+Define pitch names
+
+%}
+
+makamPitchNames = #`(
+ (c . ,(ly:make-pitch -1 0 NATURAL))
+ (d . ,(ly:make-pitch -1 1 NATURAL))
+ (e . ,(ly:make-pitch -1 2 NATURAL))
+ (f . ,(ly:make-pitch -1 3 NATURAL))
+ (g . ,(ly:make-pitch -1 4 NATURAL))
+ (a . ,(ly:make-pitch -1 5 NATURAL))
+ (b . ,(ly:make-pitch -1 6 NATURAL))
+
+ (cc . ,(ly:make-pitch -1 0 KOMA))
+ (dc . ,(ly:make-pitch -1 1 KOMA))
+ (ec . ,(ly:make-pitch -1 2 KOMA))
+ (fc . ,(ly:make-pitch -1 3 KOMA))
+ (gc . ,(ly:make-pitch -1 4 KOMA))
+ (ac . ,(ly:make-pitch -1 5 KOMA))
+ (bc . ,(ly:make-pitch -1 6 KOMA))
+
+ (cb . ,(ly:make-pitch -1 0 BAKIYE))
+ (db . ,(ly:make-pitch -1 1 BAKIYE))
+ (eb . ,(ly:make-pitch -1 2 BAKIYE))
+ (fb . ,(ly:make-pitch -1 3 BAKIYE))
+ (gb . ,(ly:make-pitch -1 4 BAKIYE))
+ (ab . ,(ly:make-pitch -1 5 BAKIYE))
+ (bb . ,(ly:make-pitch -1 6 BAKIYE))
+
+ (ck . ,(ly:make-pitch -1 0 KUCUK))
+ (dk . ,(ly:make-pitch -1 1 KUCUK))
+ (ek . ,(ly:make-pitch -1 2 KUCUK))
+ (fk . ,(ly:make-pitch -1 3 KUCUK))
+ (gk . ,(ly:make-pitch -1 4 KUCUK))
+ (ak . ,(ly:make-pitch -1 5 KUCUK))
+ (bk . ,(ly:make-pitch -1 6 KUCUK))
+
+ (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
+ (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
+ (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
+ (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
+ (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
+ (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
+ (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
+
+ ;; f for flat.
+ (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
+ (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
+ (efc . ,(ly:make-pitch -1 2 (- KOMA)))
+ (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
+ (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
+ (afc . ,(ly:make-pitch -1 5 (- KOMA)))
+ (bfc . ,(ly:make-pitch -1 6 (- KOMA)))
+
+ (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
+ (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
+ (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
+ (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
+ (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
+ (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
+ (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
+
+ (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
+ (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
+ (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
+ (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
+ (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
+ (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
+ (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
+
+ (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
+ (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
+ (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
+ (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
+ (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
+ (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
+ (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
+
+)
+
+
+%% set pitch names.
+pitchnames = \makamPitchNames
+#(ly:parser-set-note-names parser makamPitchNames)
+
+\paper
+{
+ ragged-right = ##t
+}
+
+
+makamGlyphs = #'((1 . "accidentals.doublesharp")
+ (8/9 . "accidentals.sharp.slashslashslash.stemstem")
+ (5/9 . "accidentals.sharp.slashslashslash.stem")
+ (4/9 . "accidentals.sharp")
+ (1/9 . "accidentals.sharp.slashslash.stem")
+ (0 . "accidentals.natural")
+ (-1/9 . "accidentals.mirroredflat")
+ (-4/9 . "accidentals.flat.slash")
+ (-5/9 . "accidentals.flat")
+ (-8/9 . "accidentals.flat.slashslash")
+ (-1 . "accidentals.flatflat")
+ )
+
+\relative {
+
+ %{ define alteration <-> symbol mapping. The following glyphs are available.
+
+ accidentals.sharp
+ accidentals.sharp.slashslash.stem
+ accidentals.sharp.slashslashslash.stemstem
+ accidentals.sharp.slashslashslash.stem
+ accidentals.sharp.slashslash.stemstemstem
+ accidentals.natural
+ accidentals.flat
+ accidentals.flat.slash
+ accidentals.flat.slashslash
+ accidentals.mirroredflat.flat
+ accidentals.mirroredflat
+ accidentals.flatflat
+ accidentals.flatflat.slash
+ accidentals.doublesharp
+
+ %}
+
+ \override Accidental #'glyph-name-alist = \makamGlyphs
+
+ \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
+ \set Staff.keySignature = #'(
+ (3 . 4/9)
+ (6 . -1/9))
+
+ c cc db fk gbm gfc gfb efk dfbm
+}
+++ /dev/null
-\version "2.10.0"
-%% +.ly: Be the first .ly file for lys-to-tely.py.
-%% Better to make lys-to-tely.py include "introduction.texi" or
-%% other .texi documents too?
-
-\header{
-texidoc = #(string-append "
-@unnumbered Introduction
-
-This document shows examples from the
-@uref{http://lsr@/.dsi@/.unimi@/.it,LilyPond Snippet Repository}.
-
-In the web version of this document, you can click on the file name
-or figure for each example to see the corresponding input file.
-
-This document is for LilyPond version
-" (lilypond-version) "." )
-}
-
-% make sure .png is generated.
-\lyrics { " " }
+++ /dev/null
-depth = ../../../
-
-STEPMAKE_TEMPLATES=documentation texinfo tex
-LOCALSTEPMAKE_TEMPLATES=lilypond ly lysdoc
-
-## Hmm, would this work? No -- if we really want examples, move
-## to other dir (input/) comes to mind.
-## examples = font20 ancient-font
-## LOCALSTEPMAKE_TEMPLATES += ly mutopia
-
-EXTRA_DIST_FILES=
-
-include $(depth)/make/stepmake.make
-
-TITLE=Advanced snippets
+++ /dev/null
-# -*-python-*-
-
-Import ('env', 'collate')
-collate (title = 'Advanced snippets')
+++ /dev/null
-
-This directory has a two-fold purpose
-
-* storing big examples referenced from the manual
-
-* temporary storage place for experimental test files. Over time,
-when features become stable, the examples are to be moved in the
-manual.
-
-
-It is NOT a dumping ground for assorted trick and hacks.
-
-If you have trick that is neat hack, and think it should be in the
-manual, then post it to lilypond-user@gnu.org, noting that you
-propose to submit it to the manual.
-
-If you have CVS write access for this directory, then consult Jan &
-Han-Wen before adding your file. Files should generally not be added
-here but to the manual. If you want to add to the manual it's wise to
-check The Documentation Meister (at the moment: Jan & Han-Wen), to be
-sure that the example really adds value to the manual.
+++ /dev/null
-
-\version "2.10.0"
-\header {
-texidoc = "@cindex Circle
-
-Circles can be drawn around various objects.
-
-"
-}
-
-\layout{ragged-right = ##t}
-
-\relative c'{
-c1
-\set Score.markFormatter
- = #(lambda (mark context)
- (make-circle-markup (format-mark-numbers mark context)))
-\mark \default
-c2 d^\markup{\circle \finger "2"}
-\override Score.BarNumber #'break-visibility = #all-visible
-\override Score.BarNumber #'stencil
- = #(make-stencil-circler 0.1 0.25 ly:text-interface::print)
-}
\ No newline at end of file
+++ /dev/null
-
-\version "2.10.0"
-\header {
-texidoc = "@cindex compound time
-@cindex plus
-
-Compound time signatures can be printed. Automatic beaming works in
-compound time.
-
-"
-}
-
-\layout{ragged-right = ##t}
-
-#(define (compound-time one two num)
- (markup #:override '(baseline-skip . 0) #:number
- (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))))))
-
-
-\relative {
- %% compound time signature hack
- \time 5/8
- \override Staff.TimeSignature #'stencil = #ly:text-interface::print
- \override Staff.TimeSignature #'text = #(compound-time "2" "3" "8" )
- #(override-auto-beam-setting '(end 1 8 5 8) 1 4)
- c8 c c8 c c
-}
-
+++ /dev/null
-
-\version "2.10.0"
-
-
-% Ugh, we need to override some LaTeX titling stuff
-\header {
- title = "Ouvertüre"
- subtitle = "Zu Heinrich Joseph v. Collins Trauerspiel"
- subsubtitle = \markup { \large \bold "Coriolan" }
- opus = "Op. 62"
- piece = \markup { \large Allegro con brio }
- composer = "Ludwig van Beethoven (1770-1827)"
-
-texidoc = "@cindex Orchestra Score
-@cindex Coriolan Score
-In an orchestral score (Beethoven's Coriolan overture), there are
-different instrument groups, and some of the instruments may be
-transposed. Instruments are indicated either with a long or short name.
-" }
-
-#(set-global-staff-size 16)
-
-raisedFlat = \markup { \raise #0.4 \smaller \smaller \flat }
-
-
-
-flauti = \relative c' {
- \set Staff.instrumentName = #"2 Flauti"
- \set Staff.shortInstrumentName = #"Fl."
- \time 4/4
- c1
- \break c
-% \break c
-% \break c
- \bar"|."
-}
-
-oboi = \relative c' {
- \set Staff.instrumentName = #"2 Oboi"
- \set Staff.shortInstrumentName = #"Ob."
- c1 c
-}
-
-clarinetti = \relative c' {
- \set Staff.instrumentName = \markup { \column { "Clarinetti" \line { "in B" \raisedFlat } } }
- \set Staff.shortInstrumentName = \markup { \smaller { "Cl(B" \raisedFlat ")" } }
-
- c1 c
-}
-
-fagotti = \relative c' {
- \set Staff.instrumentName = #"2 Fagotti"
- \set Staff.shortInstrumentName = #"Fg."
- c1 c
-}
-
-corni = \relative c' {
- \set Staff.instrumentName = \markup { \column { "Corni" \line { "in E" \raisedFlat } } }
- \set Staff.shortInstrumentName = \markup { \smaller { "Cor(E" \raisedFlat ")" } }
-
- c1 c
-}
-
-trombe = \relative c' {
- \set Staff.instrumentName = \markup \column { "2 Trombe" "(C)" }
- \set Staff.shortInstrumentName = \markup \column { "Tbe." "(C)" }
-
- c1 c
-}
-
-timpani = \relative c' {
- \set Staff.instrumentName = \markup \column { "Timpani" "(C-G)" }
- \set Staff.shortInstrumentName = #"Timp."
-
- c1 c
-}
-
-violinoI = \relative c' {
- \set Staff.instrumentName = #"Violino I "
- \set Staff.shortInstrumentName = #"Vl. I "
- c1 c
-}
-
-violinoII = \relative c' {
- \set Staff.instrumentName = #"Violino II "
- \set Staff.shortInstrumentName = #"Vl. II "
- c1 c
-}
-
-viola = \relative c' {
- \set Staff.instrumentName = #"Viola"
- \set Staff.shortInstrumentName = #"Vla."
- c1 c
- %c
-}
-
-violoncello = \relative c' {
- \set Staff.instrumentName = \markup \column { "Violoncello" "e" "Contrabasso" }
- \set Staff.shortInstrumentName = \markup \column { "Vc." "Cb." }
- c1 c
-}
-
-
-\paper {
- indent=10.0\mm
- line-width=150.0\mm
- ragged-bottom = ##t
-}
-
-#(set-global-staff-size 16)
-\book {
- \score {
- <<
- \new StaffGroup = "legni" <<
- \new Staff = "flauti" \flauti
- \new Staff = "oboi" \oboi
- \new Staff = "clarinetti" \clarinetti
- \new Staff = "fagotti" \fagotti
- >>
- \new StaffGroup = "ottoni" <<
- \new Staff = "corni" \corni
- \new Staff = "trombe" \trombe
- >>
- \new StaffGroup = "timpani" <<
- \new Staff = "timpani" \timpani
- {
- \skip 1
- % Hmm: this forces a staff-bracket, that's good!
- % However, I can't find where is decided on staff-bracket yes/no
- }
- >>
- \new StaffGroup = "archi" <<
- \new GrandStaff = "violini" <<
- \new Staff = "violinoI" \violinoI
- \new Staff = "violinoII" \violinoII
- >>
- \new Staff = "viola" \viola
- \new Staff = "violoncello" \violoncello
- >>
- >>
- \layout {
- \context {
- \RemoveEmptyStaffContext
- }
- \context {
- \Score
- \override TimeSignature #'style = #'C
- }
- }
- }
- % this is ignored?
- \paper {
- indent=10.0\mm
- line-width=150.0\mm
- }
-}
-
-%% Local Variables:
-%% coding: utf-8
-%% End:
+++ /dev/null
-
-\version "2.10.0"
-% probably should be merged into refman.
-\header{
- texidoc = "@cindex Dynamic Piu Forte
-Più forte dynamics is produced using @code{\markup}. " }
-
-piuf = \markup { \italic "più" \dynamic "f" }
-
-\layout{ragged-right = ##t}
-
-\relative c''{
- c-\piuf
- c
- c2\< c2\!
-
- c2\< c2\!
-}
-
-
-%% Local Variables:
-%% coding: utf-8
-%% End:
+++ /dev/null
-
-\version "2.10.0"
-
-
-\header {
-
- texidoc = "
-
-@cindex Embedded Postscript
-
-The markup command @code{\postscript} inserts postscript directly into
-the output."
-
-}
-
-\layout {
- line-width = 70 * 5 \pt
-}
-
-\relative c'' {
- a-\markup { \postscript #"3 4 moveto 5 3 rlineto stroke" }
- -\markup { \postscript #"[ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke " }
-
- b-\markup { \postscript #"3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke" }
- s2
- a'1
-}
-
+++ /dev/null
-\version "2.10.0"
-
-
-#(if (not (defined? 'pieceTagLine))
- (define pieceTagLine (string-append "Title has version " (lilypond-version))))
-
-\header{
- title = \pieceTagLine
- texidoc = "
-
-High level functionality (eg. conditional defines), can be
-accomplished with GUILE.
-
-This example puts the current version in the title via Scheme.
-
-"
-}
-
-\layout {ragged-right=##t}
-{ c'4 }
-
+++ /dev/null
-\version "2.10.0"
-
-\header { texidoc = "@cindex Ancient Vaticana
-Vaticana ligature uses four staff lines, special clef, and
-calligraphic notes. Augmentum dots are collected behind
-ligatures. "
-}
-
-\include "gregorian-init.ly"
-
-cantus = \new VaticanaVoice = "cantus" {
- \clef "vaticana-fa2"
- \[ f\melisma \quilisma g \auctum \descendens a\melismaEnd \]
- \[ \virga a\melisma g \pes a \inclinatum f \inclinatum d
- c \pes d \quilisma e \pes f \virga g
- a \flexa f \pes g \inclinatum f \inclinatum e\melismaEnd \]
- \[ d\melisma \quilisma e f \flexa e \pes f\melismaEnd \]
- \[ \augmentum e\melisma \flexa \augmentum d\melismaEnd \]
-}
-
-verba = \new Lyrics = "verba" \lyricmode {
- Al- le- lu- ia.
-}
-
-\paper {
- line-thickness = \staff-space / 7.0
-}
-
-\score {
- <<
- \cantus
- \lyricsto "cantus" \verba
- >>
- \layout {
- line-width = 137.0 \mm
- width = 137.0 \mm
- indent = 0.0
- ragged-right = ##t
- packed = ##t
- \context {
- \Score
- \remove Bar_number_engraver
- timing = ##f
- barAlways = ##t
- }
- }
-}
+++ /dev/null
-\header {
-
- texidoc = "Makam is Turkish type of melody that uses 1/9 tone
- microtonal alterations."
-
-}
-
-
-\version "2.11.6"
-
-%{
-
-Define 1/9 alterations.
-
-%}
-
-
-#(define-public KOMA 1/9)
-#(define-public BAKIYE 4/9)
-#(define-public KUCUK 5/9)
-#(define-public BUYUKMUCENNEB 8/9)
-
-%{
-
-Define pitch names
-
-%}
-
-makamPitchNames = #`(
- (c . ,(ly:make-pitch -1 0 NATURAL))
- (d . ,(ly:make-pitch -1 1 NATURAL))
- (e . ,(ly:make-pitch -1 2 NATURAL))
- (f . ,(ly:make-pitch -1 3 NATURAL))
- (g . ,(ly:make-pitch -1 4 NATURAL))
- (a . ,(ly:make-pitch -1 5 NATURAL))
- (b . ,(ly:make-pitch -1 6 NATURAL))
-
- (cc . ,(ly:make-pitch -1 0 KOMA))
- (dc . ,(ly:make-pitch -1 1 KOMA))
- (ec . ,(ly:make-pitch -1 2 KOMA))
- (fc . ,(ly:make-pitch -1 3 KOMA))
- (gc . ,(ly:make-pitch -1 4 KOMA))
- (ac . ,(ly:make-pitch -1 5 KOMA))
- (bc . ,(ly:make-pitch -1 6 KOMA))
-
- (cb . ,(ly:make-pitch -1 0 BAKIYE))
- (db . ,(ly:make-pitch -1 1 BAKIYE))
- (eb . ,(ly:make-pitch -1 2 BAKIYE))
- (fb . ,(ly:make-pitch -1 3 BAKIYE))
- (gb . ,(ly:make-pitch -1 4 BAKIYE))
- (ab . ,(ly:make-pitch -1 5 BAKIYE))
- (bb . ,(ly:make-pitch -1 6 BAKIYE))
-
- (ck . ,(ly:make-pitch -1 0 KUCUK))
- (dk . ,(ly:make-pitch -1 1 KUCUK))
- (ek . ,(ly:make-pitch -1 2 KUCUK))
- (fk . ,(ly:make-pitch -1 3 KUCUK))
- (gk . ,(ly:make-pitch -1 4 KUCUK))
- (ak . ,(ly:make-pitch -1 5 KUCUK))
- (bk . ,(ly:make-pitch -1 6 KUCUK))
-
- (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
- (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
- (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
- (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
- (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
- (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
- (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
-
- ;; f for flat.
- (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
- (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
- (efc . ,(ly:make-pitch -1 2 (- KOMA)))
- (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
- (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
- (afc . ,(ly:make-pitch -1 5 (- KOMA)))
- (bfc . ,(ly:make-pitch -1 6 (- KOMA)))
-
- (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
- (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
- (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
- (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
- (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
- (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
- (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
-
- (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
- (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
- (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
- (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
- (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
- (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
- (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
-
- (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
- (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
- (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
- (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
- (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
- (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
- (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
-
-)
-
-
-%% set pitch names.
-pitchnames = \makamPitchNames
-#(ly:parser-set-note-names parser makamPitchNames)
-
-\paper
-{
- ragged-right = ##t
-}
-
-
-makamGlyphs = #'((1 . "accidentals.doublesharp")
- (8/9 . "accidentals.sharp.slashslashslash.stemstem")
- (5/9 . "accidentals.sharp.slashslashslash.stem")
- (4/9 . "accidentals.sharp")
- (1/9 . "accidentals.sharp.slashslash.stem")
- (0 . "accidentals.natural")
- (-1/9 . "accidentals.mirroredflat")
- (-4/9 . "accidentals.flat.slash")
- (-5/9 . "accidentals.flat")
- (-8/9 . "accidentals.flat.slashslash")
- (-1 . "accidentals.flatflat")
- )
-
-\relative {
-
- %{ define alteration <-> symbol mapping. The following glyphs are available.
-
- accidentals.sharp
- accidentals.sharp.slashslash.stem
- accidentals.sharp.slashslashslash.stemstem
- accidentals.sharp.slashslashslash.stem
- accidentals.sharp.slashslash.stemstemstem
- accidentals.natural
- accidentals.flat
- accidentals.flat.slash
- accidentals.flat.slashslash
- accidentals.mirroredflat.flat
- accidentals.mirroredflat
- accidentals.flatflat
- accidentals.flatflat.slash
- accidentals.doublesharp
-
- %}
-
- \override Accidental #'glyph-name-alist = \makamGlyphs
-
- \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
- \set Staff.keySignature = #'(
- (3 . 4/9)
- (6 . -1/9))
-
- c cc db fk gbm gfc gfb efk dfbm
-}
+++ /dev/null
-\version "2.10.0"
-\sourcefilename "smart-transpose.ly"
-
-\header {
-texidoc="@cindex Smart Transpose
-
-There is a way to enforce enharmonic modifications for notes in order
-to have the minimum number of accidentals. In that case, ``Double
-accidentals should be removed, as well as E-sharp (-> F), bC (-> B),
-bF (-> E), B-sharp (-> C).'', as proposed by a request for a new feature.
-In this manner, the most natural enharmonic notes are chosen in this example.
-"
-}
-%
-% Modified to use the standard transpose mechanism. The question is
-% how useful these enharmonic modifications are. Mats B.
-%
-% Why not to have a function that minimizes the number of accidentals? -HJJ
-% Works also for quarter tones. -HJJ
-%
-
-#(define (naturalise-pitch p)
- (let* ((o (ly:pitch-octave p))
- (a (ly:pitch-alteration p))
- (n (ly:pitch-notename p)))
-
- (cond
- ((and (> a 1) (or (eq? n 6) (eq? n 2)))
- (set! a (- a 2))
- (set! n (+ n 1)))
- ((and (< a -1) (or (eq? n 0) (eq? n 3)))
- (set! a (+ a 2))
- (set! n (- n 1))))
-
- (cond
- ((> a 2) (set! a (- a 4)) (set! n (+ n 1)))
- ((< a -2) (set! a (+ a 4)) (set! n (- n 1))))
-
- (if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
- (if (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7))))
-
- (ly:make-pitch o n a)))
-
-#(define (naturalise music)
- (let* ((es (ly:music-property music 'elements))
- (e (ly:music-property music 'element))
- (p (ly:music-property music 'pitch)))
-
- (if (pair? es)
- (ly:music-set-property!
- music 'elements
- (map (lambda (x) (naturalise x)) es)))
-
- (if (ly:music? e)
- (ly:music-set-property!
- music 'element
- (naturalise e)))
-
- (if (ly:pitch? p)
- (begin
- (set! p (naturalise-pitch p))
- (ly:music-set-property! music 'pitch p)))
-
- music))
-
-music = \relative c' { c4 d e f g a b c }
-
-naturaliseMusic =
-#(define-music-function (parser location m)
- (ly:music?)
- (naturalise m))
-
-\score {
- \context Staff {
- \transpose c ais \music
- \naturaliseMusic \transpose c ais \music
- \transpose c deses \music
- \naturaliseMusic \transpose c deses \music
- }
- \layout { ragged-right = ##t}
-}
-
+++ /dev/null
-
-\header {
-texidoc = "Stem directions and head positions are taken into account for spacing "
-
-}
-
-\version "2.10.0"
-
-\paper {
- ragged-right = ##t
- indent = #0.0
-}
-
-music = {
- c'4 e''4 e'4 b'4 |
- \stemDown
- b'8[ e'' a' e'']
- \stemNeutral
- e'8[ e'8 e'8 e'8]
-}
-
-
-
-\score
-{
- \music
- \layout {
- \context {
- \Staff
- \override NoteSpacing #'stem-spacing-correction = #0.6
- }
- }
-}
-
-\score
-{
- \music
- \layout {
- \context {
- \Staff
- \override NoteSpacing #'stem-spacing-correction = #0.0
- \override NoteSpacing #'same-direction-correction = #0.0
- \override StaffSpacing #'stem-spacing-correction = #0.0
- }
- }
-}
+++ /dev/null
-\version "2.10.0"
-
-\header{
- texidoc="@cindex Nested Staff Groups
-Staves can be nested in various combinations. Here, @code{StaffGroup}
-and @code{ChoirStaff} produce similar straight brackets, whereas
-@code{GrandStaff} produces curly brackets. In @code{InnerStaffGroup}
-and @code{InnerChoirStaff}, the brackets are shifted leftwards."
-}
-
-\score {
-<<
- \new StaffGroup <<
- \new Staff {c' d' e' f'}
- \new InnerStaffGroup <<
- \new Staff {c' d' e' f'}
- \new GrandStaff <<
- \new Staff {c' d' e' f'}
- \new Staff {c' d' e' f'}
- >>
- \new Staff {c' d' e' f'}
- >>
- \new ChoirStaff <<
- \new Staff {c' d' e' f'}
- \new InnerStaffGroup <<
- \new Staff {c' d' e' f'}
- >>
- \new Staff {c' d' e' f'}
- >>
- >>
- \new ChoirStaff <<
- \new Staff {c' d' e' f'}
- \new InnerChoirStaff <<
- \new Staff {c' d' e' f'}
- \new Staff {c' d' e' f'}
- >>
- \new Staff {c' d' e' f'}
- >>
-
->>
-
- \layout { ragged-right = ##t}
-}
-
+++ /dev/null
-
-\version "2.10.0"
-
-\header {
-
-texidoc= "
-An additional stave can be typeset in the middle of a score line.
-A new context type is created for the temporary staff to avoid printing
-time and key signatures and clef at the beginning of the extra stave.
-"
-}
-
-\score {
- {
- \relative c' {
- \new Staff = One { c4 d e f }
- <<
- {c d e f | c d e f | c c c c | c c c c }
- \new TemporaryStaff = Two { c4 c8 d e4 f | c d e f |
- c c c c | c c c8 b c b |}
- >>
- c4 d e f |
- }
- }
- \layout {
- \context {
- \Score
- \consists Span_bar_engraver
- % Avoid a vertical line at the beginning of the system:
- \remove System_start_delimiter_engraver
- % Incorporate the new context in the hierarchy
- \accepts "TemporaryStaff"
- }
- \context {
- \Staff
- \name "TemporaryStaff"
- \alias "Staff"
- \remove "Clef_engraver"
- \remove "Time_signature_engraver"
- \remove "Key_engraver"
- }
- }
-}
-
| PARTIAL duration_length {
Moment m = - unsmob_duration ($2)->get_length ();
$$ = MAKE_SYNTAX ("property-operation", @$, SCM_BOOL_F, ly_symbol2scm ("Timing"), ly_symbol2scm ("PropertySet"), ly_symbol2scm ("measurePosition"), m.smobbed_copy ());
- $$ = MAKE_SYNTAX ("context-specification", @$, ly_symbol2scm ("Score"), SCM_BOOL_F, $$, SCM_EOL, SCM_BOOL_F);
+ $$ = MAKE_SYNTAX ("context-specification", @$, ly_symbol2scm ("Timing"), SCM_BOOL_F, $$, SCM_EOL, SCM_BOOL_F);
}
| TIME_T fraction {
size_t s, bool is_glyf,
FT_ULong head_length, FT_ULong loca_length)
{
- vector<FT_UShort> chunks; /* FIXME: use dynamic array */
+ vector<FT_UShort> chunks;
if (is_glyf)
{
if (offset > last_offset + CHUNKSIZE)
{
if (last_chunk != last_offset)
- {
- chunks.push_back (last_offset - last_chunk);
- }
+ chunks.push_back (last_offset - last_chunk);
/*
a single glyph with more than 64k data
is a pathological case but...
FT_UInt idx = 0;
FT_ULong head_length = 0, loca_length = 0;
FT_ULong tag, length;
- FT_ULong lengths[100], tags[100]; /* FIXME: use dynamic arrays */
+ vector<FT_ULong> lengths, tags;
/*
we must build our own TTF header -- the original font
while (FT_Sfnt_Table_Info (face, idx, &tag, &length)
!= FT_Err_Table_Missing)
{
- assert (idx < 100); /* FIXME: only for static arrays */
- lengths[idx] = length;
- tags[idx ++] = tag;
+ lengths.push_back (length);
+ tags.push_back (tag);
if (tag == head_tag)
head_length = length;
else if (tag == loca_tag)
loca_length = length;
+ idx ++;
}
FT_ULong hlength = 12 + 16 * idx;
% (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
% Jan Nieuwenhuizen <janneke@gnu.org>
+
+% We have to reduce the pixel-per-point value to
+% support large brace glyphs in case we are using MetaPost
+% (which by default sets `hppp' to 49.80244, regardless of
+% the used `mag' value)
+
+if known miterlimit:
+ bpppix_ := 0.2; % ten times larger than original
+
+ numeric mm, pt, dd, bp, cm, pc, cc, in;
+
+ mm * bpppix_ = 2.83464;
+ pt * bpppix_ = 0.99626;
+ dd * bpppix_ = 1.06601;
+ bp * bpppix_ = 1;
+ cm * bpppix_ = 28.34645;
+ pc * bpppix_ = 11.95517;
+ cc * bpppix_ = 12.79213;
+ in * bpppix_ = 72;
+
+ hppp := pt;
+ vppp := pt;
+fi;
+
+
input feta-autometric;
input feta-macros;
y := y + increment;
if y > infinity / hppp:
message "Resolution and/or magnification is too high";
- message "HPP: "& decimal hpp &" Y: " & y;
- error "please report to <bug-lilypond@gnu.org>";
+ message "HPPP: "& decimal hppp &" Y: " & decimal y;
+ errmessage "please report to <bug-lilypond@gnu.org>";
fi;
% x should be about one staff space, taking brace to have
projects / lilypond.git / commitdiff