From crhodes at common-lisp.net  Fri Sep  2 09:01:27 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Fri,  2 Sep 2005 11:01:27 +0200 (CEST)
Subject: [gsharp-cvs] CVS update: gsharp/drawing.lisp 
Message-ID: <20050902090127.E67808853E@common-lisp.net>

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv7745

Modified Files:
	drawing.lisp 
Log Message:
Behave a bit better by calling DRAW-TEXT with a string, not a sequence 
of codepoints.  (The previous code worked with the regular CLX backend 
but not with the freetype backend; however, the clim spec says DRAW-TEXT 
takes a character-or-string)

Date: Fri Sep  2 11:01:26 2005
Author: crhodes

Index: gsharp/drawing.lisp
diff -u gsharp/drawing.lisp:1.9 gsharp/drawing.lisp:1.10
--- gsharp/drawing.lisp:1.9	Mon Aug  1 01:36:56 2005
+++ gsharp/drawing.lisp	Fri Sep  2 11:01:25 2005
@@ -643,4 +643,5 @@
 (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 (text element) x 0 :align-x :center)))
+    (draw-text* pane (map 'string 'code-char (text element))
+                x 0 :align-x :center)))



From crhodes at common-lisp.net  Fri Sep  2 16:10:04 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Fri,  2 Sep 2005 18:10:04 +0200 (CEST)
Subject: [gsharp-cvs] CVS update: gsharp/drawing.lisp 
Message-ID: <20050902161004.A91C4880DA@common-lisp.net>

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))))