1 #include <u.h>
2 #include <libc.h>
3 #include "map.h"
4
5 #define Xaitwist Xaitpole.nlat
6 static struct place Xaitpole;
7
8 static int
Xaitoff(struct place * place,double * x,double * y)9 Xaitoff(struct place *place, double *x, double *y)
10 {
11 struct place p;
12 copyplace(place,&p);
13 p.wlon.l /= 2.;
14 sincos(&p.wlon);
15 norm(&p,&Xaitpole,&Xaitwist);
16 Xazequalarea(&p,x,y);
17 *x *= 2.;
18 return(1);
19 }
20
21 proj
aitoff(void)22 aitoff(void)
23 {
24 latlon(0.,0.,&Xaitpole);
25 return(Xaitoff);
26 }
27