From 28994509cc11ac6a5443054dfae1fedfb69039bc Mon Sep 17 00:00:00 2001 From: rsc Date: Wed, 21 Apr 2004 22:19:33 +0000 Subject: Why not? --- src/cmd/map/libmap/aitoff.c | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/cmd/map/libmap/aitoff.c (limited to 'src/cmd/map/libmap/aitoff.c') diff --git a/src/cmd/map/libmap/aitoff.c b/src/cmd/map/libmap/aitoff.c new file mode 100644 index 00000000..83b777fb --- /dev/null +++ b/src/cmd/map/libmap/aitoff.c @@ -0,0 +1,26 @@ +#include +#include +#include "map.h" + +#define Xaitwist Xaitpole.nlat +static struct place Xaitpole; + +static int +Xaitoff(struct place *place, double *x, double *y) +{ + struct place p; + copyplace(place,&p); + p.wlon.l /= 2.; + sincos(&p.wlon); + norm(&p,&Xaitpole,&Xaitwist); + Xazequalarea(&p,x,y); + *x *= 2.; + return(1); +} + +proj +aitoff(void) +{ + latlon(0.,0.,&Xaitpole); + return(Xaitoff); +} -- cgit v1.2.3