[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.31 by root, Thu Jun 7 13:48:15 2012 UTC

…		…
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:%.enable:boolean:some boolean
5	#:META:X_RESOURCE:%.extra.:value:extra config	5	#:META:X_RESOURCE:%.extra.:value:extra config
6		6
7	our $EXPR = 'clip -50, -50, 150, 100, move X, Y, load "MagnoliaAlpha.png"';	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 = 'move -TX, -TY, load "argb.png"';
8	#$EXPR = '	10	#$EXPR = '
9	# rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,	11	# rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
10	# clip X, Y, W, H, repeat_mirror,	12	# clip X, Y, W, H, repeat_mirror,
11	# load "/root/pix/das_fette_schwein.jpg"	13	# load "/root/pix/das_fette_schwein.jpg"
12	#';	14	#';
…		…
16	#resize load "/root/pix/das_fette_schwein.jpg", w, h	18	#resize load "/root/pix/das_fette_schwein.jpg", w, h
17		19
18	use Safe;	20	use Safe;
19		21
20	our ($bgdsl_self, $old, $new);	22	our ($bgdsl_self, $old, $new);
21	our ($l, $t, $w, $h);	23	our ($x, $y, $w, $h);
22		24
23	# enforce at least this interval between updates	25	# enforce at least this interval between updates
24	our $MIN_INTERVAL = 1/100;	26	our $MIN_INTERVAL = 1/100;
25		27
26	{	28	{
27	package urxvt::bgdsl; # background language	29	package urxvt::bgdsl; # background language
28		30
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	31	=head2 PROVIDERS/GENERATORS
35		32
		33	These functions provide an image, by loading it from disk, grabbing it
		34	from the root screen or by simply generating it. They are used as strating
		35	points to get an image you can play with.
		36
36	=over 4	37	=over 4
37		38
38	=item load $path	39	=item load $path
		40
		41	Loads the image at the given C<$path>. The image is set to plane tiling
		42	mode.
		43
		44	Loaded images will be cached for one cycle.
39		45
40	=cut	46	=cut
41		47
42	sub load($) {	48	sub load($) {
43	my ($path) = @_;	49	my ($path) = @_;
44		50
45	$new->{load}{$path} = $old->{load}{$path} \|\| $bgdsl_self->new_img_from_file ($path);	51	$new->{load}{$path} = $old->{load}{$path} \|\| $bgdsl_self->new_img_from_file ($path);
46	}	52	}
		53
		54	=item root
		55
		56	Returns the root window pixmap, that is, hopefully, the background image
		57	of your screen. The image is set to extend mode.
		58
		59	This function makes your expression root sensitive, that means it will be
		60	reevaluated when the bg image changes.
		61
		62	=cut
47		63
48	sub root() {	64	sub root() {
49	$new->{rootpmap_sensitive} = 1;	65	$new->{rootpmap_sensitive} = 1;
50	die "root op not supported, exg, we need you";	66	die "root op not supported, exg, we need you";
51	}	67	}
52		68
		69	=item solid $colour
		70
		71	=item solid $width, $height, $colour
		72
		73	Creates a new image and completely fills it with the given colour. The
		74	image is set to tiling mode.
		75
		76	If <$width> and C<$height> are omitted, it creates a 1x1 image, which is
		77	useful for solid backgrounds or for use in filtering effects.
		78
		79	=cut
		80
53	sub solid($;$$) {	81	sub solid($$;$) {
		82	my $colour = pop;
		83
54	my $img = $bgdsl_self->new_img (urxvt::PictStandardARGB32, $_[1] \|\| 1, $_[2] \|\| 1);	84	my $img = $bgdsl_self->new_img (urxvt::PictStandardARGB32, $_[0] \|\| 1, $_[1] \|\| 1);
55	$img->fill ($_[0]);	85	$img->fill ($colour);
56	$img	86	$img
57	}	87	}
58		88
59	=back	89	=back
60		90
61	=head2 VARIABLES	91	=head2 VARIABLES
62		92
		93	The following functions provide variable data such as the terminal
		94	widnow dimensions. Most of them make your expression sensitive to some
		95	events, for example using C<TW> (terminal width) means your expression is
		96	evaluated again when the terminal is resized.
		97
63	=over 4	98	=over 4
64		99
65	=cut	100	=item TX
66		101
		102	=item TY
		103
		104	Return the X and Y coordinates of the terminal window (the terminal
		105	window is the full window by default, and the character area only when in
		106	border-respect mode).
		107
		108	Using these functions make your expression sensitive to window moves.
		109
		110	These functions are mainly useful to align images to the root window.
		111
		112	Example: load an image and align it so it looks as if anchored to the
		113	background.
		114
		115	move -TX, -TY, load "mybg.png"
		116
		117	=item TW
		118
		119	Return the width (C<TW>) and height (C<TH>) of the terminal window (the
		120	terminal window is the full window by default, and the character area only
		121	when in border-respect mode).
		122
		123	Using these functions make your expression sensitive to window resizes.
		124
		125	These functions are mainly useful to scale images, or to clip images to
		126	the window size to conserve memory.
		127
		128	Example: take the screen background, clip it to the window size, blur it a
		129	bit, align it to the window position and use it as background.
		130
		131	clip move -TX, -TY, blur 5, root
		132
		133	=cut
		134
67	sub X() { $new->{position_sensitive} = 1; $l }	135	sub TX() { $new->{position_sensitive} = 1; $x }
68	sub Y() { $new->{position_sensitive} = 1; $t }	136	sub TY() { $new->{position_sensitive} = 1; $y }
69	sub W() { $new->{size_sensitive} = 1; $w }	137	sub TW() { $new->{size_sensitive} = 1; $w }
70	sub H() { $new->{size_sensitive} = 1; $h }	138	sub TH() { $new->{size_sensitive} = 1; $h }
71		139
72	sub now() { urxvt::NOW }	140	sub now() { urxvt::NOW }
73		141
74	sub again($) {	142	sub again($) {
75	$new->{again} = $_[0];	143	$new->{again} = $_[0];
…		…
80	$bgdsl_self->{counter} + 0	148	$bgdsl_self->{counter} + 0
81	}	149	}
82		150
83	=back	151	=back
84		152
85	=head2 OPERATORS	153	=head2 TILING MODES
		154
		155	The following operators modify the tiling mode of an image, that is, the
		156	way that pixels outside the image area are painted when the image is used.
86		157
87	=over 4	158	=over 4
88		159
89	=cut	160	=item tile $img
90		161
		162	Tiles the whole plane with the image and returns this new image - or in
		163	other words, it returns a copy of the image in plane tiling mode.
		164
		165	=item mirror $img
		166
		167	Similar to tile, but reflects the image each time it uses a new copy, so
		168	that top edges always touch top edges, right edges always touch right
		169	edges and so on (with normal tiling, left edges always touch right edges
		170	and top always touch bottom edges).
		171
		172	=item pad $img
		173
		174	Takes an image and modifies it so that all pixels outside the image area
		175	become transparent. This mode is most useful when you want to place an
		176	image over another image or the background colour while leaving all
		177	background pixels outside the image unchanged.
		178
		179	=item extend $img
		180
		181	Extends the image over the whole plane, using the closest pixel in the
		182	area outside the image. This mode is mostly useful when you more complex
		183	filtering operations and want the pixels outside the image to have the
		184	same values as the pixels near the edge.
		185
		186	=cut
		187
		188	sub pad($) {
		189	my $img = $_[0]->clone;
		190	$img->repeat_mode (urxvt::RepeatNone);
		191	$img
		192	}
		193
		194	sub tile($) {
		195	my $img = $_[0]->clone;
		196	$img->repeat_mode (urxvt::RepeatNormal);
		197	$img
		198	}
		199
		200	sub mirror($) {
		201	my $img = $_[0]->clone;
		202	$img->repeat_mode (urxvt::RepeatReflect);
		203	$img
		204	}
		205
		206	sub extend($) {
		207	my $img = $_[0]->clone;
		208	$img->repeat_mode (urxvt::RepeatPad);
		209	$img
		210	}
		211
		212	=back
		213
		214	=head2 PIXEL OPERATORS
		215
		216	The following operators modify the image pixels in various ways.
		217
		218	=over 4
		219
		220	=item clone $img
		221
		222	Returns an exact copy of the image.
		223
		224	=cut
		225
91	# sub clone($) {	226	sub clone($) {
92	# $_[0]->clone	227	$_[0]->clone
93	# }	228	}
		229
		230	=item clip $img
		231
		232	=item clip $width, $height, $img
		233
		234	=item clip $x, $y, $width, $height, $img
		235
		236	Clips an image to the given rectangle. If the rectangle is outside the
		237	image area (e.g. when C<$x> or C<$y> are negative) or the rectangle is
		238	larger than the image, then the tiling mode defines how the extra pixels
		239	will be filled.
		240
		241	If C<$x> an C<$y> are missing, then C<0> is assumed for both.
		242
		243	If C<$width> and C<$height> are missing, then the window size will be
		244	assumed.
		245
		246	Example: load an image, blur it, and clip it to the window size to save
		247	memory.
		248
		249	clip blur 10, load "mybg.png"
		250
		251	=cut
94		252
95	sub clip($;$$;$$) {	253	sub clip($;$$;$$) {
96	my $img = pop;	254	my $img = pop;
97	my $h = pop \|\| H;	255	my $h = pop \|\| TH;
98	my $w = pop \|\| W;	256	my $w = pop \|\| TW;
99	$img->sub_rect ($_[0], $_[1], $w, $h)	257	$img->sub_rect ($_[0], $_[1], $w, $h)
100	}	258	}
101		259
		260	=item scale $img
		261
		262	=item scale $size_percent, $img
		263
		264	=item scale $width_percent, $height_percent, $img
		265
		266	Scales the image by the given percentages in horizontal
		267	(C<$width_percent>) and vertical (C<$height_percent>) direction.
		268
		269	If only one percentage is give, it is used for both directions.
		270
		271	If no percentages are given, scales the image to the window size without
		272	keeping aspect.
		273
		274	=item resize $width, $height, $img
		275
		276	Resizes the image to exactly C<$width> times C<$height> pixels.
		277
		278	=cut
		279
		280	#TODO: maximise, maximise_fill?
		281
		282	sub scale($$$) {
		283	my $img = pop;
		284
		285	@_ == 2 ? $img->scale ($_[0] * $img->w * 0.01, $_[1] * $img->h * 0.01)
		286	: @_ ? $img->scale ($_[0] * $img->w * 0.01, $_[0] * $img->h * 0.01)
		287	: $img->scale (TW, TH)
		288	}
		289
102	sub resize($$$) {	290	sub resize($$$) {
103	my $img = pop;	291	my $img = pop;
104	$img->scale ($_[0], $_[1])	292	$img->scale ($_[0], $_[1])
105	}	293	}
106		294
107	# TODO: ugly
108	sub move($$;$) {	295	sub move($$;$) {
109	my $img = pop->clone;	296	my $img = pop->clone;
110	$img->move ($_[0], $_[1]);	297	$img->move ($_[0], $_[1]);
111	$img	298	$img
112	# my $img = pop;
113	# $img->sub_rect (
114	# $_[0], $_[1],
115	# $img->w, $img->h,
116	# $_[2],
117	# )
118	}	299	}
119		300
120	sub rotate($$$$$$) {	301	sub rotate($$$$$$) {
121	my $img = pop;	302	my $img = pop;
122	$img->rotate (	303	$img->rotate (
…		…
126	$_[3] * $img->h * .01,	307	$_[3] * $img->h * .01,
127	$_[4] * (3.14159265 / 180),	308	$_[4] * (3.14159265 / 180),
128	)	309	)
129	}	310	}
130		311
131	sub blur($$$) {	312	sub blur($$;$) {
132	my ($rh, $rv, $img) = @_;	313	my $img = pop;
133		314	$img->blur ($_[0], @_ >= 2 ? $_[1] : $_[0])
134	$img->blur ($rh, $rv);
135	}	315	}
136		316
137	sub contrast($$;$$;$) {	317	sub contrast($$;$$;$) {
138	my $img = pop;	318	my $img = pop;
139	my ($r, $g, $b, $a) = @_;	319	my ($r, $g, $b, $a) = @_;
…		…
198	local $bgdsl_self = $self;	378	local $bgdsl_self = $self;
199		379
200	local $old = $self->{state};	380	local $old = $self->{state};
201	local $new = my $state = $self->{state} = {};	381	local $new = my $state = $self->{state} = {};
202		382
		383	my $border = 0; #d#
		384
203	($l, $t, $w, $h) =	385	($x, $y, $w, $h) =
204	$self->get_geometry;	386	$self->background_geometry ($border);
205		387
206	# evaluate user expression	388	# evaluate user expression
207		389
208	my $img = eval { $self->{expr}->() };	390	my $img = eval { $self->{expr}->() };
209	warn $@ if $@;#d#	391	warn $@ if $@;#d#
…		…
256	# prepare and set background pixmap	438	# prepare and set background pixmap
257		439
258	$img = $img->sub_rect (0, 0, $w, $h)	440	$img = $img->sub_rect (0, 0, $w, $h)
259	if $img->w != $w \|\| $img->h != $h;	441	if $img->w != $w \|\| $img->h != $h;
260		442
261	$self->set_background ($img);	443	$self->set_background ($img, $border);
262	$self->scr_recolour (0);	444	$self->scr_recolour (0);
263	$self->want_refresh;	445	$self->want_refresh;
264	}	446	}
265		447
266	sub on_start {	448	sub on_start {

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.31 by root, Thu Jun 7 13:48:15 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.31 by root, Thu Jun 7 13:48:15 2012 UTC