[gsharp-cvs] CVS gsharp
rstrandh at common-lisp.net
Sat Jun 3 04:59:56 UTC 2006
Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv18042
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
(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)))))
More information about the Gsharp-cvs