anchor.diff:  %Binary          | 0.0164M                                                                                                       |
   %|01[|||||||||||||||||||                                 36.68%]  |03[|||||||||||||||||||||||||                           49.17%]|
   %|02[|||||||||||||||||||                                 37.51%]  |04[|||||||||||||||||||||||||||||||||||||||||||         83.68%]|
  -draw_node_stauts_status() ->
  +draw_node_status() ->
     [{ProcessSum, MemSum}] = recon:node_stats_list(1, 0),
     draw_memory_process_info(ProcessSum, MemSum),
     draw_scheduler_usage(MemSum),
  
positive.code:        [CPUSeq1, Process1, CPU1, CPUSeq2, Process2, CPU2])
     end|| Seq <- lists:seq(1, HalfSchedulerNum)].
  
  get_current_initial_call(Call) ->
    {_, CurFun} = lists:keyfind(current_function, 1, Call),
    {_, InitialCall} = lists:keyfind(initial_call, 1, Call),
  
negative.code:     ["Pid", "Total Heap Size", "Initial Call", "Reductions", "Msg Queue", "Current Function"]),
    [begin
       {Pid, HeapSize, Call = [IsName|_]} = lists:nth(Pos, HeapList),
       [{_, Reductions}, {_, MsgQueueLen}] = get_reductions_and_msg_queue_len(Pid),
       {CurFun, InitialCall} = get_current_initial_call(Call),
       NameOrPid = get_display_name_or_pid(IsName, Pid),
       io:format("| ~-19.19s|~10.10s| ~-25.25s|~10.10s| ~-7.7s|~-48.48s|~n",
         [NameOrPid, to_list(HeapSize), InitialCall, to_list(Reductions), to_list(MsgQueueLen), CurFun])
     end|| Pos <- lists:seq(1, Num)].
  