29.07 - Main

---------------
0. MAIN
// January 2003
//---------------

TMain_Window *Main_Window;

__fastcall TMain_Window::TMain_Window(TComponent* Owner)
: TForm(Owner)
{
int mj;
double minc;
double m_ring_cum[515];

pi=2*asin(1);

plotmode2=1;
randomize();
Stage=0;
Scale=3;
XXx=Xx=168;
YYy=Yy=0;

world=2636927;
world=2961126; //Oonock
world=3109616; Ekyarg
world=3035228; Oolkouky
world=1892265; Oozal
world=415540; // Scarya
world=4283833; // Nosh
world=1745896;
//world=1928048;

// Calcualte the number of flow points in each ring
points[1]=1; cum_points[1]=1; ring_lat[1]=-90; m_ring_cum[1]=0;
minc=360.0/1024.0;

for(mj=2;mj<513;mj++)
{
ring_lat[mj]=ring_lat[mj-1]+minc;
m_ring_cum[mj]=2*pi*cos(ring_lat[mj]*pi/180)*6500.0;
points[mj]=int(m_ring_cum[mj]/39.85);
cum_points[mj]=cum_points[mj-1]+points[mj];
}
points[513]=1;
cum_points[513]=cum_points[512]+1;

// Don't Really Need to keep track of XYZ
cube_x[0][0]=cube_x[2][0]=cube_x[4][0]=cube_x[6][0]=0;
cube_y[0][0]=cube_y[1][0]=cube_y[4][0]=cube_y[5][0]=0;
cube_z[0][0]=cube_z[1][0]=cube_z[2][0]=cube_z[3][0]=0;
cube_x[1][0]=cube_x[3][0]=cube_x[5][0]=cube_x[7][0]=16384;
cube_y[2][0]=cube_y[3][0]=cube_y[6][0]=cube_y[7][0]=16384;
cube_z[4][0]=cube_z[5][0]=cube_z[6][0]=cube_z[7][0]=16384;

wrv[0]=3.077341313;
wrv[1]=3.625670849;
wrv[2]=4.210062184;
wrv[3]=4.872533696;
wrv[4]=2.770473058;
wrv[5]=3.856706429;
wrv[6]=1.767416767;
wrv[7]=5.396162385;
wrv[8]=2.331161748;
wrv[9]=4.659023982;
wrv[10]=4.025924284;
wrv[11]=5.734443467;
wrv[12]=4.700099563;
wrv[13]=5.987541336;
wrv[14]=2.463591376;
wrv[15]=2.667896035;
wrv[16]=5.473639269;
wrv[17]=2.082213319;
wrv[18]=2.783425881;
wrv[19]=2.04375591;

generate_world_parameters(1);
f_giv1();
random_continent();
Main_Window->Map->Canvas->Pen->Color = clBlue;
render=1;
popgrid();
//grid_on=1;
shadow=0;
Nwords=load_words50("animal_names.dic",-1);
Nwords=load_words50("names1.dic",299);

strcpy(consanants[0][0],"Tr");
strcpy(consanants[0][1],"lt");
strcpy(consanants[1][0],"B");
strcpy(consanants[1][1],"b");
strcpy(consanants[2][0],"C");
strcpy(consanants[2][1],"c");
strcpy(consanants[3][0],"Cr");
strcpy(consanants[3][1],"lk");
strcpy(consanants[4][0],"D");
strcpy(consanants[4][1],"d");
strcpy(consanants[5][0],"Dr");
strcpy(consanants[5][1],"ld");
strcpy(consanants[6][0],"F");
strcpy(consanants[6][1],"f");
strcpy(consanants[7][0],"Fr");
strcpy(consanants[7][1],"lf");
strcpy(consanants[8][0],"G");
strcpy(consanants[8][1],"g");
strcpy(consanants[9][0],"Gr");
strcpy(consanants[9][1],"ng");
strcpy(consanants[10][0],"J");
strcpy(consanants[10][1],"gy");
strcpy(consanants[11][0],"K");
strcpy(consanants[11][1],"ck");
strcpy(consanants[12][0],"L");
strcpy(consanants[12][1],"l");
strcpy(consanants[13][0],"M");
strcpy(consanants[13][1],"m");
strcpy(consanants[14][0],"N");
strcpy(consanants[14][1],"n");
strcpy(consanants[15][0],"P");
strcpy(consanants[15][1],"p");
strcpy(consanants[16][0],"Pr");
strcpy(consanants[16][1],"py");
strcpy(consanants[17][0],"R");
strcpy(consanants[17][1],"r");
strcpy(consanants[18][0],"S");
strcpy(consanants[18][1],"s");
strcpy(consanants[19][0],"St");
strcpy(consanants[19][1],"st");
strcpy(consanants[20][0],"Str");
strcpy(consanants[20][1],"th");
strcpy(consanants[21][0],"Sp");
strcpy(consanants[21][1],"sp");
strcpy(consanants[22][0],"Sc");
strcpy(consanants[22][1],"sc");
strcpy(consanants[23][0],"Scr");
strcpy(consanants[23][1],"sy");
strcpy(consanants[24][0],"T");
strcpy(consanants[24][1],"t");
strcpy(consanants[25][0],"V");
strcpy(consanants[25][1],"v");
strcpy(consanants[26][0],"W");
strcpy(consanants[26][1],"t");
strcpy(consanants[27][0],"Wr");
strcpy(consanants[27][1],"dy");
strcpy(consanants[28][0],"Ex");
strcpy(consanants[28][1],"x");
strcpy(consanants[29][0],"Z");
strcpy(consanants[29][1],"z");
strcpy(consanants[30][0],"Y");
strcpy(consanants[30][1],"ry");
strcpy(consanants[31][0],"Bl");
strcpy(consanants[31][1],"ly");
strcpy(consanants[32][0],"Ch");
strcpy(consanants[32][1],"ch");
strcpy(consanants[33][0],"Sh");
strcpy(consanants[33][1],"sh");
strcpy(consanants[34][0],"Zh");
strcpy(consanants[34][1],"zh");
strcpy(consanants[35][0],"Qu");
strcpy(consanants[35][1],"ky");
strcpy(vowels[0][0],"A");
strcpy(vowels[0][1],"a");
strcpy(vowels[1][0],"E");
strcpy(vowels[1][1],"e");
strcpy(vowels[2][0],"I");
strcpy(vowels[2][1],"i");
strcpy(vowels[3][0],"O");
strcpy(vowels[3][1],"o");
strcpy(vowels[4][0],"U");
strcpy(vowels[4][1],"u");
strcpy(vowels[5][0],"Ar");
strcpy(vowels[5][1],"ar");
strcpy(vowels[6][0],"Or");
strcpy(vowels[6][1],"or");
strcpy(vowels[7][0],"Er");
strcpy(vowels[7][1],"er");
strcpy(vowels[8][0],"Hi");
strcpy(vowels[8][1],"i");
strcpy(vowels[9][0],"He");
strcpy(vowels[9][1],"e");
strcpy(vowels[10][0],"Ho");
strcpy(vowels[10][1],"o");
strcpy(vowels[11][0],"Hi");
strcpy(vowels[11][1],"i");
strcpy(vowels[12][0],"Hu");
strcpy(vowels[12][1],"u");
strcpy(vowels[13][0],"Ai");
strcpy(vowels[13][1],"ai");
strcpy(vowels[14][0],"Yu");
strcpy(vowels[14][1],"a");
strcpy(vowels[15][0],"Oo");
strcpy(vowels[15][1],"oo");
strcpy(vowels[16][0],"Ea");
strcpy(vowels[16][1],"ea");
strcpy(vowels[17][0],"Ow");
strcpy(vowels[17][1],"ow");
strcpy(vowels[18][0],"Yo");
strcpy(vowels[18][1],"oy");
strcpy(vowels[19][0],"Oi");
strcpy(vowels[19][1],"oi");
strcpy(vowels[20][0],"Ee");
strcpy(vowels[20][1],"ee");
strcpy(vowels[21][0],"Ay");
strcpy(vowels[21][1],"ay");
strcpy(vowels[22][0],"Ey");
strcpy(vowels[22][1],"ey");
strcpy(vowels[23][0],"Ou");
strcpy(vowels[23][1],"ou");

strcpy(prefixes[0],"New ");
strcpy(prefixes[1],"Novy ");
strcpy(prefixes[2],"Old ");
strcpy(prefixes[3],"Stary ");
strcpy(prefixes[4],"Nova ");
strcpy(prefixes[5],"Neo ");
strcpy(prefixes[6],"New ");
strcpy(prefixes[7],"New ");
strcpy(prefixes[8],"New ");
strcpy(prefixes[9],"Alpha ");
strcpy(prefixes[10],"The ");
strcpy(prefixes[11],"Beta ");
strcpy(prefixes[12],"Delta ");
strcpy(prefixes[13],"Gamma ");
strcpy(prefixes[14],"Los ");

strcpy(suffixes[0],"'s World");
strcpy(suffixes[1],"'s Planet");
strcpy(suffixes[2],"on");
strcpy(suffixes[3],"ona");
strcpy(suffixes[4],"land");
strcpy(suffixes[5],"al");
strcpy(suffixes[6],"or");
strcpy(suffixes[7],"ia");
strcpy(suffixes[8],"s");
strcpy(suffixes[9],"rica");
strcpy(suffixes[10],"e");
strcpy(suffixes[11]," 3");
strcpy(suffixes[12]," 4");
strcpy(suffixes[13],"ina");
strcpy(suffixes[14]," 2");
assign_name(1,1,1);
//disable_priority_mode=0;
Vorder[0]=2;
Vorder[2]=3;
Vorder[3]=4;
Vorder[4]=1;
Vorder[1]=7;
Vorder[7]=6;
Vorder[5]=0;
Vorder[6]=5;
}

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License