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

 第五個八角窗形-E的幾何圖形範例
r=50;
for(i=1;i<5;i++)
{ GS[i][0]=120+(cos(((i-1)*90)*PI/180)*105);
 GS[i][1]=180+(sin(((i-1)*90)*PI/180)*105);
}   
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]);  }
Line(GS[12][0],GS[12][1],GS[5][0],GS[5][1],YCOLOR[z1]);
//**
GS[1][0]=195;GS[1][1]=195;
GS[2][0]=195;GS[2][1]=165;
GS[3][0]=225;GS[3][1]=165;
GS[4][0]=225;GS[4][1]=195;
for(i=1;i<4;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[4][0],GS[4][1],YCOLOR[z1]);
//**
GS[1][0]=15;GS[1][1]=195;
GS[2][0]=15;GS[2][1]=165;
GS[3][0]=45;GS[3][1]=165;
GS[4][0]=45;GS[4][1]=195;
for(i=1;i<4;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[4][0],GS[4][1],YCOLOR[z1]);
//**
GS[1][0]=105;GS[1][1]=105;
GS[2][0]=105;GS[2][1]=75;
GS[3][0]=135;GS[3][1]=75;
GS[4][0]=135;GS[4][1]=105;
for(i=1;i<4;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[4][0],GS[4][1],YCOLOR[z1]);
//**
GS[1][0]=105;GS[1][1]=285;
GS[2][0]=105;GS[2][1]=255;
GS[3][0]=135;GS[3][1]=255;
GS[4][0]=135;GS[4][1]=285;
for(i=1;i<4;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[4][0],GS[4][1],YCOLOR[z1]);
GS[1][0]=165;GS[1][1]=75;
GS[2][0]=165;GS[2][1]=105;
GS[3][0]=200;GS[3][1]=105;
Line(GS[1][0],GS[1][1],GS[2][0],GS[2][1],YCOLOR[z1]);
Line(GS[2][0],GS[2][1],GS[3][0],GS[3][1],YCOLOR[z1]);
GS[1][0]=225;GS[1][1]=225;
GS[2][0]=195;GS[2][1]=225;
GS[3][0]=195;GS[3][1]=260;
Line(GS[1][0],GS[1][1],GS[2][0],GS[2][1],YCOLOR[z1]);
Line(GS[2][0],GS[2][1],GS[3][0],GS[3][1],YCOLOR[z1]);
GS[1][0]=75;GS[1][1]=285;
GS[2][0]=75;GS[2][1]=255;
GS[3][0]=40;GS[3][1]=255;
Line(GS[1][0],GS[1][1],GS[2][0],GS[2][1],YCOLOR[z1]);
Line(GS[2][0],GS[2][1],GS[3][0],GS[3][1],YCOLOR[z1]);
GS[1][0]=15;GS[1][1]=135;
GS[2][0]=45;GS[2][1]=135;
GS[3][0]=44;GS[3][1]=100;
Line(GS[1][0],GS[1][1],GS[2][0],GS[2][1],YCOLOR[z1]);
Line(GS[2][0],GS[2][1],GS[3][0],GS[3][1],YCOLOR[z1]);
//****
GS[1][0]=135;GS[1][1]=165;
GS[2][0]=165;GS[2][1]=165;
GS[3][0]=165;GS[3][1]=135;
GS[4][0]=195;GS[4][1]=135;
GS[5][0]=195;GS[5][1]=195;
GS[6][0]=165;GS[6][1]=195;
GS[7][0]=165;GS[7][1]=225;
GS[8][0]=135;GS[8][1]=225;
for(i=1;i<8;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[8][0],GS[8][1],YCOLOR[z1]);
//***
GS[1][0]=45;GS[1][1]=165;
GS[2][0]=75;GS[2][1]=165;
GS[3][0]=75;GS[3][1]=135;
GS[4][0]=105;GS[4][1]=135;
GS[5][0]=105;GS[5][1]=195;
GS[6][0]=75;GS[6][1]=195;
GS[7][0]=75;GS[7][1]=225;
GS[8][0]=45;GS[8][1]=225;
for(i=1;i<8;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[8][0],GS[8][1],YCOLOR[z1]);
//***
GS[1][0]=105;GS[1][1]=165;
GS[2][0]=105;GS[2][1]=135;
GS[3][0]=75;GS[3][1]=135;
GS[4][0]=75;GS[4][1]=105;
GS[5][0]=135;GS[5][1]=105;
GS[6][0]=135;GS[6][1]=135;
GS[7][0]=165;GS[7][1]=135;
GS[8][0]=165;GS[8][1]=165;
for(i=1;i<8;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[8][0],GS[8][1],YCOLOR[z1]);
//***
GS[1][0]=105;GS[1][1]=255;
GS[2][0]=105;GS[2][1]=225;
GS[3][0]=75;GS[3][1]=225;
GS[4][0]=75;GS[4][1]=195;
GS[5][0]=135;GS[5][1]=195;
GS[6][0]=135;GS[6][1]=225;
GS[7][0]=165;GS[7][1]=225;
GS[8][0]=165;GS[8][1]=255;
for(i=1;i<8;i++)
{  Line(GS[i][0],GS[i][1],GS[i+1][0],GS[i+1][1],YCOLOR[z1]);  }
Line(GS[1][0],GS[1][1],GS[8][0],GS[8][1],YCOLOR[z1]);