ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/background
(Generate patch)

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.1 by root, Mon Jun 4 21:39:56 2012 UTC vs.
Revision 1.2 by root, Tue Jun 5 11:00:40 2012 UTC

1#! perl 1#! perl
2 2
3our $EXPR = 'resize (blur (load "/root/pix/das_fette_schwein.jpg", 1 + (counter 1) % 10, 10), w, h)'; 3our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", &x, &y';
4#$EXPR = 'blur root, 10, 10' 4#$EXPR = 'blur root, 10, 10'
5#$EXPR = 'blur move (root, -x, -y), 5, 5' 5#$EXPR = 'blur move (root, -x, -y), 5, 5'
6#resize load "/root/pix/das_fette_schwein.jpg", w, h 6#resize load "/root/pix/das_fette_schwein.jpg", w, h
7 7
8use Safe; 8use Safe;
… …
18 *repeat_black = \&urxvt::RepeatNone; #TODO wtf 18 *repeat_black = \&urxvt::RepeatNone; #TODO wtf
19 *repeat_wrap = \&urxvt::RepeatNormal; 19 *repeat_wrap = \&urxvt::RepeatNormal;
20 *repeat_pad = \&urxvt::RepeatPad; 20 *repeat_pad = \&urxvt::RepeatPad;
21 *repeat_mirror = \&urxvt::RepeatReflect; 21 *repeat_mirror = \&urxvt::RepeatReflect;
22 22
23 sub load { 23 sub load($) {
24 my ($path) = @_; 24 my ($path) = @_;
25 25
26 $new->{load}{$path} = $old->{load}{$path} || $self->new_img_from_file ($path); 26 $new->{load}{$path} = $old->{load}{$path} || $self->new_img_from_file ($path);
27 } 27 }
28 28
29 sub root { 29 sub root() {
30 die "root op not supported, exg, we need you"; 30 die "root op not supported, exg, we need you";
31 } 31 }
32 32
33 sub resize { 33 sub resize($$$) {
34 $_[0]->scale ($_[1], $_[2]) 34 $_[0]->scale ($_[1], $_[2])
35 } 35 }
36 36
37 sub move { 37 sub move($$$) {
38 # TODO: must be simpler 38 # TODO: must be simpler
39 $_[0]->transform ($_[0]->w, $_[0]->h, $_[1], 39 $_[0]->transform ($_[0]->w, $_[0]->h, $_[1],
40 1, 0, -$_[2], 40 1, 0, -$_[2],
41 0, 1, -$_[3], 41 0, 1, -$_[3],
42 0, 0, 1, 42 0, 0, 1,
43 ) 43 )
44 } 44 }
45 45
46 sub rotate { 46 sub rotate($$$$) {
47 $_[0]->rotate ($_[0], $_[1], $_[2], $_[3] * (3.14159265 / 180)) 47 $_[0]->rotate ($_[0], $_[1], $_[2], $_[3] * (3.14159265 / 180))
48 } 48 }
49 49
50 sub blur { 50 sub blur($$$) {
51 my ($img, $rh, $rv) = @_; 51 my ($img, $rh, $rv) = @_;
52 52
53 $img = $img->clone; 53 $img = $img->clone;
54 $img->clone->blur ($rh, $rv); 54 $img->clone->blur ($rh, $rv);
55 $img 55 $img
56 } 56 }
57 57
58 sub contrast { 58 sub contrast($$;$$;$) {
59 my ($img, $r, $g, $b, $a) = @_; 59 my ($img, $r, $g, $b, $a) = @_;
60 ($g, $b) = ($r, $r) if @_ < 4; 60 ($g, $b) = ($r, $r) if @_ < 4;
61 $a = 1 if @_ < 5; 61 $a = 1 if @_ < 5;
62 $img = $img->clone; 62 $img = $img->clone;
63 $img->contrast ($r, $g, $b, $a); 63 $img->contrast ($r, $g, $b, $a);
64 $img 64 $img
65 } 65 }
66 66
67 sub brightness { 67 sub brightness($$;$$;$) {
68 my ($img, $r, $g, $b, $a) = @_; 68 my ($img, $r, $g, $b, $a) = @_;
69 ($g, $b) = ($r, $r) if @_ < 4; 69 ($g, $b) = ($r, $r) if @_ < 4;
70 $a = 1 if @_ < 5; 70 $a = 1 if @_ < 5;
71 $img = $img->clone; 71 $img = $img->clone;
72 $img->brightness ($r, $g, $b, $a); 72 $img->brightness ($r, $g, $b, $a);
73 $img 73 $img
74 } 74 }
75 75
76 sub x { $new->{position_sensitive} = 1; $x } 76 sub x() { $new->{position_sensitive} = 1; $x }
77 sub y { $new->{position_sensitive} = 1; $y } 77 sub y() { $new->{position_sensitive} = 1; $y }
78 sub w { $new->{size_sensitive} = 1; $w } 78 sub w() { $new->{size_sensitive} = 1; $w }
79 sub h { $new->{size_sensitive} = 1; $h } 79 sub h() { $new->{size_sensitive} = 1; $h }
80 sub now { urxvt::NOW } 80 sub now() { urxvt::NOW }
81 81
82 sub again { 82 sub again($) {
83 $new->{again} = $_[0]; 83 $new->{again} = $_[0];
84 } 84 }
85 85
86 sub counter { 86 sub counter($) {
87 $new->{again} = $_[0]; 87 $new->{again} = $_[0];
88 $self->{counter}++ + 0 88 $self->{counter}++ + 0
89 } 89 }
90} 90}
91 91
… …
117 $self->get_geometry; 117 $self->get_geometry;
118 118
119 my $img = eval { $self->{expr}->() }; 119 my $img = eval { $self->{expr}->() };
120 warn $@ if $@;#d# 120 warn $@ if $@;#d#
121 121
122 my $repeat;
123
122 if (my $again = $state->{again}) { 124 if (my $again = $state->{again}) {
123 warn $again;#d# 125 $repeat = 1;
124 $state->{again} = urxvt::timer->new->after ($again)->cb (sub { $self->recalculate }); 126 $state->{again} = urxvt::timer->new->after ($again)->cb (sub { $self->recalculate });
127 }
128
129 if (delete $state->{position_sensitive}) {
130 $repeat = 1;
131 $self->enable (position_change => sub { $_[0]->recalculate });
132 } else {
133 $self->disable ("position_change");
134 }
135
136 if (delete $state->{size_sensitive}) {
137 $repeat = 1;
138 $self->enable (size_change => sub { $_[0]->recalculate });
139 } else {
140 $self->disable ("size_change");
125 } 141 }
126 142
127 # TODO: install handlers for geometry changes &c 143 # TODO: install handlers for geometry changes &c
128 144
129 warn $img; 145 warn $img;

Diff Legend

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