Am 12.03.2009 um 17:33 schrieb Xan:
* The blue traffic sign from the wiki.
I have an mp file for that, which is attached.
It does not work for me too. When I run texexec or mpost (following
the first page of metafun manual) I get the following error:
I have the same problem with the minimals, I moved the code
now in a ConTeXt file and this works for me:
% logo.mp: creates a blue traffic sign-style context logo
% Copyright 2008 Taco Hoekwater
% You are free to use this code any way you can
\setupcolors[state=start,textcolor=white]
\usetypescript[helvetica]
\setupbodyfont[helvetica,120pt]
\starttext
\startMPpage[offset=0pt]
color darkblue,textcolor;
darkblue := (0.0625,0,.412); % 0f006b =
textcolor := (1,1,1);
def rect (expr xl,yl,r) =
pickup pencircle scaled 1;
draw (xl-.5r,yl-.5r) -- (xl+.5r,yl-.5r)--
(xl+.5r,yl+.5r) -- (xl-.5r,yl+.5r) -- cycle
withcolor textcolor;
enddef;
f:= 14;
h:=8;
v:=4;
fill fullcircle scaled 408 shifted (112,0)
withcolor darkblue;
label (textext("C"), (0,v*f) ) ;
label (textext("O"), (f*h,2*v*f) ) ;
label (textext("N"), (2*f*h,v*f) ) ;
label (textext("T"), (0,-v*f) ) ;
label (textext("E"), (f*h,0) ) ;
label (textext("X"), (f*h*2,-v*f)) ;
label (textext("T"), (f*h,-2*v*f)) ;
r := h*f;
rect (0,v*f,r);
rect (f*h,2*v*f,r);
rect (2*f*h,v*f,r);
rect (0,-v*f,r);
rect (f*h,0,r);
rect (f*h*2,-v*f,r);
rect (f*h,-2*v*f,r);
\stopMPpage
\stoptext
Wolfgang
___________________________________________________________________________________
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 : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
