File: r_openpl.c

package info (click to toggle)
plotutils 2.4.1-11
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 11,676 kB
  • ctags: 6,967
  • sloc: ansic: 76,305; sh: 15,172; cpp: 12,403; yacc: 2,604; makefile: 888; lex: 144
file content (29 lines) | stat: -rw-r--r-- 743 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
/* This version is for ReGIS Plotters. */

#include "sys-defines.h"
#include "extern.h"

bool
#ifdef _HAVE_PROTOS
_r_begin_page (S___(Plotter *_plotter))
#else
_r_begin_page (S___(_plotter))
     S___(Plotter *_plotter;)
#endif
{
  /* send graphics initialization commands to output stream */

  /* clear terminal screen */
  _write_string (_plotter->data, "\033[2J");
  /* enter ReGIS graphics */
  _write_string (_plotter->data, "\033P1p");
  /* turn off graphics cursor */
  _write_string (_plotter->data, "S(C0)\n");

  /* copy libplot's background color to internal ReGIS state */
  _r_set_bg_color (S___(_plotter));
  /* erase screen (causing background color to show up) */
  _write_string (_plotter->data, "S(E)\n");

  return true;
}