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

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.5 by root, Tue Jun 5 13:42:59 2012 UTC vs.
Revision 1.28 by root, Thu Jun 7 12:56:27 2012 UTC

…		…
1	#! perl	1	#! perl
2		2
3	our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y';	3	#:META:X_RESOURCE:%.expr:string:background expression
4	$EXPR = 'rotate load "/root/pix/das_fette_schwein.jpg", W, H, 50, 50, counter 1/60, repeat_mirror';	4	#:META:X_RESOURCE:%.enable:boolean:some boolean
		5	#:META:X_RESOURCE:%.extra.:value:extra config
		6
		7	our $EXPR;
		8	#$EXPR = 'move W * 0.1, -H * 0.1, resize W * 0.5, H * 0.5, repeat_none load "opensource.png"';
		9	$EXPR = 'border; move -X, -Y, load "argb.png"';
		10	#$EXPR = '
		11	# rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
		12	# clip X, Y, W, H, repeat_mirror,
		13	# load "/root/pix/das_fette_schwein.jpg"
		14	#';
		15	#$EXPR = 'solid "red"';
5	#$EXPR = 'blur root, 10, 10'	16	#$EXPR = 'blur root, 10, 10'
6	#$EXPR = 'blur move (root, -x, -y), 5, 5'	17	#$EXPR = 'blur move (root, -x, -y), 5, 5'
7	#resize load "/root/pix/das_fette_schwein.jpg", w, h	18	#resize load "/root/pix/das_fette_schwein.jpg", w, h
8		19
9	use Safe;	20	use Safe;
10		21
		22	our $border;
11	our ($bgdsl_self, $old, $new);	23	our ($bgdsl_self, $old, $new);
12	our ($l, $t, $w, $h);	24	our ($l, $t, $w, $h);
13		25
		26	# enforce at least this interval between updates
		27	our $MIN_INTERVAL = 1/100;
		28
14	{	29	{
15	package urxvt::bgdsl; # background language	30	package urxvt::bgdsl; # background language
16		31
17	*repeat_black = \&urxvt::RepeatNone; #TODO wtf	32	# *repeat_empty = \&urxvt::RepeatNone;
18	*repeat_wrap = \&urxvt::RepeatNormal;	33	# *repeat_tile = \&urxvt::RepeatNormal;
19	*repeat_pad = \&urxvt::RepeatPad;	34	# *repeat_pad = \&urxvt::RepeatPad;
20	*repeat_mirror = \&urxvt::RepeatReflect;	35	# *repeat_mirror = \&urxvt::RepeatReflect;
		36
		37	=head2 PROVIDERS/GENERATORS
		38
		39	=over 4
		40
		41	=item load $path
		42
		43	=cut
21		44
22	sub load($) {	45	sub load($) {
23	my ($path) = @_;	46	my ($path) = @_;
24		47
25	$new->{load}{$path} = $old->{load}{$path} \|\| $bgdsl_self->new_img_from_file ($path);	48	$new->{load}{$path} = $old->{load}{$path} \|\| $bgdsl_self->new_img_from_file ($path);
26	}	49	}
27		50
28	sub root() {	51	sub root() {
		52	$new->{rootpmap_sensitive} = 1;
29	die "root op not supported, exg, we need you";	53	die "root op not supported, exg, we need you";
30	}	54	}
31		55
32	# sub clone($) {	56	sub solid($;$$) {
33	# $_[0]->clone	57	my $img = $bgdsl_self->new_img (urxvt::PictStandardARGB32, $_[1] \|\| 1, $_[2] \|\| 1);
		58	$img->fill ($_[0]);
		59	$img
34	# }	60	}
35		61
36	sub subrect($$$$$;$) {	62	=back
37	$_[0]->sub_rect ($_[1], $_[2], $_[3], $_[4], $_[5])
38	}
39		63
40	sub resize($$$) {	64	=head2 VARIABLES
41	$_[0]->scale ($_[1], $_[2])
42	}
43		65
44	sub move($$$;$) {	66	=over 4
45	# TODO: must be simpler
46	$_[0]->transform ($_[0]->w, $_[0]->h,
47	1, 0, $_[1],
48	0, 1, $_[2],
49	0, 0, 1,
50	$_[3],
51	)
52	}
53		67
54	sub rotate($$$$$$;$) {	68	=cut
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	)
63	}
64
65	sub blur($$$) {
66	my ($img, $rh, $rv) = @_;
67
68	$img = $img->clone;
69	$img->blur ($rh, $rv);
70	$img
71	}
72
73	sub contrast($$;$$;$) {
74	my ($img, $r, $g, $b, $a) = @_;
75
76	($g, $b) = ($r, $r) if @_ < 4;
77	$a = 1 if @_ < 5;
78
79	$img = $img->clone;
80	$img->contrast ($r, $g, $b, $a);
81	$img
82	}
83
84	sub brightness($$;$$;$) {
85	my ($img, $r, $g, $b, $a) = @_;
86
87	($g, $b) = ($r, $r) if @_ < 4;
88	$a = 1 if @_ < 5;
89
90	$img = $img->clone;
91	$img->brightness ($r, $g, $b, $a);
92	$img
93	}
94		69
95	sub X() { $new->{position_sensitive} = 1; $l }	70	sub X() { $new->{position_sensitive} = 1; $l }
96	sub Y() { $new->{position_sensitive} = 1; $t }	71	sub Y() { $new->{position_sensitive} = 1; $t }
97	sub W() { $new->{size_sensitive} = 1; $w }	72	sub W() { $new->{size_sensitive} = 1; $w }
98	sub H() { $new->{size_sensitive} = 1; $h }	73	sub H() { $new->{size_sensitive} = 1; $h }
103	$new->{again} = $_[0];	78	$new->{again} = $_[0];
104	}	79	}
105		80
106	sub counter($) {	81	sub counter($) {
107	$new->{again} = $_[0];	82	$new->{again} = $_[0];
108	$bgdsl_self->{counter}++ + 0	83	$bgdsl_self->{counter} + 0
109	}	84	}
		85
		86	=back
		87
		88	=head2 TILING MODES
		89
		90	The following operators modify the tiling mode of an image, that is, the
		91	way that pixels outside the image area are painted when the image is used.
		92
		93	=over 4
		94
		95	=item tile $img
		96
		97	Tiles the whole plane with the image and returns this new image - or in
		98	other words, it returns a copy of the image in plane tiling mode.
		99
		100	=item mirror $img
		101
		102	Similar to tile, but reflects the image each time it uses a new copy, so
		103	that top edges always touch top edges, right edges always touch right
		104	edges and so on (with normal tiling, left edges always touch right edges
		105	and top always touch bottom edges).
		106
		107	=item pad $img
		108
		109	Takes an image and modifies it so that all pixels outside the image area
		110	become transparent. This mode is most useful when you want to place an
		111	image over another image or the background colour while leaving all
		112	background pixels outside the image unchanged.
		113
		114	=item extend $img
		115
		116	Extends the image over the whole plane, using the closest pixel in the
		117	area outside the image. This mode is mostly useful when you more complex
		118	filtering operations and want the pixels outside the image to have the
		119	same values as the pixels near the edge.
		120
		121	=cut
		122
		123	sub pad($) {
		124	my $img = $_[0]->clone;
		125	$img->repeat_mode (urxvt::RepeatNone);
		126	$img
		127	}
		128
		129	sub tile($) {
		130	my $img = $_[0]->clone;
		131	$img->repeat_mode (urxvt::RepeatNormal);
		132	$img
		133	}
		134
		135	sub mirror($) {
		136	my $img = $_[0]->clone;
		137	$img->repeat_mode (urxvt::RepeatReflect);
		138	$img
		139	}
		140
		141	sub extend($) {
		142	my $img = $_[0]->clone;
		143	$img->repeat_mode (urxvt::RepeatPad);
		144	$img
		145	}
		146
		147	=back
		148
		149	=head2 PIXEL OPERATORS
		150
		151	The following operators modify the image pixels in various ways.
		152
		153	=over 4
		154
		155	=item clone $img
		156
		157	Returns an exact copy of the image.
		158
		159	=cut
		160
		161	sub clone($) {
		162	$_[0]->clone
		163	}
		164
		165	=item clip $img
		166
		167	=item clip $width, $height, $img
		168
		169	=item clip $x, $y, $width, $height, $img
		170
		171	Clips an image to the given rectangle. If the rectangle is outside the
		172	image area (e.g. when C<$x> or C<$y> are negative) or the rectangle is
		173	larger than the image, then the tiling mode defines how the extra pixels
		174	will be filled.
		175
		176	If C<$x> an C<$y> are missing, then C<0> is assumed for both.
		177
		178	If C<$width> and C<$height> are missing, then the window size will be
		179	assumed.
		180
		181	Example: load an image, blur it, and clip it to the window size to save
		182	memory.
		183
		184	clip blur 10, load "mybg.png"
		185
		186	=cut
		187
		188	sub clip($;$$;$$) {
		189	my $img = pop;
		190	my $h = pop \|\| H;
		191	my $w = pop \|\| W;
		192	$img->sub_rect ($_[0], $_[1], $w, $h)
		193	}
		194
		195	=item scale $img
		196
		197	=item scale $size_percent, $img
		198
		199	=item scale $width_percent, $height_percent, $img
		200
		201	Scales the image by the given percentages in horizontal
		202	(C<$width_percent>) and vertical (C<$height_percent>) direction.
		203
		204	If only one percentage is give, it is used for both directions.
		205
		206	If no percentages are given, scales the image to the window size without
		207	keeping aspect.
		208
		209	=item resize $width, $height, $img
		210
		211	Resizes the image to exactly C<$width> times C<$height> pixels.
		212
		213	=cut
		214
		215	#TODO: maximise, maximise_fill?
		216
		217	sub scale($$$) {
		218	my $img = pop;
		219
		220	@_ == 2 ? $img->scale ($_[0] * $img->w * 0.01, $_[1] * $img->h * 0.01)
		221	: @_ ? $img->scale ($_[0] * $img->w * 0.01, $_[0] * $img->h * 0.01)
		222	: $img->scale (W, H)
		223	}
		224
		225	sub resize($$$) {
		226	my $img = pop;
		227	$img->scale ($_[0], $_[1])
		228	}
		229
		230	# TODO: ugly
		231	sub move($$;$) {
		232	my $img = pop->clone;
		233	$img->move ($_[0], $_[1]);
		234	$img
		235	# my $img = pop;
		236	# $img->sub_rect (
		237	# $_[0], $_[1],
		238	# $img->w, $img->h,
		239	# $_[2],
		240	# )
		241	}
		242
		243	sub rotate($$$$$$) {
		244	my $img = pop;
		245	$img->rotate (
		246	$_[0],
		247	$_[1],
		248	$_[2] * $img->w * .01,
		249	$_[3] * $img->h * .01,
		250	$_[4] * (3.14159265 / 180),
		251	)
		252	}
		253
		254	sub blur($$;$) {
		255	my $img = pop;
		256
		257	$img->blur ($_[0], @_ >= 2 ? $_[1] : $_[0]);
		258	}
		259
		260	sub contrast($$;$$;$) {
		261	my $img = pop;
		262	my ($r, $g, $b, $a) = @_;
		263
		264	($g, $b) = ($r, $r) if @_ < 4;
		265	$a = 1 if @_ < 5;
		266
		267	$img = $img->clone;
		268	$img->contrast ($r, $g, $b, $a);
		269	$img
		270	}
		271
		272	sub brightness($$;$$;$) {
		273	my $img = pop;
		274	my ($r, $g, $b, $a) = @_;
		275
		276	($g, $b) = ($r, $r) if @_ < 4;
		277	$a = 1 if @_ < 5;
		278
		279	$img = $img->clone;
		280	$img->brightness ($r, $g, $b, $a);
		281	$img
		282	}
		283
		284	=back
		285
		286	=head2 SETTINGS
		287
		288	=over 4
		289
		290	=item border $respect_border=1
		291
		292	Sets whether the image should respect the terminal border (argument true
		293	or missing), or whether it should fill the whole window (the default).
		294
		295	By default, the image will cover the whole toplevel window. If C<border>
		296	is enabled, then it will only fill the character area and leave a normal
		297	border in the background colour around it and behind the scrollbar.
		298
		299	=cut
		300
		301	sub border {
		302	$border = @_ ? $_[0] : 1;
		303	}
		304
		305	=back
		306
		307	=cut
		308
110	}	309	}
111		310
112	sub parse_expr {	311	sub parse_expr {
113	my $expr = eval "sub {\npackage urxvt::bgdsl;\n#line 0 'background expression'\n$_[0]\n}";	312	my $expr = eval "sub {\npackage urxvt::bgdsl;\n#line 0 'background expression'\n$_[0]\n}";
114	die if $@;	313	die if $@;
…		…
125		324
126	# evaluate the current bg expression	325	# evaluate the current bg expression
127	sub recalculate {	326	sub recalculate {
128	my ($self) = @_;	327	my ($self) = @_;
129		328
		329	# rate limit evaluation
		330
		331	if ($self->{next_refresh} > urxvt::NOW) {
		332	$self->{next_refresh_timer} = urxvt::timer->new->after ($self->{next_refresh} - urxvt::NOW)->cb (sub {
		333	$self->recalculate;
		334	});
		335	return;
		336	}
		337
		338	$self->{next_refresh} = urxvt::NOW + $MIN_INTERVAL;
		339
		340	# set environment to evaluate user expression
		341
130	local $bgdsl_self = $self;	342	local $bgdsl_self = $self;
		343	local $border;
131		344
132	local $old = $self->{state};	345	local $old = $self->{state};
133	local $new = my $state = $self->{state} = {};	346	local $new = my $state = $self->{state} = {};
134		347
135	($l, $t, $w, $h) =	348	($l, $t, $w, $h) =
136	$self->get_geometry;	349	$self->get_geometry;
137		350
		351	warn "$l,$t,$w,$h\n";#d#
		352
		353	# evaluate user expression
		354
138	my $img = eval { $self->{expr}->() };	355	my $img = eval { $self->{expr}->() };
139	warn $@ if $@;#d#	356	warn $@ if $@;#d#
		357	die if !UNIVERSAL::isa $img, "urxvt::img";
140		358
141	%$old = ();	359	# if the expression is sensitive to external events, prepare reevaluation then
142		360
143	my $repeat;	361	my $repeat;
144		362
145	if (my $again = $state->{again}) {	363	if (my $again = $state->{again}) {
146	$repeat = 1;	364	$repeat = 1;
147	$state->{again} = urxvt::timer->new->after ($again)->cb (sub { $self->recalculate });	365	$state->{timer} = $again == $old->{again}
		366	? $old->{timer}
		367	: urxvt::timer->new->after ($again)->interval ($again)->cb (sub {
		368	++$self->{counter};
		369	$self->recalculate
		370	});
148	}	371	}
149		372
150	if (delete $state->{position_sensitive}) {	373	if (delete $state->{position_sensitive}) {
151	$repeat = 1;	374	$repeat = 1;
152	$self->enable (position_change => sub { $_[0]->recalculate });	375	$self->enable (position_change => sub { $_[0]->recalculate });
…		…
159	$self->enable (size_change => sub { $_[0]->recalculate });	382	$self->enable (size_change => sub { $_[0]->recalculate });
160	} else {	383	} else {
161	$self->disable ("size_change");	384	$self->disable ("size_change");
162	}	385	}
163		386
		387	if (delete $state->{rootpmap_sensitive}) {
		388	$repeat = 1;
		389	$self->enable (rootpmap_change => sub { $_[0]->recalculate });
		390	} else {
		391	$self->disable ("rootpmap_change");
		392	}
		393
		394	# clear stuff we no longer need
		395
		396	%$old = ();
		397
164	unless ($repeat) {	398	unless ($repeat) {
165	delete $self->{state};	399	delete $self->{state};
166	delete $self->{expr};	400	delete $self->{expr};
167	}	401	}
168		402
		403	# prepare and set background pixmap
		404
169	$img = $img->sub_rect (0, 0, $w, $h)	405	$img = $img->sub_rect (0, 0, $w, $h)
170	if $img->w != $w \|\| $img->h != $h;	406	if $img->w != $w \|\| $img->h != $h;
171		407
172	$self->set_background ($img);	408	$self->set_background ($img, $border);
173	$self->scr_recolour (0);	409	$self->scr_recolour (0);
174	$self->want_refresh;	410	$self->want_refresh;
175	}	411	}
176		412
177	sub on_start {	413	sub on_start {

Diff Legend

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

Comparing rxvt-unicode/src/perl/background (file contents): Revision 1.5 by root, Tue Jun 5 13:42:59 2012 UTC vs. Revision 1.28 by root, Thu Jun 7 12:56:27 2012 UTC

Diff Legend

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.5 by root, Tue Jun 5 13:42:59 2012 UTC vs.
Revision 1.28 by root, Thu Jun 7 12:56:27 2012 UTC