xref: /plan9-contrib/sys/src/cmd/map/libmap/azequidist.c (revision 219b2ee8daee37f4aad58d63f21287faa8e4ffdc)
1 #include "map.h"
2 
3 int
4 Xazequidistant(struct place *place, double *x, double *y)
5 {
6 	double colat;
7 	colat = PI/2 - place->nlat.l;
8 	*x = -colat * place->wlon.s;
9 	*y = -colat * place->wlon.c;
10 	return(1);
11 }
12 
13 proj
14 azequidistant(void)
15 {
16 	return(Xazequidistant);
17 }
18