anchor.diff:      end.
   
   colors() ->
  -    {{240, 100, 100}, {100, 240, 100}, {100, 100, 240},
  -     {220, 220, 80}, {100, 240, 240}, {240, 100, 240},
  -     {100, 25, 25}, {25, 100, 25}, {25, 25, 100},
  -     {120, 120, 0}, {25, 100, 100}, {100, 50, 100}
  +    {{240, 100, 100}, {0, 128, 0},     {25, 45, 170},  {255, 165, 0},
  +     {220, 220, 40},  {100, 240, 240},{240, 100, 240}, {160, 40,  40},
  +     {100, 100, 240}, {140, 140, 0},  {25, 200, 100},  {120, 25, 240},
  +     {255, 140, 163}, {25, 120, 120}, {120, 25, 120},  {110, 90, 60}
       }.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: reset_data() ->
      {0, queue:new()}.
  
  add_data(Stats, {N, Q0}, Wins, #ti{fetch=Fetch, secs=Secs}, Active) when N > (Secs*Fetch+1) ->
      {{value, Drop}, Q} = queue:out(Q0),
      add_data_1(Wins, Stats, N, {Drop,Q}, Active);
  add_data(Stats, {N, Q}, Wins, _, Active) ->
      add_data_1(Wins, Stats, N+1, {empty, Q}, Active).
  
  add_data_1([#win{state={_,St}}|_]=Wins0, Last, N, {Drop, Q}, Active)
    when St /= undefined ->
      try
  	{Wins, Stat} =
  
negative.code: 	   end,
      Start = X0 + (max(Secs*FetchFreq+Full-Samples, 0) - Offset)*WS,
      Last = Secs*FetchFreq*WS+X0,
      Dirty = case {Name, Info} of
                  {runq, {_, DCpu}} -> DCpu;
                  _ -> 0
              end,
      NoGraphs = length(Graphs),
      NoCpu = NoGraphs - Dirty,
      Draw = fun(Lines0, N) ->
                     case Dirty > 0 andalso N > NoCpu of
                         true  -> setPen(DC, element(1+ ((N-NoCpu-1) rem tuple_size(Dots)), Dots));
                         false -> setPen(DC, element(1+ ((N-1) rem tuple_size(Pens)), Pens))
                     end,
  		   Order = lists:reverse(Lines0),
  		   [{_,Y}|Lines] = translate(Order, {Start, Y0}, 0, WS, {X0,Max*HS,Last}, []),
  		   strokeLines(DC, [{Last,Y}|Lines]),
  		   N-1
  	   end,
      lists:foldl(Draw, NoGraphs, Graphs),
      DrawBs(),
      ok;
  
  