網路城邦
上一篇 回創作列表 下一篇   字體:
320x240 彩色LCD營幕的八角窗形-H 的幾何圖形範例#26
2020/04/01 16:38:37瀏覽287|回應0|推薦0

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

 第八個八角窗形-H 的幾何圖形範例
r=54;  // H
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]+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]);
//***
Rectangle( 36,168,108,192,YCOLOR[z1]);
Rectangle(132,168,204,192,YCOLOR[z1]);
Rectangle(108,144,132,216,YCOLOR[z1]);
Rectangle( 60, 96, 84,168,YCOLOR[z1]);
Rectangle( 60,192, 84,264,YCOLOR[z1]);
Rectangle(156, 96,180,168,YCOLOR[z1]);
Rectangle(156,192,180,264,YCOLOR[z1]);
Rectangle(108, 96,132, 72,YCOLOR[z1]);
Rectangle(108,120,132, 96,YCOLOR[z1]);
Line(84,120,156,120,YCOLOR[z1]);
Line(84,240,156,240,YCOLOR[z1]);
Rectangle(108,240,132,264,YCOLOR[z1]);
Rectangle(108,264,132,288,YCOLOR[z1]);
Rectangle( 36,120, 60,144,YCOLOR[z1]);
Rectangle( 36,216, 60,240,YCOLOR[z1]);
Rectangle(180,120,204,144,YCOLOR[z1]);
Rectangle(180,216,204,240,YCOLOR[z1]);
Line( 36,144, 12,144,YCOLOR[z1]);
Line(204,144,228,144,YCOLOR[z1]);
Line( 36,216, 12,216,YCOLOR[z1]);
Line(204,216,228,216,YCOLOR[z1]);
Line( 36,120, 36,102,YCOLOR[z1]); //
Line( 36,240, 36,258,YCOLOR[z1]);
Line(204,120,204,102,YCOLOR[z1]);   
Line(204,240,204,258,YCOLOR[z1]);

 

 

( 興趣嗜好電腦3C )
回應 推薦文章 列印 加入我的文摘
上一篇 回創作列表 下一篇

引用
引用網址:https://classic-blog.udn.com/article/trackback.jsp?uid=PYANG&aid=132324279