北极星图案计算机图形学.doc
- 文档编号:1220567
- 上传时间:2023-04-30
- 格式:DOC
- 页数:4
- 大小:23.50KB
北极星图案计算机图形学.doc
《北极星图案计算机图形学.doc》由会员分享,可在线阅读,更多相关《北极星图案计算机图形学.doc(4页珍藏版)》请在冰点文库上搜索。
北极星图案计算机图形学
一、效果:
二、程序源代码:
/*TC北极星图案计算机图形学*/
#include"Stdio.h"
#include"Conio.h"
#include"graphics.h"
#include"math.h"
#definePI3.1415926
voidbei_ji_xing(floatx,floaty,floatr,floatb)
{
inti;
floatxo[19],yo[19];
for(i=2;i<=16;i=i+2)
{xo[i]=x+r*sin((i-1)*PI/8+b);
yo[i]=y-r*cos((i-1)*PI/8+b);
}
xo[1]=x+2.5*r*sin(b);xo[9]=x-2.5*r*sin(b);
yo[1]=y-2.5*r*cos(b);
yo[9]=y+2.5*r*cos(b);
for(i=3;i<=15;i=i+4)
{xo[i]=x+2*r*sin((i-1)*PI/8+b);
yo[i]=y-2*r*cos((i-1)*PI/8+b);
}
xo[5]=x+1.5*r*cos(b);
xo[13]=x-1.5*r*cos(b);
yo[5]=y+2*r*sin(b);yo[13]=y-2*r*sin(b);
for(i=1;i<16;i++)
{line(xo[i],yo[i],xo[i+1],yo[i+1]);
}
line(xo[1],yo[1],xo[16],yo[16]);
for(i=1;i<=16;i++)
{line(x,y,xo[i],yo[i]);}
setfillstyle(1,i);delay(1000);floodfill(x+12,y-2,7);
setfillstyle(1,i);delay(1000);floodfill(x-12,y+2,7);
setfillstyle(1,i+1);delay(1000);floodfill(x-2,y-12,7);
setfillstyle(1,i+1);delay(1000);floodfill(x+2,y+12,7);
setfillstyle(1,i+2);delay(1000);floodfill(x+12,y-8,7);
setfillstyle(1,i+2);delay(1000);floodfill(x-12,y+8,7);
setfillstyle(1,i+3);delay(1000);floodfill(x-8,y-12,7);
setfillstyle(1,i+3);delay(1000);floodfill(x+8,y+12,7);
}
intmain(void)
{inti;
floatb=0,x=250,y=250,r=40;/*b是角度*/
intgdriver=DETECT,gmode;
initgraph(&gdriver,&gmode,"");
setbkcolor(0);
setcolor(7);
for(i=0;i<=15;i++)
{cleardevice();
r=r+3;
bei_ji_xing(x,y,r,b);
delay(100000);
}
for(i=15;i>=0;i--)
{cleardevice();
r=r-3;
bei_ji_xing(x,y,r,b);
delay(100000);
}
for(x=250;x<=400;x+=25)
{cleardevice();
bei_ji_xing(x,y,r,b);
delay(100000);
}
for(y=250;y>=100;y-=25)
{cleardevice();
bei_ji_xing(x,y,r,b);
delay(100000);
}
for(b=0;b<=PI;b+=PI/32)
{cleardevice();
bei_ji_xing(x,y,r,b);
delay(100000);
}
for(b=0,x=400,y=100;b<=PI,x>=250,y<=250;b-=PI/8,x-=6.25,y+=6.25)
{cleardevice();
bei_ji_xing(x,y,r,b);
delay(100000);
}
for(b=0,x=250,y=250,r=40;b<=PI,x<=400,y>=100,r>=15;b-=PI/8,x+=6.25,y-=6.25,r-=1)
{cleardevice();
bei_ji_xing(x,y,r,b);
delay(100000);
}
getch();
closegraph();
}
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 北极星 图案 计算机 图形学