static char sccsid
[] = "@(#)ti.c 4.2 %G%";
/* ti.c: classify line intersections */
/* determine local environment for intersections */
if (i
>=nlin
) return(TOP
);
ku
= i
>0 ? lefdata(i
-1,c
) : 0;
kl
= lefdata(allh(i
) ? i
+1 : i
, c
);
if (ku
==2 && kl
==2) return(THRU
);
if (fullbot
[i
]== '=' || (dboxflg
&& (i
==0 || i
>= nlin
-1)))
kl
= c
>0 ? thish (i
,c
-1) : 0;
if (kl
<=1 && i
>0 && allh(up1(i
)))
kl
= c
>0 ? thish(up1(i
),c
-1) : 0;
if (kr
<=1 && i
>0 && allh(up1(i
)))
kr
= c
>0 ? thish(up1(i
), c
) : 0;
if (kl
== '=' && kr
== '=') return(THRU
);
if (kl
== '=') return(LEFT
);
if (kr
== '=') return(RIGHT
);
while (instead
[i
] && i
>0) i
--;