xref: /plan9/sys/src/cmd/map/libmap/rectangular.c (revision 59cc4ca53493a3c6d2349fe2b7f7c40f7dce7294) 
1 #include <u.h>
2 #include <libc.h>
3 #include "map.h"
4 
5 static double scale;
6 
7 static int
Xrectangular(struct place * place,double * x,double * y)8 Xrectangular(struct place *place, double *x, double *y)
9 {
10 	*x = -scale*place->wlon.l;
11 	*y = place->nlat.l;
12 	return(1);
13 }
14 
15 proj
rectangular(double par)16 rectangular(double par)
17 {
18 	scale = cos(par*RAD);
19 	if(scale<.1)
20 		return 0;
21 	return(Xrectangular);
22 }
23