xref: /plan9-contrib/sys/src/cmd/map/libmap/rectangular.c (revision 219b2ee8daee37f4aad58d63f21287faa8e4ffdc)
13e12c5d1SDavid du Colombier #include "map.h"
23e12c5d1SDavid du Colombier 
3*219b2ee8SDavid du Colombier static double scale;
43e12c5d1SDavid du Colombier 
53e12c5d1SDavid du Colombier static int
6*219b2ee8SDavid du Colombier Xrectangular(struct place *place, double *x, double *y)
73e12c5d1SDavid du Colombier {
83e12c5d1SDavid du Colombier 	*x = -scale*place->wlon.l;
93e12c5d1SDavid du Colombier 	*y = place->nlat.l;
103e12c5d1SDavid du Colombier 	return(1);
113e12c5d1SDavid du Colombier }
123e12c5d1SDavid du Colombier 
133e12c5d1SDavid du Colombier proj
14*219b2ee8SDavid du Colombier rectangular(double par)
153e12c5d1SDavid du Colombier {
163e12c5d1SDavid du Colombier 	scale = cos(par*RAD);
173e12c5d1SDavid du Colombier 	if(scale<.1)
183e12c5d1SDavid du Colombier 		return 0;
193e12c5d1SDavid du Colombier 	return(Xrectangular);
203e12c5d1SDavid du Colombier }
21