anchor.diff: -% @copyright 2012 Zuse Institute Berlin
  +% @copyright 2012-2013 Zuse Institute Berlin
   
   %   Licensed under the Apache License, Version 2.0 (the "License");
   %   you may not use this file except in compliance with the License.
  
positive.code: 
      EndTime =  element(2, lists:last(DrawTrace)),
  
      %% draw nodes and timelines
      _ = lists:foldl(
            fun(X, Acc) ->
  
negative.code:                   io:format(File,
                              "\\draw[color=gray,very thin] (0, -~p) -- (~pcm, -~p);~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",
                                      [300 div ScaleX, 600 div ScaleX,
                                       ((trunc((EndTime+10)) div 300) * 300) div ScaleX,
                                       length(Acc)/2, LatexNode]);
                        false -> ok
                    end,
                    [X | Acc]
            end,
            [], Nodes),
  