I did a google on 2056x1024 background and found a surprisingly large
number of photos. Many from NASA.
http://hea-www.harvard.edu/~fine/Tech/desktop-images.html
I also have written a script that can take 2 ordinary pictures and post
them side-by-side into a single picture and then you can use that. That
"Random Pages" approach is kindof nice.
This script has the "wmaker" because I was using WIndowMaker when I
wrote it, but you can easily see what changes you need to make to adapt
to enlightenment.
Call it with these options
-w WORKSPACE -d DIRECTORY_FOR_IMAGES -p 2 NUMBER_OF_PAGES
Here "NUMBER_OF_PAGES" refers to the whether you want panorama (one
"page") or 2 images side by side (2 get paged).
Suppose you save this script in "myscript.pl", then do
$ myscript.pl -w 2 -d /usr/share/backgrounds -p 2
I'm including a separate script called that does work with
enlightenment, but it did not have the 2 pages part. Maybe you can look
at the second one and see what needs to be done in the first to make it
work with E.
--------------------------
#!/usr/bin/perl
use File::Find; #to get all files under mainDir
use Getopt::Std; # command line processing
# p means pages. If it is left blank or set to 1, result is the same
# p=2 means "treat as a double wide workspace, so put 2 images side by side"
# p=1 means "treat as a single workspace"
our ($opt_w, $opt_d, $opt_p);
getopts('p:w:d:') || die "Invalid argument\n";
if ($opt_w =~ /\D/) { die "w is not a digit";}
@images = ();
if ( $opt_w ) {
$workspace = $opt_w-1;
}
sub process_file{
$filename = $File::Find::name;
if ( -f $filename ){
push(@images, $filename);
}
}
if ( $opt_d ) {
$basedir = $opt_d;
}
else{
$basedir = "/usr/share/backgrounds/images";
}
if ( $opt_p ) {
$numpages = $opt_p;
}
find(\&process_file, $basedir);
# How many random images do you want?
# sleep will separate the random images
$i = 1;
while ( $i > 0 )
{
srand;
$index=int(rand(@images));
my $chosenImage;
print "opt_p is $opt_p numpages is $numpages";
if ($opt_p <= 1){
$chosenImage = $images[$index];
}else{
my $index2 = int(rand(@images));
my $fn = "/tmp/dual$opt_w.jpg";
if (-e $fn){
my $j = 1;
while ( -e $fn )
{
my $cmd1 = "rm $fn";
system $cmd1;
$fn="/tmp/dual$opt_w$j.jpg";
$j = $j + 1;
}
}
my $commandString = "convert $images[$index] -resize 1280x1024
$images[$index2] -resize 1280x1024 +append $fn";
system $commandString;
$chosenImage = "$fn";
}
if ($opt_w){
print "\n On workspace $opt_w, the background image is now
$chosenImage \n";
system 'wmsetbg','-display',':0.0','-a','
','-u','-w',"$workspace",' ', $chosenImage;
}
else{
print "\n The background image of the root window is
@images[$index] \n";
system 'wmsetbg','-display',':0.0','-u','-a',' ', $chosenImage;
}
$i = $i -1;
if ($i > 0 ) {sleep 760;}
}
---------------------------
#!/usr/bin/perl
# Paul Johnson <[EMAIL PROTECTED]>
# Script to randomly select Enlightenment DR17 backgrounds AND TO DELETE
# the large *.edj files that Enlightenment creates in $HOME/.e/e/backgrounds
# I delete those because my hard disk fills up with picture description
files
# otherwise. Using a 100KB jpeg file will often cause a 2.5MB edj file
to be created.
#
# example usage: epjbackground -w 4 -d /usr/local/share/backgrounds
#
# give argument -d [directory name] to recursively search for image files
# give argument -w [workspace number] to specify workspaces. I prefer to
number them 1, 2, 3
# If no -w parameter is given, then the root window will be changed.
use File::Find; #to get all files under mainDir
use Getopt::Std; # command line processing
use File::Basename;
getopts("w:d:")|| die "Invalid argument\n";
if ($opt_w =~ /\D/) { die "w is not a digit";}
@images = ();
if ( $opt_w ) {
$workspace = $opt_w-1;
}
sub process_file{
$filename = $File::Find::name;
if ( -f $filename ){
push(@images, $filename);
}
}
if ( $opt_d ) {
$basedir = $opt_d;
}
else{
$basedir = "/usr/local/share/Backgrounds";
}
find(\&process_file, $basedir);
srand;
$index=int(rand(@images));
# If a specific workspace is selected:
if ($opt_w){
@OLDBGS= `enlightenment_remote -desktop-bg-list`;
my $deletMe ;
while ( $thevar = shift @OLDBGS ) {
# print "while " . $thevar;
if ( $thevar =~ /DESK_X=\Q$workspace/ ){
$deletMe = $thevar;
}
}
#WORKS IN BASH:
#echo $OLDBGS | sed -e 's/^REPLY.*DESK_X=3//' -e 's/REPLY.*END//' -e
's/^.*FILE="//' -e 's/"//'`;
$deletMe =~ s/REPLY.*DESK_X=\Q$workspace//;
$deletMe =~ s/DESK.*=//;
$deletMe =~ s/"//g; #"
print "The file to be removed is: ". $deletMe . "\n";
my $cmd1 = "e17setroot -n -s \"@images[$index]\" > /dev/null 2>&1";
my $file = basename(@images[$index]);
$file =~ s/jpg/edj/ ;
my $cmd2 = "enlightenment_remote -desktop-bg-add 0 0 $workspace 0
~/.e/e/backgrounds/$file";
my $retval = system $cmd1;
print "\n \n \n return value is $retval \n";
if ( $retval == 0 )
{
print "That succeeded\n";
system $cmd2;
}
my $cmd3 = "rm -f $deletMe";
exec $cmd3;
}
else{ #no workspace was specified, so set the root window
@OLDBGS= `enlightenment_remote -default-bg-get`;
my $deleteMe ;
shift @OLDBGS;
$deleteMe = shift @OLDBGS;
$deleteMe =~ s/REPLY:\ "//; #"remove front part up to quotation mark
$deleteMe =~ s/"//; #"remove trailing quotation mark
print "The file to be removed is: ". $deleteMe . "\n";
print "\n The background image of the root window is
@images[$index] \n";
my $cmd1 = "e17setroot -n -s \"@images[$index]\" > /dev/null 2>&1";
system $cmd1;
my $file = basename(@images[$index]);
$file =~ s/jpg/edj/ ;
my $cmd1 = "enlightenment_remote -default-bg-set
~/.e/e/backgrounds/$file";
system $cmd1;
my $cmd3= "rm -f $deleteMe";
exec $cmd3
}
Jonathan Charnas wrote:
hey,
I'm just curious, because I'm getting a big widescreen within the week,
how many people have widescreens using E17, and where did you get your
backgrounds, or what did you modify from existing ones?
I've got a bunch of pictures I use for the moment, but those are more
suited for a standard 4:3 ratio than a widescreen.
Thanks for pointers in the right direction,
John
--
Paul E. Johnson email: [EMAIL PROTECTED]
Dept. of Political Science http://lark.cc.ku.edu/~pauljohn
1541 Lilac Lane, Rm 504
University of Kansas Office: (785) 864-9086
Lawrence, Kansas 66044-3177 FAX: (785) 864-5700
-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP. Click here to play: http://sourceforge.net/geronimo.php
_______________________________________________
enlightenment-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/enlightenment-users
