// M A I N   R O U T I N E -----------------------------------------------------
// Execute Code and Functions ---------------------------------------------------

x_res=240;
y_res=320;
setpen(100,100,255, 0, 1); // Set pen color

rotation(r1,r2,r3);
for (t2=1;t2<=6;t2++) // Draw 6 sides of the cube
  {
  xw=array1[p1][0];
  yw=array1[p1][1];
  zw=array1[p1][2];
  calc_3d(xw,yw,zw);
  window(sx,sy);
  sxa=sx;
  sya=sy;

    for(t1=1;t1<=4;t1++)
      {p1++;
       xw=array1[p1][0];
       yw=array1[p1][1];
       zw=array1[p1][2];
       calc_3d(xw,yw,zw);
       window(sx,sy);
       sxs=sx;
       sys=sy;
       sxb=sx;
       syb=sy;
	   viewport(sxa,sya,sxb,syb);
       moveto(sxa,sya);
       lineto(sxb,syb);
       sxa=sxs;sya=sys;
      };
    p1++;};