mptopdf problem: he is broken and asking for fix

[Martin Bruchanov <bruchy@gmail.com>]

[-- Attachment #1.1.1: Type: text/plain, Size: 950 bytes --]

Hi,

I'm using:

MPtoPDF 1.4.1 : running 'mpost --mem=mpost  linejoin.mp'
This is MetaPost, version 1.800 (kpathsea version 6.1.1dev)

Attached sources give following error:

This is MetaPost, version 1.800 (kpathsea version 6.1.1dev)  26
MAR 2013 22:04
**linejoin.mp
(mpost.mp (/mnt/data/tex/texmf/metapost/base/plain.mp
Preloading the plain mem file, version 1.004) ) (./linejoin.mp
(./line_makro.mp) [1
! This can't happen (degenerate spec).
endfig->scantokens.extra_endfig;shipit;
                                       endgroup
l.24 endfig
           ;
I'm broken. Please show this to someone who can fix can fix

So I hope, there is someone who can fix :)

Best regards,

BruXy

-- 
Martin Bruchanov

Skype     :  bruxytronics
WWW       :  http://bruxy.regnet.cz/
GPG-Key   :  http://bruxy.regnet.cz/bruxy-gpg.key (0x8107ED53)
Linked-In :  http://www.linkedin.com/in/bruxy
Google+   :  http://gplus.to/BruXy

[-- Attachment #1.1.2: linejoin.mp --]
[-- Type: text/plain, Size: 582 bytes --]

input line_makro.mp

def drawjoin(text cap)(text move)(expr xsour)(text desc) =
	x0 := xsour;
	linejoin := cap;
	label.top(desc, z0+(0, 1u));
	line(move)(tl, tlline); 
	line(move)(.4bp, black); 
	put_points(shifted (xsour, 0));
enddef;

% Rohy navazujicich car
beginfig(1); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
	path p;
	
	z0 = (0,0);
	z1 = (1u,1u);
	z2 = (2u,0);
	p := z0--z1--z2;

	drawjoin(rounded)()(0)("rounded");
	drawjoin(beveled)(shifted z0)(3u)("beveled");
	drawjoin(mitered)(shifted z0)(6u)("mitered");
endfig;
end;



[-- Attachment #1.1.3: line_makro.mp --]
[-- Type: text/plain, Size: 632 bytes --]

def line(text t)(expr size,col) =
	draw p t withpen pencircle scaled size withcolor col;
enddef;

def bod(text t) =
	draw p t withpen pencircle scaled .4bp;
enddef;

def put_points(text t) =
	for i = z0,z1,z2:
		if i = z0:
			drawdot i withpen bodik;
		else: 
			drawdot i t withpen bodik;
		fi;
  	endfor;
enddef;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

defaultfont := "cmtt10";
u := cm;

% uzka carka
nl := .4bp;
pen bodik;
bodik := pensquare scaled 2nl;

color tlline;
tlline := 0.7white;

tl := 3mm;
%drawdot (0,0) shifted (-1cm, 0) withpen bodik;



[-- Attachment #1.2: Type: application/pgp-signature, Size: 198 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________