anchor.diff:                              false -> SendTag ++ "\\\\[-0.5em]\\tiny " ++ RecvTag
                           end,
                       io:format(File,
  -                              "\\draw[->, color=~s] (~pcm, -~p)"
  +                              "\\draw[->, color=~s] (~fcm, -~f)"
                                 " to node[inner sep=1pt, anchor=west,sloped,rotate=90,align=left] "
  -                              "{\\tiny ~s} (~pcm, -~p) "
  +                              "{\\tiny ~s} (~fcm, -~f) "
                                 "node [anchor=north, inner sep=1pt] {\\tiny ~s};~n",
                                 [Color, SendTime/ScaleX, SrcNum/2,
                                  MsgTag,
  
positive.code:       1, EndSlot,
        fun(I) ->
                io:format(File,
                "  \\draw[color=gray, very thin] (~pcm, 0.5)"
                "  node[above] {~p" ++ ?IIF(HaveRealTime, "$\\mu$s", "") ++ "} --"
                " (~p, -~p);~n",
                [I*TicsFreq/ScaleX,
                 I*TicsFreq,
                 I*TicsFreq/ScaleX, length(Nodes)/2])
  
negative.code:                             false -> RecvTag ++ "\\\\[-0.5em]\\tiny " ++ SendTag
                          end,
                      io:format(File,
                                "\\draw[->, color=~s] (~fcm, -~f)"
                                " .. controls +(~fcm,-0.3) .."
                                " node[inner sep=1pt,anchor=west,sloped,rotate=-90, align=left]"
                                "{\\tiny ~s} (~fcm, -~f) "
                                "node [anchor=west, inner sep=1pt, rotate=60] {\\tiny ~s};~n",
                                [Color, element(2, X)/ScaleX, SrcNum/2,
                                 (RecvTime - element(2, X))/ScaleX/2,
  