[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/background

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.43 by root, Sun Jun 10 11:23:20 2012 UTC vs.
Revision 1.44 by root, Sun Jun 10 11:31:22 2012 UTC

 Example: move the image right by 20 pixels and down by 30.
    move 20, 30, ...
+=item center $img
+=item center $width, $height, $img
+Centers the image, i.e. the center of the image is moved to the center of
+the terminal window (or the box specified by C<$width> and C<$height> if
+given).
 =item rootalign $img
 Moves the image so that it appears glued to the screen as opposed to the
 window. This gives the illusion of a larger area behind the window. It is
 exactly equivalent to C<move -TX, -TY>, that is, it moves the image to the
    sub move($$;$) {
       my $img = pop->clone;
       $img->move ($_[0], $_[1]);
       $img
+   }
+   sub center($;$$) {
+      my $img = pop;
+      my $w = $_[0] || TW;
+      my $h = $_[0] || TH;
+      move 0.5 * ($w - $img->w), 0.5 * ($h - $img->h), $img
    }
    sub rootalign($) {
       move -TX, -TY, $_[0]
    }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines