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

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.7 by root, Tue Jun 5 14:04:58 2012 UTC vs.
Revision 1.34 by root, Thu Jun 7 17:04:33 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	#:META:X_RESOURCE:%.border.:boolean:respect the terminal border
		5
		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"';
4	$EXPR = '	22	#$EXPR = '
5	rotate W, H, 50, 50, counter 1/60, repeat_mirror,	23	# rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
6	clip X, Y, W, H, repeat_mirror,	24	# clip X, Y, W, H, repeat_mirror,
7	load "/root/pix/das_fette_schwein.jpg"	25	# load "/root/pix/das_fette_schwein.jpg"
8	';	26	#';
		27	#$EXPR = 'solid "red"';
9	#$EXPR = 'blur root, 10, 10'	28	#$EXPR = 'blur root, 10, 10'
10	#$EXPR = 'blur move (root, -x, -y), 5, 5'	29	#$EXPR = 'blur move (root, -x, -y), 5, 5'
11	#resize load "/root/pix/das_fette_schwein.jpg", w, h	30	#resize load "/root/pix/das_fette_schwein.jpg", w, h
12		31
13	use Safe;
14
15	our ($bgdsl_self, $old, $new);	32	our ($self, $old, $new);
16	our ($l, $t, $w, $h);	33	our ($x, $y, $w, $h);
		34
		35	# enforce at least this interval between updates
		36	our $MIN_INTERVAL = 1/100;
17		37
18	{	38	{
19	package urxvt::bgdsl; # background language	39	package urxvt::bgdsl; # background language
20		40
21	*repeat_black = \&urxvt::RepeatNone; #TODO wtf	41	=head2 PROVIDERS/GENERATORS
22	*repeat_wrap = \&urxvt::RepeatNormal;	42
23	*repeat_pad = \&urxvt::RepeatPad;	43	These functions provide an image, by loading it from disk, grabbing it
24	*repeat_mirror = \&urxvt::RepeatReflect;	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
		47	=over 4
		48
		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.
		55
		56	=cut
25		57
26	sub load($) {	58	sub load($) {
27	my ($path) = @_;	59	my ($path) = @_;
28		60
29	$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);
30	}	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
31		73
32	sub root() {	74	sub root() {
		75	$new->{rootpmap_sensitive} = 1;
33	die "root op not supported, exg, we need you";	76	die "root op not supported, exg, we need you";
34	}	77	}
35		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
		91	sub solid($$;$) {
		92	my $colour = pop;
		93
		94	my $img = $self->new_img (urxvt::PictStandardARGB32, $_[0] \|\| 1, $_[1] \|\| 1);
		95	$img->fill ($colour);
		96	$img
		97	}
		98
		99	=back
		100
		101	=head2 VARIABLES
		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
		108	=over 4
		109
		110	=item TX
		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
		145	sub TX() { $new->{position_sensitive} = 1; $x }
		146	sub TY() { $new->{position_sensitive} = 1; $y }
		147	sub TW() { $new->{size_sensitive} = 1; $w }
		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
		173
		174	sub now() { urxvt::NOW }
		175
		176	sub again($) {
		177	$new->{again} = $_[0];
		178	}
		179
		180	sub counter($) {
		181	$new->{again} = $_[0];
		182	$self->{counter} + 0
		183	}
		184
		185	=back
		186
		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.
		191
		192	=over 4
		193
		194	=item tile $img
		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	Example: load an image and tile it over the background, without
		200	resizing. The C<tile> call is superfluous because C<load> already defaults
		201	to tiling mode.
		202
		203	tile load "mybg.png"
		204
		205	=item mirror $img
		206
		207	Similar to tile, but reflects the image each time it uses a new copy, so
		208	that top edges always touch top edges, right edges always touch right
		209	edges and so on (with normal tiling, left edges always touch right edges
		210	and top always touch bottom edges).
		211
		212	Exmaple: load an image and mirror it over the background, avoiding sharp
		213	edges at the image borders at the expense of mirroring the image itself
		214
		215	mirror load "mybg.png"
		216
		217	=item pad $img
		218
		219	Takes an image and modifies it so that all pixels outside the image area
		220	become transparent. This mode is most useful when you want to place an
		221	image over another image or the background colour while leaving all
		222	background pixels outside the image unchanged.
		223
		224	Example: load an image and display it in the upper left corner. The rets
		225	of the space is left "empty" (transparent or wahtever your compisotr does
		226	in alpha mode, else background colour).
		227
		228	pad load "mybg.png"
		229
		230	=item extend $img
		231
		232	Extends the image over the whole plane, using the closest pixel in the
		233	area outside the image. This mode is mostly useful when you more complex
		234	filtering operations and want the pixels outside the image to have the
		235	same values as the pixels near the edge.
		236
		237	Example: just for curiosity, how does this pixel extension stuff work?
		238
		239	extend move 50, 50, load "mybg.png"
		240
		241	=cut
		242
		243	sub pad($) {
		244	my $img = $_[0]->clone;
		245	$img->repeat_mode (urxvt::RepeatNone);
		246	$img
		247	}
		248
		249	sub tile($) {
		250	my $img = $_[0]->clone;
		251	$img->repeat_mode (urxvt::RepeatNormal);
		252	$img
		253	}
		254
		255	sub mirror($) {
		256	my $img = $_[0]->clone;
		257	$img->repeat_mode (urxvt::RepeatReflect);
		258	$img
		259	}
		260
		261	sub extend($) {
		262	my $img = $_[0]->clone;
		263	$img->repeat_mode (urxvt::RepeatPad);
		264	$img
		265	}
		266
		267	=back
		268
		269	=head2 PIXEL OPERATORS
		270
		271	The following operators modify the image pixels in various ways.
		272
		273	=over 4
		274
		275	=item clone $img
		276
		277	Returns an exact copy of the image.
		278
		279	=cut
		280
36	# sub clone($) {	281	sub clone($) {
37	# $_[0]->clone	282	$_[0]->clone
38	# }	283	}
39		284
		285	=item clip $img
		286
		287	=item clip $width, $height, $img
		288
		289	=item clip $x, $y, $width, $height, $img
		290
		291	Clips an image to the given rectangle. If the rectangle is outside the
		292	image area (e.g. when C<$x> or C<$y> are negative) or the rectangle is
		293	larger than the image, then the tiling mode defines how the extra pixels
		294	will be filled.
		295
		296	If C<$x> an C<$y> are missing, then C<0> is assumed for both.
		297
		298	If C<$width> and C<$height> are missing, then the window size will be
		299	assumed.
		300
		301	Example: load an image, blur it, and clip it to the window size to save
		302	memory.
		303
		304	clip blur 10, load "mybg.png"
		305
		306	=cut
		307
40	sub clip($$$$$;$) {	308	sub clip($;$$;$$) {
		309	my $img = pop;
41	my $img = pop;	310	my $h = pop \|\| TH;
		311	my $w = pop \|\| TW;
42	$img->sub_rect ($_[0], $_[1], $_[2], $_[3], $_[4])	312	$img->sub_rect ($_[0], $_[1], $w, $h)
		313	}
		314
		315	=item scale $img
		316
		317	=item scale $size_percent, $img
		318
		319	=item scale $width_percent, $height_percent, $img
		320
		321	Scales the image by the given percentages in horizontal
		322	(C<$width_percent>) and vertical (C<$height_percent>) direction.
		323
		324	If only one percentage is give, it is used for both directions.
		325
		326	If no percentages are given, scales the image to the window size without
		327	keeping aspect.
		328
		329	=item resize $width, $height, $img
		330
		331	Resizes the image to exactly C<$width> times C<$height> pixels.
		332
		333	=cut
		334
		335	#TODO: maximise, maximise_fill?
		336
		337	sub scale($;$;$) {
		338	my $img = pop;
		339
		340	@_ == 2 ? $img->scale ($_[0] * $img->w * 0.01, $_[1] * $img->h * 0.01)
		341	: @_ ? $img->scale ($_[0] * $img->w * 0.01, $_[0] * $img->h * 0.01)
		342	: $img->scale (TW, TH)
43	}	343	}
44		344
45	sub resize($$$) {	345	sub resize($$$) {
46	my $img = pop;	346	my $img = pop;
47	$img->scale ($_[0], $_[1])	347	$img->scale ($_[0], $_[1])
48	}	348	}
49		349
50	# TODO: ugly
51	sub move($$;$) {	350	sub move($$;$) {
52	my $img = pop;	351	my $img = pop->clone;
53	$img->sub_rect (	352	$img->move ($_[0], $_[1]);
54	$_[0], $_[1],	353	$img
55	$img->w, $img->h,
56	$_[2],
57	)
58	}	354	}
59		355
60	sub rotate($$$$$$;$) {	356	sub rotate($$$$$$) {
61	my $img = pop;	357	my $img = pop;
62	$img->rotate (	358	$img->rotate (
63	$_[0],	359	$_[0],
64	$_[1],	360	$_[1],
65	$_[2] * $img->w * .01,	361	$_[2] * $img->w * .01,
66	$_[3] * $img->h * .01,	362	$_[3] * $img->h * .01,
67	$_[4] * (3.14159265 / 180),	363	$_[4] * (3.14159265 / 180),
68	$_[5],
69	)	364	)
70	}	365	}
71		366
72	sub blur($$$) {	367	sub blur($$;$) {
73	my ($rh, $rv, $img) = @_;	368	my $img = pop;
74		369	$img->blur ($_[0], @_ >= 2 ? $_[1] : $_[0])
75	$img = $img->clone;
76	$img->blur ($rh, $rv);
77	$img
78	}	370	}
79		371
80	sub contrast($$;$$;$) {	372	sub contrast($$;$$;$) {
81	my $img = pop;	373	my $img = pop;
82	my ($r, $g, $b, $a) = @_;	374	my ($r, $g, $b, $a) = @_;
99	$img = $img->clone;	391	$img = $img->clone;
100	$img->brightness ($r, $g, $b, $a);	392	$img->brightness ($r, $g, $b, $a);
101	$img	393	$img
102	}	394	}
103		395
104	sub X() { $new->{position_sensitive} = 1; $l }	396	=back
105	sub Y() { $new->{position_sensitive} = 1; $t }
106	sub W() { $new->{size_sensitive} = 1; $w }
107	sub H() { $new->{size_sensitive} = 1; $h }
108		397
109	sub now() { urxvt::NOW }	398	=cut
110		399
111	sub again($) {
112	$new->{again} = $_[0];
113	}
114
115	sub counter($) {
116	$new->{again} = $_[0];
117	$bgdsl_self->{counter} + 0
118	}
119	}	400	}
120		401
121	sub parse_expr {	402	sub parse_expr {
122	my $expr = eval "sub {\npackage urxvt::bgdsl;\n#line 0 'background expression'\n$_[0]\n}";	403	my $expr = eval "sub {\npackage urxvt::bgdsl;\n#line 0 'background expression'\n$_[0]\n}";
123	die if $@;	404	die if $@;
…		…
132	$self->recalculate;	413	$self->recalculate;
133	}	414	}
134		415
135	# evaluate the current bg expression	416	# evaluate the current bg expression
136	sub recalculate {	417	sub recalculate {
137	my ($self) = @_;	418	my ($arg_self) = @_;
138		419
139	#TODO: rate limit calls	420	# rate limit evaluation
140		421
141	local $bgdsl_self = $self;	422	if ($arg_self->{next_refresh} > urxvt::NOW) {
		423	$arg_self->{next_refresh_timer} = urxvt::timer->new->after ($arg_self->{next_refresh} - urxvt::NOW)->cb (sub {
		424	$arg_self->recalculate;
		425	});
		426	return;
		427	}
		428
		429	$arg_self->{next_refresh} = urxvt::NOW + $MIN_INTERVAL;
		430
		431	# set environment to evaluate user expression
		432
		433	local $self = $arg_self;
142		434
143	local $old = $self->{state};	435	local $old = $self->{state};
144	local $new = my $state = $self->{state} = {};	436	local $new = my $state = $self->{state} = {};
145		437
146	($l, $t, $w, $h) =	438	($x, $y, $w, $h) =
147	$self->get_geometry;	439	$self->background_geometry ($self->{border});
		440
		441	# evaluate user expression
148		442
149	my $img = eval { $self->{expr}->() };	443	my $img = eval { $self->{expr}->() };
150	warn $@ if $@;#d#	444	warn $@ if $@;#d#
		445	die if !UNIVERSAL::isa $img, "urxvt::img";
		446
		447	$state->{size_sensitive} = 1
		448	if $img->repeat_mode != urxvt::RepeatNormal;
		449
		450	# if the expression is sensitive to external events, prepare reevaluation then
151		451
152	my $repeat;	452	my $repeat;
153		453
154	if (my $again = $state->{again}) {	454	if (my $again = $state->{again}) {
155	$repeat = 1;	455	$repeat = 1;
…		…
173	$self->enable (size_change => sub { $_[0]->recalculate });	473	$self->enable (size_change => sub { $_[0]->recalculate });
174	} else {	474	} else {
175	$self->disable ("size_change");	475	$self->disable ("size_change");
176	}	476	}
177		477
		478	if (delete $state->{rootpmap_sensitive}) {
		479	$repeat = 1;
		480	$self->enable (rootpmap_change => sub { $_[0]->recalculate });
		481	} else {
		482	$self->disable ("rootpmap_change");
		483	}
		484
		485	# clear stuff we no longer need
		486
178	%$old = ();	487	%$old = ();
179		488
180	unless ($repeat) {	489	unless ($repeat) {
181	delete $self->{state};	490	delete $self->{state};
182	delete $self->{expr};	491	delete $self->{expr};
183	}	492	}
184		493
185	$img = $img->sub_rect (0, 0, $w, $h)	494	# set background pixmap
186	if $img->w != $w \|\| $img->h != $h;
187		495
188	$self->set_background ($img);	496	$self->set_background ($img, $self->{border});
189	$self->scr_recolour (0);	497	$self->scr_recolour (0);
190	$self->want_refresh;	498	$self->want_refresh;
191	}	499	}
192		500
193	sub on_start {	501	sub on_start {
194	my ($self) = @_;	502	my ($self) = @_;
195		503
		504	my $expr = $self->x_resource ("background.expr")
		505	or return;
		506
196	$self->set_expr (parse_expr $EXPR);	507	$self->set_expr (parse_expr $expr);
		508	$self->{border} = $self->x_resource_boolean ("background.border");
197		509
198	()	510	()
199	}	511	}
200		512

Diff Legend

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

Comparing rxvt-unicode/src/perl/background (file contents): Revision 1.7 by root, Tue Jun 5 14:04:58 2012 UTC vs. Revision 1.34 by root, Thu Jun 7 17:04:33 2012 UTC

Diff Legend

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.7 by root, Tue Jun 5 14:04:58 2012 UTC vs.
Revision 1.34 by root, Thu Jun 7 17:04:33 2012 UTC