CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Mats Bengtsson <[EMAIL PROTECTED]> 05/08/10 08:15:40
Modified files:
. : ChangeLog
scm : define-markup-commands.scm
Log message:
* scm/define-markup-commands.scm (normal-text): Added 2 new
markup commands, \normal-text and \medium (the latter thanks to
Bruce Fairchild).
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3986&tr2=1.3987&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-markup-commands.scm.diff?tr1=1.108&tr2=1.109&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3986 lilypond/ChangeLog:1.3987
--- lilypond/ChangeLog:1.3986 Tue Aug 9 08:47:47 2005
+++ lilypond/ChangeLog Wed Aug 10 08:15:37 2005
@@ -1,3 +1,9 @@
+2005-08-10 Mats Bengtsson <[EMAIL PROTECTED]>
+
+ * scm/define-markup-commands.scm (normal-text): Added 2 new
+ markup commands, \normal-text and \medium (the latter thanks to
+ Bruce Fairchild).
+
2005-08-08 Graham Percival <[EMAIL PROTECTED]>
* Documentation/user/programming-interface.itely: fix @{ @}.
Index: lilypond/scm/define-markup-commands.scm
diff -u lilypond/scm/define-markup-commands.scm:1.108
lilypond/scm/define-markup-commands.scm:1.109
--- lilypond/scm/define-markup-commands.scm:1.108 Tue Aug 9 08:41:21 2005
+++ lilypond/scm/define-markup-commands.scm Wed Aug 10 08:15:40 2005
@@ -762,6 +762,17 @@
(interpret-markup
layout (prepend-alist-chain 'font-shape 'upright props) arg))
+(def-markup-command (medium layout props arg) (markup?)
+ "Switch to medium font-series (in contrast to bold)."
+ (interpret-markup layout (prepend-alist-chain 'font-series 'medium props)
+ arg))
+
+(def-markup-command (normal-text layout props arg) (markup?)
+ "Set all font related properties (except the size) to get the default normal
text font, no matter what font was used earlier."
+ ;; ugh - latin1
+ (interpret-markup layout
+ (cons '((font-family . roman) (font-shape . upright)
(font-series . medium) (font-encoding . latin1)) props)
+ arg))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; symbols.
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
