[NTG-context] bug in mptopdf?

9 May 2006

      Hi,

I get the following error with the newest context (09.05.2006):
-------

1 output file written: testbrief-mpgraph.1
Transcript written on testbrief-mpgraph.log.
 [MP to PDF]
(./testbrief-mpgraph.1)This is MetaPost, Version 0.901 (Web2c 7.5.3)
(testbrief-mpgraph.mp
! Extra tokens will be flushed.
<to be read again>
                   numeric
resetspotcolors->numeric
                        .spotcolorhash[][];
<scantokens>  resetspotcolors
                              ;  resetcmykcolors ;  add_special_signal ;
spe...
<to be read again>
                   ;
endfig->scantokens.extra_endfig;
                                shipit;endgroup
l.160 endfig
            ;
?

-------

No problems with the version from 27.04.2006. The mp-file is attached.
Calling 'mptopdf *filename*' results in the same error.

Greets, Peter

mpgraph:=1;
randomseed:=2648;
_special_div_ := 10000;

if unknown context_tool: input mp-tool;
 fi;

if unknown context_spec: input mp-spec;
 fi;

if unknown context_grph: input mp-grph;
 fi;

graphictextformat:="context";
graphictextdirective "\global \loadfontfileoncetrue \usetypescriptfile [type-adobe-copperplate] \usetypescript [Copperplate] \usetypescriptfile [type-monotype] \usetypescript [ArialMT] \loadmapfile [texnansi-bitstrea-zapfhumanist.map] \usetypescriptfile [type-bitstrea-zapfhumanist] \usetypescript [ZapfHumanist] \setupbodyfont [ZapfHumanist,12pt]";

string contextversion;

contextversion:="2006.05.08 23:37";

if not known _data_prefix_:
string _data_prefix_,_data_suffix_;

fi;

_data_prefix_:="testbrief-mpd-";
_data_suffix_:=".mpd";

boolean collapse_data;
 collapse_data:=true;

_data_suffix_:=".mpd"; 
color OverlayColor,OverlayLineColor;

def initialize_form_numbers =
do_initialize_numbers;

enddef;

vardef ForegroundBox =
unitsquare xysized(HSize,VSize)
enddef ;

vardef PageFraction =
if 3>1: (1-1)/(3-1) else: 1 fi
enddef ;

if unknown context_page: input mp-page;
 fi;

boolean PageStateAvailable,OnRightPage,InPageBody;

PageStateAvailable:=true;

path PlainTextArea;

if unknown context_core : input mp-core.mp ;
 fi ;

;
defaultfont:="texnansi-zapfhumanist-roman";
defaultscale:=12.0pt/10pt;

cmykcolors:=true;

spotcolors:=true;

OverlayWidth:=469.47046pt  ;

OverlayHeight:=681.80237pt  ;

OverlayDepth:=681.80237pt  ;

OverlayColor:=(0,0,0);

OverlayLineWidth:=0pt ;

OverlayLineColor:=(0,0,0);

BaseLineSkip:=15.8592pt;

LineHeight:=15.8592pt;

BodyFontSize:=12.0pt;

TopSkip:=12.0pt;

StrutHeight:=11.41864pt;

StrutDepth:=4.44055pt;

CurrentWidth:=469.47046pt;

CurrentHeight:=681.80237pt;

EmWidth:=12.0pt;

ExHeight:=5.664pt;

PageNumber:=1;

RealPageNumber:=1;

LastPageNumber:= lastpage;

prologues:=2;

HSize:=469.47046pt;

VSize:=681.80237pt;

OnRightPage:=true;

InPageBody:=false ;

def LoadPageState =
OnRightPage:=true;

OnOddPage:=true;

RealPageNumber:=1;

PageNumber:=1;

NOfPages:=3;

PaperHeight:=845.04684pt;

PaperWidth:=597.50787pt;

PrintPaperHeight:=845.04684pt;

PrintPaperWidth:=597.50787pt;

TopSpace:=48.08513pt;

BottomSpace:=74.26172pt;

BackSpace:=68.57115pt;

CutSpace:=59.46626pt;

MakeupHeight:=722.7pt;

MakeupWidth:=469.47046pt;

TopHeight:=0.0pt;

TopDistance:=0.0pt;

HeaderHeight:=0.0pt;

HeaderDistance:=0.0pt;

TextHeight:=681.80237pt;

FooterDistance:=25.03842pt;

FooterHeight:=15.8592pt;

BottomDistance:=0.0pt;

BottomHeight:=0.0pt;

LeftEdgeWidth:=0.0pt;

LeftEdgeDistance:=0.0pt;

LeftMarginWidth:=75.58197pt;

LeftMarginDistance:=11.99829pt;

TextWidth:=469.47046pt;

RightMarginDistance:=11.99829pt;

RightMarginWidth:=75.58197pt;

RightEdgeDistance:=0.0pt;

RightEdgeWidth:=0.0pt;

InnerMarginDistance:=11.99829pt;

InnerMarginWidth:=75.58197pt;

OuterMarginDistance:=11.99829pt;

OuterMarginWidth:=75.58197pt;

InnerEdgeDistance:=0.0pt;

InnerEdgeWidth:=0.0pt;

OuterEdgeDistance:=0.0pt;

OuterEdgeWidth:=0.0pt;

PageOffset:=0.0pt;

PageDepth:=0.0pt;

LayoutColumns:=1;

LayoutColumnDistance:=0.0pt;

LayoutColumnWidth:=469.47046pt;

enddef;

ResetTextAreas;

;

SaveTextAreas;

ResetTextAreas;

;

;

PlainTextArea:=boundingbox((0pt,0pt)--(0pt,0pt)
shifted (0pt,0pt));

local_multi_par_area:=false;

;
let mprunend = end ;
beginfig(1);

begingroup
newnumeric u ;

newpicture tb,p ;

interim bboxmargin:= .3pt ;

interim defaultscale:= .3 ;

u:= 2.54/7.2 ;

p:=dashpattern(on 2.5mm off 2.5mm);

draw (origin--(PaperWidth,0))
dashed p
withpen pencircle scaled .2mm
withcolor (scaledrgb(.9373,.6471,0,1)) ;

tb:= thelabel.top(decimal(roundd(142.26378pt*u,2)) &" mm", (2mm,0)) ;

fill bbox tb withcolor transparent(1,.7,(scaledgray(1,1))) ;
 draw tb ;

endgroup
endfig;
let end=mprunend;
end.

end

[NTG-context] bug in mptopdf?

Peter Rolf