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
|
/* This file contains the linewidth method, which is a GNU extension to
libplot. It sets a drawing attribute: the line width used in subsequent
drawing operations, in user units. */
/* This version may be applied only to FigPlotter objects, since its
version of the internal routine _device_line_width is customized for
xfig. xfig expresses line widths in terms of `Fig display units' rather
than `Fig units'. */
#include "sys-defines.h"
#include "plot.h"
#include "extern.h"
int
#ifdef _HAVE_PROTOS
_f_flinewidth (double new_line_width)
#else
_f_flinewidth (new_line_width)
double new_line_width;
#endif
{
double device_line_width;
int quantized_device_line_width;
if (!_plotter->open)
{
_plotter->error ("flinewidth: invalid operation");
return -1;
}
/* invoke generic method */
_g_flinewidth(new_line_width);
/* xfig expresses line widths in terms of `Fig display units', so we
scale appropriately */
device_line_width =
FIG_UNITS_TO_FIG_DISPLAY_UNITS (_plotter->drawstate->device_line_width);
/* don't use 0-width lines if user specified nonzero width */
quantized_device_line_width = IROUND(device_line_width);
if (quantized_device_line_width == 0 && device_line_width > 0.0)
quantized_device_line_width = 1;
_plotter->drawstate->device_line_width = device_line_width;
_plotter->drawstate->quantized_device_line_width
= quantized_device_line_width;
return 0;
}
|
