xref: /plan9-contrib/sys/src/cmd/map/libmap/azequidist.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 
53e12c5d1SDavid du Colombier int
Xazequidistant(struct place * place,double * x,double * y)6219b2ee8SDavid du Colombier Xazequidistant(struct place *place, double *x, double *y)
73e12c5d1SDavid du Colombier {
8219b2ee8SDavid du Colombier 	double colat;
93e12c5d1SDavid du Colombier 	colat = PI/2 - place->nlat.l;
103e12c5d1SDavid du Colombier 	*x = -colat * place->wlon.s;
113e12c5d1SDavid du Colombier 	*y = -colat * place->wlon.c;
123e12c5d1SDavid du Colombier 	return(1);
133e12c5d1SDavid du Colombier }
143e12c5d1SDavid du Colombier 
153e12c5d1SDavid du Colombier proj
azequidistant(void)163e12c5d1SDavid du Colombier azequidistant(void)
173e12c5d1SDavid du Colombier {
183e12c5d1SDavid du Colombier 	return(Xazequidistant);
193e12c5d1SDavid du Colombier }
20