Subversion Repositories wimsdev

Rev

Rev 18492 | Rev 18518 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18492 Rev 18516
Line 1969... Line 1969...
1969
      if(tikz_file) tikz_fill(qq[0],qq[1],1,1,0,pm->color[0],grid);
1969
      if(tikz_file) tikz_fill(qq[0],qq[1],1,1,0,pm->color[0],grid);
1970
    }
1970
    }
1971
  }
1971
  }
1972
}
1972
}
1973
 
1973
 
1974
/* polygon */
1974
/* hyperbolic polygon */
1975
void obj_hyppoly(objparm *pm)
1975
void obj_hyppoly(objparm *pm)
1976
{
1976
{
1977
  double rx,ry,data[1000],res[7];
1977
  double rx,ry,data[1000],res[7];
1978
  int i,*qq=pm->p;
1978
  int i,*qq=pm->p;
1979
  int cnt=(pm->pcnt)/2;
1979
  int cnt=(pm->pcnt)/2;
Line 2007... Line 2007...
2007
    //patchgdImageFill(image,qq[0],qq[1],pm->color[0]);
2007
    //patchgdImageFill(image,qq[0],qq[1],pm->color[0]);
2008
    patchgdImageFillToBorder(image,qq[0],qq[1],pm->color[0],pm->color[0]);
2008
    patchgdImageFillToBorder(image,qq[0],qq[1],pm->color[0],pm->color[0]);
2009
    if(tikz_file) tikz_fill(qq[0],qq[1],1,1,0,pm->color[0],grid);
2009
    if(tikz_file) tikz_fill(qq[0],qq[1],1,1,0,pm->color[0],grid);
2010
  }
2010
  }
2011
}
2011
}
2012
/* complete hyperbolic geodesic through the two first points, then the following two points, etc */
-
 
2013
 
2012
 
-
 
2013
/* complete hyperbolic geodesic through the two first points, then the following two points, etc */
2014
void obj_hyplines(objparm *pm)
2014
void obj_hyplines(objparm *pm)
2015
{
2015
{
2016
  double rx,ry,res[7],*pd = pm->pd;
2016
  double rx,ry,res[7],*pd = pm->pd;
2017
  int i;
2017
  int i;
2018
  if (tikz_file) fprintf(tikz_file, "\\draw[%s]",tikz_options(pm->color[0],0));
2018
  if (tikz_file) fprintf(tikz_file, "\\draw[%s]",tikz_options(pm->color[0],0));