Gr.postscript("28505-archimede.ps",4,4)
lato=c(-20,20); par(bg="yellow")
Gr(lato,lato,cornice=T)
t=seq(0,20,by=0.01)
lines(t*cos(t),t*sin(t))
dev.off()