mfpic update (11jun10)

git-svn-id: svn://tug.org/texlive/trunk@18920 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 23 deletions

diff --git a/Master/texmf-dist/metafont/mfpic/grafbase.mf b/Master/texmf-dist/metafont/mfpic/grafbase.mf
index dcc1619c3e2..10f23e9688f 100644
--- a/Master/texmf-dist/metafont/mfpic/grafbase.mf
+++ b/Master/texmf-dist/metafont/mfpic/grafbase.mf
@@ -8,7 +8,7 @@
 %% 
 %% -------------------------------------------------------------------
 %% 
-%% Copyright 2002--2009, Daniel H. Luecking
+%% Copyright 2002--2010, Daniel H. Luecking
 %% 
 %% Mfpic may be distributed and/or modified under the conditions of the
 %% LaTeX Project Public License, either version 1.3c of this license or (at
@@ -22,7 +22,7 @@
 %% with mfpic: plain TeX, LaTeX, plain Metafont and plain MetaPost.
 %% 
 %%% File: grafbase.dtx
-%%% A part of mfpic 1.04 2010/03/30
+%%% A part of mfpic 1.05 2010/06/10
 %%%
 if (known grafbaseversion) or (known grafbase):
   message "Grafbase (" & jobname & "): You have loaded grafbase more "
@@ -32,10 +32,10 @@ fi
 boolean grafbase; grafbase := true;
 
 string fileversion, filedate;
-fileversion := "1.04";  filedate := "2010/03/30";
+fileversion := "1.05";  filedate := "2010/06/10";
 
-message " Loading grafbase macros version " &
-  fileversion & ", " & filedate & ".";
+message " Loading grafbase macros, version " & fileversion & ", " &
+  filedate & ".";
 message " ";
 
 def GBmsg expr s =  message "Grafbase (" & jobname & "): " & s;  enddef;
@@ -60,7 +60,7 @@ def checkversions (expr g)=
   fi
 enddef;
 
-checkversions (104);
+checkversions (105);
 
 if unknown base_name       :  input plain;
 elseif not string base_name:  input plain;
@@ -111,7 +111,6 @@ if unknown mode:
   fi
 fi
 mode_setup;
-
 if debug:
   GBdebug;
     >> "pixels_per_inch = " & decimal pixels_per_inch;
@@ -212,7 +211,7 @@ vardef makegray  primary clr =
 enddef;
 def makergb  =  makegray  enddef;
 def makecmyk =  makegray  enddef;
-vardef iscolor expr clr =  (color clr) enddef;
+vardef iscolor expr clr =  (color clr)  enddef;
 
 vardef forceclr (expr c) =
   if unknown c :
@@ -493,8 +492,7 @@ setcolor(grayscalewhite) gray(1);
 
 def setoutputtemplate text garbage = enddef;
 
-def romannumeral =  _romannumeral (true)  enddef;
-vardef _romannumeral (expr prefix, X) =
+vardef GBromannumeral (expr X) =
   save Y, _tmp, U; string U;
 
   Y.m := X div 1000;        % thousands digit
@@ -505,30 +503,24 @@ vardef _romannumeral (expr prefix, X) =
   Y.i := _tmp - 10Y.x;      % units
 
   strrepeat("m", Y.m) &
-  romandigit(prefix, "c", "d", "m", Y.c) &
-  romandigit(prefix, "x", "l", "c", Y.x) &
-  romandigit(prefix, "i", "v", "x", Y.i)
+  GBromandigit("c", "d", "m", Y.c) &
+  GBromandigit("x", "l", "c", Y.x) &
+  GBromandigit("i", "v", "x", Y.i)
 enddef;
 
-vardef romandigit (expr prefix, bot, mid, top, n) =
+vardef GBromandigit (expr bot, mid, top, n) =
   if n > 9 :    top & strrepeat(bot, n-10)   % shouldn't happen
   elseif n > 8 :
-    if prefix:  bot & top                    % "ix"
-    else:       mid & bot & bot & bot & bot  % "viiii"
-    fi
+    bot & top                                % "ix"
   elseif n > 4 :  mid & strrepeat (bot, n-5) % "v"--"viii"
   elseif n > 3 :
-    if prefix:  bot & mid                    % "iv"
-    else:       bot & bot & bot & bot        % "iiii"
-    fi
+    bot & mid                                % "iv"
   else:         strrepeat (bot, n)           % ""--"iii" for 0--3
   fi
 enddef;
 
 vardef strrepeat (expr st, rep) =
-  setstring (_sr) "";
-  for i = 1 upto rep:  _sr := _sr & st;  endfor
-  _sr
+  "" for i = 1 upto rep:  & st  endfor
 enddef;
 
 transform ztr, vtr;