Commit | Line | Data |
---|---|---|
cad317cf C |
1 | // -*- C++ -*- |
2 | /* Copyright (C) 1989, 1990 Free Software Foundation, Inc. | |
3 | Written by James Clark (jjc@jclark.uucp) | |
4 | ||
5 | This file is part of groff. | |
6 | ||
7 | groff is free software; you can redistribute it and/or modify it under | |
8 | the terms of the GNU General Public License as published by the Free | |
9 | Software Foundation; either version 1, or (at your option) any later | |
10 | version. | |
11 | ||
12 | groff is distributed in the hope that it will be useful, but WITHOUT ANY | |
13 | WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
14 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
15 | for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License along | |
18 | with groff; see the file LICENSE. If not, write to the Free Software | |
19 | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
20 | ||
21 | #include "eqn.h" | |
22 | #include "pbox.h" | |
23 | ||
24 | class accent_box : public pointer_box { | |
25 | private: | |
26 | box *ab; | |
27 | public: | |
28 | accent_box(box *, box *); | |
29 | ~accent_box(); | |
30 | int compute_metrics(int); | |
31 | void output(); | |
32 | void debug_print(); | |
33 | void check_tabs(int); | |
34 | }; | |
35 | ||
36 | box *make_accent_box(box *p, box *q) | |
37 | { | |
38 | return new accent_box(p, q); | |
39 | } | |
40 | ||
41 | accent_box::accent_box(box *pp, box *qq) : ab(qq), pointer_box(pp) | |
42 | { | |
43 | } | |
44 | ||
45 | accent_box::~accent_box() | |
46 | { | |
47 | delete ab; | |
48 | } | |
49 | ||
50 | #if 0 | |
51 | int accent_box::compute_metrics(int style) | |
52 | { | |
53 | int r = p->compute_metrics(style); | |
54 | p->compute_skew(); | |
55 | ab->compute_metrics(style); | |
56 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]\n", uid, p->uid); | |
57 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
58 | printf(".nr " SUP_RAISE_FORMAT " \\n[" HEIGHT_FORMAT "]-%dM>?0\n", | |
59 | uid, p->uid, x_height); | |
60 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]+\\n[" | |
61 | SUP_RAISE_FORMAT "]\n", | |
62 | uid, ab->uid, uid); | |
63 | return r; | |
64 | } | |
65 | ||
66 | void accent_box::output() | |
67 | { | |
68 | printf("\\h'\\n[" WIDTH_FORMAT "]u-\\n[" WIDTH_FORMAT "]u/2u+\\n[" | |
69 | SKEW_FORMAT "]u'", | |
70 | p->uid, ab->uid, p->uid); | |
71 | printf("\\v'-\\n[" SUP_RAISE_FORMAT "]u'", uid); | |
72 | ab->output(); | |
73 | printf("\\h'-\\n[" WIDTH_FORMAT "]u'", ab->uid); | |
74 | printf("\\v'\\n[" SUP_RAISE_FORMAT "]u'", uid); | |
75 | printf("\\h'-(\\n[" WIDTH_FORMAT "]u-\\n[" WIDTH_FORMAT "]u/2u+\\n[" | |
76 | SKEW_FORMAT "]u)'", | |
77 | p->uid, ab->uid, p->uid); | |
78 | p->output(); | |
79 | } | |
80 | #endif | |
81 | ||
82 | /* This version copes with the possibility of an accent's being wider | |
83 | than its accentee. LEFT_WIDTH_FORMAT gives the distance from the | |
84 | left edge of the resulting box to the middle of the accentee's box.*/ | |
85 | ||
86 | int accent_box::compute_metrics(int style) | |
87 | { | |
88 | int r = p->compute_metrics(style); | |
89 | p->compute_skew(); | |
90 | ab->compute_metrics(style); | |
91 | printf(".nr " LEFT_WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]/2" | |
92 | ">?(\\n[" WIDTH_FORMAT "]/2-\\n[" SKEW_FORMAT "])\n", | |
93 | uid, p->uid, ab->uid, p->uid); | |
94 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]/2" | |
95 | ">?(\\n[" WIDTH_FORMAT "]/2+\\n[" SKEW_FORMAT "])" | |
96 | "+\\n[" LEFT_WIDTH_FORMAT "]\n", | |
97 | uid, p->uid, ab->uid, p->uid, uid); | |
98 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
99 | printf(".nr " SUP_RAISE_FORMAT " \\n[" HEIGHT_FORMAT "]-%dM>?0\n", | |
100 | uid, p->uid, x_height); | |
101 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]+\\n[" | |
102 | SUP_RAISE_FORMAT "]\n", | |
103 | uid, ab->uid, uid); | |
104 | if (r) | |
105 | printf(".nr " MARK_REG " +\\n[" LEFT_WIDTH_FORMAT "]" | |
106 | "-(\\n[" WIDTH_FORMAT "]/2)'\n", | |
107 | uid, p->uid); | |
108 | return r; | |
109 | } | |
110 | ||
111 | void accent_box::output() | |
112 | { | |
113 | printf("\\Z" DELIMITER_CHAR); | |
114 | printf("\\h'\\n[" LEFT_WIDTH_FORMAT "]u+\\n[" SKEW_FORMAT "]u" | |
115 | "-(\\n[" WIDTH_FORMAT "]u/2u)'", | |
116 | uid, p->uid, ab->uid); | |
117 | printf("\\v'-\\n[" SUP_RAISE_FORMAT "]u'", uid); | |
118 | ab->output(); | |
119 | printf(DELIMITER_CHAR); | |
120 | printf("\\Z" DELIMITER_CHAR); | |
121 | printf("\\h'\\n[" LEFT_WIDTH_FORMAT "]u-(\\n[" WIDTH_FORMAT "]u/2u)'", | |
122 | uid, p->uid); | |
123 | p->output(); | |
124 | printf(DELIMITER_CHAR); | |
125 | printf("\\h'\\n[" WIDTH_FORMAT "]u'", uid); | |
126 | } | |
127 | ||
128 | void accent_box::check_tabs(int level) | |
129 | { | |
130 | ab->check_tabs(level + 1); | |
131 | p->check_tabs(level + 1); | |
132 | } | |
133 | ||
134 | void accent_box::debug_print() | |
135 | { | |
136 | fprintf(stderr, "{ "); | |
137 | p->debug_print(); | |
138 | fprintf(stderr, " } accent { "); | |
139 | ab->debug_print(); | |
140 | fprintf(stderr, " }"); | |
141 | } | |
142 | ||
143 | class overline_char_box : public simple_box { | |
144 | public: | |
145 | overline_char_box(); | |
146 | void output(); | |
147 | void debug_print(); | |
148 | }; | |
149 | ||
150 | overline_char_box::overline_char_box() | |
151 | { | |
152 | } | |
153 | ||
154 | void overline_char_box::output() | |
155 | { | |
156 | printf("\\v'-%dM/2u-%dM'", 7*default_rule_thickness, x_height); | |
157 | printf((draw_flag ? "\\D'l%dM 0'" : "\\l'%dM\\&\\(ru'"), | |
158 | accent_width); | |
159 | printf("\\v'%dM/2u+%dM'", 7*default_rule_thickness, x_height); | |
160 | } | |
161 | ||
162 | void overline_char_box::debug_print() | |
163 | { | |
164 | fprintf(stderr, "<overline char>"); | |
165 | } | |
166 | ||
167 | class overline_box : public pointer_box { | |
168 | public: | |
169 | overline_box(box *); | |
170 | int compute_metrics(int); | |
171 | void output(); | |
172 | void debug_print(); | |
173 | }; | |
174 | ||
175 | box *make_overline_box(box *p) | |
176 | { | |
177 | if (p->is_char()) | |
178 | return new accent_box(p, new overline_char_box); | |
179 | else | |
180 | return new overline_box(p); | |
181 | } | |
182 | ||
183 | overline_box::overline_box(box *pp) : pointer_box(pp) | |
184 | { | |
185 | } | |
186 | ||
187 | int overline_box::compute_metrics(int style) | |
188 | { | |
189 | int r = p->compute_metrics(cramped_style(style)); | |
190 | // 9 | |
191 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]+%dM\n", | |
192 | uid, p->uid, default_rule_thickness*5); | |
193 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]\n", uid, p->uid); | |
194 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
195 | return r; | |
196 | } | |
197 | ||
198 | void overline_box::output() | |
199 | { | |
200 | // 9 | |
201 | printf("\\Z" DELIMITER_CHAR); | |
202 | printf("\\v'-\\n[" HEIGHT_FORMAT "]u-(%dM/2u)'", | |
203 | p->uid, 7*default_rule_thickness); | |
204 | if (draw_flag) | |
205 | printf("\\D'l\\n[" WIDTH_FORMAT "]u 0'", p->uid); | |
206 | else | |
207 | printf("\\l'\\n[" WIDTH_FORMAT "]u\\&\\(ru'", p->uid); | |
208 | printf(DELIMITER_CHAR); | |
209 | p->output(); | |
210 | } | |
211 | ||
212 | void overline_box::debug_print() | |
213 | { | |
214 | fprintf(stderr, "{ "); | |
215 | p->debug_print(); | |
216 | fprintf(stderr, " } bar"); | |
217 | } | |
218 | ||
219 | class uaccent_box : public pointer_box { | |
220 | box *ab; | |
221 | public: | |
222 | uaccent_box(box *, box *); | |
223 | ~uaccent_box(); | |
224 | int compute_metrics(int); | |
225 | void output(); | |
226 | void compute_subscript_kern(); | |
227 | void check_tabs(int); | |
228 | void debug_print(); | |
229 | }; | |
230 | ||
231 | box *make_uaccent_box(box *p, box *q) | |
232 | { | |
233 | return new uaccent_box(p, q); | |
234 | } | |
235 | ||
236 | uaccent_box::uaccent_box(box *pp, box *qq) | |
237 | : pointer_box(pp), ab(qq) | |
238 | { | |
239 | } | |
240 | ||
241 | uaccent_box::~uaccent_box() | |
242 | { | |
243 | delete ab; | |
244 | } | |
245 | ||
246 | int uaccent_box::compute_metrics(int style) | |
247 | { | |
248 | int r = p->compute_metrics(style); | |
249 | ab->compute_metrics(style); | |
250 | printf(".nr " LEFT_WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]/2" | |
251 | ">?(\\n[" WIDTH_FORMAT "]/2)\n", | |
252 | uid, p->uid, ab->uid); | |
253 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]/2" | |
254 | ">?(\\n[" WIDTH_FORMAT "]/2)" | |
255 | "+\\n[" LEFT_WIDTH_FORMAT "]\n", | |
256 | uid, p->uid, ab->uid, uid); | |
257 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]\n", uid, p->uid); | |
258 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]" | |
259 | "+\\n[" DEPTH_FORMAT "]\n", | |
260 | uid, p->uid, ab->uid); | |
261 | if (r) | |
262 | printf(".nr " MARK_REG " +\\n[" LEFT_WIDTH_FORMAT "]" | |
263 | "-(\\n[" WIDTH_FORMAT "]/2)'\n", | |
264 | uid, p->uid); | |
265 | return r; | |
266 | } | |
267 | ||
268 | void uaccent_box::output() | |
269 | { | |
270 | printf("\\Z" DELIMITER_CHAR); | |
271 | printf("\\h'\\n[" LEFT_WIDTH_FORMAT "]u-(\\n[" WIDTH_FORMAT "]u/2u)'", | |
272 | uid, ab->uid); | |
273 | printf("\\v'\\n[" DEPTH_FORMAT "]u'", p->uid); | |
274 | ab->output(); | |
275 | printf(DELIMITER_CHAR); | |
276 | printf("\\Z" DELIMITER_CHAR); | |
277 | printf("\\h'\\n[" LEFT_WIDTH_FORMAT "]u-(\\n[" WIDTH_FORMAT "]u/2u)'", | |
278 | uid, p->uid); | |
279 | p->output(); | |
280 | printf(DELIMITER_CHAR); | |
281 | printf("\\h'\\n[" WIDTH_FORMAT "]u'", uid); | |
282 | } | |
283 | ||
284 | void uaccent_box::check_tabs(int level) | |
285 | { | |
286 | ab->check_tabs(level + 1); | |
287 | p->check_tabs(level + 1); | |
288 | } | |
289 | ||
290 | void uaccent_box::compute_subscript_kern() | |
291 | { | |
292 | box::compute_subscript_kern(); // want 0 subscript kern | |
293 | } | |
294 | ||
295 | void uaccent_box::debug_print() | |
296 | { | |
297 | fprintf(stderr, "{ "); | |
298 | p->debug_print(); | |
299 | fprintf(stderr, " } uaccent { "); | |
300 | ab->debug_print(); | |
301 | fprintf(stderr, " }"); | |
302 | } | |
303 | ||
304 | class underline_char_box : public simple_box { | |
305 | public: | |
306 | underline_char_box(); | |
307 | void output(); | |
308 | void debug_print(); | |
309 | }; | |
310 | ||
311 | underline_char_box::underline_char_box() | |
312 | { | |
313 | } | |
314 | ||
315 | void underline_char_box::output() | |
316 | { | |
317 | printf("\\v'%dM/2u'", 7*default_rule_thickness); | |
318 | printf((draw_flag ? "\\D'l%dM 0'" : "\\l'%dM\\&\\(ru'"), | |
319 | accent_width); | |
320 | printf("\\v'-%dM/2u'", 7*default_rule_thickness); | |
321 | } | |
322 | ||
323 | void underline_char_box::debug_print() | |
324 | { | |
325 | fprintf(stderr, "<underline char>"); | |
326 | } | |
327 | ||
328 | ||
329 | class underline_box : public pointer_box { | |
330 | public: | |
331 | underline_box(box *); | |
332 | int compute_metrics(int); | |
333 | void output(); | |
334 | void compute_subscript_kern(); | |
335 | void debug_print(); | |
336 | }; | |
337 | ||
338 | box *make_underline_box(box *p) | |
339 | { | |
340 | if (p->is_char()) | |
341 | return new uaccent_box(p, new underline_char_box); | |
342 | else | |
343 | return new underline_box(p); | |
344 | } | |
345 | ||
346 | underline_box::underline_box(box *pp) : pointer_box(pp) | |
347 | { | |
348 | } | |
349 | ||
350 | int underline_box::compute_metrics(int style) | |
351 | { | |
352 | int r = p->compute_metrics(style); | |
353 | // 10 | |
354 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]+%dM\n", | |
355 | uid, p->uid, default_rule_thickness*5); | |
356 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]\n", uid, p->uid); | |
357 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]\n", uid, p->uid); | |
358 | return r; | |
359 | } | |
360 | ||
361 | void underline_box::output() | |
362 | { | |
363 | // 10 | |
364 | printf("\\Z" DELIMITER_CHAR); | |
365 | printf("\\v'\\n[" DEPTH_FORMAT "]u+(%dM/2u)'", | |
366 | p->uid, 7*default_rule_thickness); | |
367 | if (draw_flag) | |
368 | printf("\\D'l\\n[" WIDTH_FORMAT "]u 0'", p->uid); | |
369 | else | |
370 | printf("\\l'\\n[" WIDTH_FORMAT "]u\\&\\(ru'", p->uid); | |
371 | printf(DELIMITER_CHAR); | |
372 | p->output(); | |
373 | } | |
374 | ||
375 | // we want an underline box to have 0 subscript kern | |
376 | ||
377 | void underline_box::compute_subscript_kern() | |
378 | { | |
379 | box::compute_subscript_kern(); | |
380 | } | |
381 | ||
382 | void underline_box::debug_print() | |
383 | { | |
384 | fprintf(stderr, "{ "); | |
385 | p->debug_print(); | |
386 | fprintf(stderr, " } under"); | |
387 | } | |
388 | ||
389 | size_box::size_box(char *s, box *pp) : size(s), pointer_box(pp) | |
390 | { | |
391 | } | |
392 | ||
393 | int size_box::compute_metrics(int style) | |
394 | { | |
395 | printf(".nr " SIZE_FORMAT " \\n[.s]\n", uid); | |
396 | printf(".ps %s\n", size); | |
397 | printf(".nr " SMALL_SIZE_FORMAT " \\n[.s]\n", uid); | |
398 | int r = p->compute_metrics(style); | |
399 | printf(".ps \\n[" SIZE_FORMAT "]\n", uid); | |
400 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]\n", uid, p->uid); | |
401 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]\n", uid, p->uid); | |
402 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
403 | return r; | |
404 | } | |
405 | ||
406 | void size_box::output() | |
407 | { | |
408 | printf("\\s[\\n[" SMALL_SIZE_FORMAT "]]", uid); | |
409 | p->output(); | |
410 | printf("\\s[\\n[" SIZE_FORMAT "]]", uid); | |
411 | } | |
412 | ||
413 | size_box::~size_box() | |
414 | { | |
415 | delete size; | |
416 | } | |
417 | ||
418 | void size_box::debug_print() | |
419 | { | |
420 | fprintf(stderr, "size %s { ", size); | |
421 | p->debug_print(); | |
422 | fprintf(stderr, " }"); | |
423 | } | |
424 | ||
425 | ||
426 | font_box::font_box(char *s, box *pp) : pointer_box(pp), f(s) | |
427 | { | |
428 | } | |
429 | ||
430 | font_box::~font_box() | |
431 | { | |
432 | delete f; | |
433 | } | |
434 | ||
435 | int font_box::compute_metrics(int style) | |
436 | { | |
437 | const char *old_roman_font = current_roman_font; | |
438 | current_roman_font = f; | |
439 | printf(".nr " FONT_FORMAT " \\n[.f]\n", uid); | |
440 | printf(".ft %s\n", f); | |
441 | int r = p->compute_metrics(style); | |
442 | current_roman_font = old_roman_font; | |
443 | printf(".ft \\n[" FONT_FORMAT "]\n", uid); | |
444 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]\n", uid, p->uid); | |
445 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]\n", uid, p->uid); | |
446 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
447 | return r; | |
448 | } | |
449 | ||
450 | void font_box::output() | |
451 | { | |
452 | printf("\\f[%s]", f); | |
453 | const char *old_roman_font = current_roman_font; | |
454 | current_roman_font = f; | |
455 | p->output(); | |
456 | current_roman_font = old_roman_font; | |
457 | printf("\\f[\\n[" FONT_FORMAT "]]", uid); | |
458 | } | |
459 | ||
460 | void font_box::debug_print() | |
461 | { | |
462 | fprintf(stderr, "font %s { ", f); | |
463 | p->debug_print(); | |
464 | fprintf(stderr, " }"); | |
465 | } | |
466 | ||
467 | fat_box::fat_box(box *pp) : pointer_box(pp) | |
468 | { | |
469 | } | |
470 | ||
471 | int fat_box::compute_metrics(int style) | |
472 | { | |
473 | int r = p->compute_metrics(style); | |
474 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]+%dM\n", | |
475 | uid, p->uid, fat_offset); | |
476 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]\n", uid, p->uid); | |
477 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
478 | return r; | |
479 | } | |
480 | ||
481 | void fat_box::output() | |
482 | { | |
483 | p->output(); | |
484 | printf("\\h'-\\n[" WIDTH_FORMAT "]u'", p->uid); | |
485 | printf("\\h'%dM'", fat_offset); | |
486 | p->output(); | |
487 | } | |
488 | ||
489 | ||
490 | void fat_box::debug_print() | |
491 | { | |
492 | fprintf(stderr, "fat { "); | |
493 | p->debug_print(); | |
494 | fprintf(stderr, " }"); | |
495 | } | |
496 | ||
497 | ||
498 | vmotion_box::vmotion_box(int i, box *pp) : n(i), pointer_box(pp) | |
499 | { | |
500 | } | |
501 | ||
502 | int vmotion_box::compute_metrics(int style) | |
503 | { | |
504 | int r = p->compute_metrics(style); | |
505 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]\n", uid, p->uid); | |
506 | if (n > 0) { | |
507 | printf(".nr " HEIGHT_FORMAT " %dM+\\n[" HEIGHT_FORMAT "]\n", | |
508 | uid, n, p->uid); | |
509 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
510 | } | |
511 | else { | |
512 | printf(".nr " DEPTH_FORMAT " %dM+\\n[" DEPTH_FORMAT "]>?0\n", | |
513 | uid, -n, p->uid); | |
514 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]\n", | |
515 | uid, p->uid); | |
516 | } | |
517 | return r; | |
518 | } | |
519 | ||
520 | void vmotion_box::output() | |
521 | { | |
522 | printf("\\v'%dM'", -n); | |
523 | p->output(); | |
524 | printf("\\v'%dM'", n); | |
525 | } | |
526 | ||
527 | void vmotion_box::debug_print() | |
528 | { | |
529 | if (n >= 0) | |
530 | fprintf(stderr, "up %d { ", n); | |
531 | else | |
532 | fprintf(stderr, "down %d { ", -n); | |
533 | p->debug_print(); | |
534 | fprintf(stderr, " }"); | |
535 | } | |
536 | ||
537 | hmotion_box::hmotion_box(int i, box *pp) : n(i), pointer_box(pp) | |
538 | { | |
539 | } | |
540 | ||
541 | int hmotion_box::compute_metrics(int style) | |
542 | { | |
543 | int r = p->compute_metrics(style); | |
544 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]+%dM\n", | |
545 | uid, p->uid, n); | |
546 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]\n", uid, p->uid); | |
547 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]\n", uid, p->uid); | |
548 | if (r) | |
549 | printf(".nr " MARK_REG " +%dM\n", n); | |
550 | return r; | |
551 | } | |
552 | ||
553 | void hmotion_box::output() | |
554 | { | |
555 | printf("\\h'%dM'", n); | |
556 | p->output(); | |
557 | } | |
558 | ||
559 | void hmotion_box::debug_print() | |
560 | { | |
561 | if (n >= 0) | |
562 | fprintf(stderr, "fwd %d { ", n); | |
563 | else | |
564 | fprintf(stderr, "back %d { ", -n); | |
565 | p->debug_print(); | |
566 | fprintf(stderr, " }"); | |
567 | } | |
568 | ||
569 | vcenter_box::vcenter_box(box *pp) : pointer_box(pp) | |
570 | { | |
571 | } | |
572 | ||
573 | int vcenter_box::compute_metrics(int style) | |
574 | { | |
575 | int r = p->compute_metrics(style); | |
576 | printf(".nr " WIDTH_FORMAT " 0\\n[" WIDTH_FORMAT "]\n", uid, p->uid); | |
577 | printf(".nr " SUP_RAISE_FORMAT " \\n[" DEPTH_FORMAT "]-\\n[" | |
578 | HEIGHT_FORMAT "]/2+%dM\n", | |
579 | uid, p->uid, p->uid, axis_height); | |
580 | printf(".nr " HEIGHT_FORMAT " \\n[" HEIGHT_FORMAT "]+\\n[" | |
581 | SUP_RAISE_FORMAT "]>?0\n", uid, p->uid, uid); | |
582 | printf(".nr " DEPTH_FORMAT " \\n[" DEPTH_FORMAT "]-\\n[" | |
583 | SUP_RAISE_FORMAT "]>?0\n", uid, p->uid, uid); | |
584 | ||
585 | return r; | |
586 | } | |
587 | ||
588 | void vcenter_box::output() | |
589 | { | |
590 | printf("\\v'-\\n[" SUP_RAISE_FORMAT "]u'", uid); | |
591 | p->output(); | |
592 | printf("\\v'\\n[" SUP_RAISE_FORMAT "]u'", uid); | |
593 | } | |
594 | ||
595 | void vcenter_box::debug_print() | |
596 | { | |
597 | fprintf(stderr, "vcenter { "); | |
598 | p->debug_print(); | |
599 | fprintf(stderr, " }"); | |
600 | } | |
601 |