Category talk:Maps of South Tyrol

From Wikimedia Commons, the free media repository
Jump to: navigation, search

Nota / About these maps La cartina è stata creata usando strumenti open source su una macchina GNU Linux, abusando del software R e convertendo poi grazie a ImageMagick facendo uso di perl:

library(maptools)
comuni <- read.shape("/tmp/comuni/comuni.shp")
map <- Map2poly(comuni)

ISTAT <- c(1:77,79:89,91:118)

for (istat in ISTAT) {
   png(paste("/tmp/comuni/com.",istat,".png",sep=""),width=800,height=600,bg="transparent")
   plot(comuni,axes=FALSE, xlab="",ylab="",fg="yellow2",ol="yellow4")
   plot(subset(m,comuni$att.data$ISTAT == istat), col="red", add=TRUE)
   dev.off()
}
for (bez in 1:8) {
   png(paste("/tmp/comuni/bez.",bez,".png",sep=""),width=800,height=600,bg="transparent")
   plot(comuni,axes=FALSE, xlab="",ylab="",fg="yellow2",ol="yellow3")
   plot(subset(m,comuni$att.data$COMPR == bez), col="gold4", add=TRUE)
   dev.off()
}

# usando image magick manomettere i grafici
# > convert -quality 100  -crop 680x430+80+80 com.2.png  com.2.png
# per esempio usando pure perl
# > perl -e 'while (<com.*.png>) {chomp;system("convert -quality 100  -crop 680x430+80+80 $_ $_")}'