12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970 |
- /****************************************************************************
- *
- * MODULE: r.surf.random
- * AUTHOR(S): Jo Wood, 19th October, 23rd October 1991 (original contributor)
- * Midlands Regional Research Laboratory (ASSIST)
- * AUTHOR(S): Markus Neteler <neteler itc.it> (original contributor)
- * PURPOSE: produces a raster map layer of uniform random deviates
- * COPYRIGHT: (C) 1999-2006, 2010 by 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 <grass/gis.h>
- #include <grass/glocale.h>
- #include "local_proto.h"
- int main(int argc, char *argv[])
- {
- /****** INITIALISE ******/
- struct GModule *module;
- struct Option *out;
- struct Option *min;
- struct Option *max;
- struct Flag *i_flag;
- G_gisinit(argv[0]);
- module = G_define_module();
- G_add_keyword(_("raster"));
- G_add_keyword(_("surface"));
- G_add_keyword(_("random"));
- module->description =
- _("Produces a raster surface map of uniform random deviates with defined range.");
- out = G_define_standard_option(G_OPT_R_OUTPUT);
- min = G_define_option();
- min->key = "min";
- min->description = _("Minimum random value");
- min->type = TYPE_INTEGER;
- min->answer = "0";
- max = G_define_option();
- max->key = "max";
- max->description = _("Maximum random value");
- max->type = TYPE_INTEGER;
- max->answer = "100";
- i_flag = G_define_flag();
- i_flag->key = 'i';
- i_flag->description = _("Create an integer raster map");
- if (G_parser(argc, argv))
- exit(EXIT_FAILURE);
- randsurf(out->answer, atoi(min->answer), atoi(max->answer),
- i_flag->answer);
- G_done_msg(_("Raster map <%s> created."), out->answer);
-
- exit(EXIT_SUCCESS);
- }
|