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/fisheye.c | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/cmd/map/libmap/fisheye.c (limited to 'src/cmd/map/libmap/fisheye.c') diff --git a/src/cmd/map/libmap/fisheye.c b/src/cmd/map/libmap/fisheye.c new file mode 100644 index 00000000..412d65e7 --- /dev/null +++ b/src/cmd/map/libmap/fisheye.c @@ -0,0 +1,26 @@ +#include +#include +#include "map.h" +/* refractive fisheye, not logarithmic */ + +static double n; + +static int +Xfisheye(struct place *place, double *x, double *y) +{ + double r; + double u = sin(PI/4-place->nlat.l/2)/n; + if(fabs(u) > .97) + return -1; + r = tan(asin(u)); + *x = -r*place->wlon.s; + *y = -r*place->wlon.c; + return 1; +} + +proj +fisheye(double par) +{ + n = par; + return n<.1? 0: Xfisheye; +} -- cgit v1.2.3