ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
time = FontForm["TIME",{"Times-Roman",7}];
tree = Graphics[{Line[{{1,0},{1,1}}],Line[{{2,0},{3,1}}],
				 Line[{{1,1},{3,2}}],Line[{{3,0},{3,3}}],
				 Line[{{3,3},{5,4}}],Line[{{5,0},{5,5}}],
				 Line[{{4,0},{5,1}}],Line[{{5,2},{6,1}}],
				 Line[{{5,3},{7,2}}],Line[{{6,0},{6,1}}],
				 Line[{{7,0},{7,2}}],Line[{{7,1},{8,0}}]}];
black = Join[{{1,0},{6,0},{7,0},{7,1}},
			Table[{3,i},{i,0,2}],
			Table[{5,i},{i,0,4}]];
white = {{1,1},{2,0},{3,3},{4,0},{5,5},{6,1},{7,2},{8,0}};
bdots = Graphics[Table[Disk[black[[i]],0.1],{i,1,12}]];
wdisks = Graphics[{GrayLevel[1],Table[Disk[white[[i]],0.1],{i,1,8}]}];
wdots =	Graphics[Table[Circle[white[[i]],0.1],{i,1,8}]];
bush = Show[tree,bdots,wdisks,wdots,
	Axes->{False,True}, AxesLabel->{None,time},
	AxesOrigin->{0,-1},Ticks->{None,{{0,5},{1,4},{2,3},{3,2},{4,1},{5,0}}},
	PlotRange->{{0,8.2},{-0.2,5.2}},
	PlotLabel->"Growth of Fibonacci population (virgins in white)",
	AspectRatio->Automatic];
Show[GraphicsArray[{bush},PlotLabel -> "Figure 5.4"]]