X=2;PR={{-X,X},{-X,X}};
Do[Print[Rasterize[Grid[{{"  v"->N[v]},
{Show[Plot[Evaluate[v r],{r,-X,X},Filling->Bottom,
PlotStyle->{{Orange}},PlotRange->PR,Frame->True,
ImageSize->480,AspectRatio->1],
Plot[Evaluate[v r],{r,-2,2},Filling->Top,
PlotStyle->{{Darker[Green],Thick}},PlotRange->PR],
Graphics[{{Red,Thickness[0.005],
Arrow[{{-X v,-X},{0,0}}]}}]]}},
Alignment->Left]]],{v,0,10,1/3}]