1 /* tv.c: draw vertical lines */
2 # include "t.h"
3 
4 void
5 drawvert(int start, int end, int c, int lwid)
6 {
7 	char	*exb = 0, *ext = 0;
8 	int	tp = 0, sl, ln, pos, epb, ept, vm;
9 
10 	end++;
11 	vm = 'v';
12 				/* note: nr 35 has value of 1m outside of linesize */
13 	while (instead[end])
14 		end++;
15 	for (ln = 0; ln < lwid; ln++) {
16 		epb = ept = 0;
17 		pos = 2 * ln - lwid + 1;
18 		if (pos != tp)
19 			Bprint(&tabout, "\\h'%dp'", pos - tp);
20 		tp = pos;
21 		if (end < nlin) {
22 			if (fullbot[end] || (!instead[end] && allh(end)))
23 				epb = 2;
24 			else
25 				switch (midbar(end, c)) {
26 				case '-':
27 					exb = "1v-.5m";
28 					break;
29 				case '=':
30 					exb = "1v-.5m";
31 					epb = 1;
32 					break;
33 				}
34 		}
35 		if (lwid > 1)
36 			switch (interh(end, c)) {
37 			case THRU:
38 				epb -= 1;
39 				break;
40 			case RIGHT:
41 				epb += (ln == 0 ? 1 : -1);
42 				break;
43 			case LEFT:
44 				epb += (ln == 1 ? 1 : -1);
45 				break;
46 			}
47 		if (lwid == 1)
48 			switch (interh(end, c)) {
49 			case THRU:
50 				epb -= 1;
51 				break;
52 			case RIGHT:
53 			case LEFT:
54 				epb += 1;
55 				break;
56 			}
57 		if (start > 0) {
58 			sl = start - 1;
59 			while (sl >= 0 && instead[sl])
60 				sl--;
61 			if (sl >= 0 && (fullbot[sl] || allh(sl)))
62 				ept = 0;
63 			else if (sl >= 0)
64 				switch (midbar(sl, c)) {
65 				case '-':
66 					ext = ".5m";
67 					break;
68 				case '=':
69 					ext = ".5m";
70 					ept = -1;
71 					break;
72 				default:
73 					vm = 'm';
74 					break;
75 				}
76 			else
77 				ept = -4;
78 		} else if (start == 0 && allh(0)) {
79 			ept = 0;
80 			vm = 'm';
81 		}
82 		if (lwid > 1)
83 			switch (interh(start, c)) {
84 			case THRU:
85 				ept += 1;
86 				break;
87 			case LEFT:
88 				ept += (ln == 0 ? 1 : -1);
89 				break;
90 			case RIGHT:
91 				ept += (ln == 1 ? 1 : -1);
92 				break;
93 			}
94 		else if (lwid == 1)
95 			switch (interh(start, c)) {
96 			case THRU:
97 				ept += 1;
98 				break;
99 			case LEFT:
100 			case RIGHT:
101 				ept -= 1;
102 				break;
103 			}
104 		if (exb)
105 			Bprint(&tabout, "\\v'%s'", exb);
106 		if (epb)
107 			Bprint(&tabout, "\\v'%dp'", epb);
108 		Bprint(&tabout, "\\s\\n(%d", LSIZE);
109 		if (linsize)
110 			Bprint(&tabout, "\\v'-\\n(%dp/6u'", LSIZE);
111 		Bprint(&tabout, "\\h'-\\n(#~u'");	 /* adjustment for T450 nroff boxes */
112 		Bprint(&tabout, "\\L'|\\n(#%cu-%s", linestop[start] + 'a' - 1,
113 		      vm == 'v' ? "1v" : "\\n(35u");
114 		if (ext)
115 			Bprint(&tabout, "-(%s)", ext);
116 		if (exb)
117 			Bprint(&tabout, "-(%s)", exb);
118 		pos = ept - epb;
119 		if (pos)
120 			Bprint(&tabout, "%s%dp", pos >= 0 ? "+" : "", pos);
121 		/* the string #d is either "nl" or ".d" depending
122 	   on diversions; on GCOS not the same */
123 		Bprint(&tabout, "'\\s0\\v'\\n(\\*(#du-\\n(#%cu+%s",
124 		     linestop[start] + 'a' - 1, vm == 'v' ? "1v" : "\\n(35u");
125 		if (ext)
126 			Bprint(&tabout, "+%s", ext);
127 		if (ept)
128 			Bprint(&tabout, "%s%dp", (-ept) > 0 ? "+" : "", (-ept));
129 		Bprint(&tabout, "'");
130 		if (linsize)
131 			Bprint(&tabout, "\\v'\\n(%dp/6u'", LSIZE);
132 	}
133 }
134 
135 
136 int
137 midbar(int i, int c)
138 {
139 	int	k;
140 
141 	k = midbcol(i, c);
142 	if (k == 0 && c > 0)
143 		k = midbcol(i, c - 1);
144 	return(k);
145 }
146 
147 
148 int
149 midbcol(int i, int c)
150 {
151 	int	ct;
152 
153 	while ( (ct = ctype(i, c)) == 's')
154 		c--;
155 	if (ct == '-' || ct == '=')
156 		return(ct);
157 	if (ct = barent(table[i][c].col))
158 		return(ct);
159 	return(0);
160 }
161 
162 
163 int
164 barent(char *s)
165 {
166 	if (s == 0)
167 		return (1);
168 	if (!point(s))
169 		return(0);
170 	if (s[0] == '\\')
171 		s++;
172 	if (s[1] != 0)
173 		return(0);
174 	switch (s[0]) {
175 	case '_':
176 		return('-');
177 	case '=':
178 		return('=');
179 	}
180 	return(0);
181 }