anchor.diff:  		  {F, SF}
   	  end,
       BlackPen = wxPen:new({0,0,0}, [{width, 1}]),
  -    Pens = [wxPen:new(Col, [{width, 1}]) || Col <- tuple_to_list(colors())],
  +    Pens = [wxPen:new(Col, [{width, 1}, {style, ?wxSOLID}])
  +            || Col <- tuple_to_list(colors())],
  +    DotPens = [wxPen:new(Col, [{width, 1}, {style, ?wxDOT}])
  +               || Col <- tuple_to_list(colors())],
       #paint{usegc = UseGC,
   	   font  = Font,
   	   small = SmallFont,
   	   pen   = ?wxGREY_PEN,
   	   pen2  = BlackPen,
  -	   pens  = list_to_tuple(Pens)
  +	   pens  = list_to_tuple(Pens),
  +           dot_pens = list_to_tuple(DotPens)
   	  }.
   
   
  
positive.code: 
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  draw_win(DC, #win{no_samples=Samples, geom=#{scale:={WS,HS}}, graphs=Graphs, max={_,Max,_,_}}=Win,
  	 #ti{tick=Tick, fetch=FetchFreq, secs=Secs, disp=DispFreq}=Ti,
  	 Paint=#paint{pens=Pens}) when Samples >= 2, Graphs =/= [] ->
      %% Draw graphs
      {X0,Y0,DrawBs} = draw_borders(DC, Ti, Win, Paint),
      Offset = Tick / DispFreq,
  
negative.code:     end.
  
  colors() ->
      {{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}
      }.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  