\setuppapersize[A4][A4]
\setuppagenumbering[state=stop]
\setupcolors[state=start]

\useMPlibrary[txt]

\startuseMPgraphic{test 1}
path p;
numeric orad, irad; orad := 6cm; irad := 2cm;
path outercircle; outercircle := fullcircle scaled 2orad;
path innercircle; innercircle := fullcircle scaled 2irad;
path outershape; 
outershape := outercircle cutbefore((0,irad)--(orad,irad))
cutafter((0,-irad)--(orad,-irad));
path innershape;
innershape := reverse (innercircle cutbefore((0,irad)--(irad,irad))
cutafter((0,-irad)--(irad,-irad)));
p:= outershape--innershape--cycle;
build_parshape(p,6pt,0,0,\baselinedistance,\strutheight,\strutdepth,\strutheight) ;
%draw p withpen pencircle scaled 1pt ;
\stopuseMPgraphic

\startuseMPgraphic{test 2}
path p;
numeric orad, irad; orad := 6cm; irad := 2cm;
path outercircle; outercircle := fullcircle scaled 2orad;
path innercircle; innercircle := fullcircle scaled 2irad;
path outershape; 
outershape := outercircle rotated 90
cutbefore((0,-irad)--(orad,-irad))
cutafter((0,irad)--(orad,irad));
path innershape;
innershape := reverse (innercircle rotated 90
cutbefore((0,-irad)--(irad,-irad))
cutafter((0,irad)--(irad,irad)));
p:= outershape--innershape--cycle;
build_parshape(p,6pt,0,0,\baselinedistance,\strutheight,\strutdepth,\strutheight) ;
%draw p withpen pencircle scaled 1pt ;
\stopuseMPgraphic

\defineoverlay[test 1][\useMPgraphic{test 1}]
\defineoverlay[test 2][\useMPgraphic{test 2}]

\startuseMPgraphic{CDShape}
draw fullcircle scaled 12cm;
draw fullcircle scaled 4cm;
\stopuseMPgraphic

\starttext

\setupframed[offset=overlay,align=normal,frame=off,width=\parwidth,height=\parheight]

\startproperty[hidden]
I need some text to get the page... but also need to hide this text !
\stopproperty

\definelayer[PageLayer][position=yes]
\setupbackgrounds[page][background=PageLayer]
\setuplayer[PageLayer][position=no,corner=bottom,height=\paperheight]

%% check-up shape
\setlayer[PageLayer][x=.5\paperwidth,y=.75\paperheight,location=c]{\useMPgraphic{CDShape}}

%% text
\startshapetext[test 1]
\input tufte
\stopshapetext
% x = .5\paperwidth (210mm) - orad
\setlayer[PageLayer][x=45mm,y=.75\paperheight,location=r]{\framed[background=test 1]{\getshapetext}}

\startshapetext[test 2]
\input knuth
\stopshapetext
% x = .5\paperwidth (210mm) + orad
%\setlayer[PageLayer][x=165mm,y=.75\paperheight,location=l]{\framed[background=test 2]{\getshapetext}}

\setlayer[PageLayer][x=145mm,y=.75\paperheight,location=c]{\framedtext[width=4cm,align=middle,frame=off]{Author \& Title\crlf and more if you want}}

%% check-up shape
\setlayer[PageLayer][x=.5\paperwidth,y=.25\paperheight,location=c]{\useMPgraphic{CDShape}}

% text
\startshapetext[test 1]
\input zapf
\stopshapetext
% x = .5\paperwidth (210mm) - orad
\setlayer[PageLayer][x=45mm,y=.25\paperheight,location=r]{\framed[background=test 1]{\getshapetext}}

\startshapetext[test 2]
\input knuth
\stopshapetext
% x = .5\paperwidth (210mm) + orad
\setlayer[PageLayer][x=165mm,y=.25\paperheight,location=l]{\framed[background=test 2]{\getshapetext}}


\stoptext
