static void LOC_init(void)
{
const char *name = "full_screen";
const char *fenc = getenv("GRASS_ENCODING");
const char *font = getenv("GRASS_FONT");
int t = R_screen_top();
int b = R_screen_bot();
int l = R_screen_left();
int r = R_screen_rite();
char buff[256];
R_font(font ? font : "romans");
if (fenc)
R_charset(fenc);
R_pad_select("");
R_pad_set_item("time", "1");
R_pad_set_item("cur_w", name);
R_pad_create(name);
R_pad_select(name);
R_pad_set_item("time", "1");
sprintf(buff, "%d %d %d %d", t, b, l, r);
R_pad_set_item("d_win", buff);
R_set_window(t, b, l, r);
}
int Init_graphics(void)
{
D_full_screen();
SCREEN_TOP = R_screen_top();
SCREEN_BOTTOM = R_screen_bot();
SCREEN_LEFT = R_screen_left();
SCREEN_RIGHT = R_screen_rite();
R_standard_color(WHITE);
VIEW_TITLE1 = makeview(97.5, 100.0, 0.0, 50.0);
VIEW_TITLE2 = makeview(97.5, 100.0, 50.0, 100.0);
VIEW_MAP1 = makeview(51.0, 97.5, 0.0, 50.0);
VIEW_MAP2 = makeview(51.0, 97.5, 50.0, 100.0);
VIEW_TITLE1_ZOOM = makeview(47.5, 51.0, 0.0, 50.0);
VIEW_TITLE2_ZOOM = makeview(47.5, 51.0, 50.0, 100.0);
VIEW_MAP1_ZOOM = makeview(2.5, 47.5, 0.0, 50.0);
VIEW_MAP2_ZOOM = makeview(2.5, 47.5, 50.0, 100.0);
VIEW_MENU = makeview(0.0, 2.5, 0.0, 100.0);
G_init_colors(&VIEW_MAP1->cell.colors);
G_init_colors(&VIEW_MAP2->cell.colors);
return 0;
}
int Init_graphics(void)
{
D_full_screen();
SCREEN_TOP = R_screen_top();
SCREEN_BOTTOM = R_screen_bot();
SCREEN_LEFT = R_screen_left();
SCREEN_RIGHT = R_screen_rite();
BLACK = D_translate_color("black");
BLUE = D_translate_color("blue");
BROWN = D_translate_color("brown");
GREEN = D_translate_color("green");
GREY = D_translate_color("grey");
ORANGE = D_translate_color("orange");
PURPLE = D_translate_color("purple");
RED = D_translate_color("red");
WHITE = D_translate_color("white");
YELLOW = D_translate_color("yellow");
R_standard_color(WHITE);
VIEW_TITLE1 = makeview(97.5, 100.0, 0.0, 50.0);
VIEW_TITLE2 = makeview(97.5, 100.0, 50.0, 100.0);
VIEW_MAP1 = makeview(51.0, 97.5, 0.0, 50.0);
VIEW_MAP2 = makeview(51.0, 97.5, 50.0, 100.0);
VIEW_TITLE1_ZOOM = makeview(47.5, 51.0, 0.0, 50.0);
VIEW_TITLE2_ZOOM = makeview(47.5, 51.0, 50.0, 100.0);
VIEW_MAP1_ZOOM = makeview(2.5, 47.5, 0.0, 50.0);
VIEW_MAP2_ZOOM = makeview(2.5, 47.5, 50.0, 100.0);
VIEW_MENU = makeview(0.0, 2.5, 0.0, 100.0);
Rast_init_colors(&VIEW_MAP1->cell.colors);
Rast_init_colors(&VIEW_MAP2->cell.colors);
return 0;
}
int Init_graphics(void)
{
R_font("romans");
R_text_size(3 * NORMAL_TEXT_SIZE / 4, NORMAL_TEXT_SIZE);
D_full_screen();
SCREEN_TOP = R_screen_top();
SCREEN_BOTTOM = R_screen_bot();
SCREEN_LEFT = R_screen_left();
SCREEN_RIGHT = R_screen_rite();
BLACK = D_translate_color("black");
BLUE = D_translate_color("blue");
BROWN = D_translate_color("brown");
GREEN = D_translate_color("green");
GREY = D_translate_color("grey");
ORANGE = D_translate_color("orange");
PURPLE = D_translate_color("purple");
RED = D_translate_color("red");
WHITE = D_translate_color("white");
YELLOW = D_translate_color("yellow");
R_standard_color(BLACK);
VIEW_TITLE1 = makeview(97.5, 100.0, 50.0, 100.0);
VIEW_MAP1 = makeview(51.0, 97.5, 50.0, 100.0);
VIEW_TITLE1_ZOOM = makeview(48.5, 51.0, 50.0, 100.0);
VIEW_MAP1_ZOOM = makeview(2.5, 48.5, 50.0, 100.0);
VIEW_MASK1 = makeview(51.0, 97.5, 50.0, 100.0); /*same as map1 */
VIEW_MENU = makeview(0.0, 2.5, 0.0, 100.0);
VIEW_HISTO = makeview(2.5, 100.0, 0.0, 50.0);
return 0;
}
int main(int argc, char *argv[])
{
struct GModule *module;
struct Option *input, *vect;
struct Cell_head window;
int bot, right, t0, b0, l0, r0, clear = 0;
double Rw_l, Rscr_wl;
char *map_name = NULL, *v_name = NULL, *s_name = NULL;
/* Initialize the GIS calls */
G_gisinit(argv[0]);
/* must run in a term window */
G_putenv("GRASS_UI_TERM", "1");
module = G_define_module();
module->keywords = _("raster, landscape structure analysis, patch index");
module->description =
_("Interactive tool used to setup the sampling and analysis framework "
"that will be used by the other r.le programs.");
input = G_define_standard_option(G_OPT_R_MAP);
input->description = _("Raster map to use to setup sampling");
vect = G_define_standard_option(G_OPT_V_INPUT);
vect->key = "vect";
vect->description = _("Vector map to overlay");
vect->required = NO;
if (G_parser(argc, argv))
exit(EXIT_FAILURE);
setbuf(stdout, NULL); /* unbuffered */
setbuf(stderr, NULL);
G_sleep_on_error(1); /* error messages get lost on clear screen */
map_name = input->answer;
v_name = vect->answer;
s_name = NULL; /* sites not used in GRASS 6 */
/* setup the r.le.para directory */
get_pwd();
/* query for the map to be setup */
if (R_open_driver() != 0)
G_fatal_error("No graphics device selected");
/* setup the current window for display & clear screen */
D_setup(1);
Rw_l = (double)G_window_cols() / G_window_rows();
/*R_open_driver(); */
/* R_font("romant"); */
G_get_set_window(&window);
t0 = R_screen_top();
b0 = R_screen_bot();
l0 = R_screen_left();
r0 = R_screen_rite();
Rscr_wl = (double)(r0 - l0) / (b0 - t0);
if (Rscr_wl > Rw_l) {
bot = b0;
right = l0 + (b0 - t0) * Rw_l;
}
else {
right = r0;
bot = t0 + (r0 - l0) / Rw_l;
}
D_new_window("a", t0, bot, l0, right);
D_set_cur_wind("a");
D_show_window(D_translate_color("green"));
D_setup(clear);
R_close_driver();
/* invoke the setup modules */
set_map(map_name, v_name, s_name, window, t0, bot, l0, right);
return (EXIT_SUCCESS);
}