allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) (07/19/89)
Posting-number: Volume 7, Issue 84 Submitted-by: loy@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. | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~