xref: /plan9/sys/src/cmd/map/libmap/rectangular.c (revision ff8c3af2f44d95267f67219afa20ba82ff6cf7e4)
1 #include <u.h>
2 #include <libc.h>
3 #include "map.h"
4 
5 static double scale;
6 
7 static int
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
16 rectangular(double par)
17 {
18 	scale = cos(par*RAD);
19 	if(scale<.1)
20 		return 0;
21 	return(Xrectangular);
22 }
23