1 #include	<stdio.h>
2 #include	"pic.h"
3 #include	"y.tab.h"
4 
5 obj *circgen(int type)
6 {
7 	static double rad[2] = { HT2, WID2 };
8 	static double rad2[2] = { HT2, HT2 };
9 	int i, at, t, with, battr;
10 	double xwith, ywith;
11 	double r, r2, ddval, fillval;
12 	obj *p, *ppos;
13 	Attr *ap;
14 
15 	r = r2 = 0.0; /* Botch? (gcc) */
16 
17 	battr = at = 0;
18 	with = xwith = ywith = fillval = ddval = 0;
19 	t = (type == CIRCLE) ? 0 : 1;
20 	if (type == CIRCLE)
21 		r = r2 = getfval("circlerad");
22 	else if (type == ELLIPSE) {
23 		r = getfval("ellipsewid") / 2;
24 		r2 = getfval("ellipseht") / 2;
25 	}
26 	for (i = 0; i < nattr; i++) {
27 		ap = &attr[i];
28 		switch (ap->a_type) {
29 		case TEXTATTR:
30 			savetext(ap->a_sub, ap->a_val.p);
31 			break;
32 		case RADIUS:
33 			r = ap->a_val.f;
34 			break;
35 		case DIAMETER:
36 		case WIDTH:
37 			r = ap->a_val.f / 2;
38 			break;
39 		case HEIGHT:
40 			r2 = ap->a_val.f / 2;
41 			break;
42 		case SAME:
43 			r = rad[t];
44 			r2 = rad2[t];
45 			break;
46 		case WITH:
47 			with = ap->a_val.i;
48 			break;
49 		case AT:
50 			ppos = ap->a_val.o;
51 			curx = ppos->o_x;
52 			cury = ppos->o_y;
53 			at++;
54 			break;
55 		case INVIS:
56 			battr |= INVIS;
57 			break;
58 		case NOEDGE:
59 			battr |= NOEDGEBIT;
60 			break;
61 		case DOT:
62 		case DASH:
63 			battr |= ap->a_type==DOT ? DOTBIT : DASHBIT;
64 			if (ap->a_sub == DEFAULT)
65 				ddval = getfval("dashwid");
66 			else
67 				ddval = ap->a_val.f;
68 			break;
69 		case FILL:
70 			battr |= FILLBIT;
71 			if (ap->a_sub == DEFAULT)
72 				fillval = getfval("fillval");
73 			else
74 				fillval = ap->a_val.f;
75 			break;
76 		}
77 	}
78 	if (type == CIRCLE)
79 		r2 = r;	/* probably superfluous */
80 	if (with) {
81 		switch (with) {
82 		case NORTH:	ywith = -r2; break;
83 		case SOUTH:	ywith = r2; break;
84 		case EAST:	xwith = -r; break;
85 		case WEST:	xwith = r; break;
86 		case NE:	xwith = -r * 0.707; ywith = -r2 * 0.707; break;
87 		case SE:	xwith = -r * 0.707; ywith = r2 * 0.707; break;
88 		case NW:	xwith = r * 0.707; ywith = -r2 * 0.707; break;
89 		case SW:	xwith = r * 0.707; ywith = r2 * 0.707; break;
90 		}
91 		curx += xwith;
92 		cury += ywith;
93 	}
94 	if (!at) {
95 		if (isright(hvmode))
96 			curx += r;
97 		else if (isleft(hvmode))
98 			curx -= r;
99 		else if (isup(hvmode))
100 			cury += r2;
101 		else
102 			cury -= r2;
103 	}
104 	p = makenode(type, 2);
105 	p->o_val[0] = rad[t] = r;
106 	p->o_val[1] = rad2[t] = r2;
107 	if (r <= 0 || r2 <= 0) {
108 		ERROR "%s has invalid radius %g\n", (type==CIRCLE) ? "circle" : "ellipse", r<r2 ? r : r2 WARNING;
109 	}
110 	p->o_attr = battr;
111 	p->o_ddval = ddval;
112 	p->o_fillval = fillval;
113 	extreme(curx+r, cury+r2);
114 	extreme(curx-r, cury-r2);
115 	if (type == CIRCLE)
116 		dprintf("C %g %g %g\n", curx, cury, r);
117 	if (type == ELLIPSE)
118 		dprintf("E %g %g %g %g\n", curx, cury, r, r2);
119 	if (isright(hvmode))
120 		curx += r;
121 	else if (isleft(hvmode))
122 		curx -= r;
123 	else if (isup(hvmode))
124 		cury += r2;
125 	else
126 		cury -= r2;
127 	return(p);
128 }