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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
#include "sys-defines.h"
#include "extern.h"
bool
#ifdef _HAVE_PROTOS
_h_begin_page (S___(Plotter *_plotter))
#else
_h_begin_page (S___(_plotter))
S___(Plotter *_plotter;)
#endif
{
int i;
/* With each call to openpl(), we reset our knowledge of the HP-GL
internal state, i.e. the dynamic derived-class-specific data members
of the HPGL or PCL Plotter. The values are the same as are used in
initializing the Plotter (see h_defplot.c). */
/* reset any soft-defined colors in the pen color array */
for (i = 0; i < HPGL2_MAX_NUM_PENS; i++)
if (_plotter->hpgl_pen_defined[i] == 1) /* i.e. soft-defined */
_plotter->hpgl_pen_defined[i] = 0; /* i.e. undefined */
/* reset current pen */
_plotter->hpgl_pen = 1;
/* if we can soft-define pen colors, reset free_pen data member by
determining what the next free pen is */
{
bool undefined_pen_seen = false;
if (_plotter->hpgl_can_assign_colors) /* can soft-define pen colors */
for (i = 2; i < HPGL2_MAX_NUM_PENS; i++)
{
if (_plotter->hpgl_pen_defined[i] == 0)
/* at least one pen with number > 1 is not yet defined */
{
/* record which such was encountered first */
_plotter->hpgl_free_pen = i;
undefined_pen_seen = true;
break;
}
}
if (!undefined_pen_seen)
/* too many pens specified, can't soft-define colors */
_plotter->hpgl_can_assign_colors = false;
}
/* reset additional data members of Plotter */
_plotter->hpgl_bad_pen = false;
_plotter->hpgl_pendown = false;
_plotter->hpgl_pen_width = 0.001;
_plotter->hpgl_line_type = HPGL_L_SOLID;
_plotter->hpgl_cap_style = HPGL_CAP_BUTT;
_plotter->hpgl_join_style = HPGL_JOIN_MITER;
_plotter->hpgl_miter_limit = 5.0; /* default HP-GL/2 value */
_plotter->hpgl_fill_type = HPGL_FILL_SOLID_BI;
_plotter->hpgl_fill_option1 = 0.0;
_plotter->hpgl_fill_option2 = 0.0;
_plotter->hpgl_symbol_set = PCL_ROMAN_8;
_plotter->hpgl_spacing = 0;
_plotter->hpgl_posture = 0;
_plotter->hpgl_stroke_weight = 0;
_plotter->hpgl_pcl_typeface = STICK_TYPEFACE;
_plotter->hpgl_charset_lower = HP_ASCII;
_plotter->hpgl_charset_upper = HP_ASCII;
_plotter->hpgl_rel_char_height = 0.0;
_plotter->hpgl_rel_char_width = 0.0;
_plotter->hpgl_rel_label_rise = 0.0;
_plotter->hpgl_rel_label_run = 0.0;
_plotter->hpgl_tan_char_slant = 0.0;
_plotter->hpgl_position_is_unknown = true;
_plotter->hpgl_pos.x = 0;
_plotter->hpgl_pos.y = 0;
/* if a PCL Plotter, switch from PCL mode to HP-GL/2 mode */
_maybe_switch_to_hpgl (S___(_plotter));
/* output HP-GL prologue */
if (_plotter->hpgl_version == 2)
{
sprintf (_plotter->data->page->point, "BP;IN;");
_update_buffer (_plotter->data->page);
/* include HP-GL/2 `plot length' directive; important mostly for roll
plotters */
sprintf (_plotter->data->page->point, "PS%d;",
IROUND(_plotter->hpgl_plot_length));
_update_buffer (_plotter->data->page);
}
else
{
sprintf (_plotter->data->page->point, "IN;");
_update_buffer (_plotter->data->page);
}
/* make use of HP-GL's plotting-area rotation capability, if requested by
the HPGL_ROTATE parameter (this does not apply to PCL Plotters, for
which rotation=0 always) */
if (_plotter->hpgl_rotation != 0)
{
sprintf (_plotter->data->page->point, "RO%d;", _plotter->hpgl_rotation);
_update_buffer (_plotter->data->page);
}
/* Set scaling points P1, P2 at lower left and upper right corners of our
viewport; or more accurately, at the two points that (0,0) and (1,1),
which are the lower right and upper right corners in NDC space, get
mapped to. */
sprintf (_plotter->data->page->point, "IP%d,%d,%d,%d;",
IROUND(_plotter->hpgl_p1.x), IROUND(_plotter->hpgl_p1.y),
IROUND(_plotter->hpgl_p2.x), IROUND(_plotter->hpgl_p2.y));
_update_buffer (_plotter->data->page);
/* Set up `scaled device coordinates' within the viewport. All
coordinates in the output file will be scaled device coordinates, not
physical device coordinates. The range of scaled coordinates will be
independent of the viewport positioning, page size, etc.; see the
definitions of xmin,xmax,ymin,ymax in h_defplot.c. */
sprintf (_plotter->data->page->point, "SC%d,%d,%d,%d;",
IROUND (_plotter->data->xmin), IROUND (_plotter->data->xmax),
IROUND (_plotter->data->ymin), IROUND (_plotter->data->ymax));
_update_buffer (_plotter->data->page);
if (_plotter->hpgl_version == 2)
{
/* Begin to define a palette, by specifying a number of logical pens.
(All HP-GL/2 devices should support the `NP' instruction, even
though many support only a default palette.) */
if (_plotter->hpgl_can_assign_colors)
{
sprintf (_plotter->data->page->point, "NP%d;", HPGL2_MAX_NUM_PENS);
_update_buffer (_plotter->data->page);
}
/* use relative units for pen width */
sprintf (_plotter->data->page->point, "WU1;");
_update_buffer (_plotter->data->page);
}
/* select pen #1 (standard plotting convention) */
sprintf (_plotter->data->page->point, "SP1;");
_update_buffer (_plotter->data->page);
/* For HP-GL/2 devices, set transparency mode to `opaque', if the user
allows it. It should always be opaque to agree with libplot
conventions, but on some HP-GL/2 devices (mostly pen plotters) the
`TR' command allegedly does not NOP gracefully. */
if (_plotter->hpgl_version == 2 && _plotter->hpgl_use_opaque_mode)
{
sprintf (_plotter->data->page->point, "TR0;");
_update_buffer (_plotter->data->page);
}
/* freeze contents of output buffer, i.e. the initialization code we've
just written to it, so that any later invocation of erase(), i.e.,
erase_page(), won't remove it */
_freeze_outbuf (_plotter->data->page);
return true;
}
void
#ifdef _HAVE_PROTOS
_h_maybe_switch_to_hpgl (S___(Plotter *_plotter))
#else
_h_maybe_switch_to_hpgl (S___(_plotter))
S___(Plotter *_plotter;)
#endif
{
}
void
#ifdef _HAVE_PROTOS
_q_maybe_switch_to_hpgl (S___(Plotter *_plotter))
#else
_q_maybe_switch_to_hpgl (S___(_plotter))
S___(Plotter *_plotter;)
#endif
{
if (_plotter->data->page_number > 1) /* not first page */
/* eject previous page, by issuing PCL command */
{
strcpy (_plotter->data->page->point, "\f"); /* i.e. form feed */
_update_buffer (_plotter->data->page);
}
/* switch from PCL 5 to HP-GL/2 mode */
strcpy (_plotter->data->page->point, "\033%0B\n");
_update_buffer (_plotter->data->page);
}
|
