MAKE A MEME
View Large Image
| View Original: | Metrication by year map.svg (939x476) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Metrication by year map.svg COLORBLIND-UNSAFE Please change red-green gradient to something safe listed in w WP COLOR Add Burma Also some places are still finishing implementation of metrication I'm not sure how you want to handle that see w Metrication World Map showing Metrication colour-coded by year of conversion Using data from USMA U S Metric Association ; Red is preliminary 1795 and green is 1998 following script has been used to generate the CSS <source lang perl > /usr/bin/perl -w use strict; use warnings; use Graphics ColorObject; use Math Trig; use SVG Parser; use CSS; use constant DATE_MIN > 1795; use constant DATE_MAX > 1998; use constant HUE_START > 0; use constant HUE_LENGTH > 120; use constant SATURATION > 0 7; use constant LIGHTNESS > 0 6; use constant LEGEND_XLABEL_SIZE > 60; use constant LEGEND_XPOS > 0; use constant LEGEND_YPOS > 1250; use constant LEGEND_XOFF > 100; use constant LEGEND_YOFF > 50; use constant LEGEND_WIDTH > 2752 766; use constant LEGEND_HEIGHT > 250; my dates '1795' > 'fr' '1820' > 'nl' 'be' 'lu' '1840' > 'dz' '1853' > 'co' 'mc' '1858' > 'cu' 'es' '1862' > 'br' 'mx' '1863' > 'it' 'uy' '1865' > 'cl' 'ec' '1868' > 'pe' 'pr' '1871' > 'at' 'li' '1872' > 'de' 'pt' '1875' > 'no' 'cz' 'sk' '1876' > 'se' 'ch' 'hu' 'mk' '1878' > 'mu' 'sc' '1884' > 'sv' 'ro' '1886' > 'ar' 'fi' '1891' > 'bo' 'bg' '1893' > 'ni' 'tn' '1900' > 'is' 'py' '1908' > 'dk' 'cr' '1910' > 'bi' 'rw' 'cd' '1911' > 'hn' '1912' > 'dm' '1915' > 'gt' 'sm' 'pa' 've' '1916' > 'ph' 'sr' '1918' > 'pl' 'mn' '1920' > 'ht' 'mt' '1922' > 'kh' 'ma' '1923' > 'af' 'ly' '1925' > 'ru' 'cn' '1927' > 'ir' '1930' > 'iq' 'tr' '1934' > 'lb' 'sy' '1946' > 'id' 'th' '1948' > 'al' 'kr' 'il' '1952' > 'jo' 'tw' '1954' > 'in' 'sd' '1957' > 'jp' 'gr' '1959' > 'ci' 'gn' '1960' > 'cg' 'ne' 'sn' 'tg' 'td' 'ga' 'bj' 'mr' 'ml' 'mg' 'cf' 'bf' 'so' '1961' > 'cm' 'eg' '1962' > 'et' 'ng' '1963' > 'la' 'vn' '1964' > 'sa' '1965' > 'gb' '1967' > 'ke' 'ug' 'tz' 'ie' 'pk' '1968' > 'na' 'za' 'zw' '1969' > 'au' 'nz' '1970' > 'ca' '1975' > 'gh' '1990' > 'bd' '1998' > 'jm' ; my css new CSS 'parser' > 'CSS Parse Lite' 'adaptor' > 'CSS Adaptor Pretty' ; my svg SVG Parser->new ->parsefile ARGV0 ; my css_container svg->getElementbyID 'style_css_sheet' ; css->read_string css_container-> -CDATA ; my hue_start deg2rad HUE_START ; my hue_length deg2rad HUE_LENGTH 1 ; foreach my date sort keys dates my hue hue_start + 1- DATE_MAX - date / DATE_MAX - DATE_MIN hue_length; css->read_string sprintf s \n\tfill s;\n \n join ' ' map _ dates-> date Graphics ColorObject->new_HSL rad2deg hue SATURATION LIGHTNESS ->as_RGBhex ; css->read_string us mm lr fill 333333 ; css->get_style_by_selector ' landxx' ->get_property_by_name 'stroke' -> values new CSS Value value > 'black' ; css->get_style_by_selector ' landxx' ->get_property_by_name 'fill' -> values new CSS Value value > ' FFFFD0' ; css->get_style_by_selector ' lake' ->get_property_by_name 'stroke' -> values new CSS Value value > ' 1821DE' ; css->get_style_by_selector ' ocean' ->get_property_by_name 'fill' -> values new CSS Value value > ' 9ec7f3' ; my coastxx css->get_style_by_selector ' coastxx' ; coastxx->add_property new CSS Property property > 'stroke' value > ' 1821DE' ; coastxx->add_property new CSS Property property > 'stroke-opacity' value > '1 0' ; coastxx->add_property new CSS Property property > 'stroke-width' value > '0 5' ; my legend svg->group id > 'legend' transform > 'translate ' LEGEND_XPOS ' ' LEGEND_YPOS ' ' ; my gradient legend->gradient -type > linear id > legend_gradient ; my legend_box legend->rectangle x > 0 y > 0 width > LEGEND_WIDTH height > LEGEND_HEIGHT rx > 10 ry > 10 id > 'legend_box' ; my gradbox legend->rectangle x > LEGEND_XOFF y > LEGEND_YOFF width > LEGEND_WIDTH - LEGEND_XOFF 2 height > 100 id > 'legend_grad' ; my span scalar keys dates; my counter 0; foreach my date sort keys dates my hue hue_start + 1- DATE_MAX - date / DATE_MAX - DATE_MIN hue_length; gradient->stop offset > sprintf d counter / span 100 'stop-color' > ' ' Graphics ColorObject->new_HSL rad2deg hue SATURATION LIGHTNESS ->as_RGBhex ; ++ counter; my datespan DATE_MAX - DATE_MIN; foreach my id 0 10 my xpos LEGEND_XOFF + id / 10 LEGEND_WIDTH - LEGEND_XOFF 2 ; legend->line x1 > xpos - 2 x2 > xpos - 2 y1 > LEGEND_YOFF y2 > 170 'stroke-width' > '4' ; legend->text x > xpos - LEGEND_XLABEL_SIZE y > 220 fill > 'black' 'font-family' > 'sans-serif' 'fill-opacity' > 1 'font-size' > LEGEND_XLABEL_SIZE 'stroke' > 'none' ->cdata DATE_MIN + int id/10 datespan ; css->read_string legend fill blue; fill-opacity 3; stroke black; stroke-width 10; ; css->read_string legend_grad fill url legend_gradient ; fill-opacity 1; stroke black; stroke-width 1; ; css_container->CDATA \n css->output ; print svg->xmlify ; </source> BlankMap-World6 svg 2009-03-18 23 35 UTC BlankMap-World6 svg en User Canuckguy derivative work <sub> †’<span style color 773 >Aza</span><span style color 359 >Toth</span></sub> History of science International System of Units Map SVG maps of the world without Antarctica Images with Perl source code Maps needing South Sudan political boundaries | ||||
