xref: /plan9/sys/src/cmd/map/libmap/rectangular.c (revision 59cc4ca53493a3c6d2349fe2b7f7c40f7dce7294)
1*59cc4ca5SDavid du Colombier #include <u.h>
2*59cc4ca5SDavid du Colombier #include <libc.h>
33e12c5d1SDavid du Colombier #include "map.h"
43e12c5d1SDavid du Colombier 
5219b2ee8SDavid du Colombier static double scale;
63e12c5d1SDavid du Colombier 
73e12c5d1SDavid du Colombier static int
Xrectangular(struct place * place,double * x,double * y)8219b2ee8SDavid du Colombier Xrectangular(struct place *place, double *x, double *y)
93e12c5d1SDavid du Colombier {
103e12c5d1SDavid du Colombier 	*x = -scale*place->wlon.l;
113e12c5d1SDavid du Colombier 	*y = place->nlat.l;
123e12c5d1SDavid du Colombier 	return(1);
133e12c5d1SDavid du Colombier }
143e12c5d1SDavid du Colombier 
153e12c5d1SDavid du Colombier proj
rectangular(double par)16219b2ee8SDavid du Colombier rectangular(double par)
173e12c5d1SDavid du Colombier {
183e12c5d1SDavid du Colombier 	scale = cos(par*RAD);
193e12c5d1SDavid du Colombier 	if(scale<.1)
203e12c5d1SDavid du Colombier 		return 0;
213e12c5d1SDavid du Colombier 	return(Xrectangular);
223e12c5d1SDavid du Colombier }
23