On 2013–10–14 Marco Patzer wrote: > On 2013–10–13 Hans Hagen wrote: > > > >inbetween the arcs, that should alsó be drawn). The text should not be > > >stretched but center on the top, flowing evenly distributed on each > > >side. This link will give you an idea: > > > > > >http://www.heilsuefling.is/heilsuefling/upload/images/whp_in_general/determinants_of_health/determinants_of_health.jpg > > > > > >How can this achieved?
Here is a slightly modified version of the \followtokens macro with centres the text without stretching it to the path size. \useMPlibrary [txt] \unexpanded\def\followtokenscentred#1%% {\vbox\bgroup \forgetall \dontcomplain \startMPenvironment \doifundefined{RotFont}{\definefont[RotFont][RegularBold]} \stopMPenvironment \MPtoks\emptytoks \resetMPdrawing \startMPdrawing \includeMPgraphic{followtokenscentred} ; picture pic[] ; numeric len[], n ; n := 0 ; \stopMPdrawing \handletokens#1\with\processfollowingtoken \startMPdrawing if unknown RotPath : path RotPath ; RotPath := origin ; fi ; if unknown RotColor : color RotColor ; RotColor := black ; fi ; if unknown TraceRot : boolean TraceRot ; TraceRot := false ; fi ; if unknown ExtraRot : numeric ExtraRot ; ExtraRot := 0 ; fi ; numeric al, at, pl, wid, pos ; pair ap, ad ; al := arclength RotPath ; if al=0 : al := len[n] + ExtraRot ; RotPath := origin -- (al,0) ; fi ; if al<len[n]: RotPath := RotPath scaled ((len[n]+ExtraRot)/al) ; al := arclength RotPath ; fi ; pl := (al-len[n])/(if n>1 : (n-1) else : 1 fi) ; pl := 0cm; if TraceRot : draw RotPath withpen pencircle scaled 1pt withcolor blue ; fi ; for i=1 upto n : wid := abs(xpart urcorner pic[i] - xpart llcorner pic[i]) ; pos := len[i]-wid/2 + (i-1)*pl + arclength RotPath/2 - len[n]/2 ; at := arctime pos of RotPath ; ap := point at of RotPath ; ad := direction at of RotPath ; draw pic[i] shifted (-wid/2,0) rotated(angle(ad)) shifted ap withcolor RotColor ; if TraceRot : draw boundingbox pic[i] shifted (-wid/2,0) rotated(angle(ad)) shifted ap withpen pencircle scaled .25pt withcolor red ; draw ap withpen pencircle scaled .50pt withcolor green ; fi ; endfor ; \stopMPdrawing \MPdrawingdonetrue \getMPdrawing \resetMPdrawing \egroup} \def\followtokengraphicscale#1{%% \startuseMPgraphic {followtokenscentred} path RotPath; RotPath := reverse halfcircle scaled #1 ; setbounds currentpicture to boundingbox fullcircle scaled 12cm ; \stopuseMPgraphic} \starttext \startoverlay {\followtokengraphicscale{10cm}%% \followtokenscentred{General socioeconomic cultural and environmental conditions}} {\followtokengraphicscale{8cm}%% \followtokenscentred{Living and working conditions}} {\followtokengraphicscale{6cm}%% \followtokenscentred{Social and community influences}} {\followtokengraphicscale{4cm}%% \followtokenscentred{Individual lifestyle factors}} \stopoverlay \stoptext Marco
signature.asc
Description: Digital signature
___________________________________________________________________________________ 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 : http://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net ___________________________________________________________________________________