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

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

Diff Legend

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

Comparing rxvt-unicode/src/perl/background (file contents): Revision 1.21 by root, Thu Jun 7 09:25:23 2012 UTC vs. Revision 1.33 by root, Thu Jun 7 16:30:58 2012 UTC

Diff Legend

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.21 by root, Thu Jun 7 09:25:23 2012 UTC vs.
Revision 1.33 by root, Thu Jun 7 16:30:58 2012 UTC