/****************************************************************************
 *
 * MODULE:       bitmap
 * AUTHOR(S):    David Gerdes (CERL) (original contributor)
 *               Markus Neteler <neteler itc.it>, 
 *               Bernhard Reiter <bernhard intevation.de>, 
 *               Brad Douglas <rez touchofmadness.com>, 
 *               Glynn Clements <glynn gclements.plus.com>
 * PURPOSE:      provides basic support for the creation and manipulation of
 *               two dimensional bitmap arrays
 * COPYRIGHT:    (C) 1999-2006 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 <stdio.h>
#include <stdlib.h>
#include <grass/bitmap.h>


static int dump_map(struct BM *map);


int main(int argc, char *argv[])
{
    int SIZE;
    struct BM *map, *map2;
    int i, x, y;
    int dump;
    FILE *fp;

    if (argc < 2)
	SIZE = 11;
    else
	SIZE = atoi(argv[1]);

    if (NULL != getenv("NODUMP"))
	dump = 0;
    else
	dump = 1;

    map = BM_create(SIZE, SIZE);

    /* turn on bits in X pattern */
    for (i = 0; i < SIZE; i++) {
	BM_set(map, i, i, 1);
	BM_set(map, (SIZE - 1) - i, i, 1);
    }


    if (dump)
	dump_map(map);
    fprintf(stdout, "Size = %d\n", BM_get_map_size(map));

    fprintf(stdout, "\n\n");

    /* now invert it */
    for (y = 0; y < SIZE; y++)
	for (x = 0; x < SIZE; x++)
	    BM_set(map, x, y, !BM_get(map, x, y));

    if (dump)
	dump_map(map);

    fprintf(stdout, "Size = %d\n", BM_get_map_size(map));

    {
	fp = fopen("dumpfile", "w");
	BM_file_write(fp, map);
	fclose(fp);

	fp = fopen("dumpfile", "r");
	map2 = BM_file_read(fp);
	fclose(fp);
	dump_map(map2);
    }

    BM_destroy(map);
    BM_destroy(map2);

    return 0;
}


static int dump_map(struct BM *map)
{
    int x, y;

    for (y = 0; y < map->rows; y++) {
	for (x = 0; x < map->cols; x++) {
	    fprintf(stdout, "%c", BM_get(map, x, y) ? '#' : '.');

	}
	fprintf(stdout, "\n");
    }
}