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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
/* The internal point-drawing function, which point() is a wrapper around.
It draws a point at the current location. There is no standard
definition of `point', so any Plotter is free to implement this as it
sees fit. */
#include "sys-defines.h"
#include "extern.h"
/* size of a `point' as fraction of diagonal distance between scaling
points P1 and P2, i.e. as fraction of distance between opposite corners
of the viewport */
#define POINT_HPGL_SIZE 0.0001
void
#ifdef _HAVE_PROTOS
_h_paint_point (S___(Plotter *_plotter))
#else
_h_paint_point (S___(_plotter))
S___(Plotter *_plotter;)
#endif
{
int saved_join_type, saved_cap_type;
if (_plotter->drawstate->pen_type != 0)
/* have a pen to draw with */
{
/* Sync pen color. This may set the _plotter->hpgl_bad_pen flag (if
optimal pen is #0 [white] and we're not allowed to use pen #0 to
draw with). So we test _plotter->hpgl_bad_pen before drawing the
point (see below). */
_h_set_pen_color (R___(_plotter) HPGL_OBJECT_PATH);
/* temporarily store line attributes */
saved_join_type = _plotter->drawstate->join_type;
saved_cap_type = _plotter->drawstate->cap_type;
_plotter->drawstate->join_type = JOIN_ROUND;
_plotter->drawstate->cap_type = CAP_ROUND;
/* sync line attributes and pen position */
_h_set_attributes (S___(_plotter));
_h_set_position (S___(_plotter));
/* we wish to set a pen width in terms of HP-GL coordinates, which
_h_set_attributes can't do; so we do it specially */
if (_plotter->hpgl_version == 2)
{
if (_plotter->hpgl_pen_width != POINT_HPGL_SIZE)
{
sprintf (_plotter->data->page->point, "PW%.4f;",
100.0 * POINT_HPGL_SIZE);
_update_buffer (_plotter->data->page);
_plotter->hpgl_pen_width = POINT_HPGL_SIZE;
}
}
if (_plotter->hpgl_bad_pen == false)
/* no problems with nonexistent pen */
{
if (_plotter->hpgl_pendown == false)
/* N.B. if pen were down, point would be invisible */
{
strcpy (_plotter->data->page->point, "PD;");
_update_buffer (_plotter->data->page);
_plotter->hpgl_pendown = true;
}
strcpy (_plotter->data->page->point, "PU;");
_update_buffer (_plotter->data->page);
_plotter->hpgl_pendown = false;
}
/* restore line attributes */
_plotter->drawstate->join_type = saved_join_type;
_plotter->drawstate->cap_type = saved_cap_type;
}
}
|
