# 36-poligonoriflesso

Postscript("36-poligonoriflesso.ps",
  5,3.5)
latox=c(0,5); latoy=c(0,3.5)
par(bg="yellow")
Grafica(latox,latoy,cornice=T)
w=3+1.3i; z0=0.8+0.7i;
t=seq(-2,3,by=0.01)
r=Retta(t,z0,z0+w); lines(r)
t=seq(0,2*pi,by=0.01)
e=Cerchio(t,0.25)+1.85+1.62i
polygon(e,col="red")
er=Riflretta(e,z0,w)
polygon(er,col="red")
p=Poligono(5,0.7)+3+2.8i
polygon(p,col="orange")
pr=Riflretta(p,z0,w)
polygon(pr,col="orange")
dev.off()