# Con R
source("http://macosa.dima.unige.it/r.R")
# dimensiono parte di piano cartesiano da visualizzare
PLANE(-6,10, -7,7)
# definisco ascisse o ordinate della figura iniziale
x <- c(1,4,4,3,3,1,1)
y <- c(1,1,3,3,5,5,1)
polyl(x,y, "black")
x1 <- x+5; y1 <- y+1; polyC(x1,y1, "yellow")
x2 <- -y; y2 <- x; polyC(x2,y2, "red")
x3 <- -x; y3 <- -y; polyC(x3,y3, "grey")
x4 <- x; y4 <- -y; polyC(x4,y4, "green")