void
plD_tidy_tek(PLStream *pls)
{
if ( ! pls->termin) {
fclose(pls->OutFile);
} else {
tek_text(pls);
fflush(pls->OutFile);
}
}
void
plD_esc_tek(PLStream *pls, PLINT op, void *ptr)
{
switch (op) {
case PLESC_TEXT:
tek_text(pls);
break;
case PLESC_GRAPH:
tek_graph(pls);
break;
case PLESC_FILL:
fill_polygon(pls);
break;
case PLESC_GETC:
GetCursor(pls, (PLGraphicsIn *) ptr);
break;
}
}
void
plD_tidy_tek(void)
{
tek_text();
}