/[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 12 by dpavlin, Fri Aug 31 15:17:11 2007 UTC
# Line 178  sub shape { Line 178  sub shape {
178    
179          if ( $usage > 4 ) {          if ( $usage > 4 ) {
180                  warn "SKIPPED, usage > 4\n";                  warn "SKIPPED, usage > 4\n";
181                  return;                  return 0;
182          }          }
183    
184          while( 1 ) {          while( 1 ) {
# 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.12

  ViewVC Help
Powered by ViewVC 1.1.26