[GRASS-SVN] r32697 - in grass/trunk/raster: . r.colors.out

[svn_grass at osgeo.org]

Author: glynn
Date: 2008-08-11 20:58:40 -0400 (Mon, 11 Aug 2008)
New Revision: 32697

Added:
   grass/trunk/raster/r.colors.out/
   grass/trunk/raster/r.colors.out/Makefile
   grass/trunk/raster/r.colors.out/main.c
Modified:
   grass/trunk/raster/Makefile
Log:
Add r.colors.out


Modified: grass/trunk/raster/Makefile
===================================================================
--- grass/trunk/raster/Makefile	2008-08-12 00:45:32 UTC (rev 32696)
+++ grass/trunk/raster/Makefile	2008-08-12 00:58:40 UTC (rev 32697)
@@ -11,6 +11,7 @@
 	r.clump \
 	r.coin \
 	r.colors \
+	r.colors.out \
 	r.composite \
 	r.compress \
 	r.contour \

Added: grass/trunk/raster/r.colors.out/Makefile
===================================================================
--- grass/trunk/raster/r.colors.out/Makefile	                        (rev 0)
+++ grass/trunk/raster/r.colors.out/Makefile	2008-08-12 00:58:40 UTC (rev 32697)
@@ -0,0 +1,11 @@
+MODULE_TOPDIR = ../..
+
+PGM = r.colors.out
+
+LIBES = $(GISLIB)
+DEPENDENCIES = $(GISDEP)
+
+include $(MODULE_TOPDIR)/include/Make/Module.make
+
+default: cmd
+

Added: grass/trunk/raster/r.colors.out/main.c
===================================================================
--- grass/trunk/raster/r.colors.out/main.c	                        (rev 0)
+++ grass/trunk/raster/r.colors.out/main.c	2008-08-12 00:58:40 UTC (rev 32697)
@@ -0,0 +1,128 @@
+
+/****************************************************************************
+ *
+ * MODULE:       r.colors.out
+ *
+ * AUTHOR(S):    Glynn Clements
+ *
+ * PURPOSE:      Allows export of the color table for a raster map layer.
+ *
+ * COPYRIGHT:    (C) 2008 Glynn Clements and the GRASS Development Team
+ *
+ *               This program is free software under the GNU General Public
+ *               License (>=v2). Read the file COPYING that comes with GRASS
+ *               for details.
+ *
+ ***************************************************************************/
+
+#include <stdlib.h>
+#include <string.h>
+#include <grass/gis.h>
+#include <grass/glocale.h>
+
+static FILE *fp;
+static int perc;
+static DCELL min, max;
+
+static void write_rule(DCELL *val, int r, int g, int b)
+{
+    static DCELL v0;
+    static int r0 = -1, g0 = -1, b0 = -1;
+
+    if (v0 == *val && r0 == r && g0 == g && b0 == b)
+	return;
+    v0 = *val, r0 = r, g0 = g, b0 = b;
+
+    if (perc)
+	fprintf(fp, "%g%% %d %d %d\n", 100 * (*val - min) / (max - min), r, g, b);
+    else
+	fprintf(fp, "%g %d %d %d\n", *val, r, g, b);
+}
+
+int main(int argc, char **argv)
+{
+    struct GModule *module;
+    struct
+    {
+	struct Option *map, *file;
+    } opt;
+    struct
+    {
+	struct Flag *p;
+    } flag;
+    const char *name, *file;
+    struct Colors colors;
+    struct FPRange range;
+    int count;
+    int i;
+
+    G_gisinit(argv[0]);
+
+    module = G_define_module();
+    module->keywords = _("raster, color table");
+    module->description =
+	_("Exports the color table associated with a raster map layer.");
+
+    opt.map = G_define_standard_option(G_OPT_R_MAP);
+    opt.map->required = NO;
+    opt.map->guisection = _("Required");
+
+    opt.file = G_define_standard_option(G_OPT_F_OUTPUT);
+    opt.file->key = "rules";
+    opt.file->required = NO;
+    opt.file->description = _("Path to rules file (\"-\" to write rules to stdin)");
+
+    flag.p = G_define_flag();
+    flag.p->key = 'p';
+    flag.p->description = _("Output values as percentages");
+
+    if (G_parser(argc, argv))
+	exit(EXIT_FAILURE);
+
+    name = opt.map->answer;
+    file = opt.file->answer;
+    perc = flag.p->answer ? 1 : 0;
+
+    if (G_read_colors(name, "", &colors) < 0)
+	G_fatal_error(_("Can't read color table for <%s>"));
+
+    G_read_fp_range(name, "", &range);
+    G_get_fp_range_min_max(&range, &min, &max);
+
+    if (!file || strcmp(file, "-") == 0)
+	fp = stdout;
+    else {
+	fp = fopen(file, "w");
+	if (!fp)
+	    G_fatal_error(_("Unable to open output file <%s>"), file);
+    }
+
+    count = G_colors_count(&colors);
+
+    for (i = 0; i < count; i++) {
+	DCELL val1, val2;
+	unsigned char r1, g1, b1, r2, g2, b2;
+
+	G_get_f_color_rule(
+	    &val1, &r1, &g1, &b1,
+	    &val2, &r2, &g2, &b2,
+	    &colors, count - 1 - i);
+
+	write_rule(&val1, r1, g1, b1);
+	write_rule(&val2, r2, g2, b2);
+    }
+
+    {
+	int r, g, b;
+	G_get_null_value_color(&r, &g, &b, &colors);
+	fprintf(fp, "nv %d %d %d\n", r, g, b);
+	G_get_default_color(&r, &g, &b, &colors);
+	fprintf(fp, "default %d %d %d\n", r, g, b);
+    }
+
+
+    if (fp != stdout)
+	fclose(fp);
+
+    exit(EXIT_SUCCESS);
+}