From c1d888aa68857ae06aff4ab7695e38486a12a6d6 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Thu, 5 Jan 2012 19:27:32 +0100
Subject: beta 2011.11.24 15:52

---
 metapost/context/base/mp-base.mpiv |  2 +-
 metapost/context/base/mp-grph.mpiv |  4 ++--
 metapost/context/base/mp-tool.mpiv | 34 +++++++++++++++-------------------
 3 files changed, 18 insertions(+), 22 deletions(-)

(limited to 'metapost')

diff --git a/metapost/context/base/mp-base.mpiv b/metapost/context/base/mp-base.mpiv
index 5ed6fd981..7b3a69bb0 100644
--- a/metapost/context/base/mp-base.mpiv
+++ b/metapost/context/base/mp-base.mpiv
@@ -809,7 +809,7 @@ tertiarydef m thru n =
     endfor
 enddef ;
 
-%% Overall adminstration
+%% Overall administration
 
 string extra_beginfig, extra_endfig ;
 
diff --git a/metapost/context/base/mp-grph.mpiv b/metapost/context/base/mp-grph.mpiv
index 6e450a92a..5917beb17 100644
--- a/metapost/context/base/mp-grph.mpiv
+++ b/metapost/context/base/mp-grph.mpiv
@@ -23,7 +23,7 @@ numeric _fig_nesting_ ; _fig_nesting_ := 0 ;
 
 def beginfig (expr c) =
     _fig_nesting_ := _fig_nesting_ + 1 ;
-    if _fig_nesting_  = 1 :
+    if _fig_nesting_ = 1 :
         begingroup
         charcode := c ;
         resetfig ;
@@ -34,7 +34,7 @@ enddef ;
 def endfig =
     ; % safeguard
     if _fig_nesting_ = 1 :
-        scantokens extra_endfig;
+        scantokens extra_endfig ;
         shipit ;
         endgroup ;
     fi ;
diff --git a/metapost/context/base/mp-tool.mpiv b/metapost/context/base/mp-tool.mpiv
index e489e7819..6c6db745a 100644
--- a/metapost/context/base/mp-tool.mpiv
+++ b/metapost/context/base/mp-tool.mpiv
@@ -957,25 +957,25 @@ enddef ;
 
 %D PathPoints.
 
-def drawpoints        expr c = path _c_ ; _c_ := c ; do_drawpoints        enddef ;
-def drawcontrolpoints expr c = path _c_ ; _c_ := c ; do_drawcontrolpoints enddef ;
-def drawcontrollines  expr c = path _c_ ; _c_ := c ; do_drawcontrollines  enddef ;
-def drawpointlabels   expr c = path _c_ ; _c_ := c ; do_drawpointlabels   enddef ;
+def drawpoints        expr c = path _c_ ; _c_ := c ; mfun_draw_points        enddef ;
+def drawcontrolpoints expr c = path _c_ ; _c_ := c ; mfun_draw_controlpoints enddef ;
+def drawcontrollines  expr c = path _c_ ; _c_ := c ; mfun_draw_controllines  enddef ;
+def drawpointlabels   expr c = path _c_ ; _c_ := c ; mdun_draw_pointlabels   enddef ;
 
-def do_drawpoints text t =
+def mfun_draw_points text t =
     for _i_=0 upto length(_c_) :
         normaldraw point _i_ of _c_ _pnt_opt_ t ;
     endfor ;
 enddef;
 
-def do_drawcontrolpoints text t =
+def mfun_draw_controlpoints text t =
     for _i_=0 upto length(_c_) :
         normaldraw precontrol  _i_ of _c_ _ctr_opt_ t ;
         normaldraw postcontrol _i_ of _c_ _ctr_opt_ t ;
     endfor ;
 enddef;
 
-def do_drawcontrollines text t =
+def mfun_draw_controllines text t =
     for _i_=0 upto length(_c_) :
         normaldraw point _i_ of _c_ -- precontrol  _i_ of _c_ _lin_opt_ t ;
         normaldraw point _i_ of _c_ -- postcontrol _i_ of _c_ _lin_opt_ t ;
@@ -984,7 +984,7 @@ enddef;
 
 boolean swappointlabels ; swappointlabels := false ;
 
-def do_drawpointlabels text t =
+def mfun_draw_pointlabels text t =
     for _i_=0 upto length(_c_) :
         pair _u_ ; _u_ := unitvector(direction _i_ of _c_) rotated if swappointlabels : - fi 90 ;
         pair _p_ ; _p_ := (point _i_ of _c_) ;
@@ -1013,13 +1013,13 @@ enddef;
 numeric tickstep   ; tickstep   := 5mm ;
 numeric ticklength ; ticklength := 2mm ;
 
-def drawxticks expr c = path _c_ ; _c_ := c ; do_drawxticks enddef ;
-def drawyticks expr c = path _c_ ; _c_ := c ; do_drawyticks enddef ;
-def drawticks  expr c = path _c_ ; _c_ := c ; do_drawticks  enddef ;
+def drawxticks expr c = path _c_ ; _c_ := c ; mfun_draw_xticks enddef ;
+def drawyticks expr c = path _c_ ; _c_ := c ; mfun_draw_yticks enddef ;
+def drawticks  expr c = path _c_ ; _c_ := c ; mfun_draw_ticks  enddef ;
 
 % Adding eps prevents disappearance due to rounding errors.
 
-def do_drawxticks text t =
+def mfun_draw_xticks text t =
     for i=0 step -tickstep until xpart llcorner _c_ - eps :
         if (i<=xpart lrcorner _c_) :
         normaldraw (i,-ticklength)--(i,ticklength) _ori_opt_ t ;
@@ -1033,7 +1033,7 @@ def do_drawxticks text t =
     normaldraw (llcorner _c_ -- ulcorner _c_) shifted (-xpart llcorner _c_,0) _ori_opt_ t ;
 enddef ;
 
-def do_drawyticks text t =
+def mfun_draw_yticks text t =
     for i=0 step -tickstep until ypart llcorner _c_ - eps :
         if (i<=ypart ulcorner _c_) :
             normaldraw (-ticklength,i)--(ticklength,i) _ori_opt_ t ;
@@ -1047,7 +1047,7 @@ def do_drawyticks text t =
     normaldraw (llcorner _c_ -- lrcorner _c_) shifted (0,-ypart llcorner _c_) _ori_opt_ t ;
 enddef ;
 
-def do_drawticks text t =
+def mfun_draw_ticks text t =
     drawxticks _c_ t ;
     drawyticks _c_ t ;
 enddef ;
@@ -1936,7 +1936,7 @@ enddef ;
 
 % under construction
 
-vardef straightpath(expr a, b, method) =
+vardef straightpath (expr a, b, method) =
     if (method<1) or (method>6)  :
         (a--b)
     elseif method = 1 :
@@ -2039,10 +2039,6 @@ vardef setunstringed (expr s, v) =
     scantokens(cleanstring(s)) := v ;
 enddef ;
 
-vardef setunstringed (expr s, v) =
-    scantokens(cleanstring(s)) := v ;
-enddef ;
-
 vardef getunstringed (expr s) =
     scantokens(cleanstring(s))
 enddef ;
-- 
cgit v1.2.3