version 1.154, 2010/06/28 23:26:09 |
version 1.155, 2010/06/30 12:27:55 |
Line 692 term_vspan(const struct termp *p, const struct roffsu |
|
Line 692 term_vspan(const struct termp *p, const struct roffsu |
|
size_t |
size_t |
term_hspan(const struct termp *p, const struct roffsu *su) |
term_hspan(const struct termp *p, const struct roffsu *su) |
{ |
{ |
double r; |
|
|
|
/* XXX: CM, IN, and PT are approximations. */ |
return((*p->hspan)(p, su)); |
|
|
switch (su->unit) { |
|
case (SCALE_CM): |
|
r = 4 * su->scale; |
|
break; |
|
case (SCALE_IN): |
|
/* XXX: this is an approximation. */ |
|
r = 10 * su->scale; |
|
break; |
|
case (SCALE_PC): |
|
r = (10 * su->scale) / 6; |
|
break; |
|
case (SCALE_PT): |
|
r = (10 * su->scale) / 72; |
|
break; |
|
case (SCALE_MM): |
|
r = su->scale / 1000; /* FIXME: double-check. */ |
|
break; |
|
case (SCALE_VS): |
|
r = su->scale * 2 - 1; /* FIXME: double-check. */ |
|
break; |
|
default: |
|
r = su->scale; |
|
break; |
|
} |
|
|
|
if (r < 0.0) |
|
r = 0.0; |
|
return((size_t)/* LINTED */ |
|
r); |
|
} |
} |
|
|
|
|