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

第九個八角窗形- I 的幾何圖形範例
r=51;n=34; // I
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]);
//***
Rectangle(103,163,137,197,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));
 }   
 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]);
}
//***
Line(GS[1][0],GS[1][1],GS[1][0]+17,GS[1][1]+17,YCOLOR[3]);
Line(GS[1][0],GS[1][1],GS[1][0]-17,GS[1][1]+17,YCOLOR[3]);
Line(GS[2][0],GS[2][1],GS[2][0]-17,GS[2][1]+17,YCOLOR[3]);
Line(GS[2][0],GS[2][1],GS[2][0]-17,GS[2][1]-17,YCOLOR[3]);
Line(GS[3][0],GS[3][1],GS[3][0]-17,GS[3][1]-17,YCOLOR[3]);
Line(GS[3][0],GS[3][1],GS[3][0]+17,GS[3][1]-17,YCOLOR[3]);
Line(GS[4][0],GS[4][1],GS[4][0]+17,GS[4][1]+17,YCOLOR[3]);
Line(GS[4][0],GS[4][1],GS[4][0]+17,GS[4][1]-17,YCOLOR[3]);
//***
Line(GS[5][0],GS[5][1],GS[9][0],GS[9][1],YCOLOR[3]);
Line(GS[5][0]-34,GS[5][1]-34,GS[5][0]-51,GS[5][1]-17,YCOLOR[3]);
Line(GS[6][0],GS[6][1],GS[10][0],GS[10][1],YCOLOR[3]);
Line(GS[6][0]+34,GS[6][1]-34,GS[6][0]+17,GS[6][1]-51,YCOLOR[3]);
Line(GS[7][0],GS[7][1],GS[11][0],GS[11][1],YCOLOR[3]);
Line(GS[7][0]+34,GS[7][1]+34,GS[7][0]+51,GS[7][1]+17,YCOLOR[3]);
Line(GS[8][0],GS[8][1],GS[12][0],GS[12][1],YCOLOR[3]);
Line(GS[8][0]-34,GS[8][1]+34,GS[8][0]-17,GS[8][1]+51,YCOLOR[3]);
//****
Line(GS[9][0]+34,GS[9][1]-34,GS[9][0]+51,GS[9][1]-17,YCOLOR[3]);
Line(GS[9][0]-34,GS[9][1]-34,GS[9][0]-51,GS[9][1]-17,YCOLOR[3]);
Line(GS[10][0]+34,GS[10][1]+34,GS[10][0]+17,GS[10][1]+51,YCOLOR[3]);
Line(GS[10][0]+34,GS[10][1]-34,GS[10][0]+17,GS[10][1]-51,YCOLOR[3]);
Line(GS[11][0]-34,GS[11][1]+34,GS[11][0]-51,GS[11][1]+17,YCOLOR[3]);
Line(GS[11][0]+34,GS[11][1]+34,GS[11][0]+51,GS[11][1]+17,YCOLOR[3]);
Line(GS[12][0]-34,GS[12][1]-34,GS[12][0]-17,GS[12][1]-51,YCOLOR[3]);
Line(GS[12][0]-34,GS[12][1]+34,GS[12][0]-17,GS[12][1]+51,YCOLOR[3]);