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

 第三個八角窗形-C的幾何圖形範例
r=40;
for(i=1;i<5;i++) 

{ GS[i][0]=120+(cos(((i-1)*90)*PI/180)*90);
 GS[i+16][0]=120+(cos(((i-1)*90)*PI/180)*20);
 GS[i][1]=180+(sin(((i-1)*90)*PI/180)*90);
 GS[i+16][1]=180+(sin(((i-1)*90)*PI/180)*20);
}
GS[5][0]=GS[1][0];GS[5][1]=GS[1][1]+r;
GS[6][0]=GS[2][0]+r;GS[6][1]=GS[2][1];
GS[7][0]=GS[2][0]-r;GS[7][1]=GS[2][1];
GS[8][0]=GS[3][0];GS[8][1]=GS[3][1]+r;
GS[9][0]=GS[3][0];GS[9][1]=GS[3][1]-r;
GS[10][0]=GS[4][0]-r;GS[10][1]=GS[4][1];
GS[11][0]=GS[4][0]+r;GS[11][1]=GS[4][1];
GS[12][0]=GS[1][0];GS[12][1]=GS[1][1]-r;
for(i=5;i<12;i++)

{ Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]); 
}
//****
GS[13][0]=120+(cos(45*PI/180)*r);
GS[13][1]=180+(sin(45*PI/180)*r);
GS[29][0]=GS[1][0]+(cos(135*PI/180)*r);
GS[29][1]=GS[1][1]+(sin(135*PI/180)*r);
GS[30][0]=GS[2][0]+(cos(315*PI/180)*r);
GS[30][1]=GS[2][1]+(sin(315*PI/180)*r);
GS[21][0]=GS[6][0]+(cos(315*PI/180)*(r+10));
GS[21][1]=GS[6][1]+(sin(315*PI/180)*(r+10));
GS[22][0]=GS[5][0]+(cos(135*PI/180)*(r+10));
GS[22][1]=GS[5][1]+(sin(135*PI/180)*(r+10));   
Line(GS[13][0],GS[13][1],120,180,YCOLOR[z1]);
Line(GS[29][0],GS[29][1],GS[1][0],GS[1][1],YCOLOR[z1]);
Line(GS[29][0],GS[29][1],GS[13][0],GS[13][1],YCOLOR[z1]);
Line(GS[30][0],GS[30][1],GS[13][0],GS[13][1],YCOLOR[z1]);
Line(GS[30][0],GS[30][1],GS[2][0],GS[2][1],YCOLOR[z1]);
Line(GS[29][0],GS[29][1],GS[21][0],GS[21][1],YCOLOR[z1]);
Line(GS[30][0],GS[30][1],GS[22][0],GS[22][1],YCOLOR[z1]);
//****
GS[14][0]=120+(cos(135*PI/180)*r);
GS[14][1]=180+(sin(135*PI/180)*r);
GS[31][0]=GS[2][0]+(cos(225*PI/180)*r);
GS[31][1]=GS[2][1]+(sin(225*PI/180)*r);
GS[32][0]=GS[3][0]+(cos(45*PI/180)*r);
GS[32][1]=GS[3][1]+(sin(45*PI/180)*r);
GS[23][0]=GS[8][0]+(cos(45*PI/180)*(r+10));
GS[23][1]=GS[8][1]+(sin(45*PI/180)*(r+10));
GS[24][0]=GS[7][0]+(cos(225*PI/180)*(r+10));
GS[24][1]=GS[7][1]+(sin(225*PI/180)*(r+10));   
Line(GS[14][0],GS[14][1],120,180,YCOLOR[z1]);
Line(GS[31][0],GS[31][1],GS[2][0],GS[2][1],YCOLOR[z1]);
Line(GS[31][0],GS[31][1],GS[14][0],GS[14][1],YCOLOR[z1]);
Line(GS[32][0],GS[32][1],GS[14][0],GS[14][1],YCOLOR[z1]);
Line(GS[32][0],GS[32][1],GS[3][0],GS[3][1],YCOLOR[z1]);
Line(GS[31][0],GS[31][1],GS[23][0],GS[23][1],YCOLOR[z1]);
Line(GS[32][0],GS[32][1],GS[24][0],GS[24][1],YCOLOR[z1]);
//****
GS[15][0]=120+(cos(225*PI/180)*r); 
GS[15][1]=180+(sin(225*PI/180)*r);
GS[33][0]=GS[3][0]+(cos(315*PI/180)*r);
GS[33][1]=GS[3][1]+(sin(315*PI/180)*r);
GS[34][0]=GS[4][0]+(cos(135*PI/180)*r);
GS[34][1]=GS[4][1]+(sin(135*PI/180)*r);
GS[25][0]=GS[10][0]+(cos(135*PI/180)*(r+10))
GS[25][1]=GS[10][1]+(sin(135*PI/180)*(r+10));
GS[26][0]=GS[9][0]+(cos(315*PI/180)*(r+10));
GS[26][1]=GS[9][1]+(sin(315*PI/180)*(r+10));
Line(GS[15][0],GS[15][1],120,180,YCOLOR[z1]);
Line(GS[33][0],GS[33][1],GS[3][0],GS[3][1],YCOLOR[z1]);
Line(GS[33][0],GS[33][1],GS[15][0],GS[15][1],YCOLOR[z1]);
Line(GS[34][0],GS[34][1],GS[15][0],GS[15][1],YCOLOR[z1]);
Line(GS[34][0],GS[34][1],GS[4][0],GS[4][1],YCOLOR[z1]);
Line(GS[33][0],GS[33][1],GS[25][0],GS[25][1],YCOLOR[z1]);
Line(GS[34][0],GS[34][1],GS[26][0],GS[26][1],YCOLOR[z1]);
//****
GS[16][0]=120+(cos(315*PI/180)*r);
GS[16][1]=180+(sin(315*PI/180)*r);
GS[35][0]=GS[4][0]+(cos(45*PI/180)*r);
GS[35][1]=GS[4][1]+(sin(45*PI/180)*r);
GS[36][0]=GS[1][0]+(cos(225*PI/180)*r);
GS[36][1]=GS[1][1]+(sin(225*PI/180)*r);
GS[27][0]=GS[12][0]+(cos(225*PI/180)*(r+10));
GS[27][1]=GS[12][1]+(sin(225*PI/180)*(r+10));
GS[28][0]=GS[11][0]+(cos(45*PI/180)*(r+10));
GS[28][1]=GS[11][1]+(sin(45*PI/180)*(r+10));
Line(GS[16][0],GS[16][1],120,180,YCOLOR[z1]);
Line(GS[35][0],GS[35][1],GS[4][0],GS[4][1],YCOLOR[z1]);
Line(GS[35][0],GS[35][1],GS[16][0],GS[16][1],YCOLOR[z1]);
Line(GS[36][0],GS[36][1],GS[16][0],GS[16][1],YCOLOR[z1]);
Line(GS[36][0],GS[36][1],GS[1][0],GS[1][1],YCOLOR[z1]);
Line(GS[35][0],GS[35][1],GS[27][0],GS[27][1],YCOLOR[z1]);
Line(GS[36][0],GS[36][1],GS[28][0],GS[28][1],YCOLOR[z1]);
//****
Line(GS[17][0],GS[17][1],GS[18][0],GS[18][1],YCOLOR[z1]);
Line(GS[18][0],GS[18][1],GS[19][0],GS[19][1],YCOLOR[z1]);
Line(GS[19][0],GS[19][1],GS[20][0],GS[20][1],YCOLOR[z1]);
Line(GS[20][0],GS[20][1],GS[17][0],GS[17][1],YCOLOR[z1]);
Line(GS[1][0],GS[1][1],GS[17][0],GS[17][1],YCOLOR[z1]);
Line(GS[2][0],GS[2][1],GS[18][0],GS[18][1],YCOLOR[z1]);
Line(GS[3][0],GS[3][1],GS[19][0],GS[19][1],YCOLOR[z1]);
Line(GS[4][0],GS[4][1],GS[20][0],GS[20][1],YCOLOR[z1]);
Line(GS[12][0],GS[12][1],GS[5][0],GS[5][1],YCOLOR[z1]);