% 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[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("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