diff options
Diffstat (limited to 'metapost/context/base/mpiv/mp-grap.mpiv')
-rw-r--r-- | metapost/context/base/mpiv/mp-grap.mpiv | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/metapost/context/base/mpiv/mp-grap.mpiv b/metapost/context/base/mpiv/mp-grap.mpiv index 313adfda7..51b2e5a3d 100644 --- a/metapost/context/base/mpiv/mp-grap.mpiv +++ b/metapost/context/base/mpiv/mp-grap.mpiv @@ -17,9 +17,8 @@ boolean context_grap ; context_grap := true ; % Below is a modified graph.mp -show numbersystem, numberprecision ; +message ("using number system " & numbersystem & " with precision " & decimal numberprecision) ; -%if epsilon/4 = 0 : if numbersystem <> "double" : errmessage "The graph macros require the double precision number system." ; endinput ; @@ -160,8 +159,7 @@ enddef ; % New : -color graph_background ; % if defined, fill the frame. -boolean graph_close_file ; graph_close_file = false ; +save graph_background ; color graph_background ; % if defined, fill the frame. def begingraph(expr w, h) = begingroup @@ -527,15 +525,18 @@ enddef ; % line with no data. Commands c can use line number i and tokens $1, $2, ... % and j is the number of fields. +% def gdata(expr f)(suffix $)(text c) = +% for i=1 upto largestmantissa : +% exitunless graph_read_line$(f) ; +% c +% endfor ; +% enddef ; + def gdata(expr f)(suffix $)(text c) = - %boolean flag ; % not used? for i=1 upto largestmantissa : exitunless graph_read_line$(f) ; c endfor - if graph_close_file : - closefrom f ; - fi enddef ; % Read a path from file f. The path is terminated by blank line or EOF. |