[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv18042

Modified Files:
	sdl.lisp 
Log Message:
Increase the size of the dot slightly.


--- /project/gsharp/cvsroot/gsharp/sdl.lisp	2006/06/03 04:45:42	1.22
+++ /project/gsharp/cvsroot/gsharp/sdl.lisp	2006/06/03 04:59:56	1.23
@@ -761,12 +761,14 @@
 ;;; both vertically and horizontally. 
 
 ;;; Ross says the dot should be roughly a third of the staff line
-;;; distance.  We count on anti aliasing to save us from too ugly a
-;;; result when the edges do not fall on pixel boundaries. 
+;;; distance, but in his examples, it is closer to half a staff line
+;;; distance.  Compromise by using 0.4.  We count on anti aliasing to
+;;; save us from too ugly a result when the edges do not fall on pixel
+;;; boundaries.
 
 (defmethod compute-design ((font font) (shape (eql :dot)))
   (with-slots (yoffset staff-line-distance) font
-    (let ((diameter (* 0.33 staff-line-distance)))
+    (let ((diameter (* 0.4 staff-line-distance)))
       (translate (scale +full-circle+ diameter)
 		 (complex yoffset yoffset)))))