#! /usr/bin/perl -s -wl
# Option : -sn=[sender]

@node=();
while (<>) {
   if ($_=~/node_\((\w+)\) set (\w+) (\d+).(\d+)/o) {
      $n=$1;
      $pos="$3.$4";
      if ($_ =~ /X_/) { $node[$n][0]=$pos/700+0.1; }
      if ($_ =~ /Y_/) { $node[$n][1]=$pos/700+0.1; }
   }
}

print "*Vertices ", $#node+1 ;
for ($i=0; $i<=$#node; $i++) {
   if ($i < $sn) {
      print $i+1, "     \"$i\"", "     $node[$i][0]  $node[$i][1]", " diamond ic Green";
   } else {
      print $i+1, "     \"$i\"", "     $node[$i][0]  $node[$i][1]";
   }
}