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
|
/********************************************************************
* code in this file is designed to send raster data to the graphics
* driver. It handles raster->color lookup translation, as well as
* loading appropriate colormaps into the driver and the sending of
* raster data to the plotter. The loading of colors is designed to
* never send more colors than the hardware can support - even though
* the GRASS drivers will allocate virtual colormaps to pretend there are more
* This code effectively disables that driver feature/mistake.
*
* To simply plot raster data:
*
* to specify if overlay mode is to be used
* D_set_overlay_mode(flag)
* int flag; /1=yes,0=no/
*
* to select a raster color for line drawing
* D_color (cat, colors)
* CELL cat
* struct Colors *colors; /color info/
*
* D_color_of_type(raster, colors, data_type);
* void *raster;
* struct Colors *colors; /color info/
* RASTER_MAP_TYPE data_type;
*
* Note: the same Colors structure must be passed to all routines.
*
*/
#include <stdlib.h>
#include <grass/gis.h>
#include <grass/raster.h>
#include <grass/display.h>
int D__overlay_mode = 0; /* external for now, but to be fixed later */
/*!
* \brief Configure raster overlay mode
*
* This routine determines if D_draw_raster() draws in overlay mode
* (locations with category 0 are left untouched) or not (colored with
* the color for category 0).
*
* \param n 1 (TRUE) for overlay mode; 0 (FALSE) otherwise
*
* \return 0
*/
int D_set_overlay_mode(int n)
{
D__overlay_mode = (n != 0);
return 0;
}
/* this routine modifies the hardware colormap
* provided that we are not using fixed mode colors.
* For use by programs such as d.colors
*
* returns:
* 0 error - in fixed mode,
* or cat not in min:max color range
* 1 ok
*/
int D_color(CELL cat, struct Colors *colors)
{
return D_c_color(cat, colors);
}
/* select color for line drawing */
int D_c_color(CELL cat, struct Colors *colors)
{
return D_color_of_type(&cat, colors, CELL_TYPE);
}
/* select color for line drawing */
/*!
* \brief
*
* Same functionality as <tt>D_color()</tt> except that the <em>value</em> is
* type <tt>DCELL</tt>. This implies that the floating-point interfaces to the
* <em>colors</em> are used by this routine.
*
* \param value
* \param colors
* \return int
*/
int D_d_color(DCELL val, struct Colors *colors)
{
return D_color_of_type(&val, colors, DCELL_TYPE);
}
/* select color for line drawing */
/*!
* \brief
*
* Same
* functionality as <tt>D_color()</tt> except that the <em>value</em> is type
* <tt>FCELL</tt>. This implies that the floating-point interfaces to the
* <em>colors</em> are used by this routine.
*
* \param value
* \param colors
* \return int
*/
int D_f_color(FCELL val, struct Colors *colors)
{
return D_color_of_type(&val, colors, FCELL_TYPE);
}
/*!
* \brief
*
* If the <em>data_type</em> is CELL_TYPE,
* calls D_color((CELL *value, colors);
* If the <em>data_type</em> is FCELL_TYPE, calls D_f_color((FCELL *value,
* colors);
* If the <em>data_type</em> is DCELL_TYPE, calls D_d_color((DCELL *value,
* colors);
*
* \param value
* \param colors
* \param data_type
* \return int
*/
int D_color_of_type(const void *raster, struct Colors *colors,
RASTER_MAP_TYPE data_type)
{
int r, g, b;
Rast_get_color(raster, &r, &g, &b, colors, data_type);
D_RGB_color((unsigned char)r, (unsigned char)g, (unsigned char)b);
return 0;
}
|
