/[symmetry-circle]/symmetry.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /symmetry.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10 by dpavlin, Fri Aug 31 14:23:21 2007 UTC revision 11 by dpavlin, Fri Aug 31 14:28:27 2007 UTC
# Line 247  sub is_symmetric { Line 247  sub is_symmetric {
247  print ">>> RESULTS:\n";  print ">>> RESULTS:\n";
248  foreach my $r ( @shapes_found ) {  foreach my $r ( @shapes_found ) {
249          printf "%2d,%-2d len: %-4d directions: %s %s\n",          printf "%2d,%-2d len: %-4d directions: %s %s\n",
250          $r->{x}, $r->{y}, $r->{len}, $r->{directions}, is_symmetric($r->{directions}) ? 'symetric' : '';          $r->{x}, $r->{y}, $r->{len},
251            is_symmetric($r->{directions}) ? 'OK' : '!!',
252            $r->{directions},
253            ;
254  }  }
Legend:
Removed from v.10  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26