diff options
Diffstat (limited to 'src/cmd/map/libmap/cylequalarea.c')
-rw-r--r-- | src/cmd/map/libmap/cylequalarea.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/cmd/map/libmap/cylequalarea.c b/src/cmd/map/libmap/cylequalarea.c new file mode 100644 index 00000000..3cf222ff --- /dev/null +++ b/src/cmd/map/libmap/cylequalarea.c @@ -0,0 +1,24 @@ +#include <u.h> +#include <libc.h> +#include "map.h" + +static double a; + +static int +Xcylequalarea(struct place *place, double *x, double *y) +{ + *x = - place->wlon.l * a; + *y = place->nlat.s; + return(1); +} + +proj +cylequalarea(double par) +{ + struct coord stdp0; + if(par > 89.0) + return(0); + deg2rad(par, &stdp0); + a = stdp0.c*stdp0.c; + return(Xcylequalarea); +} |