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_fixcpp/sys/src/cmd/pic/print.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 <math.h>
3 
#include "pic.h"
4 
#include "y.tab.h"
5 
 
6 
void dotext(obj *);
7 
void dotline(double, double, double, double, int, double);
8 
void dotbox(double, double, double, double, int, double);
9 
void ellipse(double, double, double, double);
10 
void circle(double, double, double);
11 
void arc(double, double, double, double, double, double);
12 
void arrow(double, double, double, double, double, double, double, int);
13 
void line(double, double, double, double);
14 
void box(double, double, double, double);
15 
void spline(double x, double y, double n, ofloat *p, int dashed, double ddval);
16 
void move(double, double);
17 
void troff(char *);
18 
void dot(void);
19 
void fillstart(double), fillend(int vis, int noedge);
20 
 
21 
void print(void)
22 
{
23 
	obj *p;
24 
	int i, j, k, m;
25 
	int fill, vis, invis;
26 
	double x0, y0, x1, y1, ox, oy, dx, dy, ndx, ndy;
27 
 
28 
	for (i = 0; i < nobj; i++) {
29 
		p = objlist[i];
30 
		ox = p->o_x;
31 
		oy = p->o_y;
32 
		if (p->o_count >= 1)
33 
			x1 = p->o_val[0];
34 
		if (p->o_count >= 2)
35 
			y1 = p->o_val[1];
36 
		m = p->o_mode;
37 
		fill = p->o_attr & FILLBIT;
38 
		invis = p->o_attr & INVIS;
39 
		vis = !invis;
40 
		switch (p->o_type) {
41 
		case TROFF:
42 
			troff(text[p->o_nt1].t_val);
43 
			break;
44 
		case BOX:
45 
		case BLOCK:
46 
			x0 = ox - x1 / 2;
47 
			y0 = oy - y1 / 2;
48 
			x1 = ox + x1 / 2;
49 
			y1 = oy + y1 / 2;
50 
			if (fill) {
51 
				move(x0, y0);
52 
				fillstart(p->o_fillval);
53 
			}
54 
			if (p->o_type == BLOCK){
55 
				;	/* nothing at all */
56 
			}else if (invis && !fill){
57 
				;	/* nothing at all */
58 
			}else if (p->o_attr & (DOTBIT|DASHBIT))
59 
				dotbox(x0, y0, x1, y1, p->o_attr, p->o_ddval);
60 
			else
61 
				box(x0, y0, x1, y1);
62 
			if (fill)
63 
				fillend(vis, fill);
64 
			move(ox, oy);
65 
			dotext(p);	/* if there are any text strings */
66 
			if (ishor(m))
67 
				move(isright(m) ? x1 : x0, oy);	/* right side */
68 
			else
69 
				move(ox, isdown(m) ? y0 : y1);	/* bottom */
70 
			break;
71 
		case BLOCKEND:
72 
			break;
73 
		case CIRCLE:
74 
			if (fill)
75 
				fillstart(p->o_fillval);
76 
			if (vis || fill)
77 
				circle(ox, oy, x1);
78 
			if (fill)
79 
				fillend(vis, fill);
80 
			move(ox, oy);
81 
			dotext(p);
82 
			if (ishor(m))
83 
				move(ox + isright(m) ? x1 : -x1, oy);
84 
			else
85 
				move(ox, oy + isup(m) ? x1 : -x1);
86 
			break;
87 
		case ELLIPSE:
88 
			if (fill)
89 
				fillstart(p->o_fillval);
90 
			if (vis || fill)
91 
				ellipse(ox, oy, x1, y1);
92 
			if (fill)
93 
				fillend(vis, fill);
94 
			move(ox, oy);
95 
			dotext(p);
96 
			if (ishor(m))
97 
				move(ox + isright(m) ? x1 : -x1, oy);
98 
			else
99 
				move(ox, oy - isdown(m) ? y1 : -y1);
100 
			break;
101 
		case ARC:
102 
			if (fill) {
103 
				move(ox, oy);
104 
				fillstart(p->o_fillval);
105 
			}
106 
			if (p->o_attr & HEAD1)
107 
				arrow(x1 - (y1 - oy), y1 + (x1 - ox),
108 
				      x1, y1, p->o_val[4], p->o_val[5], p->o_val[5]/p->o_val[6]/2, p->o_nhead);
109 
                        if (invis && !fill)
110 
                                /* probably wrong when it's cw */
111 
                                move(x1, y1);
112 
                        else
113 
				arc(ox, oy, x1, y1, p->o_val[2], p->o_val[3]);
114 
			if (p->o_attr & HEAD2)
115 
				arrow(p->o_val[2] + p->o_val[3] - oy, p->o_val[3] - (p->o_val[2] - ox),
116 
				      p->o_val[2], p->o_val[3], p->o_val[4], p->o_val[5], -p->o_val[5]/p->o_val[6]/2, p->o_nhead);
117 
			if (fill)
118 
				fillend(vis, fill);
119 
			if (p->o_attr & CW_ARC)
120 
				move(x1, y1);	/* because drawn backwards */
121 
			move(ox, oy);
122 
			dotext(p);
123 
			break;
124 
		case LINE:
125 
		case ARROW:
126 
		case SPLINE:
127 
			if (fill) {
128 
				move(ox, oy);
129 
				fillstart(p->o_fillval);
130 
			}
131 
			if (vis && p->o_attr & HEAD1)
132 
				arrow(ox + p->o_val[5], oy + p->o_val[6], ox, oy, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
133 
                        if (invis && !fill)
134 
                                move(x1, y1);
135 
			else if (p->o_type == SPLINE)
136 
				spline(ox, oy, p->o_val[4], &p->o_val[5], p->o_attr & (DOTBIT|DASHBIT), p->o_ddval);
137 
			else {
138 
				dx = ox;
139 
				dy = oy;
140 
				for (k=0, j=5; k < p->o_val[4]; k++, j += 2) {
141 
					ndx = dx + p->o_val[j];
142 
					ndy = dy + p->o_val[j+1];
143 
					if (p->o_attr & (DOTBIT|DASHBIT))
144 
						dotline(dx, dy, ndx, ndy, p->o_attr, p->o_ddval);
145 
					else
146 
						line(dx, dy, ndx, ndy);
147 
					dx = ndx;
148 
					dy = ndy;
149 
				}
150 
			}
151 
			if (vis && p->o_attr & HEAD2) {
152 
				dx = ox;
153 
				dy = oy;
154 
				for (k = 0, j = 5; k < p->o_val[4] - 1; k++, j += 2) {
155 
					dx += p->o_val[j];
156 
					dy += p->o_val[j+1];
157 
				}
158 
				arrow(dx, dy, x1, y1, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
159 
			}
160 
			if (fill)
161 
				fillend(vis, fill);
162 
			move((ox + x1)/2, (oy + y1)/2);	/* center */
163 
			dotext(p);
164 
			break;
165 
		case MOVE:
166 
			move(ox, oy);
167 
			break;
168 
		case TEXT:
169 
			move(ox, oy);
170 
                        if (vis)
171 
				dotext(p);
172 
			break;
173 
		}
174 
	}
175 
}
176 
 
177 
void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted line */
178 
{
179 
	static double prevval = 0.05;	/* 20 per inch by default */
180 
	int i, numdots;
181 
	double a, b, dx, dy;
182 
 
183 
	if (ddval == 0)
184 
		ddval = prevval;
185 
	prevval = ddval;
186 
	/* don't save dot/dash value */
187 
	dx = x1 - x0;
188 
	dy = y1 - y0;
189 
	if (ddtype & DOTBIT) {
190 
		numdots = sqrt(dx*dx + dy*dy) / prevval + 0.5;
191 
		if (numdots > 0)
192 
			for (i = 0; i <= numdots; i++) {
193 
				a = (double) i / (double) numdots;
194 
				move(x0 + (a * dx), y0 + (a * dy));
195 
				dot();
196 
			}
197 
	} else if (ddtype & DASHBIT) {
198 
		double d, dashsize, spacesize;
199 
		d = sqrt(dx*dx + dy*dy);
200 
		if (d <= 2 * prevval) {
201 
			line(x0, y0, x1, y1);
202 
			return;
203 
		}
204 
		numdots = d / (2 * prevval) + 1;	/* ceiling */
205 
		dashsize = prevval;
206 
		spacesize = (d - numdots * dashsize) / (numdots - 1);
207 
		for (i = 0; i < numdots-1; i++) {
208 
			a = i * (dashsize + spacesize) / d;
209 
			b = a + dashsize / d;
210 
			line(x0 + (a*dx), y0 + (a*dy), x0 + (b*dx), y0 + (b*dy));
211 
			a = b;
212 
			b = a + spacesize / d;
213 
			move(x0 + (a*dx), y0 + (a*dy));
214 
		}
215 
		line(x0 + (b * dx), y0 + (b * dy), x1, y1);
216 
	}
217 
	prevval = 0.05;
218 
}
219 
 
220 
void dotbox(double x0, double y0, double x1, double y1, int ddtype, double ddval)	/* dotted or dashed box */
221 
{
222 
	dotline(x0, y0, x1, y0, ddtype, ddval);
223 
	dotline(x1, y0, x1, y1, ddtype, ddval);
224 
	dotline(x1, y1, x0, y1, ddtype, ddval);
225 
	dotline(x0, y1, x0, y0, ddtype, ddval);
226 
}
227 
 
228 
void dotext(obj *p)	/* print text strings of p in proper vertical spacing */
229 
{
230 
	int i, nhalf;
231 
	void label(char *, int, int);
232 
 
233 
	nhalf = p->o_nt2 - p->o_nt1 - 1;
234 
	for (i = p->o_nt1; i < p->o_nt2; i++) {
235 
		label(text[i].t_val, text[i].t_type, nhalf);
236 
		nhalf -= 2;
237 
	}
238 
}