anchor.diff:      digraph:delete(SG),
       digraph:delete(MG).
   
  +
  +-spec (module_callergraph_to_dot/4::(filename(), [modulename()],[filename()|dir()], boolean()) ->true).
  +module_callergraph_to_dot(OutFile, ModNames, SearchPaths, WithLabel) ->
  +    DotFile = filename:rootname(OutFile)++".dot",
  +    ModCallerCallees = create_caller_callee_graph_with_called_funs(SearchPaths),
  +    ModCallerCallees1=[{Caller, [{CalleeMod, CalleeFuns}]}||
  +			  {Caller, Callees}<-ModCallerCallees, 
  +			  {CalleeMod, CalleeFuns}<-Callees,
  +			  lists:member(CalleeMod, ModNames)],
  +    MG = digraph:new(),
  +    add_edges(ModCallerCallees1, [], MG),
  +    to_dot(MG,DotFile, WithLabel, [], false),
  +    digraph:delete(MG).
  +
  +
   -spec (module_graph_to_dot/4::(filename(), [modulename()], [filename()|dir()], boolean()) ->true). 			  
   module_graph_to_dot(OutFile, NotCareMods, SearchPaths, WithLabel) -> 
       DotFile = filename:rootname(OutFile)++".dot",
  
positive.code: calc_dim([], H, TmpW, MaxW) ->
    {erlang:max(TmpW, MaxW), H}.
  
  
  edge_format(V1, V2, Label, WithLabel) ->
      String = [io_lib:format("~p", [V1]), " -> ",
  	      io_lib:format("~p", [V2])],
      case WithLabel of 
  	true ->
  	    [String, " [", "label=", "\"", format_label(Label),  "\"", "];\n"];
  	false ->
  	    [String, " [", "];\n"]
      end.
    
  
negative.code:     to_dot(MG,DotFile, WithLabel, Sccs1, false),
      digraph:delete(MG).
  
  
  module_graph_to_dot(DotFile, ModGraph, WithLabel) ->
      MG = digraph:new(),
      add_edges(ModGraph, [], MG),
      to_dot(MG, DotFile, WithLabel, [], false),
      digraph:delete(MG).
  
  
  -spec (scc_graph_to_dot/3::(filename(), [filename()|dir()], boolean()) ->true). 			  
  scc_graph_to_dot(OutFile, SearchPaths, WithLabel) -> 
      DotFile = filename:rootname(OutFile)++".dot",
      ModCallerCallees = create_caller_callee_graph_with_called_funs(SearchPaths),
      MG = digraph:new(),
      add_edges(ModCallerCallees,[],  MG),
      Sccs = digraph_utils:cyclic_strong_components(MG),
      Sccs1 = [Scc||Scc<-Sccs, length(Scc)>1],
      to_dot(MG,DotFile, WithLabel, Sccs1, true),
      digraph:delete(MG).
  