C語言編寫實現玫瑰花

1.#include <dos.h>
 
2.#include <graphics.h>
 
3.#include <math.h>
 
4./*玫瑰花*/
 
5.#define FNX(x) (int)(xo+(x)*1.0)
 
6.#define FNY(y) (int)(getmaxy()-(yo+(y)*1.0))
 
7.#define FNX2(phi) cos(phi)*ac-sin(phi)*bs
 
8.#define FNY2(phi) cos(phi)*as+sin(phi)*bc
 
9.
 
10./*畫旋轉的橢圓*/
 
11.void elli(int xo,int yo,int a,int b,double theta)
 
12.{
 
13.int i;
 
14.double da,c,s,ac,as,bc,bs,xf,yf,phi,x,y;
 
15.theta=theta*0.01745;
 
16.da=3*0.1745;
 
17.c=cos(theta);s=sin(theta);
 
18.ac=a*c;as=a*s;bc=b*c;bs=b*s;
 
19.x=FNX2(0);y=FNY2(0);
 
20.moveto(FNX(x),FNY(y));
 
21.for(i=1;i<=360;i++)
 
22.{
 
23.phi=i*da;xf=x*cos(phi)*0.1;yf=b*sin(phi)*0.1;
 
24.x=FNX2(phi);y=FNY2(phi);
 
25.lineto(FNX(x),FNY(y));
 
26.}
 
27.}
 
28.
 
29./*花*/
 
30.void hua(int x,int y)
 
31.{
 
32.register i;
 
33./*畫粉紅色玫瑰*/
 
34.setcolor(12);
 
35.arc(x+65,y-60,150,350,8);
 
36.arc(x+66,y-54,300,470,8);
 
37.arc(x+65,y-56,30,230,10);
 
38.arc(x+64,y-57,300,490,17);
 
39.ellipse(x+73,y-30,250,450,27,40);
 
40.ellipse(x+59,y-30,100,290,27,40);
 
41.ellipse(x+65,y-40,140,270,20,30);
 
42.setfillstyle(SOLID_FILL,5);
 
43.floodfill(x+65,y-20,12);
 
44./*畫紅色玫瑰*/
 
45.arc(x,y,150,350,12);
 
46.arc(x+1,y+8,280,470,12);
 
47.arc(x,y+2,30,230,16);
 
48.arc(x,y+3,80,240,28);
 
49.arc(x+2,y+8,180,330,22);
 
50.arc(x-2,y+2,310,460,25);
 
51.ellipse(x-12,y+30,120,300,30,40);
 
52.ellipse(x+10,y+28,250,423,30,42);
 
53.ellipse(x-4,y+10,290,393,30,40);
 
54.setfillstyle(SOLID_FILL,4);
 
55.floodfill(x+5,y+31,12);
 
56./*畫紫色花骨朵*/
 
57.ellipse(x+120,y+5,0,360,15,25);
 
58.setfillstyle(SOLID_FILL,1);
 
59.floodfill(x+120,y,12);
 
60./*畫黃色花骨朵*/
 
61.ellipse(x-70,y+10,0,360,14,20);
 
62.setfillstyle(SOLID_FILL,14);
 
63.floodfill(x-70,y+10,12);
 
64.setcolor(10);
 
65./*畫紅花花萼*/
 
66.ellipse(x-15,y+32,190,310,30,35);
 
67.ellipse(x+16,y+32,235,355,26,35);
 
68.ellipse(x,y+35,190,350,43,50);
 
69.arc(x,y+82,190,350,6);
 
70.setfillstyle(SOLID_FILL,2);
 
71.floodfill(x,y+75,10);
 
72./*畫粉花花萼*/
 
73.ellipse(x+50,y-48,190,320,22,50);
 
74.ellipse(x+80,y-48,220,350,22,50);
 
75.ellipse(x+65,y-28,180,360,36,50);
 
76.floodfill(x+65,y+18,10);
 
77./*畫主枝*/
 
78.for(i=0;i<3;i++ )
 
79.{
 
80.ellipse(x-98,y+100+i,255,371,100,80);
 
81.ellipse(x-20,y+30+i,260,358,140,140);
 
82.ellipse(x+224,y+20+i,180,218,160,140);
 
83.}
 
84./*畫側枝*/
 
85.ellipse(x+70,y+34,180,233,140,140);
 
86.ellipse(x,y+40,205,255,100,120);
 
87.ellipse(x+135,y-30,209,249,72,120);
 
88.ellipse(x,y+20,263,301,100,120);
 
89.ellipse(x+85,y-10,278,305,100,120);
 
90.ellipse(x+100,y-62,282,308,90,120);