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.2 by root, Tue Jun 5 11:00:40 2012 UTC vs.
Revision 1.4 by root, Tue Jun 5 13:39:26 2012 UTC

1#! perl 1#! perl
2 2
3our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", &x, &y'; 3our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y';
4$EXPR = 'rotate load "/root/pix/das_fette_schwein.jpg", W, H, 50, 50, counter 1/60, repeat_mirror';
4#$EXPR = 'blur root, 10, 10' 5#$EXPR = 'blur root, 10, 10'
5#$EXPR = 'blur move (root, -x, -y), 5, 5' 6#$EXPR = 'blur move (root, -x, -y), 5, 5'
6#resize load "/root/pix/das_fette_schwein.jpg", w, h 7#resize load "/root/pix/das_fette_schwein.jpg", w, h
7 8
8use Safe; 9use Safe;
9 10
11our ($bgdsl_self, $old, $new);
12our ($l, $t, $w, $h);
13
10{ 14{
11 package urxvt::bgdsl::vars;
12
13 our ($self, $old, $new);
14 our ($x, $y, $w, $h);
15
16 package urxvt::bgdsl; # background language 15 package urxvt::bgdsl; # background language
17 16
18 *repeat_black = \&urxvt::RepeatNone; #TODO wtf 17 *repeat_black = \&urxvt::RepeatNone; #TODO wtf
19 *repeat_wrap = \&urxvt::RepeatNormal; 18 *repeat_wrap = \&urxvt::RepeatNormal;
20 *repeat_pad = \&urxvt::RepeatPad; 19 *repeat_pad = \&urxvt::RepeatPad;
21 *repeat_mirror = \&urxvt::RepeatReflect; 20 *repeat_mirror = \&urxvt::RepeatReflect;
22 21
23 sub load($) { 22 sub load($) {
24 my ($path) = @_; 23 my ($path) = @_;
25 24
26 $new->{load}{$path} = $old->{load}{$path} || $self->new_img_from_file ($path); 25 $new->{load}{$path} = $old->{load}{$path} || $bgdsl_self->new_img_from_file ($path);
27 } 26 }
28 27
29 sub root() { 28 sub root() {
30 die "root op not supported, exg, we need you"; 29 die "root op not supported, exg, we need you";
31 } 30 }
32 31
32# sub clone($) {
33# $_[0]->clone
34# }
35
36 sub subrect($$$$$;$) {
37 $_[0]->sub_rect ($_[1], $_[2], $_[3], $_[4], $_[5])
38 }
39
33 sub resize($$$) { 40 sub resize($$$) {
34 $_[0]->scale ($_[1], $_[2]) 41 $_[0]->scale ($_[1], $_[2])
35 } 42 }
36 43
37 sub move($$$) { 44 sub move($$$;$) {
38 # TODO: must be simpler 45 # TODO: must be simpler
39 $_[0]->transform ($_[0]->w, $_[0]->h, $_[1], 46 $_[0]->transform ($_[0]->w, $_[0]->h,
40 1, 0, -$_[2], 47 1, 0, $_[1],
41 0, 1, -$_[3], 48 0, 1, $_[2],
42 0, 0, 1, 49 0, 0, 1,
50 $_[3],
43 ) 51 )
44 } 52 }
45 53
46 sub rotate($$$$) { 54 sub rotate($$$$$$;$) {
47 $_[0]->rotate ($_[0], $_[1], $_[2], $_[3] * (3.14159265 / 180)) 55 $_[0]->rotate (
56 $_[1],
57 $_[2],
58 $_[3] * $_[0]->w * .01,
59 $_[4] * $_[0]->h * .01,
60 $_[5] * (3.14159265 / 180),
61 $_[6],
62 )
48 } 63 }
49 64
50 sub blur($$$) { 65 sub blur($$$) {
51 my ($img, $rh, $rv) = @_; 66 my ($img, $rh, $rv) = @_;
52 67
53 $img = $img->clone; 68 $img = $img->clone;
54 $img->clone->blur ($rh, $rv); 69 $img->blur ($rh, $rv);
55 $img 70 $img
56 } 71 }
57 72
58 sub contrast($$;$$;$) { 73 sub contrast($$;$$;$) {
59 my ($img, $r, $g, $b, $a) = @_; 74 my ($img, $r, $g, $b, $a) = @_;
75
60 ($g, $b) = ($r, $r) if @_ < 4; 76 ($g, $b) = ($r, $r) if @_ < 4;
61 $a = 1 if @_ < 5; 77 $a = 1 if @_ < 5;
78
62 $img = $img->clone; 79 $img = $img->clone;
63 $img->contrast ($r, $g, $b, $a); 80 $img->contrast ($r, $g, $b, $a);
64 $img 81 $img
65 } 82 }
66 83
67 sub brightness($$;$$;$) { 84 sub brightness($$;$$;$) {
68 my ($img, $r, $g, $b, $a) = @_; 85 my ($img, $r, $g, $b, $a) = @_;
86
69 ($g, $b) = ($r, $r) if @_ < 4; 87 ($g, $b) = ($r, $r) if @_ < 4;
70 $a = 1 if @_ < 5; 88 $a = 1 if @_ < 5;
89
71 $img = $img->clone; 90 $img = $img->clone;
72 $img->brightness ($r, $g, $b, $a); 91 $img->brightness ($r, $g, $b, $a);
73 $img 92 $img
74 } 93 }
75 94
76 sub x() { $new->{position_sensitive} = 1; $x } 95 sub X() { $new->{position_sensitive} = 1; $l }
77 sub y() { $new->{position_sensitive} = 1; $y } 96 sub Y() { $new->{position_sensitive} = 1; $t }
78 sub w() { $new->{size_sensitive} = 1; $w } 97 sub W() { $new->{size_sensitive} = 1; $w }
79 sub h() { $new->{size_sensitive} = 1; $h } 98 sub H() { $new->{size_sensitive} = 1; $h }
99
80 sub now() { urxvt::NOW } 100 sub now() { urxvt::NOW }
81 101
82 sub again($) { 102 sub again($) {
83 $new->{again} = $_[0]; 103 $new->{again} = $_[0];
84 } 104 }
85 105
86 sub counter($) { 106 sub counter($) {
87 $new->{again} = $_[0]; 107 $new->{again} = $_[0];
88 $self->{counter}++ + 0 108 $bgdsl_self->{counter}++ + 0
89 } 109 }
90} 110}
91 111
92sub parse_expr { 112sub parse_expr {
93 my $expr = eval "sub {\npackage urxvt::bgdsl;\n#line 0 'background expression'\n$_[0]\n}"; 113 my $expr = eval "sub {\npackage urxvt::bgdsl;\n#line 0 'background expression'\n$_[0]\n}";
… …
97 117
98# compiles a parsed expression 118# compiles a parsed expression
99sub set_expr { 119sub set_expr {
100 my ($self, $expr) = @_; 120 my ($self, $expr) = @_;
101 121
102 local $Data::Dumper::Deparse=1; use Data::Dumper; warn Dumper $expr;#d#
103 $self->{expr} = $expr; 122 $self->{expr} = $expr;
104 $self->recalculate; 123 $self->recalculate;
105} 124}
106 125
107# evaluate the current bg expression 126# evaluate the current bg expression
108sub recalculate { 127sub recalculate {
109 my ($self) = @_; 128 my ($self) = @_;
110 129
111 local $urxvt::bgdsl::vars::self = $self; 130 local $bgdsl_self = $self;
112 131
113 local $urxvt::bgdsl::vars::old = $self->{state}; 132 local $old = $self->{state};
114 local $urxvt::bgdsl::vars::new = my $state = $self->{state} = {}; 133 local $new = my $state = $self->{state} = {};
115 134
116 ($urxvt::bgdsl::vars::x, $urxvt::bgdsl::vars::y, $urxvt::bgdsl::vars::w, $urxvt::bgdsl::vars::h) = 135 ($l, $t, $w, $h) =
117 $self->get_geometry; 136 $self->get_geometry;
118 137
119 my $img = eval { $self->{expr}->() }; 138 my $img = eval { $self->{expr}->() };
120 warn $@ if $@;#d# 139 warn $@ if $@;#d#
121 140
… …
138 $self->enable (size_change => sub { $_[0]->recalculate }); 157 $self->enable (size_change => sub { $_[0]->recalculate });
139 } else { 158 } else {
140 $self->disable ("size_change"); 159 $self->disable ("size_change");
141 } 160 }
142 161
143 # TODO: install handlers for geometry changes &c 162 $img = $img->sub_rect (0, 0, $w, $h)
163 if $img->w != $w || $img->h != $h;
144 164
145 warn $img;
146 $self->set_background ($img); 165 $self->set_background ($img);
147 $self->scr_recolour (0); 166 $self->scr_recolour (0);
148 $self->want_refresh; 167 $self->want_refresh;
149} 168}
150 169

Diff Legend

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