From: Mike Solomon <mike@apollinemike.com>
Date: Mon, 6 Feb 2012 13:57:45 +0000 (+0100)
Subject: Gets rid of dot stencil command
X-Git-Tag: release/2.15.29-1~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3d45c5af2507f51337ba138b9c600a252f8a4daf;p=lilypond.git

Gets rid of dot stencil command
---

diff --git a/lily/include/lookup.hh b/lily/include/lookup.hh
index 0d13b037a3..f95a7e2a40 100644
--- a/lily/include/lookup.hh
+++ b/lily/include/lookup.hh
@@ -26,8 +26,8 @@
 
 struct Lookup
 {
-  static Stencil dot (Offset p, Real radius);
   static Stencil bracket (Axis a, Interval iv, Real thick, Real protrude, Real blot);
+  static Stencil circle (Real rad, Real thick, bool filled);
   static Stencil rotated_box (Real slope, Real width, Real thick, Real blot);
   static Stencil round_filled_polygon (vector<Offset> const &points, Real blotdiameter);
   static Stencil frame (Box b, Real thick, Real blot);
diff --git a/lily/lookup.cc b/lily/lookup.cc
index f19e4d2703..3f393e05ac 100644
--- a/lily/lookup.cc
+++ b/lily/lookup.cc
@@ -33,20 +33,6 @@ using namespace std;
 #include "main.hh"
 #include "lily-guile.hh"
 
-Stencil
-Lookup::dot (Offset p, Real radius)
-{
-  SCM at = (scm_list_n (ly_symbol2scm ("dot"),
-                        scm_from_double (p[X_AXIS]),
-                        scm_from_double (p[Y_AXIS]),
-                        scm_from_double (radius),
-                        SCM_UNDEFINED));
-  Box box;
-  box.add_point (p - Offset (radius, radius));
-  box.add_point (p + Offset (radius, radius));
-  return Stencil (box, at);
-}
-
 Stencil
 Lookup::beam (Real slope, Real width, Real thick, Real blot)
 {
@@ -137,6 +123,16 @@ Lookup::blank (Box b)
   return Stencil (b, scm_from_locale_string (""));
 }
 
+Stencil
+Lookup::circle (Real rad, Real thick, bool filled)
+{
+  Box b (Interval (-rad, rad), Interval (-rad, rad));
+  return Stencil (b, scm_list_4 (ly_symbol2scm ("circle"),
+                                 scm_from_double (rad),
+                                 scm_from_double (thick),
+                                 scm_from_bool (filled)));
+}
+
 Stencil
 Lookup::filled_box (Box b)
 {
@@ -254,7 +250,11 @@ Lookup::round_filled_polygon (vector<Offset> const &points,
   if (points.size () == 0)
     return Stencil ();
   if (points.size () == 1)
-    return dot (points[0], 0.5 * blotdiameter);
+    {
+      Stencil circ = circle (0.5 * blotdiameter, 0, true);
+      circ.translate (points[0]);
+      return circ;
+    }
   if (points.size () == 2)
     return Line_interface::make_line (blotdiameter, points[0], points[1]);
 
diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 7d491e5688..a06e7b158c 100644
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -171,14 +171,6 @@ bind def
 	grestore
 } bind def
 
-/draw_dot % radius x y draw_dot
-{
-	rmoveto
-	currentpoint
-	3 2 roll
-	0 360 arc closepath stroke_and_fill
-} bind def
-
 /draw_circle % filled? radius thickness draw_circle
 {
 	setlinewidth	% f? r
diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 3e022f9678..c3a835534d 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -26,7 +26,6 @@ defined in the output modules (@file{output-*.scm})."
     char
     circle
     dashed-line
-    dot
     draw-line
     ellipse
     embedded-ps
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index c4a15c5253..48b7f7a3f3 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -92,9 +92,6 @@
    off
    phase))
 
-(define (dot x y radius)
-  (ly:format " ~4l draw_dot" (list radius x y)))
-
 (define (draw-line thick x1 y1 x2 y2)
   (ly:format "~4f ~4f ~4f ~4f ~4f draw_line"
 	  (- x2 x1) (- y2 y1)