o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Why not?

Browse source
This commit is contained in:
rsc 2004-04-21 22:19:33 +00:00
parent a01e58366c
commit 28994509cc
82 changed files with 13293 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/cmd/map/libmap/newyorker.c Normal file
View file

@ -0,0 +1,28 @@
#include <u.h>
#include <libc.h>
#include "map.h"
static double a;
static int
Xnewyorker(struct place *place, double *x, double *y)
{
double r = PI/2 - place->nlat.l;
double s;
if(r<.001) /* cheat to plot center */
s = 0;
else if(r<a)
return -1;
else
s = log(r/a);
*x = -s * place->wlon.s;
*y = -s * place->wlon.c;
return(1);
}
proj
newyorker(double a0)
{
a = a0*RAD;
return(Xnewyorker);
}