filling area under a function line

	polygon(
			c(from,  x, to), 
			c(min(y),y,min(y)),
			col=areacol, lty=0
	)
	

I guess my question should have been, I don't seem to be able to query
or "reflect" a plot object to get at its attributes to fill in the
polygon call, without actually modifying the curve/plot function.

eg;

myplot<-curve(sin)

returns a NULL string

Tom