Create Event

init_3D_vars();
sxt[0] = 0;
sxt[1] = 0;
sxt[2] = 0;
syt[0] = 0;
syt[1] = 0;
syt[2] = 0;
global.surid = 0;
global.surid = surface_create(view_wport,view_hport);

Ex = view_wport/2;
Ey = view_hport/2;
Ez = 1500; //(could be anything > 1)

count = 0;
a = 0;
b = 0;
c = 0;
m = 0;
n = 0;
coly = c_red;
tempz = 0;

//1-4 are lower half
object_x[0,0] = 25;
object_y[0,0] = -25;
object_z[0,0] = -25;
object_x[0,1] = -25;
object_y[0,1] = -25;
object_z[0,1] = -25;
object_x[0,2] = -25;
object_y[0,2] = -25;
object_z[0,2] = 25;
object_x[0,3] = 25;
object_y[0,3] = -25;
object_z[0,3] = 25;
//5-8 are upper half
object_x[0,4] = 25;
object_y[0,4] = 25;
object_z[0,4] = -25;
object_x[0,5] = -25;
object_y[0,5] = 25;
object_z[0,5] = -25;
object_x[0,6] = -25;
object_y[0,6] = 25;
object_z[0,6] = 25;
object_x[0,7] = 25;
object_y[0,7] = 25;
object_z[0,7] = 25;
object_vertices[0] = 8;
//to conclude this has 8 vertices
ref_max[0] = 12;
//the object has 12 triangles

//polygon 1,2,3 (don't forget to -1 these numbers)
ref_x1[0,0] = 0;
ref_y1[0,0] = 0;
ref_z1[0,0] = 0;
ref_x2[0,0] = 1;
ref_y2[0,0] = 1;
ref_z2[0,0] = 1;
ref_x3[0,0] = 2;
ref_y3[0,0] = 2;
ref_z3[0,0] = 2;

//polygon 1,3,4
ref_x1[0,1] = 0;
ref_y1[0,1] = 0;
ref_z1[0,1] = 0;
ref_x2[0,1] = 2;
ref_y2[0,1] = 2;
ref_z2[0,1] = 2;
ref_x3[0,1] = 3;
ref_y3[0,1] = 3;
ref_z3[0,1] = 3;

//polygon 1,2,6
ref_x1[0,2] = 0;
ref_y1[0,2] = 0;
ref_z1[0,2] = 0;
ref_x2[0,2] = 1;
ref_y2[0,2] = 1;
ref_z2[0,2] = 1;
ref_x3[0,2] = 5;
ref_y3[0,2] = 5;
ref_z3[0,2] = 5;

//polygon 1,4,8
ref_x1[0,3] = 0;
ref_y1[0,3] = 0;
ref_z1[0,3] = 0;
ref_x2[0,3] = 3;
ref_y2[0,3] = 3;
ref_z2[0,3] = 3;
ref_x3[0,3] = 7;
ref_y3[0,3] = 7;
ref_z3[0,3] = 7;

//polygon 1,5,6
ref_x1[0,4] = 0;
ref_y1[0,4] = 0;
ref_z1[0,4] = 0;
ref_x2[0,4] = 4;
ref_y2[0,4] = 4;
ref_z2[0,4] = 4;
ref_x3[0,4] = 5;
ref_y3[0,4] = 5;
ref_z3[0,4] = 5;

//polygon 1,5,8
ref_x1[0,5] = 0;
ref_y1[0,5] = 0;
ref_z1[0,5] = 0;
ref_x2[0,5] = 4;
ref_y2[0,5] = 4;
ref_z2[0,5] = 4;
ref_x3[0,5] = 7;
ref_y3[0,5] = 7;
ref_z3[0,5] = 7;

//polygon 2,3,6
ref_x1[0,6] = 1;
ref_y1[0,6] = 1;
ref_z1[0,6] = 1;
ref_x2[0,6] = 2;
ref_y2[0,6] = 2;
ref_z2[0,6] = 2;
ref_x3[0,6] = 5;
ref_y3[0,6] = 5;
ref_z3[0,6] = 5;

//polygon 3,4,8
ref_x1[0,7] = 2;
ref_y1[0,7] = 2;
ref_z1[0,7] = 2;
ref_x2[0,7] = 3;
ref_y2[0,7] = 3;
ref_z2[0,7] = 3;
ref_x3[0,7] = 7;
ref_y3[0,7] = 7;
ref_z3[0,7] = 7;

//polygon 3,6,7
ref_x1[0,8] = 2;
ref_y1[0,8] = 2;
ref_z1[0,8] = 2;
ref_x2[0,8] = 5;
ref_y2[0,8] = 5;
ref_z2[0,8] = 5;
ref_x3[0,8] = 6;
ref_y3[0,8] = 6;
ref_z3[0,8] = 6;

//polygon 3,7,8
ref_x1[0,9] = 2;
ref_y1[0,9] = 2;
ref_z1[0,9] = 2;
ref_x2[0,9] = 6;
ref_y2[0,9] = 6;
ref_z2[0,9] = 6;
ref_x3[0,9] = 7;
ref_y3[0,9] = 7;
ref_z3[0,9] = 7;

//polygon 5,6,8
ref_x1[0,10] = 4;
ref_y1[0,10] = 4;
ref_z1[0,10] = 4;
ref_x2[0,10] = 5;
ref_y2[0,10] = 5;
ref_z2[0,10] = 5;
ref_x3[0,10] = 7;
ref_y3[0,10] = 7;
ref_z3[0,10] = 7;

//polygon 6,7,8
ref_x1[0,11] = 5;
ref_y1[0,11] = 5;
ref_z1[0,11] = 5;
ref_x2[0,11] = 6;
ref_y2[0,11] = 6;
ref_z2[0,11] = 6;
ref_x3[0,11] = 7;
ref_y3[0,11] = 7;
ref_z3[0,11] = 7;

reffacecol[0,0] = c_red;
reffacecol[0,1] = c_red;
reffacecol[0,2] = c_yellow;
reffacecol[0,3] = c_yellow;
reffacecol[0,4] = c_blue;
reffacecol[0,5] = c_blue;
reffacecol[0,6] = c_green;
reffacecol[0,7] = c_green;
reffacecol[0,8] = c_purple;
reffacecol[0,9] = c_purple;
reffacecol[0,10] = c_orange;
reffacecol[0,11] = c_orange;
//end of the create event