北极星图案计算机图形学Word文件下载.doc

北极星图案计算机图形学Word文件下载.doc

《北极星图案计算机图形学Word文件下载.doc》由会员分享，可在线阅读，更多相关《北极星图案计算机图形学Word文件下载.doc（4页珍藏版）》请在冰点文库上搜索。

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;

=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;

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;

{line（x,y,xo[i],yo[i]）;

}

setfillstyle（1,i）;

delay（1000）;

floodfill（x+12,y-2,7）;

floodfill（x-12,y+2,7）;

setfillstyle（1,i+1）;

delay（1000）;

floodfill（x-2,y-12,7）;

floodfill（x+2,y+12,7）;

setfillstyle（1,i+2）;

floodfill（x+12,y-8,7）;

floodfill（x-12,y+8,7）;

setfillstyle（1,i+3）;

floodfill（x-8,y-12,7）;

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;

{cleardevice（）;

r=r+3;

bei_ji_xing（x,y,r,b）;

delay（100000）;

}

for（i=15;

i>

=0;

i--）

{cleardevice（）;

r=r-3;

delay（100000）;

for（x=250;

x<

=400;

x+=25）

for（y=250;

y>

=100;

y-=25）

for（b=0;

b<

=PI;

b+=PI/32）

for（b=0,x=400,y=100;

=PI,x>

=250,y<

=250;

b-=PI/8,x-=6.25,y+=6.25）

for（b=0,x=250,y=250,r=40;

=PI,x<

=400,y>

=100,r>

b-=PI/8,x+=6.25,y-=6.25,r-=1）

getch（）;

closegraph（）;