Re: Problem with MkIV and TikZ picture remembering

[Hans Hagen <pragma@wxs.nl>]

On 3/3/2015 6:12 PM, Aditya Mahajan wrote:
> On Tue, 3 Mar 2015, Jörg Weger wrote:
>
>> In the minimal working example below inside of a text two words should
>> be printed inside of rounded TikZ rectangles and should be connected
>> by an TikZ arrow pointing from the first word to the other.
>>
>> TikZ offers the remember picture/overlay option for that.
>>
>> I have seen a solution similar to what I want to achieve in the
>> METAFUN manual but I don’t have a clue how to get that METAPOST
>> alternative working.
>
> Here is how to get the metafun alternative working.
>
> 1. I don't understand why I need to manually input the mp-abck file;
> that should be input automatically.
>
> 2. The metafun alternative is a bit inconvenient. Suppose you want to
> draw a bunch of such graphics (words connected by arrows). Then, you
> will need to ensure that node names are unique. (Is there a way to get
> around that?)
>
> 3. I did not bother to set the style of the boxes and arrows. So it
> looks a bit dry.
>
> \startMPdefinitions
>    % I don't know why this does not get loaded automatically.
>    input mp-abck.mpiv;
> \stopMPdefinitions
>
> \defineoverlay[highlight] [\positionoverlay{highlightoverlay}]
>
> \startpositionoverlay{highlightoverlay}
>    \setMPpositiongraphic{n1}{highlightgraphic}{from=n1,to=n2}
> \stoppositionoverlay
>
> \startMPpositiongraphic{highlightgraphic}
>    save n; path n[];
>
>    initialize_box(\MPpos{\MPvar{from}}); n[1] := pxy;
>    initialize_box(\MPpos{\MPvar{to}});   n[2] := pxy;
>
>    draw n[1];
>    draw n[2];
>
>    drawarrow (center n[1]){dir 45} .. {dir -45}(center n[2])
>         cutbefore n[1]
>         cutafter  n[2];
>
>    anchor_box(\MPanchor{\MPvar{from}});
> \stopMPpositiongraphic
>
> \setuppapersize[A6]
>
> \setupbackgrounds[page][background=highlight]
>
> \starttext
> \hpos{n1}{this} belongs to \hpos{n2}{that}
> \stoptext

\startMPdefinitions
     % I don't know why this does not get loaded automatically. Answer: 
seldom needed.
     input mp-abck.mpiv;
\stopMPdefinitions

\defineoverlay[highlight] [\positionoverlay{highlightoverlay}]

\startMPpositiongraphic{highlightgraphic}
     save n; path n[];

     initialize_box(\MPpos{\MPvar{from}}); n[1] := pxy;
     initialize_box(\MPpos{\MPvar{to}});   n[2] := pxy;

     draw n[1];
     draw n[2];

     if ypart center n[1] > ypart center n[2] :
         drawarrow (center n[1]){dir 225} ... {dir -225}(center n[2])
             cutbefore n[1]
             cutafter  n[2] ;
     else :
         drawarrow (center n[1]){dir 45} ... {dir -45}(center n[2])
             cutbefore n[1]
             cutafter  n[2] ;
     fi ;

     anchor_box(\MPanchor{\MPvar{from}});
\stopMPpositiongraphic

\newcounter\connectedwordcounter

\starttexdefinition unexpanded fromword [#1]#2
     \expandafter\pushmacro\csname cwc>#1\endcsname % nesting hack
     \doglobal\increment\connectedwordcounter
     \setxvalue{cwc>#1}{\connectedwordcounter}%
     \startpositionoverlay{highlightoverlay}
         \setMPpositiongraphic
           {\getvalue{cwc>#1}>f}
           {highlightgraphic}
           {from=\getvalue{cwc>#1}>f,to=\getvalue{cwc>#1}>t}
     \stoppositionoverlay
     \hpos{\getvalue{cwc>#1}>f}{#2}%
\stoptexdefinition

\starttexdefinition unexpanded toword [#1]#2
     \hpos{\getvalue{cwc>#1}>t}{#2}
     \expandafter\popmacro\csname cwc>#1\endcsname % nesting hack
\stoptexdefinition

\setuppapersize[A6]

\setupbackgrounds[page][background=highlight]

\starttext
     \fromword[foo]{this} belongs to \toword[foo]{that}
     \fromword[bar]{this} belongs to \toword[bar]{that}
     \fromword[foo]{this} belongs to \toword[foo]{that}
     \fromword[bar]{this} belongs \fromword[bar]{this} belongs to 
\toword[bar]{that} to \toword[bar]{that}
\stoptext

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
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
___________________________________________________________________________________