Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

[Conky] Alternative à weather.com (3)

ragamatrix

Salut à tous;
Je viens de trouver un script pour xplanet affichant l'heure des différents pays, la meteo et la température. (météo via le site wunderground)
Celui-ci mériterait d'être amélioré pour y apporter les nuages et autres configuration d'xplanet; voici donc ma découverte qui n'est pas très récente mais que je trouve intéressante...
meteo_xplanet_wunderground
script perl:
weather.pl:

 #!/usr/bin/perl
# Copyright (c) 2006 John Graham-Cumming

# This file wraps xplanet to produce a background image in GNOME that
# shows the following:
#
# The time in various cities around the world
# A rectangular view of the entire world
# Night time imagery where it is currently dark
# Day time imagery adjusted for the correct season where it is light
# The weather in the same cities from wunderground.com

use strict;
use LWP::Simple;

my $root = '/tmp/';
my @images = ( 'xplanetemp.png', 'xplanetemp2.png' );
my $screen = '1280x720';
my $projection = 'rectangular';
my ( $latitude, $longitude ) = ( 47, 8 );
my $config = 'config';
my $marker = 'marker';
my $update = 60;

my $image = 0;

open CONFIG, ">$root$config";
print CONFIG<<EOF;
[earth]
"Earth"
marker_file=$root$marker
EOF
close CONFIG;

my %cities = ( London => { lat => 51.50,
                           lon => -0.17,
                           tz => 'Europe/London',
                           loc => '03772',
                           con => '' },
               Paris => { lat => 48.87,
                          lon => 2.33,
                          tz => 'Europe/Paris',
                          loc => '07157',
                          con => '' },
               Tokyo => { lat => 35.75,
                          lon => 139.50,
                          tz => 'Asia/Tokyo',
                          loc => '47671',
                          con => '' },
               'New York' => { lat => 40.70,
                          lon => -74.00,
                          tz => 'America/New_York',
                          loc => 'NY/New_York',
                          con => '' },
               'Los Angeles' => { lat => 34.05,
                          lon => -118.23,
                          tz => 'America/Los_Angeles',
                          loc => 'CA/Los_Angeles',
                          con => '' },
               Helsinki => { lat => 60.13,
                          lon => 25.00,
                          tz => 'Europe/Helsinki',
                          loc => '02974',
                          con => '' },
               'Buenos Aires' => { lat => -34.67,
                          lon => -58.50,
                          tz => 'America/Buenos_Aires',
                          loc => '87582',
                          con => '' },
               Tunis => { lat => 36.83,
                          lon => 10.22,
                          tz => 'Africa/Tunis',
                          loc => '60715',
                          con => '' },
               'Hong Kong' => { lat => 22.30,
                          lon => 114.17,
                          tz => 'Asia/Hong_Kong',
                          loc => '45007',
                          con => '' },

             );

my $weather_countdown = 0;

while ( 1 ) {
    my $uptime = `uptime`;
    chomp $uptime;

    if ( $weather_countdown == 0 ) {
        get_all_weather();
        $weather_countdown = 30;
    }

    --$weather_countdown;

open MARKER, ">$root$marker";
print MARKER<<EOF;
 -80         -45 "$uptime"
EOF
    foreach my $city (sort keys %cities) {
        my $con = ( $city =~ /London|Paris/)?$cities{$city}{con}:'';
        my $lat1 = $cities{$city}{lat}-2;
        print MARKER<<EOF;
$cities{$city}{lat} $cities{$city}{lon} "$city %H:%M $con" timezone=$cities{$city}{tz}
EOF
        if ( $con eq '' ) {
        print MARKER<<EOF;
$lat1 $cities{$city}{lon} "$cities{$city}{con}" symbolsize=0
EOF
        }
    }
close MARKER;

    system( "xplanet -num_times 1 -output $root$images[$image] -geometry $screen -longitude $longitude -latitude $latitude -projection $projection -config $root$config" );
    #system( "gconftool-2 -t str -s /desktop/gnome/background/picture_filename $root$images[$image]" );
    $image = 1 - $image;
    unlink( "$root$images[$image]" );
    sleep( $update );
}

sub get_weather
{
    my ( $location ) = @_;

    my $base = 'http://www.wunderground.com/auto/rss_full/';
    my $url = $base;
    if ( $location =~ /\d/ ) {
        $url .= 'global/stations/';
    }

    $url .= "${location}.xml?units=both";

    my $weather = get( $url );

    my $conditions;

    if ( $weather =~
         /Temperature: [^\/]+ \/ (-?\d+)[^\|]+ \| .+ \| Conditions: ([^\|]+) \|/ ) {
        $conditions = "($1C: $2)";
    }

    return $conditions;
}

sub get_all_weather
{
    foreach my $city (sort keys %cities) {
        $cities{$city}{con} = get_weather( $cities{$city}{loc} );
        print "$city weather is $cities{$city}{con}\n";
    }
}

ragamatrix

en progrès...

daniel38100

salut Didier-T
serait il possible d'ajouter une notification a recmeteo.py en cas d'erreur de M.A.J. ?

ragamatrix

@Didier-T
J'ai réussi à faire ce que je voulais avec ce script; mais je voudrais supprimer des fonctions pour qu'il ne fasse que le fichier "marker" et qu'il ne crée pas d'image... ? Je ne vois pas trop quoi enlever sans faire un massacre. 😉
Sinon ça fonctionne pour avoir les conditions meteo de n'importe quelle ville du monde, il suffit d'entrer les coordonées et le code de la ville sur le site wunderground.
Script modifié avec l'ajout de quelques villes et augmenté le temps pour les mises à jour:

#!/usr/bin/perl
# Copyright (c) 2006 John Graham-Cumming

# This file wraps xplanet to produce a background image in GNOME that
# shows the following:
#
# The time in various cities around the world
# A rectangular view of the entire world
# Night time imagery where it is currently dark
# Day time imagery adjusted for the correct season where it is light
# The weather in the same cities from wunderground.com

use strict;
use LWP::Simple;

my $root = '/tmp/';
my @images = ( 'xplanetemp.png', 'xplanetemp2.png' );
my $screen = '1280x720';
my $projection = 'ORTHOGRAPHIC';
my ( $latitude, $longitude ) = ( 47.17,8.36 );
my $config = 'config';
my $marker = 'marker';
my $update = 780;

my $image = 0;

open CONFIG, ">$root$config";
print CONFIG<<EOF;
[earth]
"Earth"
marker_file=$root$marker
night_map=night.jpg
marker_color=DarkGoldenrod1
marker_font=arial.ttf
min_radius_for_label=0
map=/home/raphix/.xplanet/images/earth.jpeg
cloud_map=/home/raphix/.xplanet/images/clouds.jpg
cloud_threshold=0
cloud_gamma=1.25
shade=80
bump_map=/home/raphix/.xplanet/images/bump_H2.png
bump_scale=0.15
magnify=40
EOF
close CONFIG;   

my %cities = ( Londres => { lat => 51.50,
                           lon => -0.17,
                           tz => 'Europe/London',
                           loc => '03772',
                           con => '' },
               Moscou => { lat => 55.75,
                          lon => 37.70,
                          tz => 'Europe/Moscow',
                          loc => '27612',
                          con => '' },
               Tokyo => { lat => 35.75,
                          lon => 139.50,
                          tz => 'Asia/Tokyo',
                          loc => '47671',
                          con => '' },
               'New York' => { lat => 40.70,
                          lon => -74.00,
                          tz => 'America/New_York',
                          loc => 'NY/New_York',
                          con => '' },
               'Los Angeles' => { lat => 34.05,
                          lon => -118.23,
                          tz => 'America/Los_Angeles',
                          loc => 'CA/Los_Angeles',
                          con => '' },
                Reykjavik => { lat => 64.15,
                          lon => -21.97,
                          tz => 'Atlantic/Reykjavik',
                          loc => '04030',
                          con => '' },
               'Buenos Aires' => { lat => -34.67,
                          lon => -58.50,
                          tz => 'America/Buenos_Aires',
                          loc => '87582',
                          con => '' },
               Tunis => { lat => 36.83,
                          lon => 10.22,
                          tz => 'Africa/Tunis',
                          loc => '60715',
                          con => '' },
               'Hong Kong' => { lat => 22.30,
                          lon => 114.17,
                          tz => 'Asia/Hong_Kong',
                          loc => '45007',
                          con => '' },
	       'Horgen' => { lat => 47.17,
                          lon => 8.36,
                          tz => 'Europe/Paris',
                          loc => '06660',
                          con => '' },
	       'Ouarzazate' => { lat => 30.83,
                          lon => -6.16,
                          tz => 'Africa/Ouarzazate',
                          loc => '60265',
                          con => '' },
		'Anchorage' => { lat => 61.22,
                          lon => -149.90,
                          tz => 'America/Anchorage',
                          loc => 'AK/Anchorage',
                          con => '' },
		'Bangkok' => { lat => 13.73,
                          lon => 100.50,
                          tz => 'Asia/Bangkok',
                          loc => '48456',
                          con => '' },
		'Berlin' => { lat => 52.53,
                          lon => 13.42,
                          tz => 'Europe/Berlin',
                          loc => '10389',
                          con => '' },
		'Le Caire' => { lat => 30.05,
                          lon => 31.25,
                          tz => 'Africa/Cairo',
                          loc => '62366',
                          con => '' },
		'Cayenne' => { lat => 4.92,
                          lon => -52.30,
                          tz => 'America/Cayenne',
                          loc => '81405',
                          con => '' },
		'Dakar' => { lat => 14.63,
                          lon => -17.45,
                          tz => 'Africa/Dakar',
                          loc => '61641',
                          con => '' },
		'Damas' => { lat => 33.50,
                          lon => 36.32,
                          tz => 'Asia/Damascus',
                          loc => '40080',
                          con => '' },
		'Istanbul' => { lat => 41.03,
                          lon => 28.95,
                          tz => 'Asia/Istanbul',
                          loc => '17060',
                          con => '' },
		'Chicago' => { lat => 41.85,
                          lon => -87.65,
                          tz => 'America/Chicago',
                          loc => 'IL/Chicago',
                          con => '' },
		'San Juan' => { lat => 18.48,
                          lon => -66.13,
                          tz => 'America/Puerto_Rico',
                          loc => '87311',
                          con => '' },
		'La Mecque' => { lat => 21.45,
                          lon => 39.82,
                          tz => 'Asia/Riyadh',
                          loc => '41030',
                          con => '' },
             );

my $weather_countdown = 0;

while ( 1 ) {
    my $uptime = `uptime`;
    chomp $uptime;

    if ( $weather_countdown == 0 ) {
        get_all_weather();
        $weather_countdown = 30;
    }

    --$weather_countdown;

open MARKER, ">$root$marker";
print MARKER<<EOF;
 -80         -45 "$uptime"
EOF
    foreach my $city (sort keys %cities) {
        my $con = ( $city =~ /London|Paris/)?$cities{$city}{con}:'';
        my $lat1 = $cities{$city}{lat}-2;
        print MARKER<<EOF;
$cities{$city}{lat} $cities{$city}{lon} "$city %H:%M $con" timezone=$cities{$city}{tz}
EOF
        if ( $con eq '' ) {
        print MARKER<<EOF;
$lat1 $cities{$city}{lon} "$cities{$city}{con}" symbolsize=0
EOF
        }
    }
close MARKER;

    system( "xplanet -num_times 1 -output $root$images[$image] -geometry $screen -longitude $longitude -latitude $latitude -projection $projection -config $root$config" );
    #system( "gconftool-2 -t str -s /desktop/gnome/background/picture_filename $root$images[$image]" );
    $image = 1 - $image;
    unlink( "$root$images[$image]" );
    sleep( $update );
}

sub get_weather
{
    my ( $location ) = @_;

    my $base = 'http://www.wunderground.com/auto/rss_full/';
    my $url = $base;
    if ( $location =~ /\d/ ) {
        $url .= 'global/stations/';
    }

    $url .= "${location}.xml?units=both";

    my $weather = get( $url );

    my $conditions;

    if ( $weather =~
         /Temperature: [^\/]+ \/ (-?\d+)[^\|]+ \| .+ \| Conditions: ([^\|]+) \|/ ) {
        $conditions = "($1C: $2)";
    }

    return $conditions;
}

sub get_all_weather
{
    foreach my $city (sort keys %cities) {
        $cities{$city}{con} = get_weather( $cities{$city}{loc} );
        print "$city weather is $cities{$city}{con}\n";
    }
}

Didier-T

j'ai bien peur de ne pas pouvoir t'aider en perl.
tu devrais poster ta demande dans la section développeur du forum.

ragamatrix

Didier-T a écritj'ai bien peur de ne pas pouvoir t'aider en perl.
tu devrais poster ta demande dans la section développeur du forum.

J'ai commenté les lignes concernant la création d'image et cela à l'air de fonctionner...

 #my @images = ( 'xplanetemp.png', 'xplanetemp2.png' );

  #system( "xplanet -num_times 1 -output $root$images[$image] -geometry $screen -longitude $longitude -latitude $latitude -projection $projection -config $root$config" );
    #system( "gconftool-2 -t str -s /desktop/gnome/background/picture_filename $root$images[$image]" );
    #$image = 1 - $image;
    #unlink( "$root$images[$image]" );
    sleep( $update );
}

ragamatrix

ragamatrix a écrit

Didier-T a écritj'ai bien peur de ne pas pouvoir t'aider en perl.
tu devrais poster ta demande dans la section développeur du forum.

J'ai commenté les lignes concernant la création d'image et cela à l'air de fonctionner...

 #my @images = ( 'xplanetemp.png', 'xplanetemp2.png' );

  #system( "xplanet -num_times 1 -output $root$images[$image] -geometry $screen -longitude $longitude -latitude $latitude -projection $projection -config $root$config" );
    #system( "gconftool-2 -t str -s /desktop/gnome/background/picture_filename $root$images[$image]" );
    #$image = 1 - $image;
    #unlink( "$root$images[$image]" );
    sleep( $update );
}

En fait non :/ ; je vais voir plus tard pour poster ça vers "developpeur"
Merci quand même.

ragamatrix

EDIT: J'ai trouvé la solution je la mets en bas si ça interesse... J'éspère que je ne t'ai pas réveillé :lol:
jpdipsy es-tu là ?
Salut;
J'aurais besoin d'un ptit coup de main convert...
J'arrive à détourer deux cercles en créant des masques et composer les deux images que je souhaite mais je voudrais faire un seul masque créant une seule image...
Illustration:
masque 1

 convert -size 1280x720 xc:none -fill blue -draw 'translate 319,359 circle 0,0 286,0' -alpha extract ~/globmask1.png

masque 2

 convert -size 1280x720 xc:none -fill blue -draw 'translate 956,359 circle 0,0 286,0' -alpha extract ~/globmask2.png

globe 1

 convert ~/xplanetemp.png  ~/globmask1.png  -alpha off -compose CopyOpacity -composite  ~/globus1.png

globe 2

 convert ~/xplanetemp.png  ~/globmask2.png  -alpha off -compose CopyOpacity -composite  ~/globus2.png

La solution doit sûrement être simple mais je bloque ici... :/
Solution:

 convert -size 1280x720 xc:none -fill blue -draw 'translate 319,359 circle 0,0 286,0' ~/globmask1.png
convert ~/globmask1.png -fill blue -draw 'translate 956,359 circle 0,0 286,0' -alpha extract ~/globmask2.png
convert ~/xplanetemp.png  ~/globmask2.png  -alpha off -compose CopyOpacity -composite  ~/globusfinal.png

resultat

ragamatrix

Je viens de découvrir une fonction intéressante de xplanet; pouvant générer les planètes avec la transparence (à condition que les images soient en .png) option -transpng
Les images crées par xplanet ensuite affichées avec le script de jpdipsy (rotation, taille transparence...)
Exemple avec saturne qui aurait été un peu difficile à détourer pour avoir un fond transparent (anneaux)... 😉

Didier-T

bonjour a tous,
sa faisait longtemps qu'il n'y avait pas eut de modification sur accuweather.
donc changement de version, recmeteo.py v1.29 et meteo2.lua 1.09

A+

Yvance77

Didier-T a écritdonc changement de version, recmeteo.py v1.29 et meteo2.lua 1.09

Bonjour,

Et qu'est-ce que cela implique ? On doit faire le changement en réinstallant ? Est-ce automatique ?

Merci de vos précisions

Cordialement

ragamatrix

@Didier-T
Salut,
Je crois que tu as oublié de mettre 1.29 à la place de 1.28 après la mise à jour de ta version où bien ?recmeteo.py... 🙂

Didier-T

@ ragamatrix,
bien vue, en effet, j'ai fait sa rapidement ce matin, et les deux fichiers ne sont pas a jours, mais le celui qui posait problèmes (meteo2.lua) est bien la version corrigée.
pour recmeteo.py, il s'agit d'une correction d'écriture (surtout utile pour les vielle machine)

@ Yvance77,
peut importe la méthode employée, il faut simplement modifier les fichiers recmeto.py ainsi que meteo2.lua.
après soit tu décompresse l'archive et fais la manip a la main, soit tu relance le script d'installation.

Je ferais un script de mise a jour pour l'avenir.

ti_tux

Didier la dernière version de meteo2.lua c'est la 1.08 ou 1.09 ? dans ton archive c'est toujours la 1.08

Didier-T

Il faut croire que je perd la boulle.
Bon je renverrai l'archive ce soir.

Yvance77

Didier T,

Merci pour la précision. Par contre, un petit complément si vous permettez, le conky « meteo6jours » se trouvant sur l'introduction de ce fil et qui avait retenu votre attention, fait-il aussi l'objet d'une mise à jour. En d'autres termes dois-je procéder aussi à un nouvel ./install.sh ?

Merci

Didier-T

@ Yvance77,

non, il n'y a que le pack de base qui contiens les scripts, il est donc le seul à mettre à jour

Didier-T

j'ai trouvé pourquoi la mise a jour n'était pas passé.
J'ai oublié de réinstaller Dropbox, du coup sa synchronise moins bien. :rolleyes:

ti_tux

Forcément ça marchait beaucoup moins bien... En effet ça va mieux maintenant ! Merci à toi !

Didier-T

Et oui, snif...
je viens de refaire l'archive, et y ai ajouté le script Maj.sh.
je pense que sa fera plaisir a Yvance77... et certainement à d'autres...
la premier post est modifié en conséquence.

« Page précédente Page suivante »