Gr.postscript('29505-cicloidi.ps',
  5.2,10.4)
latox=c(0,26); latoy=c(0,52)
par(cex=0.5,bg='yellow')
Gr(latox,latoy,cornice=T)
for (k in c(14,28,36,44)) abline(h=k)
t=seq(-2*pi,10*pi,by=0.01)
lines(48i+(t-sin(t))+1i*(1-cos(t)))
text(13+45i,'Cicloide comune')
lines(39.5i+(t-1.5*sin(t))+
  1i*(1-1.5*cos(t)))
text(13+37i,'Cicloide allungata')
lines(31.5i+(t-0.6*sin(t))+
  1i*(1-0.6*cos(t)))
text(13+29i,'Cicloide abbreviata')
lines(3.5+21.5i+0.75*(5*cos(t)-cos(5*t)
  +1i*(5*sin(t)-sin(5*t))))
text(13+15i,'Epicicloidi')
lines(13+21.5i+0.75*(5*cos(t)-
  1.5*cos(5*t)
  +1i*(5*sin(t)-1.5*sin(5*t))))
lines(22.5+21.5i+0.75*(5*cos(t)-
  0.6*cos(5*t)
  +1i*(5*sin(t)-0.6*sin(5*t))))
lines(3.5+7i+3*cos(t)+cos(3*t)
  +1i*(3*sin(t)-sin(3*t)))
lines(13+7i+3*cos(t)+1.5*cos(3*t)
  +1i*(3*sin(t)-1.5*sin(3*t)))
lines(22.5+7i+3*cos(t)+0.6*cos(3*t)
  +1i*(3*sin(t)-0.6*sin(3*t)))
text(13+0.5i,'Ipocicloidi')
dev.off()