xref: /plan9/sys/src/cmd/map/libmap/azequalarea.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
Xazequalarea(struct place * place,double * x,double * y)6219b2ee8SDavid du Colombier Xazequalarea(struct place *place, double *x, double *y)
73e12c5d1SDavid du Colombier {
83e12c5d1SDavid du Colombier 	double r;
93e12c5d1SDavid du Colombier 	r = sqrt(1. - place->nlat.s);
103e12c5d1SDavid du Colombier 	*x = - r * place->wlon.s;
113e12c5d1SDavid du Colombier 	*y = - r * place->wlon.c;
123e12c5d1SDavid du Colombier 	return(1);
133e12c5d1SDavid du Colombier }
143e12c5d1SDavid du Colombier 
153e12c5d1SDavid du Colombier proj
azequalarea(void)163e12c5d1SDavid du Colombier azequalarea(void)
173e12c5d1SDavid du Colombier {
183e12c5d1SDavid du Colombier 	return(Xazequalarea);
193e12c5d1SDavid du Colombier }
20