# Basketball court# HF = 5; BF = 8 PLANEww(0,28,0,15) x <- c(0,28,28,0,0); y <- c(0,0,15,15,0); polyC(x,y,"grey90") x <- c(14,14); y <- c(0,15); polyl(x,y,"blue") circl(14,7.5, 3.6/2, "blue"); circl(1.575,7.5, 0.45/2, "blue") circl(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") line(0,7.5-6.25,1.575, 7.5-6.25, "blue"); line(0,7.5+6.25,1.575, 7.5+6.25, "blue") line(28,7.5-6.25,28-1.575, 7.5-6.25, "blue") line(28,7.5+6.25,28-1.575, 7.5+6.25, "blue") coltrat="blue"; circl(5.80,7.5, 1.8, 0); circl(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") line(5.80,7.5+1.8, 5.80,7.5-1.8, "blue") line(28-5.80,7.5+1.8, 28-5.80,7.5-1.8, "blue") line(5.80,7.5+1.8, 5.80,7.5-1.8, "blue") line(28-5.80,7.5+1.8, 28,15-4.5, "blue") line(28-5.80,7.5-1.8, 28,4.5, "blue") line(5.80,7.5-1.8, 0,4.5, "blue") line(5.80,7.5+1.8, 0,15-4.5, "blue")