tprint.c - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
tprint.c (4495B)
---
1 #include <stdio.h>
2 #include <math.h>
3 #include "pic.h"
4 #include "y.tab.h"
5
6 void dotext(obj *);
7 void ellipse(double, double, double, double);
8 void circle(double, double, double);
9 void arc(double, double, double, double, double, double, double);
10 void arrow(double, double, double, double, double, double, double, int);
11 void line(double, double, double, double, int, double);
12 void box(double, double, double, double, int, double);
13 void spline(double x, double y, double n, ofloat *p, int dashed, double ddval);
14 void move(double, double);
15 void troff(char *);
16 void dot(void);
17 void fillstart(double, int, int), fillend(void);
18
19 void print(void)
20 {
21 obj *p;
22 int i, j, k, m;
23 int fill, vis, invis;
24 double x0, y0, x1, y1, ox, oy, dx, dy, ndx, ndy;
25
26 x1 = y1 = 0.0; /* Botch? (gcc) */
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, vis, fill);
53 }
54 if (p->o_type == BLOCK)
55 ; /* nothing at all */
56 else if (invis && !fill)
57 ; /* nothing at all */
58 else
59 box(x0, y0, x1, y1, p->o_attr & (DOTBIT|DASHBIT), p->o_ddval);
60 if (fill)
61 fillend();
62 move(ox, oy);
63 dotext(p); /* if there are any text strings */
64 if (ishor(m))
65 move(isright(m) ? x1 : x0, oy); /* right side */
66 else
67 move(ox, isdown(m) ? y0 : y1); /* bottom */
68 break;
69 case BLOCKEND:
70 break;
71 case CIRCLE:
72 if (fill)
73 fillstart(p->o_fillval, vis, fill);
74 if (vis || fill)
75 circle(ox, oy, x1);
76 if (fill)
77 fillend();
78 move(ox, oy);
79 dotext(p);
80 if (ishor(m))
81 move(ox + isright(m) ? x1 : -x1, oy);
82 else
83 move(ox, oy + isup(m) ? x1 : -x1);
84 break;
85 case ELLIPSE:
86 if (fill)
87 fillstart(p->o_fillval, vis, fill);
88 if (vis || fill)
89 ellipse(ox, oy, x1, y1);
90 if (fill)
91 fillend();
92 move(ox, oy);
93 dotext(p);
94 if (ishor(m))
95 move(ox + isright(m) ? x1 : -x1, oy);
96 else
97 move(ox, oy - isdown(m) ? y1 : -y1);
98 break;
99 case ARC:
100 if (fill) {
101 move(ox, oy);
102 fillstart(p->o_fillval, vis, fill);
103 }
104 if (p->o_attr & HEAD1)
105 arrow(x1 - (y1 - oy), y1 + (x1 - ox),
106 x1, y1, p->o_val[4], p->o_val[5], p->o_val[5]/p->o_val[6]/2, p->o_nhead);
107 if (invis && !fill)
108 /* probably wrong when it's cw */
109 move(x1, y1);
110 else
111 arc(ox, oy, x1, y1, p->o_val[2], p->o_val[3], p->o_val[6]);
112 if (p->o_attr & HEAD2)
113 arrow(p->o_val[2] + p->o_val[3] - oy, p->o_val[3] - (p->o_val[2] - ox),
114 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);
115 if (fill)
116 fillend();
117 if (p->o_attr & CW_ARC)
118 move(x1, y1); /* because drawn backwards */
119 move(ox, oy);
120 dotext(p);
121 break;
122 case LINE:
123 case ARROW:
124 case SPLINE:
125 if (fill) {
126 move(ox, oy);
127 fillstart(p->o_fillval, vis, fill);
128 }
129 if (vis && p->o_attr & HEAD1)
130 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);
131 if (invis && !fill)
132 move(x1, y1);
133 else if (p->o_type == SPLINE)
134 spline(ox, oy, p->o_val[4], &p->o_val[5], p->o_attr & (DOTBIT|DASHBIT), p->o_ddval);
135 else {
136 dx = ox;
137 dy = oy;
138 for (k=0, j=5; k < p->o_val[4]; k++, j += 2) {
139 ndx = dx + p->o_val[j];
140 ndy = dy + p->o_val[j+1];
141 line(dx, dy, ndx, ndy, p->o_attr & (DOTBIT|DASHBIT), p->o_ddval);
142 dx = ndx;
143 dy = ndy;
144 }
145 }
146 if (vis && p->o_attr & HEAD2) {
147 dx = ox;
148 dy = oy;
149 for (k = 0, j = 5; k < p->o_val[4] - 1; k++, j += 2) {
150 dx += p->o_val[j];
151 dy += p->o_val[j+1];
152 }
153 arrow(dx, dy, x1, y1, p->o_val[2], p->o_val[3], 0.0, p->o_nhead);
154 }
155 if (fill)
156 fillend();
157 move((ox + x1)/2, (oy + y1)/2); /* center */
158 dotext(p);
159 break;
160 case MOVE:
161 move(ox, oy);
162 break;
163 case TEXT:
164 move(ox, oy);
165 if (vis)
166 dotext(p);
167 break;
168 }
169 }
170 }
171
172 void dotext(obj *p) /* print text strings of p in proper vertical spacing */
173 {
174 int i, nhalf;
175 void label(char *, int, int);
176
177 nhalf = p->o_nt2 - p->o_nt1 - 1;
178 for (i = p->o_nt1; i < p->o_nt2; i++) {
179 label(text[i].t_val, text[i].t_type, nhalf);
180 nhalf -= 2;
181 }
182 }