1
/* This file is part of the GNU plotutils package. Copyright (C) 1995,
2
1996, 1997, 1998, 1999, 2000, 2005, Free Software Foundation, Inc.
4
The GNU plotutils package is free software. You may redistribute it
5
and/or modify it under the terms of the GNU General Public License as
6
published by the Free Software foundation; either version 2, or (at your
7
option) any later version.
9
The GNU plotutils package is distributed in the hope that it will be
10
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
11
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12
General Public License for more details.
14
You should have received a copy of the GNU General Public License along
15
with the GNU plotutils package; see the file COPYING. If not, write to
16
the Free Software Foundation, Inc., 51 Franklin St., Fifth Floor,
17
Boston, MA 02110-1301, USA. */
1
19
/* The internal point-drawing function, which point() is a wrapper around.
2
20
It draws a point at the current location. There is no standard
3
21
definition of `point', so any Plotter is free to implement this as it
40
53
/* emit an escape sequence if necessary, to switch to POINT mode */
41
_tek_mode (R___(_plotter) MODE_POINT);
54
_pl_t_tek_mode (R___(_plotter) TEK_MODE_POINT);
43
56
/* sync Tek's color too (significant only for kermit Tek emulator) */
44
_t_set_pen_color (S___(_plotter));
57
_pl_t_set_pen_color (S___(_plotter));
46
59
/* Output the point. If in fact we were already in POINT mode, this
47
60
is slightly suboptimal because we can't call
48
_tek_vector_compressed() to save (potentially) a few bytes,
61
_pl_t_tek_vector_compressed() to save (potentially) a few bytes,
49
62
because we don't know what the last-plotted point was. Unlike
50
63
when incrementally drawing a polyline, when plotting points we
51
64
don't keep track of "where we last were". */
52
_tek_vector (R___(_plotter) ixx, iyy);
65
_pl_t_tek_vector (R___(_plotter) ixx, iyy);
54
67
/* update our notion of Tek's notion of position */
55
68
_plotter->tek_pos.x = ixx;