# come tracciare poligoni in scala monometrica
# la porzione di piano scelta:
x1 <- -5; x2 <- 5; y1 <- -5; y2 <- 5
plot(c(x1,x2),c(y1,y2),type="n",xlab="", ylab="", asp=1)
# il triangolo con le x -4,4,0 e le y -4,4,0 con sfondo giallo
polygon(c(-4,4,0),c(-4,-4,4),col="yellow")
# un quadrangolo con sfondo verde
polygon(c(-2,2,2,-2),c(-3,-3,4,2),col="green")
# un altro senza sfondo
polygon(c(-3,1,2,-2),c(-3,-3,4,3))
# uno con bordo rosso
polygon(c(-3,1,3,-4),c(-4,-3,1,3),border="red")
# un cerchio centrato in (1,-1) e raggio 2, con bordo blu
symbols(1, -1, circles=2, inches=FALSE, add=TRUE, fg="blue")
# un cerchio con sfonfo arancione
symbols(1, -1, circles=1/2, inches=FALSE, add=TRUE,bg="orange")