anchor.diff:  
   binarify(Name) when is_list(Name) ->
       list_to_binary(Name);
  -binarify(Name) -> Name.
  -
  -namify(Name) ->
  +binarify(Name) when is_atom(Name) ->
  +    atom_to_binary(Name, latin1);
  +binarify(Name) when is_pid(Name) ->
  +    list_to_binary(pid_to_list(Name));
  +binarify(Name) when is_port(Name) ->
  +    list_to_binary(erlang:port_to_list(Name));
  +binarify(Name) when is_binary(Name) ->
  +    Name.
  +
  +
  +namify(Name) when is_binary(Name) ->
       Name1 = binary:replace(binarify(Name), <<"@">>, <<"_at_">>),
       Name2 = binary:replace(binarify(Name1), <<"<">>, <<"">>),
       Name3 = binary:replace(binarify(Name2), <<">">>, <<"">>),
  -    binary:replace(binarify(Name3), <<".">>, <<"_">>, [global]).
  +    binary:replace(binarify(Name3), <<".">>, <<"_">>, [global]);
  +namify(Name) ->
  +    namify(binarify(Name)).
  +
   
   
   %% ---------------------- Regions ---------------------
  -push_region(Name, Vizcerl) ->
  -    push_region(Name, #{}, Vizcerl).
  -push_region(Name, Additional, Vizcerl) ->
  +push_region(Name, Vizceral) ->
  +    push_region(Name, #{}, Vizceral).
  +push_region(Name, Additional, Vizceral) ->
       A = maps:merge(#{
                         connections => [],
                         maxVolume => 5000
                       },
                      Additional),
  -    push_node(region, Name, A, Vizcerl).
  -
  -pull_region(Name, Vizcerl) ->
  -    {Region, Newlist} = pull_node(Name, Vizcerl),
  -    {Region, maps:merge(Vizcerl, #{nodes => Newlist})}.
  +    push_node(region, Name, A, Vizceral).
  +
  +pull_region(Name, Vizceral) ->
  +    {Region, Newlist} = pull_node(Name, Vizceral),
  +    {Region, maps:merge(Vizceral, #{nodes => Newlist})}.
   
   %% ---------------------- Nodes -----------------------
   push_node(Renderer, Name, Additional, Entity) ->
  
positive.code:    }, Additional),
    maps:merge(To, #{connections => [New | Connections]}).
  
  push_region_connection(Source, Target, {N, W, D}, Additional, Vizcerl) ->
    %% Will crash on nonexisting
    pull_region(Source, Vizcerl),
    pull_region(Target, Vizcerl),
    push_connection(Source, Target, {N, W, D}, Additional, Vizcerl).
  
negative.code: %%%===================================================================
  %%% Internal functions
  %%%===================================================================
  get_message_passing_counters(Node, Proplist, Vizceral) ->
      lists:foldl(
        fun({send, Send}, V) ->
                %% Examples of send trace:
                %% {{global_name_server,<13104.13.0>},0,1}
                %% {#Port<13104.431>,<13104.28.0>},0,72}
                %% {{<13104.12.0>,{alias,'erlangpl@127.0.0.1'}},2,0}
                update_message_passing_graph(Node, Send, V);
           (_, V) ->
                V
        end,
        Vizceral,
        Proplist).
  
  update_message_passing_graph(Node, Send, Vizceral) ->
      %% Below is a workaround for how Vizceral requires the INTERNET
      %% node to appear in its graph
      {{RootVertex, _}, _, _} = hd(Send),
      Viz1 = push_focused(<<"INTERNET">>, Node, Vizceral),
      Viz2 = push_focused(RootVertex, Node, Viz1),
      Viz3 = push_focused_connection(
                    <<"INTERNET">>, RootVertex, Node, {0,0,0}, #{}, Viz2),
  
      %% Update Vizceral graph with verticies representing processes
      %% and edges representing message passing
      lists:foldl(
        fun({{P1, P2}, Count1, Count2}, V)
              when not is_tuple(P1), not is_tuple(P2) ->
                V1 = push_focused(P1, Node, V),
                V2 = push_focused(P2, Node, V1),
                V3 = push_focused_connection(P1, P2, Node,
                                             {Count1,0,0}, #{}, V2),
                push_focused_connection(P2, P1, Node,
                                        {Count2,0,0}, #{}, V3);
           (_, V) ->
                V
        end, Viz3, Send).
  
  get_traffic_counters() ->
      {ok, NodesInfo} = command(fun net_kernel:nodes_info/0),
  
  