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