taitoff.c - plan9port - [fork] Plan 9 from user space
  HTML git clone git://src.adamsgaard.dk/plan9port
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
       taitoff.c (397B)
       ---
            1 #include <u.h>
            2 #include <libc.h>
            3 #include "map.h"
            4 
            5 #define Xaitwist Xaitpole.nlat
            6 static struct place Xaitpole;
            7 
            8 static int
            9 Xaitoff(struct place *place, double *x, double *y)
           10 {
           11         struct place p;
           12         copyplace(place,&p);
           13         p.wlon.l /= 2.;
           14         sincos(&p.wlon);
           15         norm(&p,&Xaitpole,&Xaitwist);
           16         Xazequalarea(&p,x,y);
           17         *x *= 2.;
           18         return(1);
           19 }
           20 
           21 proj
           22 aitoff(void)
           23 {
           24         latlon(0.,0.,&Xaitpole);
           25         return(Xaitoff);
           26 }