From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/2711
Path: main.gmane.org!not-for-mail
From: Berend de Boer <berend@pobox.com>
Newsgroups: gmane.comp.tex.context
Subject: Re: Metaerror?
Date: Thu, 14 Sep 2000 14:05:36 +0200
Sender: owner-ntg-context@let.uu.nl
Message-ID: <39C0BF10.E9456027@pobox.com>
References: <3.0.6.32.20000914104817.0165d7f0@pop.wxs.nl> <3.0.6.32.20000914133700.01bb89f0@pop.wxs.nl>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed;
	boundary="------------F1E937A06750034604A74824"
X-Trace: main.gmane.org 1035393481 11096 80.91.224.250 (23 Oct 2002 17:18:01 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 17:18:01 +0000 (UTC)
Original-To: Hans Hagen <pragma@wxs.nl>, ntg-context@ntg.nl
Xref: main.gmane.org gmane.comp.tex.context:2711
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:2711

This is a multi-part message in MIME format.
--------------F1E937A06750034604A74824
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

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. (-:
--------------F1E937A06750034604A74824
Content-Type: text/plain; charset=us-ascii;
 name="bon.mp"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="bon.mp"

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 ;

--------------F1E937A06750034604A74824--