CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/07/08 20:46:41
Modified files:
ly : music-functions-init.ly
scm : define-markup-commands.scm
Log message:
* scm/define-markup-commands.scm (text): add \text markup command.
* ly/music-functions-init.ly: \pitchedTrill
* scm/define-markup-commands.scm (pad-markup): pad-markup command.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ly/music-functions-init.ly.diff?tr1=1.27&tr2=1.28&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-markup-commands.scm.diff?tr1=1.100&tr2=1.101&r1=text&r2=text
Patches:
Index: lilypond/ly/music-functions-init.ly
diff -u lilypond/ly/music-functions-init.ly:1.27
lilypond/ly/music-functions-init.ly:1.28
--- lilypond/ly/music-functions-init.ly:1.27 Fri Jul 8 17:53:41 2005
+++ lilypond/ly/music-functions-init.ly Fri Jul 8 20:46:41 2005
@@ -2,6 +2,9 @@
\version "2.6.0"
+%% need SRFI-1 filter
+
+#(use-modules (srfi srfi-1))
applymusic = #(def-music-function (parser location func music) (procedure?
ly:music?)
(func music))
Index: lilypond/scm/define-markup-commands.scm
diff -u lilypond/scm/define-markup-commands.scm:1.100
lilypond/scm/define-markup-commands.scm:1.101
--- lilypond/scm/define-markup-commands.scm:1.100 Fri Jul 8 20:00:15 2005
+++ lilypond/scm/define-markup-commands.scm Fri Jul 8 20:46:41 2005
@@ -709,10 +709,6 @@
"Set @code{font-shape} to @code{caps}."
(interpret-markup layout (prepend-alist-chain 'font-shape 'caps props) arg))
-;(def-markup-command (latin-i layout props arg) (markup?)
-; "TEST latin1 encoding."
-; (interpret-markup layout (prepend-alist-chain 'font-shape 'latin1 props)
arg))
-
(def-markup-command (dynamic layout props arg) (markup?)
"Use the dynamic font. This font only contains @b{s}, @b{f}, @b{m},
@b{z}, @b{p}, and @b{r}. When producing phrases, like [EMAIL PROTECTED]
@b{f}'', the
@@ -722,8 +718,7 @@
layout (prepend-alist-chain 'font-encoding 'fetaDynamic props) arg))
(def-markup-command (text layout props arg) (markup?)
- "Use a text font instead of music symbol or music alphabet "
- "font."
+ "Use a text font instead of music symbol or music alphabet font."
;; ugh - latin1
(interpret-markup layout (prepend-alist-chain 'font-encoding 'latin1 props)
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
