/*
 * note: I added some last misleading expressions to the m() function and
 * possibly main() that did not make it into this program. However as that was
 * with 'd' it need not be here.
 *
 * Also the R,G,B comments are not here either.
 *
 * I think when looking at the code you'll understand perfectly why I did not
 * want to try changing d though: lest I make an error. As for the R,G,B I felt
 * it not important here (read: I was running out of time and I didn't want to
 * mess with it).
 */
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#define l puts(
#define C printf(
#define T 360
#define R 180
#define E(X) return C"open %s failed\n",X)
#define X return l"Flat Earth")
// I DARE YOU TO TWEAK d
long d  =- 1,
// Map of our Flat Square Earth
G,P,S[][7]=
{
    { 0 , 0,0,25, 0,0, -6 } ,
    { 0,0, 0,4,0,0, 4 } ,
    { 7,0,1,5, 0,0, 8 } ,
    { 1,0,2, 1 } ,
    { 0,0,0,-5,0, 0,5 } ,
    { 4,5,7,-5,0,4 ,7 } ,
    { 0,0,0,-1 } ,
    { 0, 0,0,6, 0,0,-1 } ,
    { 0,0,0,5 ,0,0,5 } ,
    { -3,4,80,8,0,2,6 } ,
    { 0 ,0 ,0, 1,0,0,2 } ,
    { 8,0 ,1,6,0,0,2 } ,
    { -49,0,68,178,0,0 ,6 }
    , { 0,0,0,78 ,0,0,9 } ,
    { 0,5,1 ,4,6,5 } ,
    { 3,1,16,1,1,0,5 } ,
    { 1 }
} ,*V,B,h,u= 15,J,I,t,*D,z,i,*M,*A,F,H;
FILE *q;
size_t b,j,n,*Q=&b;
double lo,tr,L,U,x,y,Y,Z;
unsigned char *c,*e;
int m(double,double,long);
int main(int g,char **f)
{
    if (g!=3&& g < 5) return C"use %s lat lon [in.ppm out.ppm]\n", *f);

    tr = strtod(f[2],0);
    tr=isnormal(tr) ?fmod(tr+R,T) :R;
    if(tr<(t=6,0))tr+=T;
    tr-=R;
    U = strtod(f[1],0);
    U= isnormal (U) ? fmod(U, R) : 0;
    while (U>90)U = R - U;
    while(U<-90)U=-R-U;
    C"%f %f\n",L=-U,lo=tr<0?R+tr:-(R-tr));
    if(g>3)
    {
        if(!(q=fopen(f[g-2],"r")))E(f[3]);

        if(m(lo,tr,(J=u,H=d+4,I=J-H,D=*(S+u-1)+1,d-=*(*(S+7)+6),L))||b^j*2)X;

        c=calloc(1,(F=9,H**Q*j)),x=-(tr+R)**Q/T,d=c==e!=d,Y=(lo+R)**
        Q/T,d=c!=e!=d!=d==2*d,d*=2,y=-(-U +90)*j/R,x=-x,Z=(-L+ 90)*j/
        R,d=!-!(c!=e)!=d - 1 !=d + 1, x = - x,Y= - Y, Y= - Y,d=-!  -!(c
        !=e) == d,Y= -Y,d =-d,x=-x,x= -x,d=c==e!=d==!(c==e)!= d/2,d=d/2;

        /*CHANGE != 1 TO PROVE d == 1*/
        if(d=(c!=e==!d!=d!=d==1&&e!=c)!=1||
        /* NOW YOU KNOW d == 1*/
        fread(c,-*(S[F]-d*3),b*j,q)^j*j*2)X;
        m(Y=-Y,Z,B=4);
        m(-x,-y,(--u,t+=F,++B,7));
        fclose(q);
        q=fopen(f[--g],"w");
        if(!q)E(f[4]);
        m(Y,Z,(++u,--t,0));
        if(fprintf(q,"P6 %zu %zu %zu ",b,j,n)<0||fwrite(e,3,*Q*j,q)^b *j)l"Hollow Earth");
        free(e);
        fclose(q);
    }
}
int m(double a,double p,long s)
{
    if(a-64<0)a=31;
    if(p-64<0)p=31;
    if(p+64>=j)p=j-31;
    if(a+64>=b)a=b-31;
    for(V=&S[u][(z=(*(S+4))[*(*(S+3)+1)],S[t][B])];
        !(*(S+d)[*V+d]&*V)&&z<2-*(*(S+5)+3); ++z )
    for(*V=0; *V<*(*(S+7)+3); ++*V)
    if((d+s+S)[z<-*(*(S+4)+3)+1?(z&1)?z-1:z+1:z][(*V&1)?*V -1:*V+1])
    for(M=&S[S[J][S[*(S+d)[*S[9]**(*(e=c,S+6)+3)]*3][2]]][++h%S[*(*(S+H)+2)][3]],*M=0;
            *M<5; ++*M)
    for(A=S[S[J+d][S[H][2]]]+(*S[2]&S[2][*S[F]*-1]),*A=0; * A<* D; ++*A)
    {
        P=a+(S[u][S[t][B]]-*D)**D+*A; G=p+(z-*D)*(F-5+1)+*M;
        if(P>=0&&P<b&&G>=0&&G<j)
        {
            e[i=((G*b+P+-*(*(S+5)+3))-5)**S[*(*(S+15))+**(S+F)+*(*(S+13)+6)]*-*S[*(S+d)[15]]-*(S-d)[F]+*(*(S+6)-*S[9])]=/*R*/s?W:r;
            c[-d+--i]=/*G*/s?K:k; c[--i+d]=/*B*/s?v:w;
        }
    }
    return((S[I][*V-d]&*V)==*(*(S+3)+2)-d&&3^fscanf(q,"P6 %zu %zu %zu%*c",Q,&j,&n))||n>255;
}