320x240 彩色LCD營幕的八角窗形-J 的幾何圖形範例#28

第十個八角窗形- J 的幾何圖形範例
r=51;n=34; // J
for(i=1;i<5;i++)
{ GS[i][0]=120+(cos(((i-1)*90)*PI/180)*(r*2));
 GS[i][1]=180+(sin(((i-1)*90)*PI/180)*(r*2));
}
GS[5][0]=GS[1][0];GS[5][1]=GS[1][1]+n;
GS[6][0]=GS[2][0]+n;GS[6][1]=GS[2][1];
GS[7][0]=GS[2][0]-n;GS[7][1]=GS[2][1];
GS[8][0]=GS[3][0];GS[8][1]=GS[3][1]+n;
GS[9][0]=GS[3][0];GS[9][1]=GS[3][1]-n;
GS[10][0]=GS[4][0]-n;GS[10][1]=GS[4][1];
GS[11][0]=GS[4][0]+n;GS[11][1]=GS[4][1];
GS[12][0]=GS[1][0];GS[12][1]=GS[1][1]-n;
for(i=5;i<12;i++)
{ Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[12][0],GS[12][1],GS[5][0],GS[5][1],YCOLOR[z1]);
//***
for(j=1;j<4;j++)
{ n=(j-1)*4;   
 for(i=1;i<5;i++)
 { GS[i+n][0]=120+(cos((i*90)*PI/180)*(34*j));
  GS[i+n][1]=180+(sin((i*90)*PI/180)*(34*j));
 }
 if(j>=3) goto A1;   
 Line(GS[1+n][0],GS[1+n][1],GS[2+n][0],GS[2+n][1],YCOLOR[z1]);
 Line(GS[2+n][0],GS[2+n][1],GS[3+n][0],GS[3+n][1],YCOLOR[z1]);
 Line(GS[3+n][0],GS[3+n][1],GS[4+n][0],GS[4+n][1],YCOLOR[z1]);
 Line(GS[4+n][0],GS[4+n][1],GS[1+n][0],GS[1+n][1],YCOLOR[z1]);
 A1:
 _nop_();
}
//***
Line(GS[5][0],GS[5][1],GS[9][0],GS[9][1],YCOLOR[3]);
Line(GS[6][0],GS[6][1],GS[10][0],GS[10][1],YCOLOR[3]);
Line(GS[7][0],GS[7][1],GS[11][0],GS[11][1],YCOLOR[3]);
Line(GS[8][0],GS[8][1],GS[12][0],GS[12][1],YCOLOR[3]);
//***
Line(GS[5][0]-34,GS[5][1]-34,GS[1][0]-17,GS[1][1]-17,YCOLOR[3]);   
Line(GS[6][0]+34,GS[6][1]-34,GS[2][0]+17,GS[2][1]-17,YCOLOR[3]);   
Line(GS[7][0]+34,GS[7][1]+34,GS[3][0]+17,GS[3][1]+17,YCOLOR[3]);   
Line(GS[8][0]-34,GS[8][1]+34,GS[4][0]-17,GS[4][1]+17,YCOLOR[3]);
//****
Line(GS[9][0]+34,GS[9][1]-34,GS[5][0]+17,GS[5][1]-17,YCOLOR[3]);
Line(GS[9][0]-34,GS[9][1]-34,GS[5][0]-17,GS[5][1]-17,YCOLOR[3]);
Line(GS[10][0]+34,GS[10][1]+34,GS[6][0]+17,GS[6][1]+17,YCOLOR[3]);
Line(GS[10][0]+34,GS[10][1]-34,GS[6][0]+17,GS[6][1]-17,YCOLOR[3]);
Line(GS[11][0]-34,GS[11][1]+34,GS[7][0]-17,GS[7][1]+17,YCOLOR[3]);
Line(GS[11][0]+34,GS[11][1]+34,GS[7][0]+17,GS[7][1]+17,YCOLOR[3]);
Line(GS[12][0]-34,GS[12][1]-34,GS[8][0]-17,GS[8][1]-17,YCOLOR[3]);
Line(GS[12][0]-34,GS[12][1]+34,GS[8][0]-17,GS[8][1]+17,YCOLOR[3]);
//***
Line(GS[9][0]+17,GS[9][1]-17,GS[12][0]-17,GS[12][1]+17,YCOLOR[3]);
Line(GS[9][0]+17,GS[9][1]-17,GS[9][0]+34,GS[9][1],YCOLOR[3]);
Line(GS[12][0]-17,GS[12][1]+17,GS[12][0],GS[12][1]+34,YCOLOR[3]);
Line(GS[9][0]-17,GS[9][1]-17,GS[6][0]-17,GS[6][1]+17,YCOLOR[3]);
Line(GS[9][0]-17,GS[9][1]-17,GS[9][0]-34,GS[9][1],YCOLOR[3]);   
Line(GS[10][0],GS[10][1]+34,GS[6][0]-17,GS[6][1]+17,YCOLOR[3]);
Line(GS[6][0]-17,GS[6][1]-17,GS[11][0]-17,GS[11][1]+17,YCOLOR[3]); //
Line(GS[10][0],GS[10][1]-34,GS[6][0]-17,GS[6][1]-17,YCOLOR[3]);
Line(GS[11][0]-34,GS[11][1],GS[7][0]-17,GS[7][1]-17,YCOLOR[3]);
Line(GS[11][0]+17,GS[11][1]+17,GS[8][0]+17,GS[8][1]-17,YCOLOR[3]);
Line(GS[11][0]+17,GS[11][1]+17,GS[11][0]+34,GS[11][1],YCOLOR[3]);
Line(GS[8][0]+17,GS[8][1]-17,GS[12][0],GS[12][1]-34,YCOLOR[3]);
//****
Line(GS[8][0],GS[5][1],GS[8][0]-17,GS[5][1]-17,YCOLOR[3]);
Line(GS[6][0],GS[5][1],GS[6][0]+17,GS[5][1]-17,YCOLOR[3]);
Line(GS[6][0],GS[7][1],GS[6][0]+17,GS[7][1]+17,YCOLOR[3]);
Line(GS[8][0],GS[7][1],GS[8][0]-17,GS[7][1]+17,YCOLOR[3]);