![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to picgen.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / picasso|
Return to picgen.c CVS log | Up to [Research Unix] / researchv10no / cmd / picasso |
1.1 root 1: /* Copyright (c) 1990 AT&T */
2: /* All Rights Reserved */
3:
4: /* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
5: /* The copyright notice above does not evidence any */
6: /* actual or intended publication of such source code. */
7:
8: /* @(#)picasso:picgen.c 1.0 */
9: #include "picasso.h"
10: #include "y.tab.h"
11:
12: obj *picgen()
13: {
14: static double prevht = HT;
15: static double prevwid = WID; /* golden mean, sort of */
16: static char *prevname = "";
17:
18: char *checkeps();
19: struct objattr obat;
20: double x0, y0, x1, y1, xwith, ywith;
21: char *epsname;
22: int i, at, with;
23: obj *p, *ppos;
24: Attr *ap;
25:
26: epsname = NULL;
27: obat.a_ht = 0;
28: obat.a_wid = 0;
29: obat.a_layer = (int)getfval("curlayer");
30: obat.a_flags = EDGED;
31: obat.a_weight = obat.a_lcolor = obat.a_pcolor = obat.a_tcolor = -1;
32: obat.a_dashpat.a = (float *)0;
33: set_text();
34: at = with = xwith = ywith = 0;
35: for (i = 0; i < nattr; i++) {
36: ap = &attr[i];
37: switch (ap->a_type) {
38: default:
39: miscattrs(ap, &obat);
40: break;
41: case SAME:
42: obat.a_ht = prevht;
43: obat.a_wid = prevwid;
44: epsname = prevname;
45: break;
46: case WITH:
47: with = ap->a_val.i; /* corner */
48: break;
49: case AT:
50: ppos = ap->a_val.o;
51: curx = Xformx(ppos, 1, ppos->o_x, ppos->o_y);
52: cury = Xformy(ppos, 0, ppos->o_x, ppos->o_y);
53: at++;
54: break;
55: }
56: }
57: /*
58: * The first text string should be used as the name of an
59: * Encapsulated PostScript file. If missing, or if not an
60: * EPSF, it's an error.
61: */
62: if ((epsname = checkeps(&obat, epsname)) == NULL)
63: return NULL;
64: if (with) {
65: switch (with) {
66: case NORTH: ywith = -obat.a_ht/2; break;
67: case SOUTH: ywith = obat.a_ht/2; break;
68: case EAST: xwith = -obat.a_wid/2; break;
69: case WEST: xwith = obat.a_wid/2; break;
70: case NE: xwith = -obat.a_wid/2;
71: ywith = -obat.a_ht/2; break;
72: case SE: xwith = -obat.a_wid/2;
73: ywith = obat.a_ht/2; break;
74: case NW: xwith = obat.a_wid/2;
75: ywith = -obat.a_ht/2; break;
76: case SW: xwith = obat.a_wid/2;
77: ywith = obat.a_ht/2; break;
78: case CENTER:
79: case START:
80: case END: break;
81: default: xwith = -obat.a_wid/2 * xdelta[with%8];
82: ywith = -obat.a_ht/2 * ydelta[with%8]; break;
83: }
84: curx += xwith;
85: cury += ywith;
86: }
87: if (!at) {
88: if (isright(hvmode))
89: curx += obat.a_wid/2;
90: else if (isleft(hvmode))
91: curx -= obat.a_wid/2;
92: else if (isup(hvmode))
93: cury += obat.a_ht/2;
94: else
95: cury -= obat.a_ht/2;
96: }
97: p = makenode(PSFILE, N_VAL+1, obat.a_layer);
98: p->o_val[N_VAL-1].p = epsname;
99: p->o_val[N_VAL].f = 0.; /* rounded corners, yet */
100: p->o_wid = obat.a_wid;
101: p->o_ht = obat.a_ht;
102: x0 = curx - obat.a_wid/2;
103: y0 = cury - obat.a_ht/2;
104: x1 = curx + obat.a_wid/2;
105: y1 = cury + obat.a_ht/2;
106: primattrs(p,&obat);
107: text_bounds(p);
108: track_bounds(x0-p->o_weight/2, y0-p->o_weight/2,
109: x1+p->o_weight/2, y1+p->o_weight/2);
110: if (isright(hvmode))
111: curx = x1;
112: else if (isleft(hvmode))
113: curx = x0;
114: else if (isup(hvmode))
115: cury = y1;
116: else
117: cury = y0;
118: prevht = obat.a_ht;
119: prevwid = obat.a_wid;
120: prevname = epsname;
121: return(p);
122: }
123:
124: char *
125: checkeps(obat, tname)
126: struct objattr *obat;
127: char *tname;
128: {
129: int urx, ury, llx, lly;
130: char buf[128];
131: FILE *fp;
132:
133: if (tname != NULL)
134: return tname;
135: if (ntext1 == ntext) { /* nostrings */
136: yyerror("no EPS file named");
137: return NULL;
138: }
139: tname = text[ntext1].t_val;
140: if ((fp = fopen(tname, "r")) == NULL) {
141: yyerror("can't read EPS file %s", tname);
142: return NULL;
143: }
144: ntext1++; /* filename is NOT one of the label strings */
145: llx = lly == - (urx = ury = -65535);
146: while (fgets(buf, 128, fp) != NULL) {
147: if (strncmp(buf, "%%BoundingBox:", 14) != 0)
148: continue;
149: llx = lly == - (urx = ury = -65535);
150: if (sscanf(buf+14, "%d %d %d %d", &llx, &lly, &urx, &ury) > 2)
151: break;
152: }
153: fclose(fp);
154: /* NOTE: if no BoundingBox comment was found, size will be 0x0 */
155: /* unless height and width were set explicitly */
156: if (urx < llx)
157: urx = llx;
158: if (ury < lly)
159: ury = lly;
160: if (obat->a_wid == 0 && obat->a_ht == 0) {
161: obat->a_wid = (double) (urx - llx) / pgscale;
162: obat->a_ht = (double) (ury - lly) / pgscale;
163: }
164: else if (obat->a_wid == 0 && ury - lly != 0)
165: obat->a_wid = obat->a_ht * (urx - llx) / (ury - lly);
166: else if (obat->a_ht == 0 && urx - llx != 0)
167: obat->a_ht = obat->a_wid * (ury - lly) / (urx - llx);
168: if (obat->a_wid == 0)
169: obat->a_wid = getfval("boxwid");
170: if (obat->a_ht == 0)
171: obat->a_ht = getfval("boxht");
172: return tname;
173: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.