anchor.diff:            fun(X, Acc) ->
                     LatexNode = term_to_latex_string(X),
                     io:format(File,
  -                            "\\draw (0, -~p) node[anchor=east] {~s};~n",
  +                            "\\draw (0, -~f) node[anchor=east] {~s};~n",
                               [length(Acc)/2, LatexNode]),
                     io:format(File,
  -                            "\\draw[color=gray,very thin] (0, -~p) -- (~pcm, -~p);~n",
  +                            "\\draw[color=gray,very thin] (0, -~f) -- (~fcm, -~f);~n",
                               [length(Acc)/2, (EndTime+10)/ScaleX, length(Acc)/2]),
                     case EndTime > 600 of
                         true ->
                             io:format(File,
  -                                    "\\foreach \\x in {~p,~p,...,~p}~n"
  -                                    "  \\node[anchor=south east,gray,inner sep=0pt] at (\\x, -~p) {\\tiny ~s};~n",
  +                                    "\\foreach \\x in {~B,~B,...,~B}~n"
  +                                    "  \\node[anchor=south east,gray,inner sep=0pt] at (\\x, -~f) {\\tiny ~s};~n",
                                       [15, 30,
                                        ((trunc((EndTime+10)) div 15) * 15) div ScaleX,
                                        length(Acc)/2, LatexNode]);
  
positive.code:                             DoneTime = element(2, hd(DoneEvents)),
                              if HaveRealTime ->
                                     io:format(File,
                                               "\\draw[semithick] (~pcm, -~p)"
                                                   " -- "
                                                   " (~pcm, -~p) node[inner sep=1pt, anchor=south] {\\tiny ~p};~n",
                                               [RecvTime/ScaleX, DestNum/2,
                                                DoneTime/ScaleX, DestNum/2,
                                                DoneTime - RecvTime]);
  
negative.code:                             false -> SendTag ++ "\\\\[-0.5em]\\tiny " ++ RecvTag
                          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=north, inner sep=1pt] {\\tiny ~s};~n",
                                [Color, SendTime/ScaleX, SrcNum/2,
                                 MsgTag,
  