anchor.diff:  
   %% API
   -export([start_link/4, stop/1,
  -         calculate_projection_internal_old/3]).
  +         calculate_projection_internal_old/3,
  +         cl_write_current_projection/1]).
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
            terminate/2, code_change/3]).
   
  
positive.code:             {Cutoff3, Seed3} = random:uniform_s(100, Seed1),
              if Cutoff3 < NoPartitionThreshold ->
                      {Seed3, []};
                 %% Cutoff3 rem 10 < 5 ->
                 %%      %% case get(goofus) of undefined -> put(goofus, true), io:format(user, "~w", [Cutoff3 rem 10]); _ -> ok end,
                 %%      OldSeed = case random:seed(Seed3) of undefined -> now();
                 %%                                           Else      -> Else
                 %%                end,
                 %%      {Down, _} = lists:partition(fun(X) -> X /= 'a' andalso random:uniform() < 0.5 end, Nodes),
                 %%      %% case get(goofus) of undefined -> put(goofus, true), io:format(user, "~w", [Down]); _ -> ok end,
                 %%      Partitions = [{X, Y} || X <- Nodes, Y <- Down],
                 %%      random:seed(OldSeed),
                 %%      {Seed3, Partitions};
                 true ->
                      make_network_partition_locations(Nodes, Seed3)
              end
  
negative.code: handle_call({calculate_projection_internal_old, OldThreshold, NoPartitionThreshold}, _From, S) ->
      {Reply, S2} = calc_projection(OldThreshold, NoPartitionThreshold, S),
      {reply, Reply, S2};
  handle_call({cl_write_current_projection}, _From, S) ->
      {Res, S2} = do_cl_write_current_proj(S),
      {reply, Res, S2};
  handle_call({stop}, _From, S) ->
      {stop, normal, ok, S};
  handle_call(_Call, _From, S) ->
  