source("http://macosa.dima.unige.it/r.R")
HF = 5; BF = 8
PIANOss(0,28,0,15)
x <- c(0,28,28,0,0); y <- c(0,0,15,15,0); spezza(x,y,"blue")
x <- c(14,14); y <- c(0,15); spezza(x,y,"blue")
cerch(14,7.5, 3.6/2, "blue"); cerch(1.575,7.5, 0.45/2, "blue")
cerch(28-1.575,7.5, 0.45/2, "blue")
arc(1.575,7.5, 6.25,-90,90, 4); arc(28-1.575,7.5, 6.25,90,270, "blue")
linea(0,7.5-6.25,1.575, 7.5-6.25, "blue"); linea(0,7.5+6.25,1.575, 7.5+6.25, "blue")
linea(28,7.5-6.25,28-1.575, 7.5-6.25, "blue")
linea(28,7.5+6.25,28-1.575, 7.5+6.25, "blue")
coltrat="blue"; cerch(5.80,7.5, 1.8, 0); cerch(28-5.80,7.5, 1.8, 0)
arc(5.80,7.5, 1.8, -90,90, "blue"); arc(28-5.80,7.5, 1.8, 90,270, "blue")
linea(5.80,7.5+1.8, 5.80,7.5-1.8, "blue")
linea(28-5.80,7.5+1.8, 28-5.80,7.5-1.8, "blue")
linea(5.80,7.5+1.8, 5.80,7.5-1.8, "blue")
linea(28-5.80,7.5+1.8, 28,15-4.5, "blue")
linea(28-5.80,7.5-1.8, 28,4.5, "blue")
linea(5.80,7.5-1.8, 0,4.5, "blue")
linea(5.80,7.5+1.8, 0,15-4.5, "blue")