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
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;
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;
pgp0gSdrUwMMq.pgp
Description: PGP signature
___________________________________________________________________________________ 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 ___________________________________________________________________________________
