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