30 int icol, ilin, tsep, k, ik, vforml, il, text;  in maktab()  local
33 for(icol=0; icol <ncol; icol++)  in maktab()
35 	doubled[icol] = acase[icol] = 0;  in maktab()
36 	fprintf(tabout, ".nr %d 0\n", icol+CRIGHT);  in maktab()
40 		fprintf(tabout, ".%02d\n.rm %02d\n", icol+80, icol+80);  in maktab()
45 		for(il=prev(ilin); il>=0 && vspen(table[il][icol].col); il=prev(il))  in maktab()
47 		if (fspan(vforml,icol)) continue;  in maktab()
48 		if (filler(table[ilin][icol].col)) continue;  in maktab()
49 		switch(ctype(vforml,icol))  in maktab()
52 				acase[icol]=1;  in maktab()
53 				s = table[ilin][icol].col;  in maktab()
56 					if (doubled[icol]==0)  in maktab()
58 					doubled[icol]=1;  in maktab()
62 				if (table[ilin][icol].rcol!=0)  in maktab()
64 					if (doubled[icol]==0 && text==0)  in maktab()
66 					doubled[icol]=1;  in maktab()
67 					if (real(s=table[ilin][icol].col) && !vspen(s))  in maktab()
71 						wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n");  in maktab()
74 					if (text==0 && real(s=table[ilin][icol].rcol) && !vspen(s) && !barent(s))  in maktab()
84 				if (real(s=table[ilin][icol].col) && !vspen(s))  in maktab()
88 					wide(s, FN(vforml,icol), SZ(vforml,icol)); fprintf(tabout, "\n");  in maktab()
89 					fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", icol+CRIGHT, TMP, icol+CRIGHT, TMP);  in maktab()
94 	if (acase[icol])  in maktab()
96 		fprintf(tabout, ".if \\n(%d>=\\n(%d .nr %d \\n(%du+2n\n",S2,icol+CRIGHT,icol+CRIGHT,S2);  in maktab()
98 	if (doubled[icol])  in maktab()
100 		fprintf(tabout, ".nr %d \\n(%d\n", icol+CMID, S1);  in maktab()
101 		fprintf(tabout, ".nr %d \\n(%d+\\n(%d\n",TMP,icol+CMID,S2);  in maktab()
102 		fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n",TMP,icol+CRIGHT,icol+CRIGHT,TMP);  in maktab()
103 …fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d +(\\n(%d-\\n(%d)/2\n",TMP,icol+CRIGHT,icol+CMID,icol+CRI…  in maktab()
105 	if (cll[icol][0])  in maktab()
107 		fprintf(tabout, ".nr %d %sn\n", TMP, cll[icol]);  in maktab()
108 		fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",icol+CRIGHT, TMP, icol+CRIGHT, TMP);  in maktab()
111 	if (k=lspan(ilin, icol))  in maktab()
113 		s=table[ilin][icol-k].col;  in maktab()
116 		wide(table[ilin][icol-k].col, FN(ilin,icol-k), SZ(ilin,icol-k));  in maktab()
119 			fprintf(tabout, "-\\n(%d",CRIGHT+icol-ik);  in maktab()
120 			if (!expflg && ik>0) fprintf(tabout, "-%dn", sep[icol-ik]);  in maktab()
127 			if (doubled[icol-k+ik])  in maktab()
128 				fprintf(tabout, ".nr %d +\\n(%d/2\n", icol-k+ik+CMID, TMP);  in maktab()
129 			fprintf(tabout, ".nr %d +\\n(%d\n", icol-k+ik+CRIGHT, TMP);  in maktab()
140 	for(icol=0; icol<ncol; icol++)  in maktab()
142 		if (evenup[icol]==0) continue;  in maktab()
144 		icol+CRIGHT, TMP, TMP, icol+CRIGHT);  in maktab()
146 	for(icol=0; icol<ncol; icol++)  in maktab()
148 		if (evenup[icol]==0)  in maktab()
151 		if (doubled[icol])  in maktab()
153 				icol+CMID, icol+CMID, icol+CRIGHT, TMP);  in maktab()
157 		fprintf(tabout, ".nr %d \\n(%d\n", icol+CRIGHT, TMP);  in maktab()
161 for(tsep=icol=0; icol<ncol; icol++)  in maktab()
162 	tsep+= sep[icol];  in maktab()
166 	for(icol=0; icol<ncol; icol++)  in maktab()
167 		fprintf(tabout, "+\\n(%d", icol+CRIGHT);  in maktab()
181 for(icol=0; icol<ncol; icol++)  in maktab()
183 	fprintf(tabout, ".nr %d \\n(%d+(%d*\\n(%d)\n",icol+CLEFT, icol+CRIGHT-1, tsep, TMP);  in maktab()
184 	fprintf(tabout, ".nr %d +\\n(%d\n",icol+CRIGHT, icol+CLEFT);  in maktab()
185 	if (doubled[icol])  in maktab()
189 		fprintf(tabout, ".nr %d +\\n(%d\n", icol+CMID, icol+CLEFT);  in maktab()
192 	tsep=sep[icol];  in maktab()