v07i084: Whales and Plankton, part 11/13
Brandon S. Allbery - comp.sources.misc
allbery at uunet.UU.NET
Wed Jul 19 11:42:57 AEST 1989
Posting-number: Volume 7, Issue 84
Submitted-by: loy at gtx.UUCP (Bob Loy)
Archive-name: whpl/part11
# whpl11of13.shar
#---cut here---cut here---cut here---cut here---cut here---
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files.
# This archive created: Sat Jan 14 04:05:15 MST 1989
export PATH; PATH=/bin:$PATH
echo shar: extracting "'genes.c2'" '(28649 characters)'
if test -f 'genes.c2'
then
echo shar: will not over-write existing file "'genes.c2'"
else
sed 's/^X//' << \SHAR_EOF > 'genes.c2'
X case 'c' :
X case 'C' :
X switch(chomp)
X {
X case 0 :
X case 1 :
X case 2 :
X case 3 :
X case 4 :
X case 5 :
X case 6 :
X case 7 :
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 8 :
X case 9 :
X case 10:
X case 11:
X case 12:
X case 13:
X case 14:
X case 15:
X mvwhle[0] = 1;
X mvwhle[1] = n - HBIAS;
X break;
X case 16:
X case 17:
X case 18:
X case 19:
X case 20:
X case 21:
X case 22:
X case 23:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 24:
X case 25:
X case 26:
X case 27:
X case 28:
X case 29:
X case 30:
X case 31:
X mvwhle[0] = 1;
X mvwhle[1] = n - vbias;
X break;
X case 32:
X case 33:
X case 34:
X case 35:
X case 36:
X case 37:
X case 38:
X case 39:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 40:
X case 41:
X case 42:
X case 43:
X case 44:
X case 45:
X case 46:
X case 47:
X mvwhle[0] = 1;
X mvwhle[1] = n + HBIAS;
X break;
X case 48:
X case 49:
X case 50:
X case 51:
X case 52:
X case 53:
X case 54:
X case 55:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 56:
X case 57:
X case 58:
X case 59:
X case 60:
X case 61:
X case 62:
X case 63:
X mvwhle[0] = 1;
X mvwhle[1] = n + vbias;
X break;
X default:
X if (debug >= 2)
X fprintf(stderr,
X "\n genesets(): type: c case: default\n");
X break;
X }
X break;
X /* Close to the original geneset (only 16, not 64 choices then): */
X case 'i' :
X case 'I' :
X switch(chomp)
X {
X case 0 :
X case 1 :
X case 2 :
X case 3 :
X mvwhle[0] = 1;
X mvwhle[1] = n - HBIAS;
X break;
X case 4 :
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 5 :
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 6 :
X case 7 :
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 8 :
X case 9 :
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 10:
X case 11:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 12:
X case 13:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 14:
X mvwhle[0] = 1;
X mvwhle[1] = n;
X break;
X case 15:
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = n;
X break;
X case 16:
X case 17:
X case 18:
X case 19:
X mvwhle[0] = 1;
X mvwhle[1] = n - vbias;
X break;
X case 20:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 21:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 22:
X case 23:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 24:
X case 25:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 26:
X case 27:
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 28:
X case 29:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 30:
X mvwhle[0] = 1;
X mvwhle[1] = n;
X break;
X case 31:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = n;
X break;
X case 32:
X case 33:
X case 34:
X case 35:
X mvwhle[0] = 1;
X mvwhle[1] = n + HBIAS;
X break;
X case 36:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 37:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 38:
X case 39:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 40:
X case 41:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 42:
X case 43:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 44:
X case 45:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 46:
X mvwhle[0] = 1;
X mvwhle[1] = n;
X break;
X case 47:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = n;
X break;
X case 48:
X case 49:
X case 50:
X case 51:
X mvwhle[0] = 1;
X mvwhle[1] = n + vbias;
X break;
X case 52:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 53:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 54:
X case 55:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 56:
X case 57:
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 58:
X case 59:
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 60:
X case 61:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 62:
X mvwhle[0] = 1;
X mvwhle[1] = n;
X break;
X case 63:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = n;
X break;
X default:
X if (debug >= 2)
X fprintf(stderr,
X "\n genesets(): type: i case: default\n");
X break;
X }
X break;
X /* The first set tested extensively (36 generations by 9/7/88): */
X case 'm' :
X case 'M' :
X switch(chomp)
X {
X case 0 :
X case 1 :
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 2 :
X case 3 :
X case 4 :
X mvwhle[0] = 1;
X mvwhle[1] = n - HBIAS;
X break;
X case 5 :
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 6 :
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 7 :
X case 8 :
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 9 :
X case 10:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 11:
X mvwhle[0] = 4;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X mvwhle[4] = mvwhle[3] - HBIAS;
X break;
X case 12:
X mvwhle[0] = 4;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X mvwhle[4] = mvwhle[3] - HBIAS;
X break;
X case 13:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 14:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 15:
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = n;
X break;
X case 16:
X case 17:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 18:
X case 19:
X case 20:
X mvwhle[0] = 1;
X mvwhle[1] = n - vbias;
X break;
X case 21:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 22:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 23:
X case 24:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 25:
X case 26:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 27:
X mvwhle[0] = 4;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X mvwhle[4] = mvwhle[3] - vbias;
X break;
X case 28:
X mvwhle[0] = 4;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X mvwhle[4] = mvwhle[3] - vbias;
X break;
X case 29:
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 30:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 31:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = n;
X break;
X case 32:
X case 33:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 34:
X case 35:
X case 36:
X mvwhle[0] = 1;
X mvwhle[1] = n + HBIAS;
X break;
X case 37:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 38:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 39:
X case 40:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 41:
X case 42:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 43:
X mvwhle[0] = 4;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X mvwhle[4] = mvwhle[3] + HBIAS;
X break;
X case 44:
X mvwhle[0] = 4;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X mvwhle[4] = mvwhle[3] + HBIAS;
X break;
X case 45:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 46:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 47:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = n;
X break;
X case 48:
X case 49:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 50:
X case 51:
X case 52:
X mvwhle[0] = 1;
X mvwhle[1] = n + vbias;
X break;
X case 53:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 54:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 55:
X case 56:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 57:
X case 58:
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 59:
X mvwhle[0] = 4;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X mvwhle[4] = mvwhle[3] + vbias;
X break;
X case 60:
X mvwhle[0] = 4;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X mvwhle[4] = mvwhle[3] + vbias;
X break;
X case 61:
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 62:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 63:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = n;
X break;
X default:
X if (debug >= 2)
X fprintf(stderr,
X "\n genesets(): type: m case: default\n");
X break;
X }
X break;
X /* MAY be optimized for good huntgenes (9/5/88): */
X case 'o' :
X case 'O' :
X switch(chomp)
X {
X case 0 :
X case 1 :
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 2 :
X case 3 :
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 4 :
X case 5 :
X mvwhle[0] = 1;
X mvwhle[1] = n - HBIAS;
X break;
X case 6 :
X case 7 :
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 8 :
X case 9 :
X mvwhle[0] = 3;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X break;
X case 10:
X case 11:
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 12:
X case 13:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 14:
X mvwhle[0] = 4;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X mvwhle[4] = mvwhle[3] - HBIAS;
X break;
X case 15:
X mvwhle[0] = 4;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X mvwhle[4] = mvwhle[3] - HBIAS;
X break;
X case 16:
X case 17:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 18:
X case 19:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 20:
X case 21:
X mvwhle[0] = 1;
X mvwhle[1] = n - vbias;
X break;
X case 22:
X case 23:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 24:
X case 25:
X mvwhle[0] = 3;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X break;
X case 26:
X case 27:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X break;
X case 28:
X case 29:
X mvwhle[0] = 2;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 30:
X mvwhle[0] = 4;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X mvwhle[4] = mvwhle[3] - vbias;
X break;
X case 31:
X mvwhle[0] = 4;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X mvwhle[4] = mvwhle[3] - vbias;
X break;
X case 32:
X case 33:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 34:
X case 35:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 36:
X case 37:
X mvwhle[0] = 1;
X mvwhle[1] = n + HBIAS;
X break;
X case 38:
X case 39:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] - vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 40:
X case 41:
X mvwhle[0] = 3;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X break;
X case 42:
X case 43:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X break;
X case 44:
X case 45:
X mvwhle[0] = 2;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 46:
X mvwhle[0] = 4;
X mvwhle[1] = n - vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X mvwhle[4] = mvwhle[3] + HBIAS;
X break;
X case 47:
X mvwhle[0] = 4;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] - vbias;
X mvwhle[4] = mvwhle[3] + HBIAS;
X break;
X case 48:
X case 49:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 50:
X case 51:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 52:
X case 53:
X mvwhle[0] = 1;
X mvwhle[1] = n + vbias;
X break;
X case 54:
X case 55:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 56:
X case 57:
X mvwhle[0] = 3;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] + HBIAS;
X mvwhle[3] = mvwhle[2] + vbias;
X break;
X case 58:
X case 59:
X mvwhle[0] = 2;
X mvwhle[1] = n + vbias;
X mvwhle[2] = mvwhle[1] - HBIAS;
X break;
X case 60:
X case 61:
X mvwhle[0] = 2;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X break;
X case 62:
X mvwhle[0] = 4;
X mvwhle[1] = n - HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] + HBIAS;
X mvwhle[4] = mvwhle[3] + vbias;
X break;
X case 63:
X mvwhle[0] = 4;
X mvwhle[1] = n + HBIAS;
X mvwhle[2] = mvwhle[1] + vbias;
X mvwhle[3] = mvwhle[2] - HBIAS;
X mvwhle[4] = mvwhle[3] + vbias;
X break;
X default:
X if (debug >= 2)
X fprintf(stderr,
X "\n genesets(): type: o case: default\n");
X break;
X }
X break;
X default:
X if (debug >= 2)
X {
X fprintf(stderr, "\n GENE TYPE UNKNOWN\n");
X fprintf(stderr, " genesets(); main switch: case: default\n");
X fprintf(stderr,
X " Gene types: hunt %c, feed %c, in whale: %d\n",
X whale[wich].hunttype, whale[wich].feedtype, wich);
X }
X break;
X }
X}
SHAR_EOF
if test 28649 -ne "`wc -c < 'genes.c2'`"
then
echo shar: error transmitting "'genes.c2'" '(should have been 28649 characters)'
fi
fi # end of overwriting check
# End of shell archive
exit 0
---
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
Bob Loy | Life is the detour you take on the
...!sun!sunburn!gtx!loy | way to where you're really going.
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
More information about the Comp.sources.misc
mailing list