* scm/define-markup-commands.scm (smallcaps): New markup command.

[lilypond.git] / scm / font.scm

diff --git a/scm/font.scm b/scm/font.scm
index 32db4fe578b807de1bd5cc93f000dd03a6cb2a55..7118c072056539aa6eb52f332722c685e998a1ce 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -1,10 +1,9 @@
-;;;
-;;; font.scm -- implement Font stuff
-;;;
-;;; source file of the GNU LilyPond music typesetter
-;;; 
-;;; (c)  2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
-;;;
+;;;; font.scm -- implement Font stuff
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;;                 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 ;; Should separate default sizes
 ;; into separate list/alist ?
@@ -32,7 +31,6 @@ or
 (define-public (magstep x)
   (exp (* (/ x 6) (log 2))))
 
-
 (define-public paper20-font-vector
   '((#(medium upright number) .
      (10 . #((10.0  . "feta-nummer10"))))
@@ -86,8 +84,8 @@ or
      (10.0 . #((10.0 . "cmcsc10"))))
 
     (#(* * dynamic) .
-     (14.0 .  #((6.0 . "feta-din6"
-                8.0 . "feta-din8")
+     (14.0 .  #((6.0 . "feta-din6")
+               (8.0 . "feta-din8")
                (10.0 . "feta-din10")
                (12.0 . "feta-din10")
                (14.0 . "feta-din14")
@@ -117,8 +115,6 @@ or
 
 (define-public (scale-font-list factor)
   (append size-independent-fonts
-         (map (lambda (y) (scale-font-entry y factor))   paper20-font-vector)
-  ))
-    
-;
+         (map (lambda (y) (scale-font-entry y factor)) paper20-font-vector)))
+