1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#include "phylip.h"
#define maxnodes 1200
#define maxnch 30
#define point '.'
#define minus '-'
#define stripewidth 3000L
#define maxstripedepth 3500
#define fontsize 3800
#define pi 3.141592653
#define epsilon 0.00001
#define ebcdic EBCDIC
#define segments 40
#define xstart 10
#define ystart 35
#define LF 10
#define CR 13
#define escape (ebcdic ? '\'' : '\033')
#define null '\000'
typedef enum { treepen, labelpen} pentype;
typedef enum { lw,hp,tek,ibmpc,mac,houston, decregis,epson, oki,fig,
citoh,toshiba,pcx,pcl,pict,ray,xbm,other} plottertype;
typedef enum { vertical, horizontal} growth;
typedef enum {cladogram,phenogram,curvogram,eurogram,swoopogram} treestyle;
typedef enum { penup,pendown} pensttstype;
typedef Char plotstring[maxnch];
typedef short fonttype[fontsize];
typedef Char *striparray;
typedef striparray striptype[maxstripedepth];
typedef struct node {
struct node *next, *back;
boolean tip;
plotstring nayme;
long naymlength, tipsabove, index;
double xcoord,ycoord,oldlen,length,
r,theta,oldtheta,width,depth,tipdist,lefttheta,righttheta;
} node;
struct LOC_plottext { /* Local variables for plottext: */
double height, compress;
short *font;
short coord;
double heightfont, xfactor, yfactor, xfont, yfont, xplot, yplot, sinslope,
cosslope, xx, yy;
pensttstype penstatus;
} ;
typedef struct colortype {
Char *name;
double red, green, blue;
} colortype;
double lengthtext();
|
