# 35-poligoni

Postscript("35-poligoni.ps",10,4)
latox=c(0,10); latoy=c(0,4); par(bg="#ddff33")
Grafica(latox,latoy,cornice=T)
centro=3.1+2i; larg=2.8; alt=1.5
r=Rettangolo(ades=centro,larg,alt)
polygon(r,col="coral")
r=Rettangolo(bdes=centro,larg,alt)
polygon(r,col="orange")
r=Rettangolo(asin=centro,larg,alt)
polygon(r,col="turquoise")
r=Rettangolo(bsin=centro,larg,alt)
polygon(r,col="#ba55d3")
r=Rettangolo(centro=centro,larg,alt)
polygon(r,col="#cd5c5c")
centro=8.2+2i; j=1; r=1.5; alfa=0;
colori=c("cyan","yellow","green",
  "sienna","red")
for (n in 9:5)
{p=Poligono(n,r);
polygon(Rot(p,alfa)+centro,lwd=2,col=colori[j])
r=r-0.3; j=j+1; alfa=alfa+50}
dev.off()