ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/background
(Generate patch)

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.66 by root, Thu Jun 28 15:19:15 2012 UTC vs.
Revision 1.71 by root, Mon Jul 2 01:40:41 2012 UTC

73 } else { 73 } else {
74 return load "$HOME/sunday.png"; 74 return load "$HOME/sunday.png";
75 } 75 }
76 } 76 }
77 77
78This expression is evaluated once per hour. It will set F<sunday.png> as 78This inner expression is evaluated once per hour (and whenever the
79temrinal window is resized). It sets F<sunday.png> as background on
79background on Sundays, and F<weekday.png> on all other days. 80Sundays, and F<weekday.png> on all other days.
80 81
81Fortunately, we expect that most expressions will be much simpler, with 82Fortunately, we expect that most expressions will be much simpler, with
82little Perl knowledge needed. 83little Perl knowledge needed.
83 84
84Basically, you always start with a function that "generates" an image 85Basically, you always start with a function that "generates" an image
117horizontal and vertical dimensions. For example, this halves the image 118horizontal and vertical dimensions. For example, this halves the image
118width and doubles the image height: 119width and doubles the image height:
119 120
120 scale 0.5, 2, load "$HOME/mypic.png" 121 scale 0.5, 2, load "$HOME/mypic.png"
121 122
122IF you try out these expressions, you might suffer from sluggishness, 123IF you try out these expressions, you might suffer from some sluggishness,
123because each time the terminal is resized, it again loads the PNG image 124because each time the terminal is resized, it loads the PNG image agin
124and scales it. Scaling is usually fast, but loading the image can be quite 125and scales it. Scaling is usually fast (and unavoidable), but loading the
125time consuming. This is where C<keep> comes in handy: 126image can be quite time consuming. This is where C<keep> comes in handy:
126 127
127 scale 0.5, 2, keep { load "$HOME/mypic.png" } 128 scale 0.5, 2, keep { load "$HOME/mypic.png" }
128 129
129The C<keep> operator executes all the statements inside the braces only 130The C<keep> operator executes all the statements inside the braces only
130once, or when it thinks the outcome might change. In other cases it 131once, or when it thinks the outcome might change. In other cases it
155 156
156This one first takes a snapshot of the screen background image, and then 157This one first takes a snapshot of the screen background image, and then
157moves it to the upper left corner of the screen (as opposed to the upper 158moves it to the upper left corner of the screen (as opposed to the upper
158left corner of the terminal window)- the result is pseudo-transparency: 159left corner of the terminal window)- the result is pseudo-transparency:
159the image seems to be static while the window is moved around. 160the image seems to be static while the window is moved around.
161
162=head2 COLOUR SPECIFICATIONS
163
164Whenever an oprator expects a "colour", then this can be specified in one
165of two ways: Either as string with an X11 colour specification, such as:
166
167 "red" # named colour
168 "#f00" # simple rgb
169 "[50]red" # red with 50% alpha
170 "TekHVC:300/50/50" # anything goes
171
172OR as an array reference with one, three or four components:
173
174 [0.5] # 50% gray, 100% alpha
175 [0.5, 0, 0] # dark red, no green or blur, 100% alpha
176 [0.5, 0, 0, 0.7] # same with explicit 70% alpha
160 177
161=head2 CACHING AND SENSITIVITY 178=head2 CACHING AND SENSITIVITY
162 179
163Since some operations (such as C<load> and C<blur>) can take a long time, 180Since some operations (such as C<load> and C<blur>) can take a long time,
164caching results can be very important for a smooth operation. Caching can 181caching results can be very important for a smooth operation. Caching can
172... }>. The C<keep> operator takes a block of multiple statements enclosed 189... }>. The C<keep> operator takes a block of multiple statements enclosed
173by C<{}> and keeps the return value in memory. 190by C<{}> and keeps the return value in memory.
174 191
175An expression can be "sensitive" to various external events, such as 192An expression can be "sensitive" to various external events, such as
176scaling or moving the window, root background changes and timers. Simply 193scaling or moving the window, root background changes and timers. Simply
177using an expression (such as C<scale> without parameters) that depend on 194using an expression (such as C<scale> without parameters) that depends on
178certain changing values (called "variables"), or using those variables 195certain changing values (called "variables"), or using those variables
179directly, will make an expression sensitive to these events - for example, 196directly, will make an expression sensitive to these events - for example,
180using C<scale> or C<TW> will make the expression sensitive to the terminal 197using C<scale> or C<TW> will make the expression sensitive to the terminal
181size, and thus to resizing events. 198size, and thus to resizing events.
182 199
183When such an event happens, C<keep> will automatically trigger a 200When such an event happens, C<keep> will automatically trigger a
184reevaluation of the whole expression with the new value of the expression. 201reevaluation of the whole expression with the new value of the expression.
185 202
186C<keep> is most useful for expensive operations, such as C<blur>: 203C<keep> is most useful for expensive operations, such as C<blur>:
187 204
188 rootalign once { blur 20, root } 205 rootalign keep { blur 20, root }
189 206
190This makes a blurred copy of the root background once, and on subsequent 207This makes a blurred copy of the root background once, and on subsequent
191calls, just root-aligns it. Since C<blur> is usually quite slow and 208calls, just root-aligns it. Since C<blur> is usually quite slow and
192C<rootalign> is quite fast, this trades extra memory (for the cached 209C<rootalign> is quite fast, this trades extra memory (for the cached
193blurred pixmap) with speed (blur only needs to be redone when root 210blurred pixmap) with speed (blur only needs to be redone when root
276Load uncached - same as load, but does not cache the image, which means it 293Load uncached - same as load, but does not cache the image, which means it
277is I<always> loaded from the filesystem again. 294is I<always> loaded from the filesystem again.
278 295
279=cut 296=cut
280 297
281 sub load_uc($) {
282 $self->new_img_from_file ($path)
283 }
284
285 sub load($) { 298 sub load($) {
286 my ($path) = @_; 299 my ($path) = @_;
287 300
288 $_IMG_CACHE{$path} || do { 301 $_IMG_CACHE{$path} || do {
289 my $img = load_uc $path; 302 my $img = $self->new_img_from_file ($path);
290 Scalar::Util::weaken ($_IMG_CACHE{$path} = $img); 303 Scalar::Util::weaken ($_IMG_CACHE{$path} = $img);
291 $img 304 $img
292 } 305 }
293 } 306 }
294 307
753 766
754The following operators change the pixels of the image. 767The following operators change the pixels of the image.
755 768
756=over 4 769=over 4
757 770
771=item tint $color, $img
772
773Tints the image in the given colour.
774
775Example: tint the image red.
776
777 tint "red", load "rgb.png"
778
779Example: the same, but specify the colour by component.
780
781 tint [1, 0, 0], load "rgb.png"
782
783=cut
784
785 sub tint($$) {
786 $_[1]->tint ($_[0])
787 }
788
758=item contrast $factor, $img 789=item contrast $factor, $img
759 790
760=item contrast $r, $g, $b, $img 791=item contrast $r, $g, $b, $img
761 792
762=item contrast $r, $g, $b, $a, $img 793=item contrast $r, $g, $b, $a, $img
847 878
848=over 4 879=over 4
849 880
850=item keep { ... } 881=item keep { ... }
851 882
852 #TODO#
853
854This operator takes a code block as argument, that is, one or more 883This operator takes a code block as argument, that is, one or more
855statements enclosed by braces. 884statements enclosed by braces.
856 885
857The trick is that this code block is only evaluated once - future calls 886The trick is that this code block is only evaluated when the outcome
858will simply return the original image (yes, it should only be used with 887changes - on other calls the C<keep> simply returns the image it computed
859images). 888previously (yes, it should only be used with images). Or in other words,
889C<keep> I<caches> the result of the code block so it doesn't need to be
890computed again.
860 891
861This can be extremely useful to avoid redoing the same slow operations 892This can be extremely useful to avoid redoing slow operations - for
862again and again- for example, if your background expression takes the root 893example, if your background expression takes the root background, blurs it
863background, blurs it and then root-aligns it it would have to blur the 894and then root-aligns it it would have to blur the root background on every
864root background on every window move or resize. 895window move or resize.
896
897Another example is C<load>, which can be quite slow.
865 898
866In fact, urxvt itself encloses the whole expression in some kind of 899In fact, urxvt itself encloses the whole expression in some kind of
867C<once> block so it only is reevaluated as required. 900C<keep> block so it only is reevaluated as required.
868 901
869Putting the blur into a C<once> block will make sure the blur is only done 902Putting the blur into a C<keep> block will make sure the blur is only done
870once: 903once, while the C<rootalign> is still done each time the window moves.
871 904
872 rootlign keep { blur 10, root } 905 rootlign keep { blur 10, root }
873 906
874This leaves the question of how to force reevaluation of the block, 907This leaves the question of how to force reevaluation of the block,
875in case the root background changes: If expression inside the block 908in case the root background changes: If expression inside the block
876is sensitive to some event (root background changes, window geometry 909is sensitive to some event (root background changes, window geometry
877changes), then it will be reevaluated automatically as needed. 910changes), then it will be reevaluated automatically as needed.
878 911
879=item once_again
880
881Resets all C<once> block as if they had never been called, i.e. on the
882next call they will be reevaluated again.
883
884=cut 912=cut
885 913
886 sub once(&) { 914 sub keep(&) {
887 my $id = $_[0]+0; 915 my $id = $_[0]+0;
888 916
889 local $frame = $self->{frame_cache}{$id} ||= [$frame]; 917 local $frame = $self->{frame_cache}{$id} ||= [$frame];
890 918
891 unless ($frame->[FR_CACHE]) { 919 unless ($frame->[FR_CACHE]) {
909 wantarray 937 wantarray
910 ? @{ $frame->[FR_CACHE] } 938 ? @{ $frame->[FR_CACHE] }
911 : $frame->[FR_CACHE][0] 939 : $frame->[FR_CACHE][0]
912 } 940 }
913 941
914 sub once_again() { 942# sub keep_clear() {
915 delete $self->{frame_cache}; 943# delete $self->{frame_cache};
916 } 944# }
917 945
918=back 946=back
919 947
920=cut 948=cut
921 949

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines