testcases/phpCairo/miter-precision.php~

   1 <?
   2
   3     cairo_set_source_rgb (cr, 1, 1, 1);
   4     cairo_paint (cr);
   5
   6     cairo_set_source_rgb (cr, 0, 0, 0);
   7     cairo_set_miter_limit (cr, 100000);
   8     for (xscale = 1; xscale <= 1000; xscale += 999)
   9     for (yscale = 1; yscale <= 1000; yscale += 999)
  10     {
  11         double  max_scale = xscale > yscale ? xscale : yscale;
  12         cairo_save (cr);
  13         if (xscale > 1)
  14         cairo_translate (cr, 50, 0);
  15         if (yscale > 1)
  16         cairo_translate (cr, 0, 50);
  17         cairo_scale (cr, xscale, yscale);
  18         cairo_set_line_width (cr, 10.0 / max_scale);
  19         cairo_move_to (cr, 10.0 / xscale, 10.0 / yscale);
  20         cairo_line_to (cr, 40.0 / xscale, 10.0 / yscale);
  21         cairo_line_to (cr, 10.0 / xscale, 30.0 / yscale);
  22         cairo_stroke (cr);
  23         cairo_restore (cr);
  24     }