CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/06/02 09:48:24
Modified files:
. : ChangeLog
scm : font.scm
Log message:
(make-pango-font-tree): new function.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3707&tr2=1.3708&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/font.scm.diff?tr1=1.117&tr2=1.118&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3707 lilypond/ChangeLog:1.3708
--- lilypond/ChangeLog:1.3707 Wed Jun 1 23:39:43 2005
+++ lilypond/ChangeLog Thu Jun 2 09:48:23 2005
@@ -1,8 +1,10 @@
2005-06-02 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+ * scm/font.scm (make-pango-font-tree): new function.
+
* lily/beam.cc (before_line_breaking): remove warning about less
than 2 visible stems. We still get a warning when there is only
- one stem..
+ one stem.
2005-06-01 Werner Lemberg <[EMAIL PROTECTED]>
Index: lilypond/scm/font.scm
diff -u lilypond/scm/font.scm:1.117 lilypond/scm/font.scm:1.118
--- lilypond/scm/font.scm:1.117 Tue May 31 15:33:41 2005
+++ lilypond/scm/font.scm Thu Jun 2 09:48:24 2005
@@ -335,13 +335,22 @@
(add-ec-fonts n factor))))
n))
-(define-public (make-century-schoolbook-tree factor)
+
+
+
+(define-public (make-pango-font-tree roman-str sans-str typewrite-str factor)
(let ((n (make-font-tree-node 'font-encoding 'fetaMusic)))
(add-music-fonts n factor)
- (add-pango-fonts n 'roman "Century Schoolbook L" factor)
- (add-pango-fonts n 'sans "Sans" factor)
- (add-pango-fonts n 'typewriter "Mono" factor)
+ (add-pango-fonts n 'roman roman-str factor)
+ (add-pango-fonts n 'sans sans-str factor)
+ (add-pango-fonts n 'typewriter typewrite-str factor)
n))
+
+(define-public (make-century-schoolbook-tree factor)
+ (make-pango-font-tree
+ "Century Schoolbook L"
+ "Sans" "Mono" factor))
+
(define-public (magstep x)
(exp (* (/ x 6) (log 2))))
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
