Subversion Repositories wimsdev

/* polygon */

void obj_hyppoly(objparm *pm)

{

  double rx,ry,data[1000],res[7];

  int i,*qq=pm->p;

  int cnt=(pm->pcnt)/2;

  scale(pm->pd,pm->p,cnt);

  for(i=0; i<pm->pcnt+2; i++) data[i]=pm->pd[i%pm->pcnt];

  if (tikz_file) fprintf(tikz_file, "\\draw[%s]",tikz_options(pm->color[0],0));

  for(i=0; i<cnt; i++){

    if(hypgeodaux(data+2*i,res)){

      scale2(res[2],res[2],&rx,&ry);

      scale(res,qq,1);

      myGdImageArc(image,qq[0],qq[1],rx,ry,res[3]/DEG,res[4]/DEG,pm->color[0]);

      if(tikz_file)

        fprintf(tikz_file, "(%i,%i) arc (%f:%f:%i and %i)",

          (int)rint(qq[0]+rx*cos(res[3])),

          flip((int)rint(qq[1]+ry*sin(res[3]))),

          res[3]/DEG,res[4]/DEG,(int)rint(rx),-(int)rint(ry));

    }

    else {

      scale(data+2*i,qq,2);

      gdImageLine(image,qq[0],qq[1],qq[2],qq[3],pm->color[0]);

      if(tikz_file) fprintf(tikz_file,"(%i,%i)--(%i,%i)",

            qq[0],flip(qq[1]),qq[2],flip(qq[3]));

    }

  }

  if(tikz_file) fprintf(tikz_file,";\n");

  if(pm->fill){

    data[0]=res[5];

    data[1]=res[6];

    hypgeodaux(data,res);

    scale(res+5,qq,1);

    //patchgdImageFill(image,qq[0],qq[1],pm->color[0]);

    patchgdImageFillToBorder(image,qq[0],qq[1],pm->color[0],pm->color[0]);

    if(tikz_file) tikz_fill(qq[0],qq[1],1,1,0,pm->color[0],grid);

  }

}