Re: ConTeXt T-shirts?

[Wolfgang Schuster <schuster.wolfgang@googlemail.com>]

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
___________________________________________________________________________________