--- rxvt-unicode/src/perl/background	2012/06/07 10:22:55	1.23
+++ rxvt-unicode/src/perl/background	2012/06/07 11:52:26	1.27
@@ -4,7 +4,7 @@
 #:META:X_RESOURCE:%.enable:boolean:some boolean
 #:META:X_RESOURCE:%.extra.:value:extra config
 
-our $EXPR = 'clip move -X, -Y, load "MagnoliaAlpha.png"';
+our $EXPR = 'move W * 0.1, -H * 0.1, resize W * 0.5, H * 0.5, repeat_none load "opensource.png"';
 #$EXPR = '
 #   rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
 #   clip X, Y, W, H, repeat_mirror,
@@ -92,6 +92,12 @@
 #      $_[0]->clone
 #   }
 
+   sub repeat_none($) {
+      my $img = $_[0]->clone;
+      $img->repeat_mode (urxvt::RepeatNone);
+      $img
+   }
+
    sub clip($;$$;$$) {
       my $img = pop;
       my $h = pop || H;