Select Code to Download

package Organism;
use strict;
...
}

1;

use bigint;

...
   $BM_LEFTMIDDLE  = 0x30000000000000000000000000000000;
   $BM_RIGHTMIDDLE = 0x0000000000000000000000000000000c;
}

package Organism;
use strict;
...
}

1;

# tdumpxy.pl - Test mapping of Cell x,y to Tile tx,ty
use strict;
...
      $y == $ny or die "oops y";
   }
}