Форум программистов [Powered by Invision Power Board]

Код
  #include <graphics.h>
  #include <conio.h>
  #include <stdlib.h>
  #include <math.h>

  #define ki1 (*((buffer_point+((buffer_brink[i]).point_1-1))->z)*0.2+1)
  #define ki2 (*((buffer_point+((buffer_brink[i]).point_2-1))->z)*0.2+1)
  #define ki3 (*((buffer_point+((buffer_brink[i]).point_3-1))->z)*0.2+1)
  #define ki4 (*((buffer_point+((buffer_brink[i]).point_4-1))->z)*0.2+1)


  double pi=2*asin(1);

  int view=0;

  struct point
  {
    double* x;
    double* y;
    double* z;
  };

  struct index
  {
    int point_1;
    int point_2;
    int point_3;
    int point_4;
  };

  void  init        (point*,index*);
  void  close        (point*);
  void  render        (point*,index*);
  void  move        (point*,char);
  void  change        (double*,double*,int);
  void  add_point    (point*,double,double,double);
  index add_index    (int,int,int,int);
  char getch_user    (char,char);
  void cod        (char);

  void main()
  {
    point *buffer_point=0;

    buffer_point=(point*)calloc(8,sizeof(point));
    index buffer_brink[6];

    for(int i=0;i<8;i++)
    {
        (buffer_point+i)->x=(double*)malloc(sizeof(double));
        (buffer_point+i)->y=(double*)malloc(sizeof(double));
        (buffer_point+i)->z=(double*)malloc(sizeof(double));
    }

    init (buffer_point,buffer_brink);
    render(buffer_point,buffer_brink);

    char key='0';
    while(key!=27)
    {
        if(kbhit())
        {
            key=getch();
            if(kbhit()) {
                     char key2=getch();
                     key2=getch_user(key,key2);
                     if (key2) move(buffer_point,key2);
                     else      cod(key);
                     }
            else cod(key);
            render(buffer_point,buffer_brink);
        }
    }

    close(buffer_point);
  }

  void init(point *buffer_point,index *buffer_brink)
  {
    int driver=DETECT,
        mode  ;
    //detectgraph (&driver,&mode);
    initgraph   (&driver,&mode,"d:\\lucky\\turbo\\bgi\\");
    for (int i=0;i<16;i++)
    {
        setrgbpalette(i,i*4,i*4,i*4);
        setpalette(i,i);
    }
    setcolor(1);
    clrscr();
    outtextxy(300,240,"3.04.2007");
    outtextxy(240,260,"Davidchick Andrey PO 313");
    getch();


     add_point(buffer_point,  -1.0, 1.0,-1.0);
     add_point(buffer_point+1,-1.0, 1.0, 1.0);
     add_point(buffer_point+2, 1.0, 1.0, 1.0);
     add_point(buffer_point+3, 1.0, 1.0,-1.0);
     add_point(buffer_point+4,-1.0,-1.0,-1.0);
     add_point(buffer_point+5,-1.0,-1.0, 1.0);
     add_point(buffer_point+6, 1.0,-1.0, 1.0);
     add_point(buffer_point+7, 1.0,-1.0,-1.0);

     buffer_brink[0]=add_index(1,2,3,4);
     buffer_brink[1]=add_index(5,1,4,8);
     buffer_brink[2]=add_index(5,1,2,6);
     buffer_brink[3]=add_index(6,2,3,7);
     buffer_brink[4]=add_index(7,3,4,8);
     buffer_brink[5]=add_index(5,6,7,8);

  }

  void add_point(point *p,double x,double y,double z)
  {
    *(p->x)=x;
     *(p->y)=y;
      *(p->z)=z;
  }

  index add_index(int point_1,int point_2,int point_3,int point_4)
  {
    index buffer;

    buffer.point_1=point_1;
     buffer.point_2=point_2;
      buffer.point_3=point_3;
       buffer.point_4=point_4;

    return buffer;
  }

  void close(point *buffer_point)
  {
    free(buffer_point);
  }

  void render(point *buffer_point,index *buffer_brink)
  {
    clrscr();
    for(int i=0;i<6;i++)
    {

        if (!view)
        {
        moveto(*((buffer_point+((buffer_brink[i]).point_1-1))->x)*50*ki1+320,
               *((buffer_point+((buffer_brink[i]).point_1-1))->y)*50*ki1+240);
        lineto(*((buffer_point+((buffer_brink[i]).point_2-1))->x)*50*ki2+320,
               *((buffer_point+((buffer_brink[i]).point_2-1))->y)*50*ki2+240);
        lineto(*((buffer_point+((buffer_brink[i]).point_3-1))->x)*50*ki3+320,
               *((buffer_point+((buffer_brink[i]).point_3-1))->y)*50*ki3+240);
        lineto(*((buffer_point+((buffer_brink[i]).point_4-1))->x)*50*ki4+320,
               *((buffer_point+((buffer_brink[i]).point_4-1))->y)*50*ki4+240);
        lineto(*((buffer_point+((buffer_brink[i]).point_1-1))->x)*50*ki1+320,
               *((buffer_point+((buffer_brink[i]).point_1-1))->y)*50*ki1+240);
        }
        else
        {
        double dz=(*((buffer_point+((buffer_brink[i]).point_1-1))->z)/ki1
              +*((buffer_point+((buffer_brink[i]).point_2-1))->z)/ki2
              +*((buffer_point+((buffer_brink[i]).point_3-1))->z)/ki3
              +*((buffer_point+((buffer_brink[i]).point_4-1))->z)/ki4)/4;
        if (dz>0)
        {
            int mass[8];
            mass[0]=(int)(*((buffer_point+((buffer_brink[i]).point_1-1))->x)*50*ki1+320);
            mass[1]=(int)(*((buffer_point+((buffer_brink[i]).point_1-1))->y)*50*ki1+240);
            mass[2]=(int)(*((buffer_point+((buffer_brink[i]).point_2-1))->x)*50*ki2+320);
            mass[3]=(int)(*((buffer_point+((buffer_brink[i]).point_2-1))->y)*50*ki2+240);
            mass[4]=(int)(*((buffer_point+((buffer_brink[i]).point_3-1))->x)*50*ki3+320);
            mass[5]=(int)(*((buffer_point+((buffer_brink[i]).point_3-1))->y)*50*ki3+240);
            mass[6]=(int)(*((buffer_point+((buffer_brink[i]).point_4-1))->x)*50*ki4+320);
            mass[7]=(int)(*((buffer_point+((buffer_brink[i]).point_4-1))->y)*50*ki4+240);
            setcolor((int)(dz*14+1));
            setfillstyle(1,(int)(dz*14+1));
            fillpoly(4,mass);
        }


        }
    }

  }

  void move(point *buffer_point,char key)
  {
    for(int i=0;i<8;i++)
    {    switch (key)
        {
        case 1:change(((buffer_point+i)->z),((buffer_point+i)->y),-1);break;
        case 2:change(((buffer_point+i)->z),((buffer_point+i)->y), 1);break;
        case 3:change(((buffer_point+i)->x),((buffer_point+i)->z), 1);break;
        case 4:change(((buffer_point+i)->x),((buffer_point+i)->z),-1);break;
        }
    }

  }
  void change(double *x,double *y,int n)
  {

          double d=sqrt(pow(*x,2)+pow(*y,2));
          double dx=(*x)/(d);
          double dy=(*y)/(d);
          if(dy>=0) *x=(cos((double)(      acos((double)(dx))+(n*pi/180)))*d);
          if(dy<0)  *x=(cos((double)(2*pi- acos((double)(dx))+(n*pi/180)))*d);
          if(dy>=0) *y=(sin((double)(      acos((double)(dx))+(n*pi/180)))*d);
          if(dy<0)  *y=(sin((double)(2*pi- acos((double)(dx))+(n*pi/180)))*d);

  }

  char getch_user(char lo,char hi)
  {
    if(lo==0)
    {
    switch(hi)
    {
        case 72:return 1;
        case 80:return 2;
        case 75:return 3;
        case 77:return 4;
    }
    }
    return 0;
  }

  void cod(char key)
  {
  switch (key)
  {
  case 'v':view=!view;setcolor(1);break;
  }
  }