En/na Wolfgang Schuster ha escrit:
Am 12.03.2009 um 18:01 schrieb Xan:
Thanks, Wolfgang. Now it works, but whith tiny letters (see attachments)
New version (the old worked only under MkIV).
% 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]
\startMPenvironment \usetypescript[postscript][ec] \setupbodyfont[postscript,ss,120pt] \stopMPenvironment
\usetypescript[postscript][ec] \setupbodyfont[postscript,ss,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) ) withcolor textcolor ; label (textext("O"), (f*h,2*v*f) ) withcolor textcolor ; label (textext("N"), (2*f*h,v*f) ) withcolor textcolor ; label (textext("T"), (0,-v*f) ) withcolor textcolor ; label (textext("E"), (f*h,0) ) withcolor textcolor ; label (textext("X"), (f*h*2,-v*f)) withcolor textcolor ; label (textext("T"), (f*h,-2*v*f)) withcolor textcolor ; 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
Great!. It works now with MKII. Thanks a lot, Wolfgang, Xan.