# 29-ellissi

Postscript("29-ellissi.ps",2,2)
lato=c(-4,4); par(bg="#ccff99")
Grafica(lato,lato,cornice=T)
par(col="peru"); abline(h=0,v=0)
par(lwd=1,col=1); t=seq(-6,6,by=0.01);
lines(-3+1.5i
  +Rot(0.3*ParabrinaMuscellaria(t),45))
t=seq(0,2*pi,by=0.01)
lines(Ellisse(t,2.5,1.5))
par(col="red")
lines(0.5+2.8i+Ellisse(t,3,0.8))
lines(Ellisse(t,1.2,1.2))
par(col="blue")
t=seq(pi/2,2*pi,b=0.01)
lines(-2.5-2.8i
  +Rot(Ellisse(t,1.5,1),45))
par(col=1)
t=seq(0,2*pi,length=8)
lines(2.3-2.8i+Ellisse(t,1.6,1))
dev.off()