add_SBT_areas_map <- function(ofs=0,ulty=1,ulwd=2,ucol=1) {
  lines(c(-70, 190)+ofs, c(-60, -60), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(-60, 140)+ofs, c(-35, -35), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(140, 190)+ofs, c(-40, -40), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(153, 190)+ofs, c(-30, -30), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(-20, 14)+ofs, c(-20, -20), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(35, 44)+ofs, c(-20, -20), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(49, 120)+ofs, c(-20, -20), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(100, 130)+ofs, c(-10, -10), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(-70, -70)+ofs, c(-60, -55), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(-20, -20)+ofs, c(-60, -20), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(60, 60)+ofs, c(-60, -35), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(80, 80)+ofs, c(-35, -20), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(100, 100)+ofs, c(-20, -10), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(120, 120)+ofs, c(-60, -34), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(130, 130)+ofs, c(-12, -10), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(140, 140)+ofs, c(-40, -37), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(160, 160)+ofs, c(-60, -40), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(170, 170)+ofs, c(-40, -30), lwd=ulwd, lty=ulty, col=ucol)
  lines(c(190, 190)+ofs, c(-60, -30), lwd=ulwd, lty=ulty, col=ucol)
  text(115+ofs,-15,"1",cex=1.2,font=2)
  text(100+ofs,-27,"2",cex=1.2,font=2)
  text(130+ofs,-33,"3",cex=1.2,font=2)
  text(160+ofs,-35,"4",cex=1.2,font=2)
  text(180+ofs,-35,"5",cex=1.2,font=2)
  text(175+ofs,-50,"6",cex=1.2,font=2)
  text(140+ofs,-47,"7",cex=1.2,font=2)
  text(90+ofs,-47,"8",cex=1.2,font=2)
  text(20+ofs,-47,"9",cex=1.2,font=2)
  text(-45+ofs,-47,"10",cex=1.2,font=2)
  text(-10+ofs,-7,"11",cex=1.2,font=2)
  text(180+ofs,-7,"12",cex=1.2,font=2)
  text(-110+ofs,-7,"12",cex=1.2,font=2)
  text(70+ofs, -7,"13",cex=1.2,font=2)
  text(60+ofs,-27,"14",cex=1.2,font=2)
  text(0+ofs,-27,"15",cex=1.2,font=2)
}