Come è realizzabile la figura con R (vedi qui).

BF=2.5; HF=2.5
PLANE(-30,30,-30,30)
x=c(0,-10,-28,-10,0,10,28,10,0)
y=c(28,10,0,-10,-28,-10,0,10,28)
polyC(x,y,"yellow")
BOX()
polyline(x,y,"brown")
POINT(0,28,"blue"); POINT(0,10,"blue")
POINT(-10,10,"blue"); POINT(10,10,"blue")
line(-10,10, 10,10, "blue"); line(0,10, 0,28, "blue")
text(6,29,"A"); text(-3,7,"B")
text(-14,14,"C"); text(14,14,"D")