Re: Metaerror?

[Berend de Boer <berend@pobox.com>]

[-- Attachment #1: Type: text/plain, Size: 2356 bytes --]

Hans Hagen wrote:

> >It runs, but complains. Perhaps output is not flushed??
> 
> Them how does mpgraph.mp look like?

When executing this command:

texexec --mpformat=metafun --mptex --nomp --once mpgraph

The run ends with:

              run time : 2 seconds
              metapost : mpgraph
                format : metafun
This is MetaPost, Version 0.641 (Web2C 7.3.2x)
(mpgraph.mp)
*

So I have to type \end to exit it.

My mp file (in this case):

% runtime generated graphics of job "test"
mpgraph:=1;
randomseed := 3343;
if unknown context_tool : input mp-tool ;
fi ;
if unknown context_spec : input mp-spec ;
fi ;
defaultfont := "cmr10" ;
defaultscale := 12.0pt/10pt ;
if not known _data_prefix_ : string _data_prefix_ , _data_suffix_ ;
fi ;
_data_prefix_ := "mpd-" ;
_data_suffix_ := ".mpd" ;
boolean collapse_data ;
collapse_data := true ;
_data_suffix_ := ".mpd" ;
if unknown context_page : input mp-page ;
fi ;
boolean PageStateAvailable ;
PageStateAvailable := true ;
boolean OnRightPage ;
OnRightPage := true ;
def LoadPageState = OnRightPage := true;
PageNumber := 1;
PaperHeight := 845.04684pt;
PaperWidth := 597.50787pt;
PrintPaperHeight := 845.04684pt;
PrintPaperWidth := 597.50787pt;
TopSpace := 71.12546pt;
BackSpace := 71.13275pt;
MakeupHeight := 711.3191pt;
MakeupWidth := 426.78743pt;
TopHeight := 0.0pt;
TopDistance := 0.0pt;
HeaderHeight := 56.90294pt;
HeaderDistance := 0.0pt;
TextHeight := 597.51323pt;
FooterDistance := 0.0pt;
FooterHeight := 56.90294pt;
BottomDistance := 0.0pt;
BottomHeight := 0.0pt;
LeftEdgeWidth := 0.0pt;
LeftEdgeDistance := 0.0pt;
LeftMarginWidth := 75.58197pt;
LeftMarginDistance := 11.99829pt;
TextWidth := 426.78743pt;
RightMarginDistance := 11.99829pt;
RightMarginWidth := 75.58197pt;
RightEdgeDistance := 0.0pt;
RightEdgeWidth := 0.0pt;
PageOffset := 0pt;
PageDepth := 0pt;
enddef ;
if unknown context_core : input mp-core.mp ;
fi ;
;;
verbatimtex  etex;
beginfig(1);
input bon.mp ;
path stdcbase, posixbase, basebase ;
 stdcbase := class (btex \it STDC\_BASE etex
, 4cm, 10cm) ;
basebase := class (btex \it STDC\_BASE etex
, 4cm, 5cm) ;
posixbase := class (btex \it POSIX\_BASE etex
, 4cm, 0cm) ;
inheritfrom (basebase, stdcbase, 6) ;
inheritfrom (posixbase, basebase, 6) ;
endfig;
end.

I've also attached bon.mp.

I'll try to make some changes to see where the error is.

Groetjes,

Berend. (-:

[-- Attachment #2: bon.mp --]
[-- Type: text/plain, Size: 739 bytes --]

numeric classyscale, classxscale ;

classyscale := 2cm ;
classxscale := 3.5cm ;

vardef class ( expr name, x, y ) =
  save p, q ;
  path p, q, pd, qd ;

  pickup pencircle scaled 0.8pt ;
  pd := fullcircle xscaled classxscale yscaled classyscale ;
  qd := pd shifted (x + 5pt, y);
  fill qd withcolor black ;
  draw qd ;  
  p := fullcircle xscaled 3.5cm yscaled 2cm ;
  q := p shifted (x, y) ;
  fill q withcolor 0.7white ;
  label(name, center q) withcolor blue ;
  draw q;
  q
enddef ;

def inheritfrom ( expr child, parent, n ) =
  save p ;
  pair a, b ;
  path p ;
  pickup pencircle scaled 3pt ;
  a := point n of parent shifted (0, -5pt) ;
  b := point 2 of child shifted (0, 5pt) ;
  p := b -- unitvector (a) ;
  draw p ;
enddef ;