Subversion Repositories wimsdev

}

/* hyperbolic rays from x1,y1 to x2,y2, x1,y1 to x3,y3 in Poincaré disk */

void obj_hyprays(objparm *pm)

{

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

  int i,*qq=pm->p;

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

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

  if (tikz_file)

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

  for(i=2;i<pm->pcnt;i+=2) {

    data[0]=pm->pd[0];data[1]=pm->pd[1];data[2]=pm->pd[i];data[3]=pm->pd[i+1];

    if (hypgeodaux(data,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,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)",

          pm->p[0],flip(pm->p[1]),pm->p[i],flip(pm->p[i+1]));

    }

  }

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