File: t_closepl.c

package info (click to toggle)
plotutils 2.4.1-15
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 11,072 kB
  • ctags: 6,952
  • sloc: ansic: 76,305; cpp: 12,402; sh: 8,475; yacc: 2,604; makefile: 894; lex: 144
file content (35 lines) | stat: -rw-r--r-- 840 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#include "sys-defines.h"
#include "extern.h"

bool
#ifdef _HAVE_PROTOS
_t_end_page (S___(Plotter *_plotter))
#else
_t_end_page (S___(_plotter))
     S___(Plotter *_plotter;)
#endif
{
  _tek_move (R___(_plotter) 0, 0); /* go to lower left corner in Tek space */
  _tek_mode (R___(_plotter) MODE_ALPHA); /* switch to alpha mode */

  switch (_plotter->tek_display_type) /* exit from Tek mode */
    {
    case D_KERMIT:
      /* use VT340 command to exit graphics mode */
      _write_string (_plotter->data, "\033[?38l");
      /* following command may be an alternative */
      /*
	_write_string (_plotter->data, "\030");
      */
      break;
    case D_XTERM:
      /* ESC C-c, restore to VT102 mode */
      _write_string (_plotter->data, "\033\003"); 
      break;
    case D_GENERIC:
    default:
      break;
    }

  return true;
}