[NTG-context] Circled text in metapost

Hans Hagen j.hagen at xs4all.nl
Mon Apr 2 15:16:11 CEST 2018


On 3/31/2018 7:22 PM, Gerhard Kugler wrote:
> Hi,
> 
> my very slow proceedings are here:
> 
> 
> --------
> 
> \useMPlibrary[txt]
> 
> \starttext
> 
> \setupbodyfont[pp1]
> 
> \setupcolors[state=start]
> 
> \setuplayout
> [topspace=192pt,
> backspace=48pt,
> cutspace=12pt,
> width=400pt,
> margin=0cm,
> rightedge=88pt,
> rightedgedistance=48pt,
> header=0cm,
> footer=0cm,
> height=400pt]
> 
> 
> 
> \startuseMPgraphic{followtokens}
>    path RotPath ;
> 
>    RotPath := halfcircle scaled 7cm rotated 180 ;
> 
> \stopuseMPgraphic
> 
> \followtokens{Dies ist ein anderer Text}
> 
> \startuseMPgraphic{followtokens}
>    path RotPath ;
> 
>    RotPath := halfcircle scaled 14cm rotated 180 ;
> 
> \stopuseMPgraphic
> 
> \followtokens{Dies ist ein selbst geschriebener Text}
> 
> --------
> 
> But I want to place the round lines concentrically in a circle (more
> than two). And I want to place all the lines on colored circled
> background.
\useMPlibrary[txt]

\starttext

\startuseMPgraphic{followtokens}
     path RotPath ; RotPath := halfcircle scaled 7cm rotated 180 ;
     for i=1 upto 6 :
         draw halfcircle scaled (i*cm) rotated 180 ;
     endfor ;
\stopuseMPgraphic

\followtokens{Dies ist ein anderer Text}

\stoptext

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------


More information about the ntg-context mailing list