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,"#") }