網路城邦
上一篇 回創作列表 下一篇   字體:
320x240 彩色LCD營幕的八角窗形-G 的幾何圖形範例#25
2020/04/01 10:39:40瀏覽351|回應0|推薦0

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

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

 

 

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

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