body.learning #tocframe { background-color: #407f40; }
body.notation #tocframe { background-color: #40657f; }
-body.usage #tocframe { background-color: #7d765a; }
+body.usage #tocframe { background-color: #81613e; }
body.extending #tocframe { background-color: #7f4040; }
body.internals #tocframe { background-color: #6a407f; }
body.contributor #tocframe { background-color: #333333; }
font-size: 1em;
}
+#tocframe .contents > ul.toc > li {
+ margin-top: 0.5em;
+}
+
#tocframe ul.toc li li {
padding-left: 1em;
}
border-radius: 5px;
margin: 0.5em 0.5em 2em 3em;
}
+
+/***********************************************************/
+/* RESPONSIVE DESIGN */
+/***********************************************************/
+
+@media (min-width: 1280px) {
+ div#main {
+ left: 346px
+ }
+ div#tocframe {
+ width: 346px;
+ right: 0;
+ }
+}
\once\override HorizontalBracketText.text = "a'"
e''\startGroup d''\stopGroup
c''
- -\tweak text \markup \bold \huge "b" \startGroup
- -\tweak text "a" \startGroup
+ -\tweak HorizontalBracketText.text \markup \bold \huge "b" \startGroup
+ -\tweak HorizontalBracketText.text "a" \startGroup
d''\stopGroup
- e''-\tweak text "a'" \startGroup
+ e''-\tweak HorizontalBracketText.text "a'" \startGroup
d''\stopGroup\stopGroup
- c''-\tweak text foo \startGroup d'' e'' f''
+ c''-\tweak HorizontalBracketText.text foo \startGroup d'' e'' f''
\break
g'' a'' b'' c'''\stopGroup
}
--- /dev/null
+\version "2.18.0"
+
+\header {
+ lsrtags = "rhythms, scheme-language, text"
+
+ texidoc = "
+This example shows how to add a markup command to get a three sided box
+around some text (or other markup).
+
+"
+ doctitle = "Three-sided box"
+}
+% New command to add a three sided box, with sides north, west and south
+% Based on the box-stencil command defined in scm/stencil.scm
+% Note that ";;" is used to comment a line in Scheme
+#(define-public (NWS-box-stencil stencil thickness padding)
+ "Add a box around STENCIL, producing a new stencil."
+ (let* ((x-ext (interval-widen (ly:stencil-extent stencil X) padding))
+ (y-ext (interval-widen (ly:stencil-extent stencil Y) padding))
+ (y-rule (make-filled-box-stencil (cons 0 thickness) y-ext))
+ (x-rule (make-filled-box-stencil
+ (interval-widen x-ext thickness) (cons 0 thickness))))
+ ;; (set! stencil (ly:stencil-combine-at-edge stencil X 1 y-rule padding))
+ (set! stencil (ly:stencil-combine-at-edge stencil X LEFT y-rule padding))
+ (set! stencil (ly:stencil-combine-at-edge stencil Y UP x-rule 0.0))
+ (set! stencil (ly:stencil-combine-at-edge stencil Y DOWN x-rule 0.0))
+ stencil))
+
+% The corresponding markup command, based on the \box command defined
+% in scm/define-markup-commands.scm
+#(define-markup-command (NWS-box layout props arg) (markup?)
+ #:properties ((thickness 0.1) (font-size 0) (box-padding 0.2))
+ "Draw a box round @var{arg}. Looks at @code{thickness},
+@code{box-padding} and @code{font-size} properties to determine line
+thickness and padding around the markup."
+ (let ((pad (* (magstep font-size) box-padding))
+ (m (interpret-markup layout props arg)))
+ (NWS-box-stencil m thickness pad)))
+
+% Test it:
+
+\relative c' {
+ c1^\markup { \NWS-box ABCD }
+ c1^\markup { \NWS-box \note #"4" #1.0 }
+}
-%% DO NOT EDIT this file manually; it is automatically
-%% generated from LSR http://lsr.di.unimi.it
-%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
-%% and then run scripts/auxiliar/makelsr.py
-%%
-%% This file is in the public domain.
+% DO NOT EDIT this file manually; it is automatically
+% generated from Documentation/snippets/new
+% Make any changes in Documentation/snippets/new/
+% and then run scripts/auxiliar/makelsr.py
+%
+% This file is in the public domain.
+%% Note: this file works from version 2.18.0
\version "2.18.0"
\header {
% The corresponding markup command, based on the \box command defined
% in scm/define-markup-commands.scm
#(define-markup-command (NWS-box layout props arg) (markup?)
+ #:properties ((thickness 0.1) (font-size 0) (box-padding 0.2))
"Draw a box round @var{arg}. Looks at @code{thickness},
@code{box-padding} and @code{font-size} properties to determine line
thickness and padding around the markup."
- (let* ((th (chain-assoc-get 'thickness props 0.1))
- (size (chain-assoc-get 'font-size props 0))
- (pad (* (magstep size)
- (chain-assoc-get 'box-padding props 0.2)))
- (m (interpret-markup layout props arg)))
- (NWS-box-stencil m th pad)))
+ (let ((pad (* (magstep font-size) box-padding))
+ (m (interpret-markup layout props arg)))
+ (NWS-box-stencil m thickness pad)))
% Test it:
@divClass{testimonial-item}
@imageFloat{orm-finnendahl,jpg, left}
-@subsubheading @uref{http://icem-www.folkwang-hochschule.de/~finnendahl/, Orm Finnendahl}, professor of Composition, Musikhochschule Freiburg
+@subsubheading @uref{http://icem-www.folkwang-hochschule.de/~finnendahl/, Orm Finnendahl}, professor of Composition, Hochschule für Musik und Darstellende Kunst Frankfurt am Main
@qq{Although I don't know [LilyPond] very well yet, I'm
@strong{*very} impressed. I used the program to input a motet of
@ifclear web_version
@c no anchor links, just link to News page
-@ref{News, LilyPond 2.19.62 released - @emph{June 10, 2017}}
+@ref{News, LilyPond 2.19.63 released - @emph{June 28, 2017}}
@ref{News, Two LilyPond projects in Google Summer of Code 2016 - @emph{April 23, 2016}}
@ifset web_version
@c anchor links, link to individual news items by their <a> tag
-@uref{news.html#LilyPond-2_002e19_002e62-released-June-10_002c-2017,
- LilyPond 2.19.62 released - @emph{June 10, 2017}}
+@uref{news.html#LilyPond-2_002e19_002e63-released-June-28_002c-2017,
+ LilyPond 2.19.63 released - @emph{June 28, 2017}}
@uref{news.html#Two-LilyPond-projects-in-Google-Summer-of-Code-2016-April-23_002c-2016,
Two LilyPond projects in Google Summer of Code 2016 - @emph{April 23, 2016}}
@c used for news about the upcoming release; see CG on Release Work
@newsItem
-@subheading LilyPond 2.19.62 released @emph{June 10, 2017}
+@subheading LilyPond 2.19.63 released @emph{June 28, 2017}
We are happy to announce the release of LilyPond
-2.19.62. This release includes a number of enhancements, and contains some
+2.19.63. This release includes a number of enhancements, and contains some
work in progress. You will have access to the very latest features, but
some may be incomplete, and you may encounter bugs and crashes. If you
require a stable version of LilyPond, we recommend using the 2.18
* don't duplicate entries from news-new.itexi
@end ignore
+@newsItem
+@subheading LilyPond 2.19.62 released @emph{June 10, 2017}
+
+We are happy to announce the release of LilyPond
+2.19.62. This release includes a number of enhancements, and contains some
+work in progress. You will have access to the very latest features, but
+some may be incomplete, and you may encounter bugs and crashes. If you
+require a stable version of LilyPond, we recommend using the 2.18
+version.
+
+@newsEnd
+
@newsItem
@subheading LilyPond 2.19.61 released @emph{May 21, 2017}
PACKAGE_NAME=LilyPond
MAJOR_VERSION=2
MINOR_VERSION=19
-PATCH_LEVEL=63
+PATCH_LEVEL=64
MY_PATCH_LEVEL=
VERSION_STABLE=2.18.2
-VERSION_DEVEL=2.19.62
+VERSION_DEVEL=2.19.63
%}
-\version "2.19.62" % necessary for upgrading to future LilyPond versions.
+\version "2.19.63" % necessary for upgrading to future LilyPond versions.
\header{
title = "A scale in LilyPond"
%}
-\version "2.19.62" % necessary for upgrading to future LilyPond versions.
+\version "2.19.63" % necessary for upgrading to future LilyPond versions.
\header{
title = "A scale in LilyPond"
\fromproperty #'toc:text \fromproperty #'toc:page
#(define-markup-list-command (table-of-contents layout props) ()
+ #:properties ((baseline-skip))
( _i "Outputs the table of contents, using the paper variable
@code{tocTitleMarkup} for its title, then the list of lines
built using the @code{tocItem} music function
Usage: @code{\\markuplist \\table-of-contents}" )
(cons (interpret-markup layout props
(ly:output-def-lookup layout 'tocTitleMarkup))
- (space-lines (chain-assoc-get 'baseline-skip props)
+ (space-lines baseline-skip
(map (lambda (toc-item)
(let ((label (car toc-item))
(toc-markup (cadr toc-item))
#, fuzzy
msgid ""
msgstr ""
-"Project-Id-Version: lilypond 2.19.62\n"
+"Project-Id-Version: lilypond 2.19.63\n"
"Report-Msgid-Bugs-To: http://post.gmane.org/post.php?group=gmane.comp.gnu."
"lilypond.bugs\n"
-"POT-Creation-Date: 2017-06-10 12:21+0100\n"
+"POT-Creation-Date: 2017-06-25 11:39+0100\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
msgid "FreeType face has no PostScript font name"
msgstr ""
+#: pango-font.cc:410
+#, c-format
+msgid ""
+"OpenType font feature `%s' cannot be used since this binary is configured "
+"without feature support."
+msgstr ""
+
#: paper-book.cc:200
#, c-format
msgid "program option -dprint-pages not supported by backend `%s'"
msgstr ""
#. TODO: Also print the arguments of the markup!
-#: text-interface.cc:140
+#: text-interface.cc:176
#, c-format
msgid "Markup depth exceeds maximal value of %d; Markup: %s"
msgstr ""
msgid "end quote missing"
msgstr ""
-#: lexer.ll:714
+#: lexer.ll:718
msgid "EOF found inside a comment"
msgstr ""
-#: lexer.ll:719
+#: lexer.ll:723
msgid "EOF found inside string"
msgstr ""
-#: lexer.ll:734
+#: lexer.ll:738
msgid "Unfinished main input"
msgstr ""
-#: lexer.ll:805
+#: lexer.ll:809
#, c-format
msgid "invalid character: `%s'"
msgstr ""
-#: lexer.ll:925
+#: lexer.ll:946
#, c-format
msgid "unknown escaped string: `\\%s'"
msgstr ""
-#: lexer.ll:945
+#: lexer.ll:966
#, c-format
msgid "undefined character or shorthand: %s"
msgstr ""
-#: lexer.ll:1247
+#: lexer.ll:1268
msgid "non-UTF-8 input"
msgstr ""
-#: lexer.ll:1291
+#: lexer.ll:1312
#, c-format
msgid "Invalid version string \"%s\""
msgstr ""
-#: lexer.ll:1296
+#: lexer.ll:1317
#, c-format
msgid "file too old: %s (oldest supported: %s)"
msgstr ""
-#: lexer.ll:1297
+#: lexer.ll:1318
msgid "consider updating the input with the convert-ly script"
msgstr ""
-#: lexer.ll:1303
+#: lexer.ll:1324
#, c-format
msgid "program too old: %s (file requires: %s)"
msgstr ""
msgid "no systems found in \\score markup, does it have a \\layout block?"
msgstr ""
-#: define-markup-commands.scm:3127
+#: define-markup-commands.scm:3122
#, scheme-format
msgid "Cannot find glyph ~a"
msgstr ""
-#: define-markup-commands.scm:3603
+#: define-markup-commands.scm:3598
#, scheme-format
msgid "no brace found for point size ~S "
msgstr ""
-#: define-markup-commands.scm:3604
+#: define-markup-commands.scm:3599
#, scheme-format
msgid "defaulting to ~S pt"
msgstr ""
-#: define-markup-commands.scm:3867
+#: define-markup-commands.scm:3862
#, scheme-format
msgid "not a valid duration string: ~a"
msgstr ""
-#: define-markup-commands.scm:4080
+#: define-markup-commands.scm:4075
#, scheme-format
msgid "not a valid duration string: ~a - ignoring"
msgstr ""
(define-markup-command (abs-fontsize layout props size arg)
(number? markup?)
+ #:properties ((word-space 0.6) (baseline-skip 3))
#:category font
"Use @var{size} as the absolute font size (in points) to display @var{arg}.
Adjusts @code{baseline-skip} and @code{word-space} accordingly.
@end lilypond"
(let* ((ref-size (ly:output-def-lookup layout 'text-font-size 12))
(text-props (list (ly:output-def-lookup layout 'text-font-defaults)))
- (ref-word-space (chain-assoc-get 'word-space text-props 0.6))
- (ref-baseline (chain-assoc-get 'baseline-skip text-props 3))
(magnification (/ size ref-size)))
(interpret-markup
layout
(cons
- `((baseline-skip . ,(* magnification ref-baseline))
- (word-space . ,(* magnification ref-word-space))
+ `((baseline-skip . ,(* magnification baseline-skip))
+ (word-space . ,(* magnification word-space))
(font-size . ,(magnification->font-size magnification)))
props)
arg)))
(padding)
(size 1)
(thickness 1)
+ (line-thickness 0.1)
(width 0.25))
"
@cindex placing parentheses around text
(let* ((m (interpret-markup layout props arg))
(scaled-width (* size width))
(scaled-thickness
- (* (chain-assoc-get 'line-thickness props 0.1)
- thickness))
+ (* line-thickness thickness))
(half-thickness
(min (* size 0.5 scaled-thickness)
(* (/ 4 3.0) scaled-width)))
- (padding (chain-assoc-get 'padding props half-thickness)))
+ (padding (or padding half-thickness)))
(parenthesize-stencil
m half-thickness scaled-width angularity padding)))
(details (begin (harp-pedal-check pedal-list) harp-pedal-details))
(dy (* size (assoc-get 'box-offset details 0.8))) ; offset of the box center from the line
(line-width (* (ly:output-def-lookup layout 'line-thickness)
- (chain-assoc-get 'thickness props 0.5)))
+ thickness))
(box-width (* size (assoc-get 'box-width details 0.4)))
(box-hheight (* size (/ (assoc-get 'box-height details 1.0) 2))) ; half the box-height, saves some divisions by 2
(spacebeforedivider (* size (assoc-get 'space-before-divider details 0.8))) ; full space between boxes before the first divider
projects / lilypond.git / commitdiff