source("http://macosa.dima.unige.it/r.R")
ampx <- 55; ampy <- 35; R <- function() runif(1); r <- R()*3
cartamm(ampx,ampy)
L <- 45+floor(R()*8); H <- 8+floor(R()*8); K <- 27+floor(R()*8); M <- 7+floor(R()*5); Q <- 9+floor(R()*3)
if(r < 1) {x <- c(0,ampx/55*L,ampx/55*L,ampx/55*M,0); y <- c(0,0,ampy/35*K,ampy/35*K,ampy/35*H)} else
{if(r < 2) {x <- c(0,ampx/55*L,ampx/55*L,ampx/55*(L-M),0); y <- c(0,0,ampy/35*H,ampy/35*K,ampy/35*K)} else
{x <- c(0,ampx/55*L,ampx/55*(L-M),ampx/55*L,0); y <- c(0,0,ampy/35*H,ampy/35*K,ampy/35*K)}}
polygon(x,y,col="yellow"); A <- floor(R()*8+1)
x1 <- c(10+A,20+A,20+A,10+A); y1 <- c(20-Q,20-Q,20,20); polygon(x1,y1,col="white")
area <<- ifelse(r < 2, (L*K-M*(K-H)/2-10*Q)/100, (L*K-M*K/2-10*Q)/100 )
a <- function() cat('AreaRettangolo - AreaRettangolino - AreaTriangolo =',area,'m^2\n')
Cartamm(ampx,ampy)
polygon(x,y); polygon(x1,y1)