*** modules/traffic/diagrams.pl.orig	Thu Dec 16 17:35:57 2004
--- modules/traffic/diagrams.pl	Thu Dec 16 17:51:54 2004
***************
*** 56,62 ****
  if ($SCALE eq "") { $SCALE=-1000; }
  if ($SCALE > 0) { push @FEATURES,"--rigid"; }
  
! my $SWAPOI=-$SWAPIO;
  
  # generate diagrams
  #
--- 56,63 ----
  if ($SCALE eq "") { $SCALE=-1000; }
  if ($SCALE > 0) { push @FEATURES,"--rigid"; }
  
! #my $SWAPOI=-$SWAPIO;
! my $SWAPOI=$SWAPIO;
  
  # generate diagrams
  #