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

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.16 by root, Wed Jun 6 11:46:11 2012 UTC vs.
Revision 1.35 by root, Fri Jun 8 08:06:38 2012 UTC

…		…
1	#! perl	1	#! perl
2		2
3	#:META:X_RESOURCE:%.expr:string:background expression	3	#:META:X_RESOURCE:%.expr:string:background expression
4	#:META:X_RESOURCE:%.enable:boolean:some boolean	4	#:META:X_RESOURCE:%.border.:boolean:respect the terminal border
5	#:META:X_RESOURCE:%.extra.*:value:extra config
6		5
7	our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y';	6	#TODO: once, rootalign
		7
		8	=head1 background - manage terminal background
		9
		10	=head2 SYNOPSIS
		11
		12	rxvt -background-expr 'background expression'
		13	-background-border
		14
		15	=head2 DESCRIPTION
		16
		17	=head2 REFERENCE
		18
		19	=cut
		20
		21	our $EXPR;
		22	#$EXPR = 'move W * 0.1, -H * 0.1, resize W * 0.5, H * 0.5, repeat_none load "opensource.png"';
		23	$EXPR = 'move -TX, -TY, load "argb.png"';
8	$EXPR = '	24	#$EXPR = '
9	rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,	25	# rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
10	clip X, Y, W, H, repeat_mirror,	26	# clip X, Y, W, H, repeat_mirror,
11	load "/root/pix/das_fette_schwein.jpg"	27	# load "/root/pix/das_fette_schwein.jpg"
12	';	28	#';
13	$EXPR = 'solid "red"';	29	#$EXPR = 'solid "red"';
14	#$EXPR = 'blur root, 10, 10'	30	#$EXPR = 'blur root, 10, 10'
15	#$EXPR = 'blur move (root, -x, -y), 5, 5'	31	#$EXPR = 'blur move (root, -x, -y), 5, 5'
16	#resize load "/root/pix/das_fette_schwein.jpg", w, h	32	#resize load "/root/pix/das_fette_schwein.jpg", w, h
17		33
18	use Safe;
19
20	our ($bgdsl_self, $old, $new);	34	our ($self, $old, $new);
21	our ($l, $t, $w, $h);	35	our ($x, $y, $w, $h);
22		36
23	# enforce at least this interval between updates	37	# enforce at least this interval between updates
24	our $MIN_INTERVAL = 1/100;	38	our $MIN_INTERVAL = 1/100;
25		39
26	{	40	{
27	package urxvt::bgdsl; # background language	41	package urxvt::bgdsl; # background language
28		42
29	*repeat_black = \&urxvt::RepeatNone; #TODO wtf
30	*repeat_wrap = \&urxvt::RepeatNormal;
31	*repeat_pad = \&urxvt::RepeatPad;
32	*repeat_mirror = \&urxvt::RepeatReflect;
33
34	=head2 PROVIDERS/GENERATORS	43	=head2 PROVIDERS/GENERATORS
35		44
		45	These functions provide an image, by loading it from disk, grabbing it
		46	from the root screen or by simply generating it. They are used as starting
		47	points to get an image you can play with.
		48
36	=over 4	49	=over 4
37		50
38	=item load $path	51	=item load $path
		52
		53	Loads the image at the given C<$path>. The image is set to plane tiling
		54	mode.
		55
		56	Loaded images will be cached for one cycle.
39		57
40	=cut	58	=cut
41		59
42	sub load($) {	60	sub load($) {
43	my ($path) = @_;	61	my ($path) = @_;
44		62
45	$new->{load}{$path} = $old->{load}{$path} \|\| $bgdsl_self->new_img_from_file ($path);	63	$new->{load}{$path} = $old->{load}{$path} \|\| $self->new_img_from_file ($path);
46	}	64	}
		65
		66	=item root
		67
		68	Returns the root window pixmap, that is, hopefully, the background image
		69	of your screen. The image is set to extend mode.
		70
		71	This function makes your expression root sensitive, that means it will be
		72	reevaluated when the bg image changes.
		73
		74	=cut
47		75
48	sub root() {	76	sub root() {
49	$new->{rootpmap_sensitive} = 1;	77	$new->{rootpmap_sensitive} = 1;
50	die "root op not supported, exg, we need you";	78	die "root op not supported, exg, we need you";
51	}	79	}
52		80
		81	=item solid $colour
		82
		83	=item solid $width, $height, $colour
		84
		85	Creates a new image and completely fills it with the given colour. The
		86	image is set to tiling mode.
		87
		88	If <$width> and C<$height> are omitted, it creates a 1x1 image, which is
		89	useful for solid backgrounds or for use in filtering effects.
		90
		91	=cut
		92
53	sub solid($;$$) {	93	sub solid($$;$) {
		94	my $colour = pop;
		95
54	my $img = $bgdsl_self->new_img (urxvt::PictStandardARGB32, $_[1] \|\| 1, $_[2] \|\| 1);	96	my $img = $self->new_img (urxvt::PictStandardARGB32, $_[0] \|\| 1, $_[1] \|\| 1);
55	$img->fill ($_[0]);	97	$img->fill ($colour);
56	$img	98	$img
57	}	99	}
58		100
59	=back	101	=back
60		102
61	=head2 OPERATORS	103	=head2 VARIABLES
		104
		105	The following functions provide variable data such as the terminal
		106	window dimensions. Most of them make your expression sensitive to some
		107	events, for example using C<TW> (terminal width) means your expression is
		108	evaluated again when the terminal is resized.
62		109
63	=over 4	110	=over 4
64		111
65	=cut	112	=item TX
66		113
		114	=item TY
		115
		116	Return the X and Y coordinates of the terminal window (the terminal
		117	window is the full window by default, and the character area only when in
		118	border-respect mode).
		119
		120	Using these functions make your expression sensitive to window moves.
		121
		122	These functions are mainly useful to align images to the root window.
		123
		124	Example: load an image and align it so it looks as if anchored to the
		125	background.
		126
		127	move -TX, -TY, load "mybg.png"
		128
		129	=item TW
		130
		131	Return the width (C<TW>) and height (C<TH>) of the terminal window (the
		132	terminal window is the full window by default, and the character area only
		133	when in border-respect mode).
		134
		135	Using these functions make your expression sensitive to window resizes.
		136
		137	These functions are mainly useful to scale images, or to clip images to
		138	the window size to conserve memory.
		139
		140	Example: take the screen background, clip it to the window size, blur it a
		141	bit, align it to the window position and use it as background.
		142
		143	clip move -TX, -TY, blur 5, root
		144
		145	=cut
		146
		147	sub TX() { $new->{position_sensitive} = 1; $x }
		148	sub TY() { $new->{position_sensitive} = 1; $y }
		149	sub TW() { $new->{size_sensitive} = 1; $w }
		150	sub TH() { $new->{size_sensitive} = 1; $h }
		151
		152	=item now
		153
		154	Returns the current time as (fractional) seconds since the epoch.
		155
		156	Using this expression does I<not> make your expression sensitive to time,
		157	but the next two functions do.
		158
		159	=item again $seconds
		160
		161	When this function is used the expression will be reevaluated again in
		162	C<$seconds> seconds.
		163
		164	Example: load some image and rotate it according to the time of day (as if it were
		165	the hour pointer of a clock). update this image every minute.
		166
		167	again 60; rotate TW, TH, 50, 50, (now % 86400) * -720 / 86400, scale load "myclock.png"
		168
		169	=item counter $seconds
		170
		171	Like C<again>, but also returns an increasing counter value, starting at
		172	0, which might be useful for some simple animation effects.
		173
		174	=cut
		175
		176	sub now() { urxvt::NOW }
		177
		178	sub again($) {
		179	$new->{again} = $_[0];
		180	}
		181
		182	sub counter($) {
		183	$new->{again} = $_[0];
		184	$self->{counter} + 0
		185	}
		186
		187	=back
		188
		189	=head2 TILING MODES
		190
		191	The following operators modify the tiling mode of an image, that is, the
		192	way that pixels outside the image area are painted when the image is used.
		193
		194	=over 4
		195
		196	=item tile $img
		197
		198	Tiles the whole plane with the image and returns this new image - or in
		199	other words, it returns a copy of the image in plane tiling mode.
		200
		201	Example: load an image and tile it over the background, without
		202	resizing. The C<tile> call is superfluous because C<load> already defaults
		203	to tiling mode.
		204
		205	tile load "mybg.png"
		206
		207	=item mirror $img
		208
		209	Similar to tile, but reflects the image each time it uses a new copy, so
		210	that top edges always touch top edges, right edges always touch right
		211	edges and so on (with normal tiling, left edges always touch right edges
		212	and top always touch bottom edges).
		213
		214	Exmaple: load an image and mirror it over the background, avoiding sharp
		215	edges at the image borders at the expense of mirroring the image itself
		216
		217	mirror load "mybg.png"
		218
		219	=item pad $img
		220
		221	Takes an image and modifies it so that all pixels outside the image area
		222	become transparent. This mode is most useful when you want to place an
		223	image over another image or the background colour while leaving all
		224	background pixels outside the image unchanged.
		225
		226	Example: load an image and display it in the upper left corner. The rets
		227	of the space is left "empty" (transparent or wahtever your compisotr does
		228	in alpha mode, else background colour).
		229
		230	pad load "mybg.png"
		231
		232	=item extend $img
		233
		234	Extends the image over the whole plane, using the closest pixel in the
		235	area outside the image. This mode is mostly useful when you more complex
		236	filtering operations and want the pixels outside the image to have the
		237	same values as the pixels near the edge.
		238
		239	Example: just for curiosity, how does this pixel extension stuff work?
		240
		241	extend move 50, 50, load "mybg.png"
		242
		243	=cut
		244
		245	sub pad($) {
		246	my $img = $_[0]->clone;
		247	$img->repeat_mode (urxvt::RepeatNone);
		248	$img
		249	}
		250
		251	sub tile($) {
		252	my $img = $_[0]->clone;
		253	$img->repeat_mode (urxvt::RepeatNormal);
		254	$img
		255	}
		256
		257	sub mirror($) {
		258	my $img = $_[0]->clone;
		259	$img->repeat_mode (urxvt::RepeatReflect);
		260	$img
		261	}
		262
		263	sub extend($) {
		264	my $img = $_[0]->clone;
		265	$img->repeat_mode (urxvt::RepeatPad);
		266	$img
		267	}
		268
		269	=back
		270
		271	=head2 PIXEL OPERATORS
		272
		273	The following operators modify the image pixels in various ways.
		274
		275	=over 4
		276
		277	=item clone $img
		278
		279	Returns an exact copy of the image.
		280
		281	=cut
		282
67	# sub clone($) {	283	sub clone($) {
68	# $_[0]->clone	284	$_[0]->clone
69	# }	285	}
70		286
		287	=item clip $img
		288
		289	=item clip $width, $height, $img
		290
		291	=item clip $x, $y, $width, $height, $img
		292
		293	Clips an image to the given rectangle. If the rectangle is outside the
		294	image area (e.g. when C<$x> or C<$y> are negative) or the rectangle is
		295	larger than the image, then the tiling mode defines how the extra pixels
		296	will be filled.
		297
		298	If C<$x> an C<$y> are missing, then C<0> is assumed for both.
		299
		300	If C<$width> and C<$height> are missing, then the window size will be
		301	assumed.
		302
		303	Example: load an image, blur it, and clip it to the window size to save
		304	memory.
		305
		306	clip blur 10, load "mybg.png"
		307
		308	=cut
		309
71	sub clip($$$$$;$) {	310	sub clip($;$$;$$) {
		311	my $img = pop;
72	my $img = pop;	312	my $h = pop \|\| TH;
		313	my $w = pop \|\| TW;
73	$img->sub_rect ($_[0], $_[1], $_[2], $_[3], $_[4])	314	$img->sub_rect ($_[0], $_[1], $w, $h)
		315	}
		316
		317	=item scale $img
		318
		319	=item scale $size_percent, $img
		320
		321	=item scale $width_percent, $height_percent, $img
		322
		323	Scales the image by the given percentages in horizontal
		324	(C<$width_percent>) and vertical (C<$height_percent>) direction.
		325
		326	If only one percentage is give, it is used for both directions.
		327
		328	If no percentages are given, scales the image to the window size without
		329	keeping aspect.
		330
		331	=item resize $width, $height, $img
		332
		333	Resizes the image to exactly C<$width> times C<$height> pixels.
		334
		335	=cut
		336
		337	#TODO: maximise, maximise_fill?
		338
		339	sub scale($;$;$) {
		340	my $img = pop;
		341
		342	@_ == 2 ? $img->scale ($_[0] * $img->w * 0.01, $_[1] * $img->h * 0.01)
		343	: @_ ? $img->scale ($_[0] * $img->w * 0.01, $_[0] * $img->h * 0.01)
		344	: $img->scale (TW, TH)
74	}	345	}
75		346
76	sub resize($$$) {	347	sub resize($$$) {
77	my $img = pop;	348	my $img = pop;
78	$img->scale ($_[0], $_[1])	349	$img->scale ($_[0], $_[1])
79	}	350	}
80		351
81	# TODO: ugly
82	sub move($$;$) {	352	sub move($$;$) {
83	my $img = pop;	353	my $img = pop->clone;
84	$img->sub_rect (	354	$img->move ($_[0], $_[1]);
85	$_[0], $_[1],	355	$img
86	$img->w, $img->h,
87	$_[2],
88	)
89	}	356	}
90		357
91	sub rotate($$$$$$;$) {	358	sub rotate($$$$$$) {
92	my $img = pop;	359	my $img = pop;
93	$img->rotate (	360	$img->rotate (
94	$_[0],	361	$_[0],
95	$_[1],	362	$_[1],
96	$_[2] * $img->w * .01,	363	$_[2] * $img->w * .01,
97	$_[3] * $img->h * .01,	364	$_[3] * $img->h * .01,
98	$_[4] * (3.14159265 / 180),	365	$_[4] * (3.14159265 / 180),
99	$_[5],
100	)	366	)
101	}	367	}
102		368
103	sub blur($$$) {	369	sub blur($$;$) {
104	my ($rh, $rv, $img) = @_;	370	my $img = pop;
105		371	$img->blur ($_[0], @_ >= 2 ? $_[1] : $_[0])
106	$img->blur ($rh, $rv);
107	}	372	}
108		373
109	sub contrast($$;$$;$) {	374	sub contrast($$;$$;$) {
110	my $img = pop;	375	my $img = pop;
111	my ($r, $g, $b, $a) = @_;	376	my ($r, $g, $b, $a) = @_;
126	$a = 1 if @_ < 5;	391	$a = 1 if @_ < 5;
127		392
128	$img = $img->clone;	393	$img = $img->clone;
129	$img->brightness ($r, $g, $b, $a);	394	$img->brightness ($r, $g, $b, $a);
130	$img	395	$img
131	}
132
133	sub X() { $new->{position_sensitive} = 1; $l }
134	sub Y() { $new->{position_sensitive} = 1; $t }
135	sub W() { $new->{size_sensitive} = 1; $w }
136	sub H() { $new->{size_sensitive} = 1; $h }
137
138	sub now() { urxvt::NOW }
139
140	sub again($) {
141	$new->{again} = $_[0];
142	}
143
144	sub counter($) {
145	$new->{again} = $_[0];
146	$bgdsl_self->{counter} + 0
147	}	396	}
148		397
149	=back	398	=back
150		399
151	=cut	400	=cut
…		…
166	$self->recalculate;	415	$self->recalculate;
167	}	416	}
168		417
169	# evaluate the current bg expression	418	# evaluate the current bg expression
170	sub recalculate {	419	sub recalculate {
171	my ($self) = @_;	420	my ($arg_self) = @_;
172		421
173	# rate limit evaluation	422	# rate limit evaluation
174		423
175	if ($self->{next_refresh} > urxvt::NOW) {	424	if ($arg_self->{next_refresh} > urxvt::NOW) {
176	$self->{next_refresh_timer} = urxvt::timer->new->after ($self->{next_refresh} - urxvt::NOW)->cb (sub {	425	$arg_self->{next_refresh_timer} = urxvt::timer->new->after ($arg_self->{next_refresh} - urxvt::NOW)->cb (sub {
177	$self->recalculate;	426	$arg_self->recalculate;
178	});	427	});
179	return;	428	return;
180	}	429	}
181		430
182	$self->{next_refresh} = urxvt::NOW + $MIN_INTERVAL;	431	$arg_self->{next_refresh} = urxvt::NOW + $MIN_INTERVAL;
183		432
184	# set environment to evaluate user expression	433	# set environment to evaluate user expression
185		434
186	local $bgdsl_self = $self;	435	local $self = $arg_self;
187		436
188	local $old = $self->{state};	437	local $old = $self->{state};
189	local $new = my $state = $self->{state} = {};	438	local $new = my $state = $self->{state} = {};
190		439
191	($l, $t, $w, $h) =	440	($x, $y, $w, $h) =
192	$self->get_geometry;	441	$self->background_geometry ($self->{border});
193		442
194	# evaluate user expression	443	# evaluate user expression
195		444
196	my $img = eval { $self->{expr}->() };	445	my $img = eval { $self->{expr}->() };
197	warn $@ if $@;#d#	446	warn $@ if $@;#d#
198	die if !UNIVERSAL::isa $img, "urxvt::img";	447	die if !UNIVERSAL::isa $img, "urxvt::img";
199		448
		449	$state->{size_sensitive} = 1
		450	if $img->repeat_mode != urxvt::RepeatNormal;
		451
200	# if the expression is sensitive to external events, prepare reevaluation then	452	# if the expression is sensitive to external events, prepare reevaluation then
201		453
202	my $repeat;	454	my $repeat;
203		455
204	if (my $again = $state->{again}) {	456	if (my $again = $state->{again}) {
205	$repeat = 1;	457	$repeat = 1;
		458	my $self = $self;
206	$state->{timer} = $again == $old->{again}	459	$state->{timer} = $again == $old->{again}
207	? $old->{timer}	460	? $old->{timer}
208	: urxvt::timer->new->after ($again)->interval ($again)->cb (sub {	461	: urxvt::timer->new->after ($again)->interval ($again)->cb (sub {
209	++$self->{counter};	462	++$self->{counter};
210	$self->recalculate	463	$self->recalculate
…		…
239	unless ($repeat) {	492	unless ($repeat) {
240	delete $self->{state};	493	delete $self->{state};
241	delete $self->{expr};	494	delete $self->{expr};
242	}	495	}
243		496
244	# prepare and set background pixmap	497	# set background pixmap
245		498
246	$img = $img->sub_rect (0, 0, $w, $h)
247	if $img->w != $w \|\| $img->h != $h;
248
249	$self->set_background ($img);	499	$self->set_background ($img, $self->{border});
250	$self->scr_recolour (0);	500	$self->scr_recolour (0);
251	$self->want_refresh;	501	$self->want_refresh;
252	}	502	}
253		503
254	sub on_start {	504	sub on_start {
255	my ($self) = @_;	505	my ($self) = @_;
256		506
257	warn $self->x_resource ("background.enable");	507	my $expr = $self->x_resource ("background.expr")
		508	or return;
258		509
259	$self->set_expr (parse_expr $EXPR);	510	$self->set_expr (parse_expr $expr);
		511	$self->{border} = $self->x_resource_boolean ("background.border");
260		512
261	()	513	()
262	}	514	}
263		515

Diff Legend

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

Comparing rxvt-unicode/src/perl/background (file contents): Revision 1.16 by root, Wed Jun 6 11:46:11 2012 UTC vs. Revision 1.35 by root, Fri Jun 8 08:06:38 2012 UTC

Diff Legend

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.16 by root, Wed Jun 6 11:46:11 2012 UTC vs.
Revision 1.35 by root, Fri Jun 8 08:06:38 2012 UTC