Geografic-Information-System/vector/v.to.db/units.c

#include <string.h>
#include "global.h"

int conv_units()
{
    int i, rad;
    double f, sq_f;

    rad  = 0;
    f    = G_meters_to_units_factor(options.units);
    sq_f = G_meters_to_units_factor_sq(options.units);

    if (options.units == U_RADIANS)
	rad = 1;

    switch (options.option) {
    case O_LENGTH:
    case O_PERIMETER:
	for (i = 0; i < vstat.rcat; i++)
	    Values[i].d1 *= f;
	break;
    case O_AREA:
	for (i = 0; i < vstat.rcat; i++)
	    Values[i].d1 *= sq_f;
	break;
    case O_COMPACT:
    case O_FD:
	for (i = 0; i < vstat.rcat; i++) {
	    Values[i].d1 *= sq_f;
	    Values[i].d2 *= f;
	}
	break;
    case O_AZIMUTH:
	    if (rad == 0) {
		    for (i = 0; i < vstat.rcat; i++) {
			    if (Values[i].d1 > 0)
				   Values[i].d1 = Values[i].d1*(180/M_PI);
		    }
	    }
	break;

    }

    return 0;
}