ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
Needs["Graphics`Arrow`"];


l1 = Graphics[Line[{{0.3,0.74},{0.52,0.52}}]];
l2 = Graphics[Line[{{0.3,0.26},{0.52,0.48}}]];
l3 = Graphics[Line[{{0.3,0.7},{0.5,0.5}}]];
l4 = Graphics[Line[{{0.3,0.3},{0.5,0.5}}]];
l5 = Graphics[Line[{{0.52,0.52},{0.9,0.52}}]];
l6 = Graphics[Line[{{0.52,0.48},{0.9,0.48}}]];

arrow = Graphics[{Arrow[{0.35,0.73},{0.45,0.63}],
				Arrow[{0.35,0.27},{0.45,0.37}],
				Arrow[{0.7,0.55},{0.9,0.55}],
	Text[FontForm["C",{"Times-Roman",12}],{0.46,0.5}],
	Text[FontForm["u",{"Times-Roman",12}],{0.4,0.72}],
	Text[FontForm["v",{"Times-Roman",12}],{0.4,0.28}],
	Text[FontForm["u + v",{"Times-Roman",12}],{0.8,0.59}]
	}];
	
Show[l1,l2,l3,l4,l5,l6,arrow,PlotRange->{{0.3,0.9},{0.25,0.75}},
		PlotLabel->"                                   Figure 12.6
		\n\n     Total outflow from venules = inflow to vein\n
		Total discharge from venules = recharge of vein"]