81.c.bak

上百个标准C语言的源代码

#include <graphics.h>
#include <stdio.h>
#include <time.h>
#include <dos.h>
#define maxx 640
#define maxy 480
#define minx 0
#define miny 0
#define midx 320
#define midy 240
#define r 15

main()
{int i,x,y;
 char c;
 init();
 ground();
 x=320;
 y=240;
 dazuir(x,y,13);
 c=' ';
 while(c!='\015')
 {c=getch();
  switch(c)
  {case 'M': {dazui(x,y,13);
      delay(2000);
      dazui(x,y,0);
      x=x+15;
      delay(1000);
      dazuir(x,y,13);
      break;}
   case 'H': {dazui(x,y,13);
      delay(2000);
      dazui(x,y,0);
      y=y-15;
      delay(1000);
      dazuit(x,y,13);
      break;}
   case 'K': {dazui(x,y,13);
      delay(2000);
      dazui(x,y,0);
      x=x-15;
      delay(1000);
      dazuil(x,y,13);
      break;}
   case 'P': {dazui(x,y,13);
      delay(2000);
      dazui(x,y,0);
      y=y+15;
      delay(1000);
      dazuib(x,y,13);
      break;}
    default:;
   }
 }
}

init()
/*初始化图形系统函数*/
{int gdriver=DETECT,gmode;
 initgraph(&gdriver,&gmode,"c:\\tc\\bgi");
 setbkcolor(0);/*背景黑色*/
 return;
}


ground()
/*画绿地*/
{int i,rx,ry;
 for(i=1;i<=20000;i++)
  putpixel(rand()%maxx,rand()%maxy,2);
 for(i=1;i<=1000;i++)
  {rx=rand()%maxx;ry=rand()%maxy;
   putpixel(rx,ry,12);
   putpixel(rx+1,ry,12);
   putpixel(rx+1,ry+1,12);}

 for(i=1;i<=20000;i++)
  putpixel(rand()%maxx,rand()%maxy,10);
 return;
}

dazui(int x,int y,int lcolor)
/*在x,y处以lcolor色画合上的大嘴巴*/
{setcolor(lcolor);
 setfillstyle(1,lcolor);
 pieslice(x,y,0,360,r);
 setlinestyle(0,0,3);
 setcolor(0);
 circle(x+4,y-6,2);
 return;
}

dazuir(int x,int y,int lcolor)
/*在x,y处以lcolor色画向右大嘴巴*/
{setcolor(lcolor);
 setfillstyle(1,lcolor);
 pieslice(x,y,30,330,r);
 setlinestyle(0,0,3);
 setcolor(0);
 circle(x+4,y-6,2);
 return;
}

dazuil(int x,int y,int lcolor)
/*在x,y处以lcolor色画向左大嘴巴*/
{setcolor(lcolor);
 setfillstyle(1,lcolor);
 pieslice(x,y,210,360,r);
 pieslice(x,y,0,150,r);
 setlinestyle(0,0,3);
 setcolor(0);
 circle(x-4,y-6,2);
 return;
}

dazuit(int x,int y,int lcolor)
/*在x,y处以lcolor色画向上大嘴巴*/
{setcolor(lcolor);
 setfillstyle(1,lcolor);
 pieslice(x,y,120,360,r);
 pieslice(x,y,0,60,r);
 setlinestyle(0,0,3);
 setcolor(0);
 circle(x-7,y-6,2);
 return;
}

dazuib(int x,int y,int lcolor)
/*在x,y处以lcolor色画向下大嘴巴*/
{setcolor(lcolor);
 setfillstyle(1,lcolor);
 pieslice(x,y,0,240,r);
 pieslice(x,y,300,360,r);
 setlinestyle(0,0,3);
 setcolor(0);
 circle(x+7,y+6,2);
 return;
}