% 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
% Modified by Wolfgang Schuster
% Modified by Xan
% References:
% - Original design [http://www.ntg.nl/pipermail/ntg-context/attachments/20090312/3056772b/attachment.zip ]
% - Thread discussion related to that [http://www.ntg.nl/pipermail/ntg-context/2009/038851.html]
% This file should be processed with ConTeXt (texexec file)
 
\setupcolors[state=start,textcolor=white]
 
\startMPenvironment[global]
\usetypescript[postscript][ec]
\setupbodyfont[postscript,ss,144pt]
\stopMPenvironment
 
\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("\bf C"), (0,v*f) ) withcolor textcolor ;
label (textext("\bf O"), (f*h,2*v*f) ) withcolor textcolor ;
label (textext("\bf N"), (2*f*h,v*f) ) withcolor textcolor ;
label (textext("\bf T"), (0,-v*f) ) withcolor textcolor ;
label (textext("\bf E"), (f*h,0) ) withcolor textcolor ;
label (textext("\bf X"), (f*h*2,-v*f)) withcolor textcolor ;
label (textext("\bf 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
