Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/feature_posix/sys/src/cmd/pic/circgen.c – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

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