Manipulate[Dilation[,r],{r,0,10}]