From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/4778
Path: main.gmane.org!not-for-mail
From: Marc van Dongen <dongen@cs.ucc.ie>
Newsgroups: gmane.comp.tex.context
Subject: Re tree ``package''
Date: Thu, 31 May 2001 13:05:24 +0100
Sender: owner-ntg-context@let.uu.nl
Message-ID: <20010531130524.Q23245@cs.ucc.ie>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="3O1VwFp74L81IIeR"
X-Trace: main.gmane.org 1035395420 28688 80.91.224.250 (23 Oct 2002 17:50:20 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 17:50:20 +0000 (UTC)
Original-To: Mailing List <ntg-context@ntg.nl>
Xref: main.gmane.org gmane.comp.tex.context:4778
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:4778

--3O1VwFp74L81IIeR
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

Sorry if you receive this twice. I think
I forgot the group reply.

Taco Hoekwater (taco@elvenkind.com) wrote:

: We are missing marctool.mp :-)

Point well taken. It's attached.

Regards,

Marc

--3O1VwFp74L81IIeR
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="marctool.mp"

%
% Labels point i of mypath with (start+i).
%
def test( expr mypath, start ) =
  draw mypath
       withcolor red;
  for i = 0 upto length mypath:
    dotlabel ( decimal( i + start ),point i of mypath );
  endfor;
enddef;

%
% Circles pic with a circle scaled s.
%
def scaledcircleit( expr pic, s ) =
  (unitcircle shifted (-0.5,-0.5) scaled s
              shifted 0.5[ llcorner( pic ), urcorner( pic )])
enddef;

def widthofbox( expr b ) =
  (xpart( lrcorner( b ) ) - xpart( llcorner( b ) ))
enddef;

def heightofbox( expr b ) =
  (ypart( ulcorner( b ) ) - ypart( llcorner( b ) ))
enddef;

def centreofbox( expr b ) =
  (0.5[ ulcorner( b ), lrcorner( b ) ])
enddef;

--3O1VwFp74L81IIeR--