From 5d4c8dc9b9eedf00ef981be81f2ac073102fb67f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 12 Jun 2010 23:28:12 +0000 Subject: mfpic update (11jun10) git-svn-id: svn://tug.org/texlive/trunk@18920 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/metafont/mfpic/grafbase.mf | 38 +++++++++++----------------- 1 file changed, 15 insertions(+), 23 deletions(-) (limited to 'Master/texmf-dist/metafont/mfpic') 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; -- cgit v1.2.3