--- rxvt-unicode/src/perl/background 2012/06/05 13:42:59 1.5 +++ rxvt-unicode/src/perl/background 2012/06/07 11:52:26 1.27 @@ -1,7 +1,16 @@ #! perl -our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y'; -$EXPR = 'rotate load "/root/pix/das_fette_schwein.jpg", W, H, 50, 50, counter 1/60, repeat_mirror'; +#:META:X_RESOURCE:%.expr:string:background expression +#:META:X_RESOURCE:%.enable:boolean:some boolean +#:META:X_RESOURCE:%.extra.:value:extra config + +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, +# load "/root/pix/das_fette_schwein.jpg" +#'; +#$EXPR = 'solid "red"'; #$EXPR = 'blur root, 10, 10' #$EXPR = 'blur move (root, -x, -y), 5, 5' #resize load "/root/pix/das_fette_schwein.jpg", w, h @@ -11,13 +20,24 @@ our ($bgdsl_self, $old, $new); our ($l, $t, $w, $h); +# enforce at least this interval between updates +our $MIN_INTERVAL = 1/100; + { package urxvt::bgdsl; # background language - *repeat_black = \&urxvt::RepeatNone; #TODO wtf - *repeat_wrap = \&urxvt::RepeatNormal; - *repeat_pad = \&urxvt::RepeatPad; - *repeat_mirror = \&urxvt::RepeatReflect; +# *repeat_empty = \&urxvt::RepeatNone; +# *repeat_tile = \&urxvt::RepeatNormal; +# *repeat_pad = \&urxvt::RepeatPad; +# *repeat_mirror = \&urxvt::RepeatReflect; + +=head2 PROVIDERS/GENERATORS + +=over 4 + +=item load $path + +=cut sub load($) { my ($path) = @_; @@ -26,52 +46,103 @@ } sub root() { + $new->{rootpmap_sensitive} = 1; die "root op not supported, exg, we need you"; } + sub solid($;$$) { + my $img = $bgdsl_self->new_img (urxvt::PictStandardARGB32, $_[1] || 1, $_[2] || 1); + $img->fill ($_[0]); + $img + } + +=back + +=head2 VARIABLES + +=over 4 + +=cut + + sub X() { $new->{position_sensitive} = 1; $l } + sub Y() { $new->{position_sensitive} = 1; $t } + sub W() { $new->{size_sensitive} = 1; $w } + sub H() { $new->{size_sensitive} = 1; $h } + + sub now() { urxvt::NOW } + + sub again($) { + $new->{again} = $_[0]; + } + + sub counter($) { + $new->{again} = $_[0]; + $bgdsl_self->{counter} + 0 + } + +=back + +=head2 OPERATORS + +=over 4 + +=cut + # sub clone($) { # $_[0]->clone # } - sub subrect($$$$$;$) { - $_[0]->sub_rect ($_[1], $_[2], $_[3], $_[4], $_[5]) + sub repeat_none($) { + my $img = $_[0]->clone; + $img->repeat_mode (urxvt::RepeatNone); + $img + } + + sub clip($;$$;$$) { + my $img = pop; + my $h = pop || H; + my $w = pop || W; + $img->sub_rect ($_[0], $_[1], $w, $h) } sub resize($$$) { - $_[0]->scale ($_[1], $_[2]) + my $img = pop; + $img->scale ($_[0], $_[1]) } - sub move($$$;$) { - # TODO: must be simpler - $_[0]->transform ($_[0]->w, $_[0]->h, - 1, 0, $_[1], - 0, 1, $_[2], - 0, 0, 1, - $_[3], - ) + # TODO: ugly + sub move($$;$) { + my $img = pop->clone; + $img->move ($_[0], $_[1]); + $img +# my $img = pop; +# $img->sub_rect ( +# $_[0], $_[1], +# $img->w, $img->h, +# $_[2], +# ) } - sub rotate($$$$$$;$) { - $_[0]->rotate ( + sub rotate($$$$$$) { + my $img = pop; + $img->rotate ( + $_[0], $_[1], - $_[2], - $_[3] * $_[0]->w * .01, - $_[4] * $_[0]->h * .01, - $_[5] * (3.14159265 / 180), - $_[6], + $_[2] * $img->w * .01, + $_[3] * $img->h * .01, + $_[4] * (3.14159265 / 180), ) } sub blur($$$) { - my ($img, $rh, $rv) = @_; + my ($rh, $rv, $img) = @_; - $img = $img->clone; $img->blur ($rh, $rv); - $img } sub contrast($$;$$;$) { - my ($img, $r, $g, $b, $a) = @_; + my $img = pop; + my ($r, $g, $b, $a) = @_; ($g, $b) = ($r, $r) if @_ < 4; $a = 1 if @_ < 5; @@ -82,7 +153,8 @@ } sub brightness($$;$$;$) { - my ($img, $r, $g, $b, $a) = @_; + my $img = pop; + my ($r, $g, $b, $a) = @_; ($g, $b) = ($r, $r) if @_ < 4; $a = 1 if @_ < 5; @@ -92,21 +164,10 @@ $img } - sub X() { $new->{position_sensitive} = 1; $l } - sub Y() { $new->{position_sensitive} = 1; $t } - sub W() { $new->{size_sensitive} = 1; $w } - sub H() { $new->{size_sensitive} = 1; $h } +=back - sub now() { urxvt::NOW } - - sub again($) { - $new->{again} = $_[0]; - } +=cut - sub counter($) { - $new->{again} = $_[0]; - $bgdsl_self->{counter}++ + 0 - } } sub parse_expr { @@ -127,6 +188,19 @@ sub recalculate { my ($self) = @_; + # rate limit evaluation + + if ($self->{next_refresh} > urxvt::NOW) { + $self->{next_refresh_timer} = urxvt::timer->new->after ($self->{next_refresh} - urxvt::NOW)->cb (sub { + $self->recalculate; + }); + return; + } + + $self->{next_refresh} = urxvt::NOW + $MIN_INTERVAL; + + # set environment to evaluate user expression + local $bgdsl_self = $self; local $old = $self->{state}; @@ -135,16 +209,26 @@ ($l, $t, $w, $h) = $self->get_geometry; + warn "$l,$t,$w,$h\n";#d# + + # evaluate user expression + my $img = eval { $self->{expr}->() }; warn $@ if $@;#d# + die if !UNIVERSAL::isa $img, "urxvt::img"; - %$old = (); + # if the expression is sensitive to external events, prepare reevaluation then my $repeat; if (my $again = $state->{again}) { $repeat = 1; - $state->{again} = urxvt::timer->new->after ($again)->cb (sub { $self->recalculate }); + $state->{timer} = $again == $old->{again} + ? $old->{timer} + : urxvt::timer->new->after ($again)->interval ($again)->cb (sub { + ++$self->{counter}; + $self->recalculate + }); } if (delete $state->{position_sensitive}) { @@ -161,11 +245,24 @@ $self->disable ("size_change"); } + if (delete $state->{rootpmap_sensitive}) { + $repeat = 1; + $self->enable (rootpmap_change => sub { $_[0]->recalculate }); + } else { + $self->disable ("rootpmap_change"); + } + + # clear stuff we no longer need + + %$old = (); + unless ($repeat) { delete $self->{state}; delete $self->{expr}; } + # prepare and set background pixmap + $img = $img->sub_rect (0, 0, $w, $h) if $img->w != $w || $img->h != $h;