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