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")