Why not?
This commit is contained in:
parent
a01e58366c
commit
28994509cc
82 changed files with 13293 additions and 0 deletions
26
src/cmd/map/libmap/aitoff.c
Normal file
26
src/cmd/map/libmap/aitoff.c
Normal file
|
|
@ -0,0 +1,26 @@
|
|||
#include <u.h>
|
||||
#include <libc.h>
|
||||
#include "map.h"
|
||||
|
||||
#define Xaitwist Xaitpole.nlat
|
||||
static struct place Xaitpole;
|
||||
|
||||
static int
|
||||
Xaitoff(struct place *place, double *x, double *y)
|
||||
{
|
||||
struct place p;
|
||||
copyplace(place,&p);
|
||||
p.wlon.l /= 2.;
|
||||
sincos(&p.wlon);
|
||||
norm(&p,&Xaitpole,&Xaitwist);
|
||||
Xazequalarea(&p,x,y);
|
||||
*x *= 2.;
|
||||
return(1);
|
||||
}
|
||||
|
||||
proj
|
||||
aitoff(void)
|
||||
{
|
||||
latlon(0.,0.,&Xaitpole);
|
||||
return(Xaitoff);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue