Fichier:WorldCoastLine EquiRectangular.svg
Taille de cet aperçu PNG pour ce fichier SVG : 800 × 400 pixels. Autres résolutions : 320 × 160 pixels | 640 × 320 pixels | 1 024 × 512 pixels | 1 280 × 640 pixels | 2 560 × 1 280 pixels | 1 080 × 540 pixels.
Fichier d’origine (Fichier SVG, nominalement de 1 080 × 540 pixels, taille : 1,37 Mio)
Ce fichier et sa description proviennent de Wikimedia Commons.
Description
| Description |
Français : Planisphère en fr:projection cylindrique équidistante à partir de http://shoreline.noaa.gov/data/datasheets/wvs.html (WCL database 1:5 000 000) |
| Date | |
| Source | Travail personnel |
| Auteur | Xofc |
Conditions d’utilisation
Moi, en tant que détenteur des droits d’auteur sur cette œuvre, je la publie sous la licence suivante :
Ce fichier est disponible selon les termes de la licence Creative Commons Attribution – Partage dans les Mêmes Conditions 3.0 (non transposée).
- Vous êtes libre :
- de partager – de copier, distribuer et transmettre cette œuvre
- d’adapter – de modifier cette œuvre
- Sous les conditions suivantes :
- paternité – Vous devez donner les informations appropriées concernant l'auteur, fournir un lien vers la licence et indiquer si des modifications ont été faites. Vous pouvez faire cela par tout moyen raisonnable, mais en aucune façon suggérant que l’auteur vous soutient ou approuve l’utilisation que vous en faites.
- partage à l’identique – Si vous modifiez, transformez, ou vous basez sur cette œuvre, vous devez distribuer votre contribution sous la même licence ou une licence compatible avec celle de l’original.
Making of
#!/usr/bin/perl
$FILE= "ShoreLines-14959.dat"; # http://shoreline.noaa.gov/data/datasheets/wvs.html -> WCL 1:5 000 000
sub transfo {
my ($lon, $lat) = @_;
my $lo = ($lon + 180);
my $la = (90 - $lat);
return("$lo $la");
}
print "<!DOCTYPE svg>\n";
print "<svg xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\" width=\"1080\" height=\"540\" viewBox=\"0 0 360 180\">\n";
open FILE or die "Can't open $FILE\n";
$eop = ""; # end of polyline
while ($line = <FILE>)
{
if ($line =~ /^>/)
{ # end previous polyline and start a new one
print $eop;
$eol = "";
print "\n<polyline points=\"";
$eop = "\" style=\"stroke:black; stroke-width:.1; fill:none;\"/>\n";
}
else { # put new point
chomp $line;
my ($lon, $lat) = split /\t/,$line;
print $eol . transfo($lon, $lat);
$eol = ",\n";
}
}
print "$eop";
for ($i = 0; $i < 180; $i += 10)
{ # draw parallels
print "<line x1=\"0\" y1=\"$i\" x2=\"360\" y2=\"$i\" style=\"stroke:blue; stroke-width:.1; fill:none;\"/>\n";
}
# draw Equator with double width
print "<line x1=\"0\" y1=\"90\" x2=\"360\" y2=\"90\" style=\"stroke:blue; stroke-width:.2; fill:none;\"/>\n";
for ($i = 0; $i < 360; $i += 15)
{ # Draw meridians
print "<line x1=\"$i\" y1=\"0\" x2=\"$i\" y2=\"180\" style=\"stroke:green; stroke-width:.1; fill:none;\"/>\n";
}
# Draw Prime meridian with double width
print "<line x1=\"180\" y1=\"0\" x2=\"180\" y2=\"180\" style=\"stroke:green; stroke-width:.2; fill:none;\"/>\n";
print "</svg>\n";
Historique du fichier
Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.
| Date et heure | Vignette | Dimensions | Utilisateur | Commentaire | |
|---|---|---|---|---|---|
| actuel | 26 janvier 2014 à 19:39 | | 1 080 × 540 (1,37 Mio) | Xofc | User created page with UploadWizard |
Utilisation du fichier
La page suivante utilise ce fichier :
