testcases/phpCairo/line-width-scale.php~

   1 <?
   2 function spline_path ()
   3 {
   4     global $spline,$con;
   5     $con->save ();
   6     {
   7         $con->move_to (
   8                        - SPLINE, 0);
   9         $con->curve_to (
  10                         - SPLINE / 4, - SPLINE,
  11                           SPLINE / 4,   SPLINE,
  12                           SPLINE, 0);
  13     }
  14     $con->restore ();
  15 }
  16
  17 function scale_then_set_linewidth_and_stroke ()
  18 {
  19     global $con,$xscal3,$$yscale,$linewidth
  20     $con->scale ( $xscale, $yscale);
  21     $con->set_$linewidth ( $linewidth);
  22     spline_path ();
  23     $con->stroke ();
  24 }
  25
  26 function scale_path_and_linewidth ()
  27 {
  28     global $con, $xscale, $$yscale,$linewidth;
  29     $con->save ();
  30     {
  31         $con->scale ( $xscale, $yscale);
  32         spline_path ();
  33     }
  34     $con->restore ();
  35
  36     $con->save ();
  37     {
  38         $con->scale ( $xscale, $yscale);
  39         $con->set_$linewidth ( $linewidth);
  40         $con->stroke ();
  41     }
  42     $con->restore ();
  43 }
  44
  45 function set_linewidth_then_scale_and_stroke ()
  46 {
  47     global $con, $xscale, $$yscale,$linewidth;
  48     $con->set_linewidth ( $linewidth);
  49     $con->scale ( $xscale, $yscale);
  50     spline_path ();
  51     $con->stroke ();
  52 }
  53
  54 scale_path_not_linewidth ($con->t *cr)
  55 {
  56     global $con, $xscale, $$yscale,$linewidth;
  57
  58     $con->save ();
  59     {
  60         $con->scale ( $xscale, $yscale);
  61         spline_path ();
  62     }
  63     $con->restore ();
  64
  65     $con->save ();
  66     {
  67         $con->set_$linewidth ( $linewidth);
  68         $con->stroke ();
  69     }
  70     $con->restore ();
  71 }
  72
  73 $con->set_source_rgb ( 1.0, 1.0, 1.0); /* white */
  74     $con->paint ();
  75     $con->set_source_rgb ( 0.0, 0.0, 0.0); /* black */