Geografic-Information-System/ps/ps.map/r_vlegend.c

/* Function: vlegfile
 **
 ** Author: Paul W. Carlson     April 1992
 */

#include <stdlib.h>
#include <string.h>
#include <grass/colors.h>
#include <grass/glocale.h>
#include "vector.h"
#include "local_proto.h"

#define KEY(x) (strcmp(key,x)==0)

static char *help[] = {
    "where      x y",
    "font       fontname",
    "fontsize   fontsize",
    "width	sample box width",
    "cols	number of columns",
    "border	color|none",
    "span	column separation",
    ""
};

int read_vlegend(void)
{
    char buf[1024];
    char *key, *data;
    int fontsize, cols;
    double x, y, width, cseparation;
    int r, g, b, ret;
    PSCOLOR border;

    fontsize = 0;
    x = y = 0.0;
    width = -1;
    cols = 1;
    unset_color(&border);
    cseparation = -1;

    while (input(2, buf, help)) {
	if (!key_data(buf, &key, &data))
	    continue;

	if (KEY("where")) {
	    if (sscanf(data, "%lf %lf", &x, &y) != 2) {
		x = y = 0.0;
		error(key, data, _("illegal where request"));
	    }
	    else
		continue;
	}

	if (KEY("fontsize")) {
	    fontsize = atoi(data);
	    continue;
	}

	if (KEY("font")) {
	    get_font(data);
	    vector.font = G_store(data);
	    continue;
	}

	if (KEY("width")) {
	    G_strip(data);
	    width = atof(data);
	    continue;
	}

	if (KEY("cols")) {
	    cols = atoi(data);
	    if (cols < 1 || cols > 10)
		cols = 1;
	    continue;
	}

	if (KEY("border")) {
	    ret = G_str_to_color(data, &r, &g, &b);
	    if (ret == 1)
		set_color(&border, r, g, b);
	    else if (ret == 2)  /* i.e. "none" */
		unset_color(&border);
	    else
		error(key, data, _("illegal border color request"));

	    continue;
	}

	if (KEY("span")) {
	    G_strip(data);
	    cseparation = atof(data);
	    continue;
	}

	error(key, data, _("illegal vlegend sub-request"));
    }
    vector.x = x;
    vector.y = y;
    if (fontsize)
	vector.fontsize = fontsize;

    if (width > 0)
	vector.width = width;
    else
	vector.width = 3 * fontsize / 72.0;

    vector.cols = cols;
    vector.border = border;
    vector.span = cseparation;

    return 0;
}