Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv6246
Modified Files:
drawing.lisp
Log Message:
Draw lyrics in serif font, because, well, why not?
Date: Fri Sep 2 18:10:03 2005
Author: crhodes
Index: gsharp/drawing.lisp
diff -u gsharp/drawing.lisp:1.10 gsharp/drawing.lisp:1.11
--- gsharp/drawing.lisp:1.10 Fri Sep 2 11:01:25 2005
+++ gsharp/drawing.lisp Fri Sep 2 18:10:03 2005
@@ -643,5 +643,6 @@
(defmethod draw-element (pane (element lyrics-element) x &optional (flags t))
(declare (ignore flags))
(score-pane:with-vertical-score-position (pane (staff-yoffset (staff element)))
- (draw-text* pane (map 'string 'code-char (text element))
- x 0 :align-x :center)))
+ (with-text-family (pane :serif)
+ (draw-text* pane (map 'string 'code-char (text element))
+ x 0 :align-x :center))))
