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
|
/* This file contains the pentype method, which is a GNU extension to
libplot. It sets a drawing attribute: whether or not a pen should be
used. (Objects drawn without a pen may still be filled.) */
/* This file also contains the filltype method, which is a GNU extension to
libplot. It sets a drawing attribute: the desaturation level of the
filling, for all objects created by the drawing operations that follow.
(For those that can be filled, that is; text cannot be filled.)
The argument to filltype ranges from 0 to 0xFFFF. The value 0 is
special; it signifies no filling at all (the object will be
transparent). The value 1 signifies that the fill color should be the
user-specified fill color, and a value of 0xFFFF signifies complete
desaturation of this color (i.e., white). Values intermediate between 1
and 0xFFFF yield intermediate saturations of the user-specified fill
color. An out-of-bounds argument resets the desaturation level to a
default value. */
#include "sys-defines.h"
#include "extern.h"
int
#ifdef _HAVE_PROTOS
_API_pentype (R___(Plotter *_plotter) int level)
#else
_API_pentype (R___(_plotter) level)
S___(Plotter *_plotter;)
int level;
#endif
{
if (!_plotter->data->open)
{
_plotter->error (R___(_plotter)
"pentype: invalid operation");
return -1;
}
_API_endpath (S___(_plotter)); /* flush path if any */
if ((level < 0) || (level > 0xffff))
/* OOB switches to default */
level = _default_drawstate.pen_type;
_plotter->drawstate->pen_type = level;
return 0;
}
int
#ifdef _HAVE_PROTOS
_API_filltype (R___(Plotter *_plotter) int level)
#else
_API_filltype (R___(_plotter) level)
S___(Plotter *_plotter;)
int level;
#endif
{
int red, green, blue;
double red_d, green_d, blue_d;
double desaturate;
plColor new_rgb;
if (!_plotter->data->open)
{
_plotter->error (R___(_plotter)
"filltype: invalid operation");
return -1;
}
_API_endpath (S___(_plotter)); /* flush path if any */
if ((level < 0) || (level > 0xffff))
/* OOB switches to default */
level = _default_drawstate.fill_type;
_plotter->drawstate->fill_type = level;
if (level == 0)
/* won't be doing filling, so stop right here */
return 0;
/* update fillcolor, taking fill type into account */
/* start with base fillcolor */
red = _plotter->drawstate->fillcolor_base.red;
green = _plotter->drawstate->fillcolor_base.green;
blue = _plotter->drawstate->fillcolor_base.blue;
/* scale each RGB from a 16-bit quantity to range [0.0,1.0] */
red_d = ((double)red)/0xFFFF;
green_d = ((double)green)/0xFFFF;
blue_d = ((double)blue)/0xFFFF;
/* fill_type, if nonzero, specifies the extent to which the nominal fill
color should be desaturated. 1 means no desaturation, 0xffff means
complete desaturation (white). */
desaturate = ((double)_plotter->drawstate->fill_type - 1.)/0xFFFE;
red_d = red_d + desaturate * (1.0 - red_d);
green_d = green_d + desaturate * (1.0 - green_d);
blue_d = blue_d + desaturate * (1.0 - blue_d);
/* restore each RGB to a 16-bit quantity (48 bits in all) */
new_rgb.red = IROUND(0xFFFF * red_d);
new_rgb.green = IROUND(0xFFFF * green_d);
new_rgb.blue = IROUND(0xFFFF * blue_d);
/* store actual fill color in drawing state */
_plotter->drawstate->fillcolor = new_rgb;
return 0;
}
|
