source("http://macosa.dima.unige.it/r.R") HF=3.2; BF=3.5 Planeww(0,23, 18,61) R <- 12; C <- 40 for(L in 1:20) for(i in 1:L) { t <- L-floor(L/4)*4; if(t==0) C <- C+2; if(t==1) R <- R+1; if(t==2) C <- C-2; if(t==3) R <- R-1; text(R,C,"#") }